Lab ต้องการให้เพิ่ม ค่า creatinine clearance และ GFR ใน p_lab ด้วย ไม่แน่ใจว่าจะเพิ่มยังไงดีครับ
ลองตัวแปร _CrCl ก็ไม่ได้ผลครับ
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
ย้อนกลับไปยัง ถาม-ตอบ ปัญหาต่างๆ เกี่ยวกับโปรแกรม MIT-NET
กำลังดูบอร์ดนี้: ไม่มีสมาชิกใหม่ และ บุคคลทั่วไป 276 ท่าน