工作中可以用到的

1.生成单据号

ls_jzdjh = Iuo_fun.uf_get_dh("JZDJ")

 

2.his的powerdesigner文件放在

E:\about_his\powerdesigner\dbscript\TJXX018019

 

3.his3层，根据sql取返回值

String ls_sql_itemvalue
ls_sql_itemvalue = &
    "SELECT max(v_detail.sjgmx04) " + &
    "FROM tjxxa01,tjxxa04,TJXXA03,V_CHECK_RESULTREPORT_DETAIL v_detail " + &
    "WHERE tjxxa04.stjdj01 = v_detail.stjdj01(+) " + &
    "AND tjxxa04.stjdj01 = tjxxa03.sryxx01(+) " + &
    "AND tjxxa01.sryxx01 = tjxxa04.sryxx01 " + &
    "and v_detail.sjgmx02 ='"  + as_item_code + "' " + &
    "AND v_detail.stjdj01 ='" + as_reg_code  + "'"

String ls_rtn
ls_rtn = f_web35(ls_sql)
IF ls_rtn = '-1' THEN
    MessageBox("提示","取体检项目常见结果参考值失败！")
    RETURN ""
END IF

RETURN ls_rtn

4.往科室写消息 

 iuo_yyglfun.Uf_SSXX_Write('22', ls_ryks_old, '病人：'+ls_xm+'【'+ls_zyh+'】撤销入住本科', '撤销入院')

5.获取sql,并在sql中添加where条件

uo_sql_service    lnv_sql
ls_sql = datacache.object.datawindow.table.select
ls_sql = lnv_sql.of_addwhere(ls_sql, whereclause)
datacache.object.datawindow.table.select = "~""  + ls_sql + "~""

 6.his6.0中不通过uo_dw_main加入一行数据

gn_proxy.of_reset( )
gn_proxy.of_setaction("HIS0905")
gn_proxy.of_addrow("HISYYGL17006U", is_user_code+gn_proxy.ls_col_split+ls_ksxx01)
if gn_proxy.of_invork(gn_proxy.of_getmainserver( ), ls_retvalue) = gn_proxy.isok then
    gs_user_szgxx16 = ls_ksxx01
    messagebox("信息","修改库位成功!")
    close(parent)
else
    messagebox("错误","修改库位失败:"+gn_proxy.errtext)
    return
end if

 7.His6.0通过datastore转换成字符串的列，可用于通过字符串加入一行

ls_str = gf_getds_data( lds_tmp , ll_row , ls_values )
if ls_str = "" then
    return -1
end if