Routine: DIC0

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	9	LIST^DDSU $$EZBLD^DIALOG $$GETP^DIC0 GETFA^DIC1 Q^DIC2 ERR^DICF4 INDEX^DICUIX ($$CREF,$$IENS,$$OREF)^DILF ($$FILENUM,$$FNO)^DILIBF

Package	Total	Caller Graph
VA Fileman	9	DIC DIC0 DIC1 DIC2 DIC3 DICF DICM DICN0 DICQ

Package

Total

Caller Graph

VA Fileman

DIC DIC0 DIC1 DIC2 DIC3 DICF DICM DICN0
DICQ

Entry Points

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.

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,$$EZBLD^DIALOG(DIERROR) Line Location: CHKVAL1+11
Function Call: WRITE	Prompt: !,$$EZBLD^DIALOG(DIER) Line Location: CHKVAL2+10
Function Call: WRITE	Prompt: ! Line Location: DSPH+2
Function Call: WRITE	Prompt: ?I Condition for execution: I Line Location: DSPH+2
Function Call: WRITE	Prompt: " Lookup: " Line Location: DSPH+3
Function Call: WRITE	Prompt: $P(I,U)_" " Line Location: DSPH+4
Function Call: WRITE	Prompt: DINDEX(I,"PROMPT")_$P(", ^",U,I<DINDEX("#")) Line Location: DSPH+5
Routine Call	DIALOG Line Location: CHKVAL1+11 CHKVAL2+10 CHKVAL2+11

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

Local Variables

Legend:

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

Customize PDF page

Package: VA Fileman

Routine: DIC0

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: