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* |