| 1 | IBDF2E ;ALB/CJM - ENCOUNTER FORM (prints a lines and text areas to the form);MAR 18,1993
|
|---|
| 2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
|
|---|
| 3 | PRNTLINE(LINE) ;prints a line ptd to by LINE
|
|---|
| 4 | N NODE,XPOS,YPOS,LEN,TYPE,NUM,SPACING,CNT
|
|---|
| 5 | S NODE=$G(^IBE(357.7,LINE,0)) Q:NODE=""
|
|---|
| 6 | Q:$P(NODE,"^",6)'=IBBLK
|
|---|
| 7 | S XPOS=+$P(NODE,"^",2),YPOS=+$P(NODE,"^",3),TYPE=$P(NODE,"^",4),LEN=+$P(NODE,"^",5)
|
|---|
| 8 | I TYPE="H" D
|
|---|
| 9 | .S NUM=$P(NODE,"^",7),SPACING=$P(NODE,"^",8)
|
|---|
| 10 | .S:'NUM NUM=1 S SPACING=$S(SPACING="d":2,SPACING="t":3,1:1)
|
|---|
| 11 | .F CNT=1:1:NUM D DRWSTR^IBDFU((YPOS+((CNT-1)*SPACING)),XPOS,"","U",LEN)
|
|---|
| 12 | I TYPE="V" D DRWVLINE^IBDFU(YPOS,XPOS,LEN,"|")
|
|---|
| 13 | Q
|
|---|
| 14 | PRNTTEXT(TEXT) ;prints a line ptd to by LINE
|
|---|
| 15 | N NODE,XPOS,YPOS,W,HT,LINE
|
|---|
| 16 | S NODE=$G(^IBE(357.8,TEXT,0)) Q:NODE=""
|
|---|
| 17 | Q:$P(NODE,"^",2)'=IBBLK
|
|---|
| 18 | S XPOS=+$P(NODE,"^",3),YPOS=+$P(NODE,"^",4),W=+$P(NODE,"^",5),HT=+$P(NODE,"^",6)
|
|---|
| 19 | S LINE=0 F S LINE=$O(^IBE(357.8,TEXT,1,LINE)) Q:'LINE!(LINE>HT) S NODE=$G(^(LINE,0)) D DRWSTR^IBDFU(YPOS+LINE-1,XPOS,$E(NODE,1,W))
|
|---|
| 20 | Q
|
|---|
