IBDFM1 ;ALB/CJM - Compiling bubbles and hand print fields;3/1/93
Source file <IBDFM1.m>
Package | Total | Call Graph |
---|---|---|
Automated Information Collection System | 3 | $$FORMTYPE^IBDF18D UNCMPL^IBDF19 INPUT^IBDFU91 |
VA Fileman | 2 | FILE^DICN IX1^DIK |
Name | Comments | DBIA/ICR reference |
---|---|---|
DISP(DIS) | ; -- display narrative :: piece
|
|
TRACKBBL(FID,COUNT,QLFR,PI,DISPLAY,VALUE) | ;
|
|
CMPBBL | ;save compiled bubbles for the block
|
|
CMPHAND | ;save compiled hand print fields for the block
|
|
DISPQ | ||
DRWBBL(ROW,COL,PI,VALUE,FNAME,FID,ALLOWED,DISPLAY,HDR,QLFR,DYN,CNT,SUBHDR,QTY,ND2,SLCTN) | ;
|
|
DRWHAND(ROW,COL,WIDTH,PI,LINES,FID,FNAME,HDR,QLFR,ITEM,PRINT,READ,TYPEDATA) | ;creates hand print field
|
|
NEWTABLE(IBFORM) | ;creates a new FORM DEFINITION table
|
FileNo | Call Tags |
---|---|
^IBD(357.96 - [#357.96] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD(357.96 | TRACKBBL+22 |
^IBD(357.95 - [#357.95] | DRWBBL+25, DRWBBL+36*, DRWBBL+37*, DRWBBL+41*, NEWTABLE+6*, NEWTABLE+7*, NEWTABLE+9*, NEWTABLE+10*, DRWHAND+26, DRWHAND+37* |
^IBE(357 - [#357] | NEWTABLE+5, NEWTABLE+8*, NEWTABLE+9 |
^IBE(357.1 - [#357.1] | CMPBBL+2*, CMPBBL+3*, CMPBBL+4*, CMPHAND+2* |
Name | Line Occurrences |
---|---|
$$DISP | TRACKBBL+15 |
$$NEWTABLE | DRWBBL+26, DRWHAND+27 |
CMPBBL | DRWBBL+12 |
CMPHAND | DRWHAND+11 |
DISPQ | DISP+3, DISP+4, DISP+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ALLOWED | DRWBBL~, DRWBBL+36, CMPBBL+2 |
BUBBLE | DRWBBL+3~, DRWBBL+32*, DRWBBL+33, DRWBBL+34, DRWBBL+36, DRWBBL+37, DRWBBL+41, DRWBBL+42 |
CNT | DRWBBL~, DRWBBL+6*, DRWBBL+36, NEWTABLE+2~, NEWTABLE+9*, NEWTABLE+10, CMPBBL+2, DRWHAND+21~*, DRWHAND+22 |
COL | DRWBBL~, DRWBBL+18*, DRWBBL+21, DRWBBL+36, CMPBBL+2, CMPHAND+2, DRWHAND~, DRWHAND+6, DRWHAND+17*, DRWHAND+22 , DRWHAND+37 |
COUNT | TRACKBBL~, TRACKBBL+18 |
D0 | DRWBBL+30!, DRWHAND+32! |
DA | DRWBBL+31!, DRWBBL+42!*, DRWHAND+33!, DRWHAND+38!*, TRACKBBL+25! |
DA(1 | DRWBBL+30*, DRWBBL+42*, DRWHAND+32*, DRWHAND+38*, TRACKBBL+23* |
DD | DRWBBL+30!, DRWHAND+32!, TRACKBBL+25! |
DIC | DRWBBL+30!*, DRWBBL+31!, DRWHAND+32!*, DRWHAND+33!, TRACKBBL+20*, TRACKBBL+25! |
DIC("DR" | TRACKBBL+24* |
DIC("P" | TRACKBBL+22* |
DIC(0 | DRWBBL+30*, DRWHAND+32*, TRACKBBL+21* |
DIE | DRWBBL+31!, DRWHAND+33! |
DIK | DRWBBL+42!*, DRWHAND+38!* |
DINUM | DRWBBL+30!, DRWHAND+32! |
DIS | DISP~, DISP+2*, DISP+3, DISP+4, DISP+5*, DISP+7, DISP+10*, DISP+13*, DISP+16*, DISP+19* , DISP+22*, DISP+25*, DISPQ*, DISPQ+1 |
DISPLAY | DRWBBL~, DRWBBL+4*, DRWBBL+5*, DRWBBL+36, CMPBBL+2, TRACKBBL~, TRACKBBL+15* |
DLAYGO | TRACKBBL+19*, TRACKBBL+25! |
DO | TRACKBBL+25! |
DT | NEWTABLE+7 |
DYN | DRWBBL~, DRWBBL+6*, DRWBBL+36, CMPBBL+2 |
FID | DRWBBL~, DRWBBL+36, CMPBBL+2, CMPHAND+2, DRWHAND~, DRWHAND+22, DRWHAND+37, TRACKBBL~ |
FNAME | DRWBBL~, DRWBBL+36, CMPBBL+2, CMPHAND+2, DRWHAND~, DRWHAND+22, DRWHAND+37 |
HANDPRNT | DRWHAND+7~, DRWHAND+34*, DRWHAND+35, DRWHAND+36, DRWHAND+37, DRWHAND+38 |
HDR | DRWBBL~, DRWBBL+4*, DRWBBL+36, CMPBBL+2, CMPHAND+2, DRWHAND~, DRWHAND+8*, DRWHAND+22, DRWHAND+37 |
I | DISP+1~, DISP+7* |
>> IBARRAY("BUBBLES" | DRWBBL+21 |
>> IBARRAY("HAND_PRINT" | DRWHAND+21, DRWHAND+22 |
>> IBBLK | CMPBBL+2, CMPBBL+3, CMPBBL+4, CMPHAND+2 |
>> IBBLK("X" | DRWBBL+18, DRWHAND+17 |
>> IBBLK("Y" | DRWBBL+18, DRWHAND+17 |
>> IBDEVICE("LISTMAN" | DRWBBL+15, DRWHAND+14 |
IBFORM | DRWBBL+26, DRWBBL+27, DRWBBL+33, NEWTABLE~, NEWTABLE+5, NEWTABLE+7, NEWTABLE+8, NEWTABLE+9, DRWHAND+27, DRWHAND+29 , DRWHAND+35 |
IBFORM("COMPILED" | DRWBBL+24, DRWHAND+25 |
IBFORM("TOOLKIT" | DRWBBL+21, DRWHAND+20 |
IBFORM("TYPE" | DRWBBL+25, DRWBBL+26*, DRWBBL+27, DRWBBL+30, DRWBBL+36, DRWBBL+37, DRWBBL+41, DRWBBL+42, NEWTABLE+3*, NEWTABLE+4 , NEWTABLE+6, NEWTABLE+7, NEWTABLE+8, NEWTABLE+9, NEWTABLE+10, NEWTABLE+11, DRWHAND+26, DRWHAND+27*, DRWHAND+29, DRWHAND+32 , DRWHAND+37, DRWHAND+38 |
IBJ | DRWBBL+40~* |
>> IBPFID | TRACKBBL+23 |
>> IBPRINT("COMPILING_BLOCKS" | DRWBBL+12, DRWHAND+11 |
>> IBPRINT("WRITE_IF_COMPILING" | DRWBBL+12, DRWHAND+11 |
IBVAL | DRWBBL+40~* |
>> IBWRTCNT("B" | CMPBBL+1*, CMPBBL+2, CMPBBL+3, CMPBBL+4 |
>> IBWRTCNT("H" | CMPHAND+1*, CMPHAND+2 |
ITEM | CMPHAND+2, DRWHAND~, DRWHAND+4*, DRWHAND+22, DRWHAND+37 |
J | DISP+1~, DISP+13* |
LINES | CMPHAND+2, DRWHAND~, DRWHAND+22, DRWHAND+37 |
ND2 | DRWBBL~, DRWBBL+38, DRWBBL+40*, DRWBBL+41, CMPBBL+4 |
NODE | NEWTABLE+2~, NEWTABLE+5*, NEWTABLE+6, NEWTABLE+9*, DRWHAND+1~, DRWHAND+2* |
PI | DRWBBL~, DRWBBL+9, DRWBBL+35, DRWBBL+36, DRWBBL+40, CMPBBL+2, CMPHAND+2, DRWHAND~, DRWHAND+22, DRWHAND+37 , TRACKBBL~, TRACKBBL+17 |
CMPHAND+2, DRWHAND~, DRWHAND+4*, DRWHAND+22, DRWHAND+37 | |
QLFR | DRWBBL~, DRWBBL+36, CMPBBL+2, CMPHAND+2, DRWHAND~, DRWHAND+22, DRWHAND+37, TRACKBBL~ |
QTY | DRWBBL~, DRWBBL+36, CMPBBL+2 |
READ | CMPHAND+2, DRWHAND~, DRWHAND+4*, DRWHAND+22, DRWHAND+37 |
>> REPRINT | TRACKBBL+4 |
ROW | DRWBBL~, DRWBBL+18*, DRWBBL+21, DRWBBL+30, DRWBBL+36, CMPBBL+2, CMPHAND+2, DRWHAND~, DRWHAND+6, DRWHAND+17* , DRWHAND+22, DRWHAND+32, DRWHAND+37 |
SLCTN | DRWBBL~, DRWBBL+36, CMPBBL+2 |
SUB | NEWTABLE+2~, NEWTABLE+9* |
SUBHDR | DRWBBL~, DRWBBL+37, CMPBBL+3 |
TYPEDATA | CMPHAND+2, DRWHAND~, DRWHAND+4*, DRWHAND+22, DRWHAND+37 |
VALUE | DRWBBL~, DRWBBL+9*, DRWBBL+35*, DRWBBL+36, CMPBBL+2, TRACKBBL~, TRACKBBL+17* |
WIDTH | CMPHAND+2, DRWHAND~, DRWHAND+22, DRWHAND+37 |
>> X | DRWBBL+30*, DRWHAND+32*, TRACKBBL+18* |
>> Y | DRWBBL+32, DRWHAND+34 |