IBDF2D ;ALB/CJM - ENCOUNTER FORM - WRITE SELECTION LIST ;NOV 16,1992
Source file <IBDF2D.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 4 | IBDF2A IBDF2A1 IBDF2D1 IBDF2D3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRINTLST(IBLIST) | ;writes the selection list to the print array
|
|
| EXIT | ;
|
|
| NEXT(GROUP,GROUPODR,SLCTNODR,SLCTN) | ;finds the next selction to be printed
|
|
| NXTGROUP(GROUP,GROUPODR) | ;
|
|
| GROUPHDR(GROUP,COL,HDR,SUBHDR) | ;writes the group header to the list
|
|
| DECREASE(COL) | ;
|
|
| X() | ;
|
|
| Y() | ;
|
|
| GETDATA(LOCATION) | ;gets the dynamic data at print time,@LOCATION=where the list was put
|
| 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, GETDATA+10 |
| >> RTNLIST( | GETDATA+8, GETDATA+9*, GETDATA+10! |
| 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 |
