IBDFCMP ;ALB/MAF - AICS list of components on a form ; 29-JUL-96
Source file <IBDFCMP.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 | IBDF EF FORM COMPONENTS IBDF FORM COMPONENT ACTION IBDF FORM COMPONENTS IBDFCMP1 |
Kernel | 1 | ^ORD(101 |
Name | Comments | DBIA/ICR reference |
---|---|---|
START | ||
INIT | ;
|
|
INIT1 | ||
STRTQ | ||
DQ | ; -- entry point to list contents of one form,
; Input IBDFIFN := pointer to Encounter Form (357) |
|
LISTOB | ; -- list items available for input on a form
|
|
TMP | ; -- Set up Array
|
|
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
NUL | ; -- NULL MESSAGE
|
|
HDR | ; -- print patient header
|
|
END | ||
EXP | ; -- Expand Action
|
Name | Field # of Occurrence |
---|---|
HOME^%ZIS | %+2 |
^%ZISC | END+3 |
DT^DICRW | %+1 |
EN^DIQ | EXP+8 |
^DIR | %+8 |
FRMLSTI^IBDFRPC | DQ+4 |
EN^VALM | START |
$$LOWER^VALM1 | LISTOB+23, LISTOB+26, LISTOB+29, LISTOB+32 |
$$SETSTR^VALM1 | LISTOB+17, LISTOB+20, LISTOB+21, LISTOB+23, LISTOB+25, LISTOB+26, LISTOB+28, LISTOB+29, LISTOB+31, LISTOB+32 , LISTOB+34, HDR+4, HDR+7, HDR+10, HDR+14 |
FULL^VALM1 | EXP+1 |
PAUSE^VALM1 | EXP+8 |
CNTRL^VALM10 | LISTOB+21 |
EN^VALM2 | EXP+3 |
DISP^XQORM1 | HELP+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^IBE(357.1 - [#357.1] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IBE(357 - [#357] | HDR+2, HDR+3, HDR+5, HDR+6, HDR+8, HDR+9, HDR+11, HDR+13 |
^IBE(357.1 - [#357.1] | LISTOB+8 |
^TMP("FORM-OBJ" | DQ+4*, DQ+5, LISTOB+3, LISTOB+4, EXIT+2!, END+2! |
^TMP("FORMIDX" | TMP+3*, EXIT+2!, NUL+1*, END+2! |
^TMP("FORMOBJ" | TMP+2*, EXIT+2!, NUL+1*, END+2! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CHOICE | END+1! |
DA | %+8!, END+1!, EXP+8*, EXP+9! |
DIC | %+8!, END+1!, EXP+8*, EXP+9! |
DIE | END+1! |
DIR | %~, %+8!, END+1! |
DIR("?" | %+7* |
DIR("A" | %+8* |
DIR(0 | %+8* |
DIRUT | %~, %+9, END+1! |
DR | %+8!, END+1!, EXP+8*, EXP+9! |
DT | %+1 |
DTOUT | %~, END+1! |
DUOUT | %~, END+1! |
DUZ(0 | EXP+7 |
I | %~, LISTOB+3*, LISTOB+4, END+1! |
IBBLOCK | EXIT+1! |
IBBLOCK( | LISTOB+22*, EXP+5 |
IBDCAT | EXIT+1! |
IBDCNT | INIT1*, LISTOB+22, TMP+1*, TMP+2, TMP+3, EXIT+1! |
IBDCNT1 | INIT1*, LISTOB+16*, LISTOB+19, LISTOB+22, TMP+2, EXIT+1! |
IBDCO | END+1! |
IBDF | %~, EXIT+1!, END+1! |
IBDF("BCOL" | LISTOB+7*, LISTOB+27 |
IBDF("BLK" | LISTOB+8*, TMP+3 |
IBDF("BNAME" | LISTOB+8*, LISTOB+21 |
IBDF("BNODE" | LISTOB+8*, LISTOB+9, LISTOB+10, LISTOB+11 |
IBDF("BROW" | LISTOB+7*, LISTOB+24 |
IBDF("HT" | LISTOB+9*, LISTOB+33 |
IBDF("IEN" | LISTOB+6* |
IBDF("PI" | LISTOB+5* |
IBDF("TKO" | LISTOB+11* |
IBDF("TYPE" | LISTOB+5* |
IBDF("VITAL" | LISTOB+6* |
IBDF("WDTH" | LISTOB+10*, LISTOB+30 |
IBDFALL | %~, DQ+4* |
IBDFFLAG | LISTOB+12*, LISTOB+13, LISTOB+15*, EXIT+1! |
IBDFIFN | %+10*, DQ+4, DQ+5, LISTOB+3, LISTOB+4, LISTOB+22, TMP+3, EXIT+1!, HDR+2, HDR+3 , HDR+5, HDR+6, HDR+8, HDR+9, HDR+11, HDR+13, END+1! |
IBDFNODE | EXIT+1! |
IBDFOBJ | EXIT+1! |
IBDFOLDB | LISTOB+1~, LISTOB+2*, LISTOB+12, LISTOB+15* |
IBDFSNOD | EXIT+1! |
IBDNAME | EXIT+1! |
IBDNME | EXIT+1! |
IBDNODE | EXIT+1! |
IBDNUM | EXIT+1! |
IBDOBJ | DQ+4!, LISTOB+4*, LISTOB+5, LISTOB+6, LISTOB+7, LISTOB+8, LISTOB+12, LISTOB+15, LISTOB+22, EXIT+1! |
IBDOBJ1 | EXIT+1! |
IBDOJB | %~ |
IBDPAG | %~, END+1! |
IBDPDT | %~ |
IBDPI | END+1! |
IBDSEL | END+1! |
IBDTYPE | EXIT+1! |
IBDVAL | LISTOB+19*, LISTOB+20, LISTOB+24*, LISTOB+25, LISTOB+27*, LISTOB+28, LISTOB+30*, LISTOB+31, LISTOB+33*, LISTOB+34 , EXIT+1!, HDR+3*, HDR+4, HDR+6*, HDR+7, HDR+9*, HDR+10, HDR+13*, HDR+14 |
IBFASTXT | EXIT+1! |
IBQUIT | %~, STRTQ, DQ+3*, LISTOB+3, EXIT+1! |
>> IOINHI | LISTOB+21 |
>> IOINORM | LISTOB+21 |
J | %~, END+1! |
QLFR | %~ |
RESULT | END+1! |
RULE | %~ |
TEXT | END+1! |
TEXTU | END+1! |
U | EXP+8 |
VALMAT | EXP+2~, EXP+5*, EXP+7, EXP+8 |
>> VALMBCK | %+9*, EXP+10* |
VALMCNT | INIT1*, LISTOB+21, TMP+1*, TMP+2, TMP+3, EXIT+1! |
VALMEVL | START! |
>> VALMHDR(1 | HDR+4* |
>> VALMHDR(2 | HDR+7* |
>> VALMHDR(3 | HDR+10* |
>> VALMHDR(4 | HDR+14* |
VALMI | EXP+2~, EXP+3*, EXP+4*, EXP+5 |
>> VALMQUIT | %+9* |
VALMY | EXP+2~ |
VALMY( | EXP+4 |
X | %~, LISTOB+14*, LISTOB+17*, LISTOB+18*, LISTOB+20*, LISTOB+21*, LISTOB+23*, LISTOB+25*, LISTOB+26*, LISTOB+28* , LISTOB+29*, LISTOB+31*, LISTOB+32*, LISTOB+34*, TMP+2, HELP+1*, HDR+2*, HDR+4, HDR+5*, HDR+7 , HDR+8*, HDR+10, HDR+11*, HDR+12*, HDR+14, END+1! |
>> XQORNOD(0 | EXP+3 |
XQORS | START! |
Y | %~, %+10, END+1! |
>> ZTQUEUED | END |
>> ZTREQ | END* |
ZTSK | END+1! |