ขอตัวอย่างการเขียน prg ในการสั่งพิมพ์ใบรับรองแพทย์ด้วยครับ

[nufc]

พอทราบว่าจะต้อง key ข้อมูลตรง 6 การรักษาแล้ว พิมพ์ doctor แล้วภายในรหัสตัวนี้จะมีคำสั่งเหมือน prg อยู่ภายใน ไม่ทราบว่าพอมีตัวอย่างให้ดูบ้างป่าวครับ ขอบคุณล่วงหน้า

[adminpang]

รพ.จะแนะ ก็ยากได้เหมือนกัน

[raknim]

หนองจิกด้วยครับ

[stardin]

โรงพยาบาลยะรัง ก็อยากได้เช่นกันครับ อยากให้พวกเรารักกันครับ_Neo

[adminpang]

ขอเป็นกำกังใจให้หมอพัฒนาโปรแกรมต่อไปนะครับ.......พวกเรารัก MITNET เสมอ

[mit]

ตัวอย่าง code สำหรับกรณีใบรับรองและลาป่วย แบบฟอร์มมีให้ download คือ "SICK LEAVE.FRX"
เอาไปใส่ไว้ใน ช่องข้อมูลจำเพาะ
***********************************************************
SPL1
"RUN SICK LEAVE.FRX"
"DATE"+chr(1)+thaidate(d,.t.)
"DNAME"+chr(1)+f.doctor
"DPOS"+chr(1)+f.position
"DRID"+chr(1)+f.dr_id
"PTNAME"+chr(1)+alltrim(a.pname)+alltrim(a.fname)+" "+a.lname
"HN"+chr(1)+h
"AGE"+chr(1)+age2
"DIAG"+chr(1)+diagnosis
"THAIDX"+chr(1)+ThaiDX
"LEAVE"+chr(1)+iif(n.amount=0,n.dose_man,'พักรักษาตัว';
+str(n.amount,3,0)+' วัน')
"EXAM"+chr(1)+CNF
"FDATE"+chr(1)+thaidate(d,.t.)
"EDATE"+chr(1)+thaidate(d+n.amount,.t.)
"CMNT"+chr(1)+comment
*****************************************************

[mit]

ตัวอย่าง code สำหรับกรณีใบรับรองและลาป่วย แบบฟอร์มมีให้ download คือ "certificate.FRX"
เอาไปใส่ไว้ใน ช่องข้อมูลจำเพราะ
***********************************************************
SPL1
"RUN CERTIFICATE.FRX"
"THOSP"+chr(1)+namampl
"DATE"+chr(1)+thaidate(date(),.t.)
"VDATE"+chr(1)+thaidate(d,.t.)
"DNAME"+chr(1)+f.doctor
"DPOS"+chr(1)+f.position
"DRID"+chr(1)+f.dr_id
"PTNAME"+chr(1)+alltrim(a.pname)+alltrim(a.fname)+" "+a.lname
"HN"+chr(1)+h
"AGE"+chr(1)+age2
"ADDR1"+chr(1)+alltrim(m.addrpart)+" หมู่"+str(m.moopart,2,0)+' ตำบล'+dtamb
"ADDR2"+chr(1)+' อำเภอ'+alltrim(ddist)+' จังหวัด'+dprov
"EXAM"+chr(1)+CNF
"CMNT"+chr(1)+comment
"THAIDX"+chr(1)+dose_man
********************************************

[mit]

เฉพาะ CODE นะครับที่เอาไปพิมพ์ใส่ในช่องข้อมูลจำเพาะ และ code นี้มีค่าตัวแปรที่ได้จาก MIT-NET8.exe (23/4/09) เท่านั้นเช่น comment ใน version เก่าไม่มีครับ หมอดึงข้อมูลที่เขียนไว้ในกิจกรรมมาไว้ในตัวแปรนี้ ดังนั้นเวลาลอก CODE ทำความเข้าใจไปด้วยครับ

อีกครั้งครับ CERTIFICATE.FRX,SICK LEAVE.FRX อยู่ที่หน้า DOWNLOAD ตรง .Prg ,.Fxp ,Report และ Label เป็นตัวดั้งเดิมครับคือมีอยู่ใน UTILITY แล้วถ้าต้องการแก้ไขแบบไม่เหมือนที่มีอยู่ ก็ download ไป พอได้ ZIP ไฟล์ก็ระเบิดออกมาแล้ว จำเป็นต้องเปลี่ยนชื่อก่อน(อย่าลืมแก้ชื่อ .FRT ด้วยนะครับ) แล้วเอาไปไว้ที่ DIRECTORY ของ MIT-UTILITY ครับ และแก้ชื่อใน CODE ตรง RUN ให้ตรงกับชื่อที่ตั้งใหม่จะได้เรียกถูกตัวครับ ทดลองทำดูครับ เอาใจช่วยครับนี่พยายามให้ง่ายสุดแล้วนะครับ

[sutthipongr]

CERTIFICATE.FRX,SICK LEAVE.FRX อยู่ที่หน้า DOWNLOAD ตรง .Prg ,.Fxp ,Report และ Label

download แล้ว ใน prg&form.zip ยังไม่มี 2 ไฟล์ข้างต้นครรับ

[sutthipongr]

มาแล้วครับ สามารถ download certificate และ sick leave ได้แล้วครับ
ชอบตรง certificate ที่ ให้หมอลงความเห็น(ตัวแปร comment) ในรายละเอียดกิจกรรม แล้วจะดึงมาโชว์ในแบบพิมพ์เลยครับ หมอแค่เซ็นต์กำกับอย่างเีดียวก็พอ


