f66lifn9
新新人类
帖子
1
精华
0
无忧币 15
积分 5
阅读权限 20
|
发表于:2008-4-12 10:26
标题：关于数据窗口保存的代码
＜上一帖 |
下一帖＞
主要是想把数据窗口中的数据写入到另外的一张表inp_bill_detail中
Int li_rtn,c_costs,c_charge,i_amount
Int li_type,pat_charge
String i_spec, ls_person_no,i_class,i_name
string i_code
String ls_adm_date, ls_dis_date
String ls_adm_status, ls_dis_status
dw_adm.AcceptText()
dw_pat_info.AcceptText()
//4
i_class = dw_adm.GetItemString(1,"bill_pattern_detail_item_class")
//5
i_name = dw_adm.GetItemString(1,"item_name")
//6
i_code = dw_adm.GetItemString(1,"item_code")
//7
i_spec = dw_adm.GetItemString(1,"item_spec")
//8
i_amount=dw_adm.GetItemNumber(1,"amount")
//9
i_unit = dw_adm.GetItemString(1,"price_list_units")
bill_date_time =today()
//dw_adm.GetItemDateTime(1,"sysday")
//dis_date_time = dw_adm.GetItemDateTime(1,"out_date")
//ls_adm_date = String(adm_date_time,"YYYY-MM-DD")
//ls_dis_date = String(dis_date_time,"YYYY-MM-DD")
//inp_days = dw_adm.GetItemNumber(1,"inp_days")
adm_dept_name = dw_adm.GetItemString(1,"dept_name")
dis_dept_name = dw_adm.GetItemString(1,"dept_name")
//doctor_name = dw_adm.GetItemString(1,"doctor")
//ls_adm_status = dw_adm.GetItemString(1,"in_status")
//adm_diag_code = dw_adm.GetItemString(1,"in_diag")
//11
//dis_dept_name = dw_adm.GetItemString(1,"out_dept_name")
//执行科室代码10
//dis_dept_code = dw_adm.GetItemString(1,"out_dept_code")
//ls_dis_status = dw_adm.GetItemString(1,"out_status")
//dis_diag_code = dw_adm.GetItemString(1,"out_diag")
//12
c_costs=dw_adm.GetItemNumber(1,"amount*price")
//13
c_charge=dw_adm.GetItemNumber(1,"amount*price")
p_charge_type=dw_pat_info.GetItemString(1,"pat_visit_charge_type")
//开单科室15
adm_dept_code=dw_pat_info.GetItemString(1,"dept_dict_dept_code")
//1
pat_id=dw_pat_info.GetItemString(1,"pat_visit_patient_id")
//2
visit_id=dw_adm.GetItemNumber(1,"pat_visit_visit_id")
if p_charge_type='自费' or p_charge_type='医改' then
pat_charge=c_costs
else if
p_charge_type='免费' then
pat_charge=0
if p_charge_type='优惠医疗' then
pat_charge=c_costs/10
end if
end if
end if
INT I
SELECT COUNT(ITEM_NO)+1 INTO :I
WHERE PATIENT_ID= AT_ID AND VISIT_ID=:VISIT_ID;
insert into "INP_BILL_DETAIL" ( " ATIENT_ID", "VISIT_ID", "ITEM_NO", "ITEM_CLASS","ITEM_NAME", "ITEM_CODE","ITEM_SPEC", "AMOUNT","UNITS","ORDERED_BY","ERFORMED_BY", "COSTS", "CHARGES", "BILLING_DATE_TIME",
"OPERATOR_NO","RCPT_NO","SPECIAL_CHARGES") values(:pat_id,:visit_id,:1,:i_class,:i_name,:i_code,:i_spec,
:i_amount,:i_unit,:adm_dept_code,:adm_dept_name,:c_costs,:c_charge,:bill_date_time,:ff,"","")
|
论坛活动：测测你对IT技术大会的了解指数(赠微软礼品、无忧币) |
|
| 诚征版主 | 版主堂 | 意见建议 | 大史记 | 论坛地图