การพิมพ์อาการที่มาที่ยาวๆ จาก p_admit ยังทำไม่ได้ครับ

[sutthipongr]

ที่คุณหมอให้ไป ดูใน c:\mit_temp\m_print1.spl
ตรง dysmt1 จะได้อาการที่มาทั้งหมดแล้วครับ เช่น

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

dsymt1
ผู้ป่วยให้ประวัติ 2 เดือนถ่ายปัสสาวะบ่อย
อ่อนเพลีย ทานอาหารได้น้อย นน.ลด
มีอาการปวดหัว ร่วมด้วย......
xxxxxxxxxxxxxxxxxxxxxxxx
yyyyyyyyyyyyyyyyyyyyy
zzzzzzzzzzzzzzzzzzzzzzzz
aaaaaaaaaaaaaaaaaaaaa
bbbbbbbbbbbbbbbbbbbbb
cccccccccccccccccccccccccc
dddddddddddddddddddddd
eeeeeeeeeeeeeeeeeeeeeee
dysmt2

dsymt3

dsymt4

dsymt5

dsymt6

dsymt7



ผมทดลอง ใน c_admit.frx
ลองสั่ง subst เช่น subst(left(DOS_DSYMT1,60),1,60) ก็ยังคงได้ค่าเหมือนเดิมคือ

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

ผู้ป่วยให้ประวัติ 2 เดือนถ่ายปัสสาวะบ่อย


จะได้แค่นั้นเหมือนเดิม
ที่เหลือไม่ทราบเหมือนกันว่าอยู่ตรงไหน งง คือไม่รู้จะตัดตรงไหนดีครับ

รบกวนคุณหมอว่าสมมติจะจัดการจาก p_admit เลยจะทำยังไงได้บ้างครับ
เพราะตรง
=winprint("dsymt",dsymt,7")
ก็ไม่ทราบว่า code เป็นยังไง

[sutthipongr]

มานั่งดู M_PRINT1.SPL เข้าใจว่า บรรทัด ที่ไม่มีตัวแปรนำหน้า น่าจะยังไม่ส่งค่าไปยัง utility หรือเปล่าครับ
เช่นบรรทัดข้างล่าง

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

อ่อนเพลีย ทานอาหารได้น้อย นน.ลด
มีอาการปวดหัว ร่วมด้วย......
xxxxxxxxxxxxxxxxxxxxxxxx
yyyyyyyyyyyyyyyyyyyyy
zzzzzzzzzzzzzzzzzzzzzzzz
aaaaaaaaaaaaaaaaaaaaa
bbbbbbbbbbbbbbbbbbbbb
cccccccccccccccccccccccccc
dddddddddddddddddddddd
eeeeeeeeeeeeeeeeeeeeeee


ผมทดลองเพิ่มความยาวของอาการที่มาทีละน้อยพบว่า
dsymt1 จะยาวขึ้นในบรรทัดเดียวกันเรื่อยๆเช่น

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

dsymt1
ผู้ป่วยให้ประวัติ 2 เดือนถ่ายปัสสาวะบ่อย อ่อนเพลีย ทานอาหารได้น้อย นน.ลดมีอาการปวดหัว ร่วมด้วยaaaaaaaaaaaabbbbbbbbbbbb
dsymt2

dsymt3



เป็นแบบนี้ค่า dsymt1 จึงจะถูกส่งมาครับ
แต่ถ้าเพิ่มความยาวอาการไปเรื่อยๆ ก็จะจัดกลุ่มใหม่แบบหลายบรรทัดและไม่มีตัวแปรนำหน้าในแต่ละบรรทัดครับ
ผมลองนับดู พบว่าอักขระที่ใส่ได้สูงสุดประมาณ 245 ตัว ถ้ามากกว่านั้นจะขึ้นบรรทัดใหม่และจะไม่ถูกส่งค่าไปยัง utility ?

คงต้องรบกวนคุณหมอดูใน p_admit อีกแล้วครับ

[sutthipongr]

พอจะได้ idea จากของเก่า แล้วครับ
ยกเลิก
=winprint("dsymt",dsymt,7") ใส่ * ข้างหน้า
*=winprint("dsymt",dsymt,7")
แล้วกำหนด DSYMT ต่างๆ จาก ตัวแปร DSYMT โดยตัดทีละ 200 character

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

? "DSYMT1"+CHR(1)+LEFT(ALLTRIM(DSYMT),200)
? "DSYMT2"+CHR(1)+IIF(LEN(ALLTRIM(DSYMT))>200,SUBST(ALLTRIM(DSYMT),201,200),"")
? "DSYMT3"+CHR(1)+IIF(LEN(ALLTRIM(DSYMT))>400,SUBST(ALLTRIM(DSYMT),401,200),"")
? "DSYMT4"+CHR(1)+IIF(LEN(ALLTRIM(DSYMT))>600,SUBST(ALLTRIM(DSYMT),601,200),"")
? ......


[raknim]

เอาใจช่วยและขอบคุณมากๆครับ