BMS-HOSxP Community

HOSxP => Report Exchange => ข้อความที่เริ่มโดย: phayak ที่ มิถุนายน 13, 2009, 08:52:35 AM

หัวข้อ: ขอความช่วยเหลือเรื่องฉลากยาครับ
เริ่มหัวข้อโดย: phayak ที่ มิถุนายน 13, 2009, 08:52:35 AM

ถ้าต้องการฉลากยาที่บอกว่ามีการปรับเปลี่ยนยา เพิ่มหรือลด เป็นยาใหม่หรือเก่าเหมือน จ่ายยา mode 2 ต้องเขียนคำสั่งอย่างไรหรือมีฉลากแบบนี้อยู่แล้วช่วยบอกแหล่ง download ด้วยครับ ขอบคุณครับ

หัวข้อ: Re: ขอความช่วยเหลือเรื่องฉลากยาครับ
เริ่มหัวข้อโดย: doramon ที่ มิถุนายน 13, 2009, 13:28:27 PM

 ;D

หัวข้อ: Re: ขอความช่วยเหลือเรื่องฉลากยาครับ
เริ่มหัวข้อโดย: doramon ที่ มิถุนายน 13, 2009, 14:30:36 PM

procedure TRxPayForm.ItemCDSBeforePost(DataSet: TDataSet);
var  income_name_type ,xincome:string;
begin
  if dataset.fieldbyname('icode').asstring <> '' then
  begin

    dataset.fieldbyname('income_name').asstring := '';

    if FxItemCDS.findkey([dataset.fieldbyname('icode').asstring]) then
      if trim(FxItemCds.fieldbyname('income').asstring) <> '' then
        dataset.fieldbyname('income_name').asstring :=
          FxItemCds.fieldbyname('income').asstring;

    income_name_type := '';
    xincome := dataset.fieldbyname('income_name').asstring;

    if xincome='' then
    xincome := FFirstDrugIncome;

    if not FNoMedicationHistoryCheck then
    if OldVisitRxCDS.active then
     // if dataset.fieldbyname('income_name'). <> '' then
        if pos(xincome, FAllDrugIncome) > 0 then
        begin
          if OldVisitRxCDS.locate('icode', vararrayof([dataset.fieldbyname('icode').asstring]),
            []) then
          begin
            if (oldvisitrxcds.fieldbyname('drugusage').asstring =
              itemcds.fieldbyname('drugusage').asstring) then
            begin
              if (oldvisitrxcds.fieldbyname('qty').asinteger =
                dataset.fieldbyname('qty').asinteger) then
              begin
                income_name_type := 'ยาตัวเดิม';
              end
              else
              begin
                if (oldvisitrxcds.fieldbyname('qty').asinteger <
                  dataset.fieldbyname('qty').asinteger) then
                  income_name_type := 'ยาเดิม เพิ่มจำนวน'
                else
                  income_name_type :=
                    'ยาเดิม ลดจำนวน';
              end;

            end else
            begin

               income_name_type := 'ยาเดิม เปลี่ยนวิธีใช้';

            end;

          end
          else
          begin
            income_name_type := 'ยาสั่งใช้ตัวใหม่';

          end;

        end;

หัวข้อ: Re: ขอความช่วยเหลือเรื่องฉลากยาครับ
เริ่มหัวข้อโดย: doramon ที่ มิถุนายน 13, 2009, 17:19:06 PM

http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=10553.0#new

หัวข้อ: Re: ขอความช่วยเหลือเรื่องฉลากยาครับ
เริ่มหัวข้อโดย: James011 ที่ มิถุนายน 13, 2009, 17:54:04 PM

 ;D ;D สุดยอดครับท่าน ขอ CDS ฉลากยาหน่อยครับ 

หัวข้อ: Re: ขอความช่วยเหลือเรื่องฉลากยาครับ
เริ่มหัวข้อโดย: sungoku ที่ มิถุนายน 13, 2009, 20:30:51 PM

code ที่อาจารย์ให้เอาไปใส่ตรงไหนครับ

หัวข้อ: Re: ขอความช่วยเหลือเรื่องฉลากยาครับ
เริ่มหัวข้อโดย: doramon ที่ มิถุนายน 13, 2009, 20:51:37 PM

อ้างจาก: sungoku ที่ มิถุนายน 13, 2009, 20:30:51 PM

code ที่อาจารย์ให้เอาไปใส่ตรงไหนครับ

เอาไปเป็นแนวทางครับ

แต่ว่ายังใช้ไม่ได้ครับตัวนี้

แกะมาจาก  hosxp