source: FOIAVistA/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDF2B1.m@ 770

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1IBDF2B1 ;ALB/CJM - ENCOUNTER FORM - (continuation of IBDF2B);12/15/92
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3 ;
4TXTPRINT ;for printing a word-processing field
5 ;
6 ;if the this is not the first time this form is being printed and the data doesn't change then don't print it!
7 Q:(('IBPRINT("ENTIRE"))&('RTN("CHANGES")))
8 ;
9 N LINE,LNSUSED,SPACE,QUIT S LNSUSED=0 ;LNSUSED keeps track of number of available lines for text are used already
10 S SPACE=$S(SPACING=2:2,1:1)
11 I 'HIO!('WIO)!(XIO'=+XIO)!(YIO'=+YIO) Q
12 I LABEL'="",(('IBPRINT("WITH_DATA"))!($G(@RTN("DATA_LOCATION")@(1,0))="")) D
13 .D DRWSTR^IBDFU(YIO+SPACE-1,XIO,LABEL,DISPLAY)
14 .D DRWSTR^IBDFU(YIO+SPACE-1,XIO+$L(LABEL)," "_$$HLINE^IBDFU(WIO-($L(LABEL)+1)))
15 .S LNSUSED=SPACE
16 I IBPRINT("WITH_DATA"),($G(@RTN("DATA_LOCATION")@(1,0))'="") D
17 .D FORMAT^IBDFU6("^TMP(""IB"",$J,""INTERFACES"",+$G(DFN),RTN(""NAME""))",WIO,LABEL)
18 .S (LNSUSED,LINE,QUIT)=0 F S LINE=$O(^UTILITY($J,"W",1,LINE)) D Q:QUIT
19 ..I 'LINE!(LNSUSED+SPACE>HIO) S QUIT=1 D:(LINE&('IBDEVICE("LISTMAN"))&RTN("FULL")) OVERFLOW^IBDF2B("CURRENT") Q
20 ..D DRWSTR^IBDFU(YIO+LNSUSED+(SPACE-1),XIO,$$PADRIGHT^IBDFU($G(^UTILITY($J,"W",1,LINE,0)),WIO))
21 ..S LNSUSED=LNSUSED+SPACE
22 D ADDLINES^IBDF2B
23 K ^UTILITY($J,"W",1)
24 Q
Note: See TracBrowser for help on using the repository browser.