| [613] | 1 | IBDF2B1 ;ALB/CJM - ENCOUNTER FORM - (continuation of IBDF2B);12/15/92
|
|---|
| 2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | TXTPRINT ;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
|
|---|
