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 |