งานนี้ work สุดๆ อีกแล้วครับ...

ส่วนใน sick leave ยังไม่เข้าใจตัวแปร
"VDATE"+chr(1)+thaidate(d,.t.)
"EXAM"+chr(1)+CNF
"THAIDX"+chr(1)+dose_man
ว่าต้อง key ตรงไหน จึงจะส่งค่าให้ตัวแปรเหล่านี้

[mit]

CNF เป็นตัวแปรของช่องการตรวจร่างกาย ต้องระวังถ้าใช้ใน VERSION ก่อนหน้าจะไม่มีตัวแปรนี้ในหน้าสั่งยาที่ห้องจ่ายยา (เข้าทางเมนู8) มีเฉพาะหน้าสั่งยาแผนกอื่นๆ(เข้าทางเมนู4) แต่ใน version ปัจจุบันใช้ได้ทั้ง 2 ที่
dose_man เป็นตัวแปรของช่องข้อความ NOTE ที่รายการกิจกรรมคล้ายการบริหารยา
d เป็นตัวแปรวันที่ของหน้าลงทะเบียนนั้นๆ

ใน SICK LEAVE มีตัวแปร amount ก็แค่ใส่หน่วยของกิจกรรมเป็นง'วัน'

[sutthipongr]

dose_man เป็นตัวแปรของช่องข้อความ NOTE ที่รายการกิจกรรมคล้ายการบริหารยา

ลองทดสอบแล้ว dos_thaidx ะมีค่า เหมือน
dos_diag คือ รับค่า จาก diagnosis ไม่ทราบว่าตัวแปรทั้ง 2 ต่างกันยังไงครับ


และอีกอย่าง

"LEAVE"+chr(1)+iif(n.amount=0,n.dose_man,'พักรักษาตัว';
+str(n.amount,3,0)+' วัน')

สมมติว่า pt มารพ.วันนี้ แล้วแพทย์ต้องลง ว่า 0 วัน แบบพิมพ์(sick leave.frx)ตรง เห็นสมควร จะใส่ค่าตาม dose_man คือ ถ้าใส่ 0 วัน ก็ให้แพทย์ลงความเห็นว่า ยังไง ก็จะ print ตามนั้น

และสมมติว่า ลง 1 วัน ก็จะพิมพ์ว่า พักรักษาตัว จำนวน 1 วัน
คือตั้งแต่วันนี้ ถึง พรุ่งนี้ ??


ความจริงคือ ลงว่า 1 วัน แสดงว่า ลาป่วยวันนี้ หรือเปล่า ครับ

ตรงนี้อยากให้ ที่อื่นช่วยแสดงความคิดเห็นด้วยครับ คือ

[sutthipongr]

ทดลอง เปลี่ยน EDATE จาก

"EDATE"+chr(1)+thaidate(d+n.amount,.t.)

เป็น

"EDATE"+chr(1)+thaidate(d+n.(amount-1),.t.)

จะได้วันที่เริ่มลาป่วย และวันสุดท้่ายที่ลาป่วยได้
เช่น มารพ.วันนี้ (25 เมย 52๗ แพทย์ลงใบรับรองแพทย์ลาป่วย 1 วัน
FDATE จะได้ 25 เมษายน 2552 EDATE จะได้ 25 เมษายน 2552

หรือถ้าให้ลา 2 วัน
FDATE คือวันนี้ 25 เมษายน 2552 EDATE คือ 26 เมษายน 2552

**แต่ถ้าใช้แบบนี้จะลง 0 วัน ไม่ได้ เพราะ EDATE จะน้อยกว่า FDATE 1 วัน ครับ**

ไม่แน่ใจว่า ถูกต้องไหมครับ

[raknim]

"EDATE"+chr(1)+thaidate(d+n.(amount-1),.t.)

ตรง amount-1 ไม่ต้องใส่วงเล็บครับ

ถ้าจะใส่ที่อยู่ และ หมายเลขบัตรประชาชนด้วย จะเขียนในช่องข้อมูลจำเพาะอย่างไรครับ/ขอบคุณครับ

[sutthipongr]

ขอบคุณครับ ใส่ () ก็ได้ครับแต่ ต้องครอบแบบนี้
d+(n.amount-1)

ในส่วนของ ที่อยู่ ใช้แบบ certificate.frx เลยครับ
เพิ่ม

"ADDR1"+chr(1)+alltrim(m.addrpart)+" หมู่"+str(m.moopart,2,0)+' ตำบล'+dtamb
"ADDR2"+chr(1)+' อำเภอ'+alltrim(ddist)+' จังหวัด'+dprov
ในข้อมูลจำเพาะ

แล้วไปเพิ่ม
DOS_ADDR1 และ DOS_ADDR2 ใน sick leave.frx ตรงตำแหน่งที่ต้องการ ใน sick leave.frx

ส่วน เลข 13 หลัก เพิ่มได้เช่น
"IDNO"+chr(1)+per_id

ใน sick leave.frx ไปเพิ่ม
dos_idno

ครับ
ปล.
อย่าลืม rename sick leave.frx เป็นชื่ออื่น
แล้ว ใน คำสั่ง run (ในข้อมูลจำเพาะ) ก็เปลี่ยนไปตามที่เปลี่ยนชื่อด้วยครับ