IBDF2D ;ALB/CJM - ENCOUNTER FORM - WRITE SELECTION LIST ;NOV 16,1992
Source file <IBDF2D.m>
Package | Total | Caller Graph |
---|---|---|
Automated Information Collection System | 4 | IBDF2A IBDF2A1 IBDF2D1 IBDF2D3 |
Name | Comments | DBIA/ICR reference |
---|---|---|
Y() | ;
|
|
NEXT(GROUP,GROUPODR,SLCTNODR,SLCTN) | ;finds the next selction to be printed
|
|
X() | ;
|
|
GETDATA(LOCATION) | ;gets the dynamic data at print time,@LOCATION=where the list was put
|
|
DECREASE(COL) | ;
|
|
GROUPHDR(GROUP,COL,HDR,SUBHDR) | ;writes the group header to the list
|
|
EXIT | ;
|
|
NXTGROUP(GROUP,GROUPODR) | ;
|
|
PRINTLST(IBLIST) | ;writes the selection list to the print array
|
Name | Field # of Occurrence |
---|---|
DRWCOL^IBDF2D1 | PRINTLST+35, PRINTLST+39, PRINTLST+49, NEXT+8 |
GETCOL^IBDF2D1 | PRINTLST+30, PRINTLST+39, PRINTLST+49, NEXT+8 |
OTHER^IBDF2D2 | PRINTLST+34 |
DISPLAY^IBDF2D3 | PRINTLST+40, PRINTLST+48 |
REPRINT^IBDFN11 | GETDATA+7 |
DRWSTR^IBDFU | GROUPHDR+27, GROUPHDR+32, GROUPHDR+33, GROUPHDR+34 |
$$LSTDESCR^IBDFU1 | PRINTLST+17 |
SCDESCR^IBDFU1 | PRINTLST+22 |
$$DORTN^IBDFU1B | GETDATA+8 |
RTNDSCR^IBDFU1B | GETDATA+4 |
PAUSE^IBDFU5 | PRINTLST+32, PRINTLST+51 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IBE(357.3 - [#357.3] | NEXT+10, NEXT+11 |
^IBE(357.4 - [#357.4] | NXTGROUP+5, NXTGROUP+6, GROUPHDR+7 |
Name | Line Occurrences |
---|---|
$$X | GROUPHDR+27, GROUPHDR+32, GROUPHDR+33, GROUPHDR+34 |
$$Y | GROUPHDR+27, GROUPHDR+32, GROUPHDR+33, GROUPHDR+34 |
DECREASE | GROUPHDR+35 |
GETDATA | PRINTLST+24 |
GROUPHDR | NEXT+9 |
NEXT | PRINTLST+38, PRINTLST+51 |
NXTGROUP | NEXT+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ALL | PRINTLST+3~, PRINTLST+15*, PRINTLST+23*, PRINTLST+34, PRINTLST+47 |
BOX | PRINTLST+3~, PRINTLST+19* |
CNT | PRINTLST+3~, PRINTLST+14* |
COL | PRINTLST+3~, PRINTLST+14*, PRINTLST+30, PRINTLST+35, PRINTLST+39, PRINTLST+40, PRINTLST+47, PRINTLST+48, PRINTLST+49, NEXT+7 , NEXT+8, NEXT+9, GROUPHDR~, GROUPHDR+35, DECREASE~ |
COL("NEXTROW" | DECREASE+2*, Y+1 |
COL("ROWSLEFT" | PRINTLST+39, PRINTLST+48, NEXT+8, DECREASE+1* |
COL("X" | X+1 |
COL("Y" | Y+1 |
CUTLEFT | PRINTLST+3~ |
CUTRIGHT | PRINTLST+3~ |
CWIDTH | PRINTLST+3~, PRINTLST+22, PRINTLST+31, PRINTLST+51, GROUPHDR+14, GROUPHDR+32, GROUPHDR+33 |
DRWBBL | PRINTLST+3~, PRINTLST+15*, PRINTLST+47* |
GROUP | PRINTLST+3~, PRINTLST+14*, PRINTLST+37, PRINTLST+38, PRINTLST+51, NEXT~, NEXT+5*, NEXT+7, NEXT+9, NEXT+10 , NEXT+11, NXTGROUP~, NXTGROUP+5*, NXTGROUP+6*, GROUPHDR~, GROUPHDR+7 |
GROUPODR | PRINTLST+3~, PRINTLST+14*, PRINTLST+38, PRINTLST+51, NEXT~, NEXT+5*, NEXT+7, NXTGROUP~, NXTGROUP+5*, NXTGROUP+6 |
HDR | PRINTLST+3~, PRINTLST+14*, PRINTLST+40, PRINTLST+48, NEXT+9, GROUPHDR~, GROUPHDR+5*, GROUPHDR+10*, GROUPHDR+12*, GROUPHDR+15* , GROUPHDR+24, GROUPHDR+25, GROUPHDR+26, GROUPHDR+27, GROUPHDR+32, GROUPHDR+34 |
>> IBARRAY("OVERFLOW" | PRINTLST+44 |
>> IBBLK | PRINTLST+18, PRINTLST+44 |
>> IBBLK("BOX" | PRINTLST+19 |
>> IBBLK("NAME" | PRINTLST+31 |
>> IBBLK("PAGE" | PRINTLST+27 |
>> IBDEVICE("LISTMAN" | PRINTLST+30, PRINTLST+44, PRINTLST+51, GETDATA+9 |
>> IBDEVICE("PCL" | PRINTLST+27 |
>> IBFORM("SCAN" | PRINTLST+27 |
IBLIST | PRINTLST~, PRINTLST+17, PRINTLST+22, PRINTLST+44, NEXT+10, NEXT+11, NXTGROUP+5, NXTGROUP+6, GETDATA+7 |
IBLIST("BLK" | PRINTLST+18 |
IBLIST("BTWN" | PRINTLST+39, PRINTLST+48 |
IBLIST("DGHDR" | GROUPHDR+16, GROUPHDR+25 |
IBLIST("DYNAMIC" | PRINTLST+23, PRINTLST+24, PRINTLST+27, PRINTLST+44, PRINTLST+47, NEXT+3 |
IBLIST("INPUT_RTN" | PRINTLST+27, PRINTLST+47 |
IBLIST("NAME" | PRINTLST+31, PRINTLST+51 |
IBLIST("NUMCOL" | PRINTLST+21* |
IBLIST("OVERFLOW" | PRINTLST+44 |
IBLIST("RTN" | GETDATA+3 |
IBLIST("SEP" | PRINTLST+20 |
IBLIST("SEP1" | GROUPHDR+14 |
IBLIST("ULSLCTNS" | GROUPHDR+24, GROUPHDR+26, GROUPHDR+31 |
>> IBPFID | PRINTLST+27, GETDATA+7 |
>> IBPRINT("ENTIRE" | PRINTLST+23 |
>> IBPRINT("WITH_DATA" | PRINTLST+24, NEXT+4 |
LINE | PRINTLST+3~, PRINTLST+20*, GROUPHDR+32, GROUPHDR+33 |
LOCATION | PRINTLST+3~, PRINTLST+24, NEXT+4, GETDATA~, GETDATA+5*, GETDATA+7 |
NEEDUPR | PRINTLST+3~, PRINTLST+14*, GROUPHDR+33* |
NODE | GROUPHDR+4~, GROUPHDR+7*, GROUPHDR+9, GROUPHDR+10 |
OFFSET | GROUPHDR+4~, GROUPHDR+14*, GROUPHDR+25*, GROUPHDR+27, GROUPHDR+32, GROUPHDR+34 |
OPTIONS | GROUPHDR+4~, GROUPHDR+14*, GROUPHDR+16*, GROUPHDR+17*, GROUPHDR+24*, GROUPHDR+26, GROUPHDR+28*, GROUPHDR+31, GROUPHDR+32, GROUPHDR+33 , GROUPHDR+34 |
PRRGROUP | PRINTLST+3~, PRINTLST+14*, PRINTLST+37* |
QUIT | PRINTLST+3~, PRINTLST+14*, PRINTLST+36, PRINTLST+38*, PRINTLST+39*, PRINTLST+47*, PRINTLST+49*, NEXT+2~*, NEXT+6, NEXT+7* , NEXT+8*, NEXT+11*, NXTGROUP+3~*, NXTGROUP+4, NXTGROUP+5*, NXTGROUP+6* |
>> REPRINT | GETDATA+7 |
RTN | GETDATA+2~, GETDATA+3*, GETDATA+4, GETDATA+8 |
RTN("ACTION" | GETDATA+6 |
RTN("DATA_LOCATION" | GETDATA+5 |
RTN("DYNAMIC" | GETDATA+6 |
RTN("INPUT_RTN" | GETDATA+7 |
RTN("RTN" | GETDATA+8, GETDATA+9 |
>> RTNLIST( | GETDATA+8, GETDATA+9* |
SLCTN | PRINTLST+3~, PRINTLST+14*, PRINTLST+38, PRINTLST+40, PRINTLST+44, PRINTLST+47*, PRINTLST+48, PRINTLST+51, NEXT~, NEXT+4* , NEXT+5*, NEXT+7*, NEXT+11* |
SLCTNODR | PRINTLST+3~, PRINTLST+14*, PRINTLST+38, PRINTLST+51, NEXT~, NEXT+5*, NEXT+7*, NEXT+10*, NEXT+11* |
SUBHDR | PRINTLST+3~, PRINTLST+14*, PRINTLST+40, PRINTLST+48, NEXT+9, GROUPHDR~, GROUPHDR+6* |
TRACKBBL | PRINTLST+3~, PRINTLST+14*, PRINTLST+27* |
WIDTH | GROUPHDR+4~, GROUPHDR+14*, GROUPHDR+15, GROUPHDR+25, GROUPHDR+26 |