BMS-HOSxP Community
HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: doramon ที่ มิถุนายน 01, 2009, 21:12:42 PM
-
if not FNoMedicationHistoryCheck then
if OldVisitRxCDS.active then
// if doctorrxcdsincome_name.value <> '' then
if pos(xincome, FAllDrugIncome) > 0 then
begin
if OldVisitRxCDS.locate('icode', vararrayof([doctorrxcdsicode.value]),
[]) then
begin
if (oldvisitrxcds.fieldbyname('drugusage').asstring =
doctorrxcdsdrugusage.value) then
begin
if (oldvisitrxcds.fieldbyname('qty').asinteger =
doctorrxcdsqty.value) then
begin
income_name_type := 'ยาตัวเดิม';
end
else
begin
if (oldvisitrxcds.fieldbyname('qty').asinteger <
doctorrxcdsqty.value) then
income_name_type := 'ยาเดิม เพิ่มจำนวน'
else
income_name_type :=
'ยาเดิม ลดจำนวน';
end;
end else
begin
income_name_type := 'ยาเดิม เปลี่ยนวิธีใช้';
end;
end
else
begin
income_name_type := 'ยาสั่งใช้ตัวใหม่';
end;
end;