source: WorldVistAEHR/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDF2E.m@ 1279

Last change on this file since 1279 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 982 bytes
Line 
1IBDF2E ;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
3PRNTLINE(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
14PRNTTEXT(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
Note: See TracBrowser for help on using the repository browser.