DIC0 ;SFISC/TKW-Lookup routine utilities called by DIC ;12/10/99 12:10 [ 04/02/2003 8:25 AM ]
Source file <DIC0.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SETVAL | ; If custom lookup routine (like MTLU) comes in to entry point after ASK, we need to set up the lookup values.
|
|
KILL1 | ||
D | ; Reset back to starting index for lookup.
|
|
KILL2 | ||
CHKVAL | ; Check lookup values input by user.
|
|
DSPH | ; Display name of indexed fields when DIC(0)["T" (called from DICF2)
|
|
INIT | ; Initialize variables at all entry points in ^DIC.
|
|
SETIEN(DIC,DIFILE,DIENS) | ; Set DIENS from global root
|
|
GETFILE(DIC,DIFILE,DIENS) | ; Return file number, global references, IEN string and KEY fields data.
|
|
CHKVAL2(DIXNO,DIVAL,DIC0,DDS) | ; Check lookup values for control characters or too long.
|
|
CHKVAL1(DIXNO,DIVAL,DIFLAGS,DIC0,DIALLVAL) | ; Check for errors with values, flags,index.
|
|
GETP(DISUB) | ; Return DIC("P") for a subfile DIFILE.
|
Name | Field # of Occurrence |
---|---|
LIST^DDSU | CHKVAL2+12 |
$$EZBLD^DIALOG | CHKVAL1+11, CHKVAL2+10, CHKVAL2+11 |
$$GETP^DIC0 | INIT+2 |
GETFA^DIC1 | INIT+3 |
Q^DIC2 | INIT+2 |
ERR^DICF4 | CHKVAL1+10 |
INDEX^DICUIX | D+4, INIT+5 |
$$CREF^DILF | GETFILE+2, GETFILE+15 |
$$IENS^DILF | SETIEN+7 |
$$OREF^DILF | GETFILE+2 |
$$FILENUM^DILIBF | GETFILE+10 |
$$FNO^DILIBF | SETIEN+2 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | GETP+1, GETP+2, GETP+3 |
^DD("KEY" - [#.31] | GETFILE+16, GETFILE+18 |
^DIC - [#1] | GETFILE+5, SETIEN+3 |
Name | Line Occurrences |
---|---|
CHKVAL | SETVAL+1 |
CHKVAL1 | SETVAL+2 |
GETFILE | INIT+1 |
SETIEN | GETFILE+13 |
Name | Field # of Occurrence |
---|---|
^( | GETFILE+18 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> D | D+1*, INIT+4 |
DA | GETFILE+3~ |
>> DDC | CHKVAL2+12* |
>> DDD | CHKVAL2+12* |
DDH | CHKVAL2+11~* |
DDH(1 | CHKVAL2+11* |
DDS | CHKVAL2~, CHKVAL2+10 |
DIALLVAL | SETVAL+1!, SETVAL+2, CHKVAL1~, CHKVAL1+1*, CHKVAL1+7*, KILL2! |
>> DIASKOK | INIT+6* |
DIC | INIT+1, INIT+2, INIT+3, GETFILE~, GETFILE+1, GETFILE+2~*, GETFILE+4, GETFILE+5*, GETFILE+6*, GETFILE+8 , GETFILE+10, GETFILE+13, GETFILE+14, GETFILE+15, SETIEN~, SETIEN+4, DSPH+4 |
DIC("P" | INIT+2*, GETFILE+9 |
DIC(0 | D+3, SETVAL+2, INIT+6, INIT+7, CHKVAL2+9, GETFILE+13 |
DIC0 | CHKVAL1~, CHKVAL1+2, CHKVAL1+10, CHKVAL1+11, CHKVAL2~, CHKVAL2+8 |
>> DICR | DSPH+2, DSPH+4 |
>> DID(1 | D+2* |
DIDA | SETIEN+1~, SETIEN+6*, SETIEN+7 |
DIDA( | SETIEN+6* |
DIDIC | GETFILE+2~*! |
DIENS | INIT+1, KILL1!, GETFILE~, GETFILE+12*, GETFILE+13, GETFILE+17, SETIEN~, SETIEN+7* |
DIER | CHKVAL2+1~*, CHKVAL2+2, CHKVAL2+3*, CHKVAL2+4*, CHKVAL2+5*, CHKVAL2+7, CHKVAL2+10, CHKVAL2+11 |
DIERROR | CHKVAL1+1~, CHKVAL1+2, CHKVAL1+3*, CHKVAL1+4*, CHKVAL1+6*, CHKVAL1+9, CHKVAL1+10, CHKVAL1+11 |
DIFIELD | GETP+2~*, GETP+3 |
DIFILE | GETFILE~, GETFILE+1*, GETFILE+5*, GETFILE+6*, GETFILE+8*, GETFILE+9*, GETFILE+10*, GETFILE+11, GETFILE+13, GETFILE+14 , GETFILE+15, GETFILE+16, GETFILE+17, GETFILE+19, SETIEN~, SETIEN+2*, SETIEN+3*, GETP+1~*, GETP+2, GETP+3 |
DIFILE( | GETFILE+14*, GETFILE+15*, GETFILE+17*, GETFILE+19* |
DIFILEI | D+4, INIT+1, INIT+2, INIT+5, KILL1!, DSPH+1 |
DIFLAGS | D+3~*, D+4, CHKVAL1~, CHKVAL1+2, CHKVAL1+4, CHKVAL1+6 |
DIMAXLEN | KILL1! |
DINDEX | D+1!*, D+4, INIT+4*, INIT+5, KILL1! |
DINDEX( | DSPH+5 |
DINDEX("#" | SETVAL+2, CHKVAL+2, CHKVAL+4, CHKVAL+5, DSPH+5 |
DINDEX("START" | D+1*, INIT+4* |
DINDEX("WAY" | D+1*, INIT+4* |
DIOUT | CHKVAL+3~*, CHKVAL+4, CHKVAL+6*, CHKVAL+7* |
DISUB | GETP~, GETP+1, GETP+2 |
DIVAL | D+4, SETVAL+1!, SETVAL+2, INIT+5, CHKVAL+7!, CHKVAL1~, CHKVAL1+11!, CHKVAL2~, CHKVAL2+14!, KILL2! |
DIVAL( | CHKVAL+2*, CHKVAL+4, CHKVAL1+5*, CHKVAL2+2 |
DIVAL(0 | SETVAL+2, CHKVAL+2*, CHKVAL+6*, CHKVAL+7*, CHKVAL+8*, CHKVAL1+11*, CHKVAL2+14* |
DIVAL(1 | CHKVAL+2* |
DIVAL(99999 | CHKVAL1+3 |
DIXNO | CHKVAL1~, CHKVAL1+3, CHKVAL1+4, CHKVAL1+5, CHKVAL2~, CHKVAL2+2 |
DO | INIT+3! |
>> DS(0 | DSPH+1* |
>> DUOUT | CHKVAL+6* |
F | GETFILE+18~*, SETIEN+1~, SETIEN+2*, SETIEN+3, SETIEN+4*, SETIEN+5 |
G | SETIEN+1~, SETIEN+3*, SETIEN+4 |
I | CHKVAL+1~, CHKVAL+2*, CHKVAL+4*, CHKVAL+5, CHKVAL1+1~, CHKVAL1+3*, CHKVAL1+5*, CHKVAL2+1~, CHKVAL2+2*, GETFILE+16~* , GETFILE+18, SETIEN+1~, SETIEN+5*, DSPH+2~*, DSPH+4*, DSPH+5* |
J | CHKVAL+3~, CHKVAL+4*, CHKVAL+5, CHKVAL+6, CHKVAL+7, CHKVAL2+1~, CHKVAL2+2*, CHKVAL2+3, CHKVAL2+4, CHKVAL2+5 , SETIEN+1~, SETIEN+5*, SETIEN+6* |
J( | SETIEN+5*, SETIEN+6 |
K | SETIEN+1~, SETIEN+5*, SETIEN+6 |
U | D+3, GETFILE+8, GETFILE+19, GETP+3, DSPH+4, DSPH+5 |
X | CHKVAL+1*, CHKVAL+2, CHKVAL+7*, GETFILE+18~*, GETFILE+19 |
X( | CHKVAL+2, CHKVAL+5* |
X(1 | CHKVAL+1 |
>> Y | INIT+2*, INIT+7* |
>> Y(0 | INIT+7! |