IBDF2B ;ALB/CJM - ENCOUNTER FORM - (prints data field);12/15/92
Source file <IBDF2B.m>
Package | Total | Caller Graph |
---|---|---|
Automated Information Collection System | 3 | IBDF2A IBDF2A1 IBDF2B1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ADDLINES | ;if there are unused lines writes blank lines to the form
|
|
RTN | ;calls the rtn specified by the pkg interface if ok
|
|
PRNTDATA | ;displays the correct data to the subfield
|
|
OVERFLOW(TYPE) | ;keeps track of data that does not fit on the form
|
|
RANGE | ;sets MAXX and MAXY to the maximum values allowed for the X,Y coordinates
|
|
WARNING | ; prints a warning that data field prints outside of block - meant only for display while editing a form description
|
|
DATAFLD(FIELD) | ;for printing data fields to the encounter form
|
Name | Field # of Occurrence |
---|---|
TXTPRINT^IBDF2B1 | DATAFLD+14 |
$$HLINE^IBDFU | PRNTDATA+8, PRNTDATA+9, ADDLINES+11 |
$$PADRIGHT^IBDFU | PRNTDATA+13 |
DRWSTR^IBDFU | DATAFLD+21, PRNTDATA+13, ADDLINES+11 |
$$FLDDESCR^IBDFU1A | DATAFLD+7 |
$$SFLDDSCR^IBDFU1A | DATAFLD+17, DATAFLD+18 |
$$DATANODE^IBDFU1B | PRNTDATA+4 |
$$DORTN^IBDFU1B | RTN+8 |
RTNDSCR^IBDFU1B | DATAFLD+9 |
PAUSE^IBDFU5 | WARNING+3 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Name | Line Occurrences |
---|---|
OVERFLOW | PRNTDATA+11, PRNTDATA+12 |
PRNTDATA | DATAFLD+23 |
RANGE | DATAFLD+12 |
RTN | DATAFLD+13 |
WARNING | DATAFLD+22, PRNTDATA+14, ADDLINES+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BLK | DATAFLD+5~, DATAFLD+8 |
BOX | RANGE+1~, RANGE+2*, RANGE+3, RANGE+4 |
DISPLAY | DATAFLD+5~, DATAFLD+20, DATAFLD+21 |
FIELD | DATAFLD~, DATAFLD+7, DATAFLD+17, DATAFLD+18, OVERFLOW+3 |
FLDNAME | DATAFLD+5~, WARNING+2 |
HIO | DATAFLD+5~, ADDLINES+3, ADDLINES+4, ADDLINES+7 |
I | ADDLINES+2~, ADDLINES+11* |
>> IBARRAY("OVERFLOW" | OVERFLOW+3 |
>> IBBLK | DATAFLD+8, OVERFLOW+3 |
>> IBBLK("BOX" | RANGE+2 |
>> IBBLK("H" | RANGE+3 |
>> IBBLK("NAME" | WARNING+2 |
>> IBBLK("W" | RANGE+4 |
>> IBDEVICE("LISTMAN" | DATAFLD+12, DATAFLD+22, PRNTDATA+8, PRNTDATA+11, PRNTDATA+12, PRNTDATA+14, RTN+11, ADDLINES+9 |
>> IBPRINT("ENTIRE" | DATAFLD+11, DATAFLD+20, RTN+4 |
>> IBPRINT("WITH_DATA" | DATAFLD+13, PRNTDATA+8 |
>> IBWARN | WARNING+1, WARNING+4* |
ITEM | DATAFLD+5~, PRNTDATA+12, RTN+15, OVERFLOW+3 |
LABEL | DATAFLD+5~, DATAFLD+20, DATAFLD+21, DATAFLD+22 |
LAST | DATAFLD+5~, DATAFLD+17*, DATAFLD+18* |
LASTITEM | DATAFLD+5~, PRNTDATA+12 |
>> LNSUSED | ADDLINES+4, ADDLINES+7, ADDLINES+11 |
LSPACING | ADDLINES+2~, ADDLINES+5*, ADDLINES+6*, ADDLINES+8, ADDLINES+10, ADDLINES+11 |
MAXX | DATAFLD+5~, DATAFLD+22, RANGE+4*, PRNTDATA+14, ADDLINES+10 |
MAXY | DATAFLD+5~, DATAFLD+22, RANGE+3*, PRNTDATA+14, ADDLINES+10 |
NODE | PRNTDATA+1~, PRNTDATA+4*, PRNTDATA+5, RTN+6~*, RTN+14*, RTN+15* |
NUMLEFT | ADDLINES+2~, ADDLINES+7*, ADDLINES+8*, ADDLINES+10, ADDLINES+11 |
PIECE | DATAFLD+5~, PRNTDATA+2*, PRNTDATA+3, PRNTDATA+4, PRNTDATA+5 |
PVALUE | PRNTDATA+1~, PRNTDATA+5*, PRNTDATA+6, PRNTDATA+8*, PRNTDATA+9*, PRNTDATA+10, PRNTDATA+11, PRNTDATA+13 |
RTN | DATAFLD+5~, DATAFLD+9, PRNTDATA+4, RTN+8 |
RTN("ACTION" | RTN+1 |
RTN("CHANGES" | DATAFLD+11, DATAFLD+13, PRNTDATA+8, PRNTDATA+9, RTN+4 |
RTN("DATATYPE" | DATAFLD+14, PRNTDATA+2, PRNTDATA+12, RTN+14, RTN+15 |
RTN("DATA_LOCATION" | PRNTDATA+12, RTN+14, RTN+15 |
RTN("FULL" | PRNTDATA+11, PRNTDATA+12 |
RTN("NAME" | RTN+2 |
RTN("RTN" | RTN+8, RTN+11 |
>> RTNLIST( | RTN+8, RTN+11* |
SPACING | DATAFLD+5~, ADDLINES+6 |
TYPE | OVERFLOW~, OVERFLOW+3 |
VALUE | DATAFLD+5~, PRNTDATA+5, RTN+14*, RTN+15* |
VALUE( | PRNTDATA+5, RTN+14*, RTN+15* |
WIO | DATAFLD+5~, PRNTDATA+6, PRNTDATA+8, PRNTDATA+9, PRNTDATA+11, PRNTDATA+13, PRNTDATA+14, ADDLINES+10, ADDLINES+11 |
XIO | DATAFLD+5~, PRNTDATA+13, PRNTDATA+14, ADDLINES+10, ADDLINES+11 |
XLAB | DATAFLD+5~, DATAFLD+21, DATAFLD+22 |
YIO | DATAFLD+5~, PRNTDATA+13, PRNTDATA+14, ADDLINES+10, ADDLINES+11 |
YLAB | DATAFLD+5~, DATAFLD+21, DATAFLD+22 |