Routine: XDRDVAL

Package	Total	Call Graph
Kernel	3	(,$$REWIND)^%ZIS ^%ZISC $$NEWERR^%ZTER
Toolkit	1	$$GET^XPAR
VA Fileman	1	GETS^DIQ

Package	Total	Caller Graph
Toolkit	2	XDRDVAL1 XDRDVAL2

Entry Points

Name	Comments	DBIA/ICR reference
DOENTRY(FILE,IEN,OUTROOT,HELP)	; ENTRY POINT TO PROCESS A SINGLE ENTRY
ERR	; On an error mark status as error, and save the error message
MAKEGLO(FILENUM,IENS,GLOB,DASTR)	;
CHKNM	; CHECK FOR PROBLEM WITH NM NODE OF SUBFILE NOT BEING CORRECT
CHKVALID(MESG,FILE,IENS,FIELD,EXTVAL,INTVAL,HELP)	;
VALIDATE(DATA,MESG)	; VALIDATE DATA IN 'DATA' RETURN ERRORS IN 'MESG'
CLOSE	;
OPEN	;
DOGETS	;

External References

Name	Field # of Occurrence
^%ZIS	CHKVALID+5
$$REWIND^%ZIS	CLOSE+7
^%ZISC	CHKVALID+27
$$NEWERR^%ZTER	CHKVALID+3
GETS^DIQ	DOGETS+1
$$GET^XPAR	DOGETS+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"First entry in ^DD("_FILE_",0,""NM"", does not match field name "_UNAME_" in file "_UFILE_". This will be rejected by UPDATE^DIE." Line Location: CHKNM+7
Function Call: WRITE	Prompt: !,"...ONE MOMENT..." Line Location: OPEN+2
Function Call: WRITE	Prompt: !,EOF,! Line Location: CLOSE+6
Function Call: WRITE	Prompt: $C(7),!!?5,"<< UNABLE TO REWIND FILE>>",! Line Location: CLOSE+8
Function Call: READ	Timeout: 1 Variable: X Line Location: CLOSE+11
Routine Call	%ZIS Line Location: CLOSE+7
Routine Call	%ZIS Line Location: CHKVALID+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	CLOSE+4
^%ZOSF("TRAP"	CHKVALID+4
^DD(	VALIDATE+4, VALIDATE+5, VALIDATE+14, CHKVALID+10, CHKVALID+11, CHKVALID+19, CHKVALID+20, MAKEGLO+4, MAKEGLO+5, MAKEGLO+6 , CHKNM+2, CHKNM+3, CHKNM+4, CHKNM+5
^DIC - [#1]	MAKEGLO+3, MAKEGLO+11
^TMP("DDB"	CHKVALID+27!, CHKVALID+28, CHKVALID+29, ERR+4, CLOSE+3!, CLOSE+14
^TMP("XDRDVAL-M"	CHKVALID+6, CHKVALID+23
^TMP($J	DOENTRY+3, DOENTRY+4, DOENTRY+5, CHKVALID+7*

Label References

Name	Line Occurrences
CHKNM	CHKVALID+25
CHKVALID	VALIDATE+16
DOGETS	DOENTRY+7
MAKEGLO	CHKVALID+17
VALIDATE	DOENTRY+8

Naked Globals

Name	Field # of Occurrence
^(	CHKVALID+28*!
^("FIELD"	CHKVALID+7*
^("IENS"	CHKVALID+7*
^("X"	CHKVALID+7*
^("Y"	CHKVALID+7*
^(0	CHKVALID+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	CLOSE+2~, CLOSE+10, CLOSE+14
CHAR	CLOSE+2~, CLOSE+5*, CLOSE+12
D0	CHKVALID+16~, CHKVALID+18*
DA	CHKVALID+16~, CHKVALID+17
DASTR	MAKEGLO~, MAKEGLO+2!, MAKEGLO+10, MAKEGLO+13
DASTR(	MAKEGLO+12*
DATA	VALIDATE~, VALIDATE+3, VALIDATE+6, VALIDATE+7, VALIDATE+8, VALIDATE+9
>> DATAROOT	DOENTRY+3*, DOENTRY+6, DOGETS+1, DOGETS+4, DOGETS+8, DOGETS+9, DOGETS+11, DOGETS+12, DOGETS+13
DAVAL	MAKEGLO+1~
DAVAL(	MAKEGLO+3*, MAKEGLO+7, MAKEGLO+11, MAKEGLO+12
DAVAL(1	MAKEGLO+13
>> DDBDMSG	OPEN+1*
DDBROS	CLOSE+2~, CLOSE+4*
>> DDBRZIS	OPEN+1, CLOSE+1, CLOSE+8*
>> DDBRZIS("REWIND"	CLOSE+7*, CLOSE+8
DIC	CHKVALID+16~, CHKVALID+17, CHKVALID+18, CHKVALID+20*
DIC(0	CHKVALID+18*
DIE	CHKVALID+16~, CHKVALID+18*
EOF	CLOSE+2~, CLOSE+4*, CLOSE+6
ERRFLG	MAKEGLO+1~, MAKEGLO+2, MAKEGLO+3, MAKEGLO+4, MAKEGLO+5, MAKEGLO+6, MAKEGLO+10
>> EXCODE	CHKVALID+19*, CHKVALID+21
EXTVAL	CHKVALID~, CHKVALID+7, CHKVALID+8, CHKVALID+26
FIELD	DOGETS+9, DOGETS+10, DOGETS+11, DOGETS+12, DOGETS+13, DOGETS+14, VALIDATE+7, VALIDATE+8, VALIDATE+9, VALIDATE+10 , VALIDATE+11, VALIDATE+12, VALIDATE+13, VALIDATE+14, VALIDATE+15, VALIDATE+16, CHKVALID~, CHKVALID+2, CHKVALID+7, CHKVALID+10 , CHKVALID+11, CHKVALID+19, CHKVALID+20, CHKVALID+23, CHKVALID+25, CHKVALID+26, CHKVALID+29
FILE	DOENTRY~, DOGETS+1, DOGETS+4, DOGETS+6, DOGETS+8, DOGETS+9, DOGETS+10, DOGETS+11, DOGETS+12, DOGETS+13 , DOGETS+14, VALIDATE+3, VALIDATE+4, VALIDATE+5, VALIDATE+6, VALIDATE+7, VALIDATE+8, VALIDATE+9, VALIDATE+11, VALIDATE+12 , VALIDATE+13, VALIDATE+14, VALIDATE+15, VALIDATE+16, CHKVALID~, CHKVALID+7, CHKVALID+10, CHKVALID+11, CHKVALID+17, CHKVALID+19 , CHKVALID+20, CHKVALID+21, CHKVALID+23, CHKVALID+26, CHKVALID+29, MAKEGLO+1~, MAKEGLO+3*, MAKEGLO+4, MAKEGLO+5, MAKEGLO+11 , CHKNM+2, CHKNM+3, CHKNM+5, CHKNM+7
>> FILEA	CHKVALID+21*
FILENUM	MAKEGLO~, MAKEGLO+3, MAKEGLO+4*, MAKEGLO+5, MAKEGLO+6
>> FIRSTLVL	VALIDATE+4, VALIDATE+5, VALIDATE+10
FLD	MAKEGLO+1~, MAKEGLO+5*, MAKEGLO+6
GLOB	MAKEGLO~, MAKEGLO+2, MAKEGLO+7, MAKEGLO+10, MAKEGLO+11
HELP	DOENTRY~, CHKVALID~, CHKVALID+23
I	VALIDATE+5, CHKVALID+28, MAKEGLO+1~, MAKEGLO+3, MAKEGLO+7, MAKEGLO+11, MAKEGLO+12, CLOSE+5
IEN	DOENTRY~, DOENTRY+8, DOENTRY+9, DOGETS+1
IENS	DOGETS+8, DOGETS+9, DOGETS+11, DOGETS+12, DOGETS+13, DOGETS+14, VALIDATE+6, VALIDATE+7, VALIDATE+8, VALIDATE+9 , VALIDATE+16, CHKVALID~, CHKVALID+7, CHKVALID+17, CHKVALID+18, CHKVALID+23, CHKVALID+26, CHKVALID+29, MAKEGLO~, MAKEGLO+3 , MAKEGLO+8*
INTVAL	CHKVALID~, CHKVALID+7, CHKVALID+10, CHKVALID+12, CHKVALID+14, CHKVALID+20, CHKVALID+26
IO	CHKVALID+5, CHKVALID+27, OPEN+2, CLOSE+6, CLOSE+7, CLOSE+9
IO(0	OPEN+2, CLOSE+8
>> IOP	CHKVALID+5*
>> IOPAR	CLOSE+7
>> IOT	CLOSE+7
J	MAKEGLO+1~, MAKEGLO+12*
MESG	VALIDATE~, VALIDATE+16, CHKVALID~, CHKVALID+23, CHKVALID+26, CHKVALID+29
>> MESGROOT	DOENTRY+4*, DOENTRY+6, DOENTRY+8, DOENTRY+9, DOGETS+1, DOGETS+3
NODE	MAKEGLO+1~, MAKEGLO+6*, MAKEGLO+7
OUTROOT	DOENTRY~, DOENTRY+9
>> POP	CHKVALID+5
>> RESULT	CHKVALID+9, CHKVALID+20, CHKVALID+21, CHKVALID+23, CHKVALID+25, CHKVALID+26, CHKNM+6, ERR+2*
>> TEMPROOT	DOENTRY+5*, DOENTRY+6, DOENTRY+8, DOGETS+14
>> TOPFILE	VALIDATE+4*, VALIDATE+5, VALIDATE+10
U	DOGETS+14, VALIDATE+8, VALIDATE+9, VALIDATE+14, CHKVALID+10, CHKVALID+11, CHKVALID+13, CHKVALID+19, CHKVALID+20, CHKVALID+26 , MAKEGLO+6, CHKNM+4
UFILE	CHKNM+1~, CHKNM+2*, CHKNM+3, CHKNM+4, CHKNM+7
UFLD	CHKNM+1~, CHKNM+3*, CHKNM+4
UNAME	CHKNM+1~, CHKNM+4*, CHKNM+5, CHKNM+7
>> VAL	VALIDATE+8*, VALIDATE+16
X	DOGETS+13, DOGETS+14, VALIDATE+8, VALIDATE+9, CHKVALID+4, CHKVALID+21, ERR+2!, CLOSE+2~, CLOSE+11, CLOSE+12 , CLOSE+13*, CLOSE+14
>> XDRDVALF	VALIDATE+2*, OPEN+2
>> XMESG	CHKVALID+6*, CHKVALID+24
>> Y	DOGETS+12, DOGETS+14, CHKVALID+20
>> Y1	CHKVALID+8, CHKVALID+10, CHKVALID+14, CHKVALID+20, CHKVALID+21
>> YVAL	VALIDATE+9*, VALIDATE+16
Z	CHKVALID+12~, CHKVALID+13, CHKVALID+14, CHKVALID+20*
ZTQUEUED	DOENTRY+2~

Customize PDF page

Package: Toolkit

Routine: XDRDVAL

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: