IBDF2D1 ;ALB/CJM - ENCOUNTER FORM - PRINT SELECTION LIST (cont'd) ;NOV 16,1992
Source file <IBDF2D1.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 2 | ($$X,$$Y,DECREASE)^IBDF2D (DRWSTR,DRWVLINE)^IBDFU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CNVRTHT(HPLINES,LINES) | ;changes HPLINES=number of handprint lines into LINES=print lines on the page
|
|
| GETCOL(COL) | ;finds next column
|
|
| DRWCOL(COL) | ;draws one column of the selection list except for its contents and rows
|
|
| CNVRTLEN(HPWIDTH,WIDTH) | ;changes HPWIDTH=width in terms of handprint characters into width in terms of columns(machine print characters)
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ALL | DRWCOL+2, DRWCOL+3, DRWCOL+6, DRWCOL+18 |
| >> BOX | GETCOL+12, GETCOL+23, GETCOL+24, GETCOL+25, DRWCOL+2, DRWCOL+3, DRWCOL+26 |
| COL | GETCOL~, GETCOL+7*, GETCOL+9, GETCOL+10*, GETCOL+11, GETCOL+12, GETCOL+13, GETCOL+14, GETCOL+15, GETCOL+16 , GETCOL+18, GETCOL+19, GETCOL+20, GETCOL+21, GETCOL+22, GETCOL+24*, DRWCOL~, DRWCOL+6, DRWCOL+18 |
| COL("H" | GETCOL+9*, GETCOL+20*, GETCOL+22*, GETCOL+25*, GETCOL+26, DRWCOL+2, DRWCOL+3 |
| COL("NEXTROW" | GETCOL+26* |
| COL("ROWSLEFT" | GETCOL+26*, DRWCOL+6, DRWCOL+18 |
| COL("X" | GETCOL+9*, GETCOL+17*, GETCOL+18*, GETCOL+23*, GETCOL+24, DRWCOL+2, DRWCOL+3 |
| COL("Y" | GETCOL+9*, GETCOL+12*, GETCOL+14*, GETCOL+25 |
| COLWIDTH | CNVRTLEN+3~, CNVRTLEN+5*, CNVRTLEN+6*, CNVRTLEN+7*, CNVRTLEN+8 |
| >> CWIDTH | GETCOL+17, GETCOL+24, DRWCOL+3, DRWCOL+12, DRWCOL+26, DRWCOL+28 |
| HPLINES | CNVRTHT~, CNVRTHT+2 |
| HPWIDTH | CNVRTLEN~, CNVRTLEN+8 |
| I | DRWCOL+1~, DRWCOL+32* |
| >> IBBLK("H" | GETCOL+20, GETCOL+25 |
| >> IBBLK("HDR" | GETCOL+12 |
| >> IBBLK("W" | GETCOL+24, DRWCOL+3, DRWCOL+26 |
| >> IBFORM("WIDTH" | DRWCOL+9, DRWCOL+10, DRWCOL+21, DRWCOL+22, CNVRTLEN+5, CNVRTLEN+6 |
| >> IBLIST("CHDR" | DRWCOL+18, DRWCOL+28 |
| >> IBLIST("DHDR" | DRWCOL+7*, DRWCOL+9*, DRWCOL+10*, DRWCOL+14, DRWCOL+15 |
| >> IBLIST("DSCHDR" | DRWCOL+19*, DRWCOL+21*, DRWCOL+22*, DRWCOL+27*, DRWCOL+28, DRWCOL+31*, DRWCOL+32 |
| >> IBLIST("H" | GETCOL+9, GETCOL+19, GETCOL+22 |
| >> IBLIST("HDR" | DRWCOL+6, DRWCOL+14, DRWCOL+15 |
| >> IBLIST("NUMCOL" | GETCOL+10 |
| >> IBLIST("SC0" | DRWCOL+32 |
| >> IBLIST("SCHDR" | DRWCOL+32 |
| >> IBLIST("SCOS" | DRWCOL+32 |
| >> IBLIST("SCTYPE" | DRWCOL+32 |
| >> IBLIST("SEP" | GETCOL+17 |
| >> IBLIST("SEP1" | DRWCOL+26 |
| >> IBLIST("ULSLCTNS" | DRWCOL+26, DRWCOL+27 |
| >> IBLIST("X" | GETCOL+9, GETCOL+15, GETCOL+18 |
| >> IBLIST("Y" | GETCOL+9, GETCOL+11, GETCOL+14 |
| >> LINE | GETCOL+23, GETCOL+24, DRWCOL+2, DRWCOL+3, DRWCOL+12, DRWCOL+13, DRWCOL+15, DRWCOL+26, DRWCOL+28 |
| LINES | CNVRTHT~, CNVRTHT+2* |
| >> NEEDUPR | GETCOL+8* |
| OFFSET | DRWCOL+1~, DRWCOL+13*, DRWCOL+14*, DRWCOL+15 |
| WIDTH | DRWCOL+1~, DRWCOL+12*, DRWCOL+14, DRWCOL+15, CNVRTLEN~, CNVRTLEN+8* |