DIC0 ;SFISC/TKW-Lookup routine utilities called by DIC ;16JAN2011
Source file <DIC0.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
D | ; Reset back to starting index for lookup.
|
|
SETVAL | ; If custom lookup routine (like MTLU) comes in to entry point after ASK, we need to set up the lookup values.
|
|
INIT | ; Initialize variables at all entry points in ^DIC.
|
|
CHKVAL | ; Check lookup values input by user.
|
|
CHKVAL1(DIXNO,DIVAL,DIFLAGS,DIC0,DIALLVAL) | ; Check for errors with values, flags,index.
|
|
CHKVAL2(DIXNO,DIVAL,DIC0,DDS) | ; Check lookup values for control characters or too long.
|
|
KILL2 | ||
KILL1 | ||
GETFILE(DIC,DIFILE,DIENS) | ; Return file number, global references, IEN string and KEY fields data.
|
|
SETIEN(DIC,DIFILE,DIENS) | ; Set DIENS from global root
|
|
GETP(DISUB) | ; Return DIC("P") for a subfile DIFILE.
|
|
DSPH | ; Display name of indexed fields when DIC(0)["T" (called from DIC1 & DIC2)
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|