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