ฝากไว้ก่อน

[doramon]

    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;