Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDF2E

IBDF2E.m

Go to the documentation of this file.
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