จะเพิ่ม CR GFR ใน p_lab ยังไง

[sutthipongr]

Lab ต้องการให้เพิ่ม ค่า creatinine clearance และ GFR ใน p_lab ด้วย ไม่แน่ใจว่าจะเพิ่มยังไงดีครับ
ลองตัวแปร _CrCl ก็ไม่ได้ผลครับ

[sutthipongr]

พิมพ์ผ่าน spl (dos) ที่คุณหมอปรับเพิ่ม

โค้ด: เลือกทั้งหมด

parameter frec7,pagcode  &&sattahip new
priv DOCTORNAME,reporter,col,ocode,odose
store "" to DOCTORNAME,reporter,ocode,odose
set printer on
nn=19    &&  จำนวนรายการ
??? chr(27)+chr(67)+chr(0)+chr(8)   &&กำหนดความยาวกระดาษเป็น 8 นิ้ว
??? chr12
IF alltr(drv) $ "DYNAdyna"
   ?? chr(27)+chr(51)+chr(lspc+14)
ENDIF
more=1
lpp=1
LPP2=1
DO WHILE more >0
   ?? iif(more=2,"ใบต่อ......","")
   more=0
   ? space(7)+left(alltrim(a.pname)+alltrim(a.fname)+space(2)+alltrim(a.lname)+space(53),53)+a.hn
   ?  space(8)+iif(val(a.male)=1,"ชาย  ","หญิง  ")+space(8)
   IF pt_ay < 1
      IF pt_am < 1
         ?? str(pt_ad,3,0)+" วัน    "
      ELSE
         ?? str(pt_am,3,0)+" เดือน  "
      ENDIF
   ELSE
      ?? str(pt_ay,3,0)+" ปี     "
   ENDIF
   ?? space(8)+left(dtoc(d),6)+STR(year(d)+543,4,0)
   ?? space(4)+time_c()+"น."
   ?
   ? CHR(27)+chr(87)+chr(1)  && Double-Width on
   ?? space(15)+"ใบส่งตรวจ "
   ??? CHR(27)+chr(87)+chr(0)   && Double-Width off
   ?
   ? space(7)+"การตรวจ."+space(15)+"ผลวิเคราะห์"+space(16)+"ค่าปกติ"
   IF frec7 > 0
      select 7
      go frec7
      col=1
      lpp=1
      DO WHILE lpp < nn
         IF lab_code <> "VITAL0000"
            IF alltrim(dose_man)="------หัวข้อกลุ่ม------"
               ? space(2)+j.print_name
               ?? repl("-",42)
               col=1
            ELSE
               cResult = dose_man
               if !empty(CREATININE).and.rtrim(j.lab_code) $ CREATININE.and.val(b.age_now) >= 1 .and.val(cResult) > 0
                  cResult = rtrim(cResult)+'     '+ctinine( val(cResult),bo_wt,val(b.age_now),a.male)
               endif
               IF col=1
                  IF !empty(j.dose_man)
                     ? space(2)+j.print_name+"="+iif(empty(cResult),repl(".",29),cResult)
                     ?? "("+alltrim(j.dose_man)+")"
                     col=1
                  ELSE
                     IF empty(cResult)
                        ? space(2)+j.print_name+"="+repl(".",10)
                     ELSE
                        ? space(2)+j.print_name+"="+cResult
                     ENDIF
                     col=1
                  ENDIF
               ELSE
                  IF !empty(j.dose_man)
                     ? space(2)+j.print_name+"="+iif(empty(cResult),repl(".",29),cResult)
                     ?? "("+alltrim(j.dose_man)+")"
                  ELSE
                     IF empty(cResult)
                        ?? space(2)+j.print_name+"="+repl(".",10)
                     ELSE
                        ?? space(2)+left(j.print_name,10)+"="+cResult
                     ENDIF
                  ENDIF
                  col=1
               ENDIF
            ENDIF
            STORE register TO DRX
            STORE operator to opx
            select 6
            IF !empty(drx).and.SEEK(DRX)
               doctorname=iif(AT(alltrim(DOCTOR),DOCTORNAME)=0,DOCTORNAME+iif(empty(doctorname),"",";")+allt(prename)+alltrim(doctor),DOCTORNAME)
            ENDIF
            IF !empty(opx).and.SEEK(opX)
               reporter=iif(AT(alltrim(DOCTOR),reporter)=0,reporter+iif(empty(reporter),"",";")+allt(prename)+alltrim(doctor),reporter)
            ENDIF
            SELECT 7
         ENDIF
         ocode=LAB_code
         odose=alltrim(dose_man)
         skip 1
         msexr=iif(inkey()=27,0,msexr)
         IF msexr=0
            =mwait("รอ! จะยุติการพิมพ์ หลังจากพิมพ์ข้อมูลที่ค้างอยู่เรียบร้อยแล้ว ",-1)
         ENDIF
         IF hn=h.and.vstdate=d.and.times=t
            IF ocode <> "VITAL0000".and.left(LAB_code,5)=left(pagcode,5)
               lpp2=1
               lpp=lpp+1
               ***ขึ้นหน้าใหม่เมื่อเปลี่ยนกลุ่ม
               IF alltrim(dose_man)="------หัวข้อกลุ่ม------".and.left(lab_code,3)<>left(ocode,3).and.odose<>"------หัวข้อกลุ่ม------"
                  lpp2=nn-lpp+2
                  lpp=nn
               ENDIF
               ****
               IF lpp=nn
                  more=2
                  frec7=recno()
               ENDIF
            ENDIF
         ELSE
            lpp2=nn-lpp+1
            lpp=nn
            more=0
         ENDIF
      ENDDO
      FOR i=1 to lpp2
         ?
      NEXT
      ?? space(2)+repl(".",67)
      ? space(2)+"ผู้ส่งตรวจ :"+subthai(doctorname,1,56)
      IF lenthai(doctorname)>56
         ? subthai(doctorname,57,56)
      ELSE
         ?
      ENDIF
   ENDIF
   ? space(2)+"ผู้รายงาน :"+subthai(reporter,1,56)
   *********************สิ้นสุดการแก้ไข***************
   eject page
ENDDO
*****************************************************
RETURN


ตอนนี้ฟ้องว่า
30/01/2013 15:44:45 G:\HOSPITAL\DATA\LAB_X.DBF
Rec: 2192849 Key:HN
Prg:OPDSEL/PAGE/LAB_LIST/X_LAB/ P_LAB Line: 49
Err: 12 : Variable 'LAB_CODE' not found.
Soc:0001 St :[IN05000]ห้องจ่ายยา User : 01162
Inf:001731075C43SUTTHIPONGR2 /IT#008

[sutthipongr]

ได้แล้วครับ
ที่ฟ้อง ไม่พบ lab_code คือ j.lab_code ครับ
ก็เปลี่ยนเป็น lab_code เฉยๆ หรือ xl.lab_code ก็จะได้ครับ

cResult = dose_man
if !empty(CREATININE).and.rtrim(xl.lab_code) $ CREATININE.and.val(b.age_now) >= 1 .and.val(cResult) > 0
cResult = rtrim(cResult)+' '+ctinine( val(cResult),bo_wt,val(b.age_now),a.male)
endif