Routine: XBCDIC3

Package	Total	Caller Graph
IHS VA Utilities	1	XBCDIC

Entry Points

Name	Comments	DBIA/ICR reference
CHKACOMP	; CHECK "ACOMP" ENTRIES
SBTRACE	; CHECK ALL SUB-FILES
CHKFIELD	;
PT	;
CHKTRB	; CHECK "TRB" NODE
SBTRACE2	;
CHKPT	; CHECK "PT" NODE
TRB	; THIS CAN CHECK MORE THAN IT DOES ***
SBTRACE4	;
START	;
SBTFIX	; FIX "NM"
ACOMP	;
SBCHECK	;
SBTRACE3	;
CHKDD0	; CHECK 0TH NODE
XBCDDDC	; CHECK ^DD ENTRY

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Now checking ^DD entries." Line Location: START+1
Function Call: WRITE	Prompt: !?5,"Checking ",XBCDFILE Line Location: START+3
Function Call: WRITE	Prompt: !,"File ",XBCDFILE," has no ^DD(",XBCDFILE,",.01,0) entry." Line Location: CHKDD0+1
Function Call: WRITE	Prompt: !,"File ",XBCDFILE," has no ^DD(",XBCDFILE,",0,""NM"") entry." Line Location: CHKDD0+2
Function Call: WRITE	Prompt: !,"File ",XBCDFILE," has multiple names." Line Location: CHKDD0+3
Function Call: WRITE	Prompt: "." Line Location: PT+1
Function Call: WRITE	Prompt: "\|" Line Location: PT+2
Function Call: WRITE	Prompt: "\|" Line Location: PT+3
Function Call: WRITE	Prompt: "\|" Line Location: PT+7
Function Call: WRITE	Prompt: "." Line Location: TRB+1
Function Call: WRITE	Prompt: "\|" Line Location: TRB+2
Function Call: WRITE	Prompt: "\|" Line Location: TRB+3
Function Call: WRITE	Prompt: "." Line Location: ACOMP+1
Function Call: WRITE	Prompt: "\|" Line Location: ACOMP+2
Function Call: WRITE	Prompt: "\|" Line Location: ACOMP+3
Function Call: WRITE	Prompt: "\|" Line Location: ACOMP+4
Function Call: WRITE	Prompt: "\|" Line Location: ACOMP+6
Function Call: WRITE	Prompt: "." Line Location: SBTRACE+3
Function Call: WRITE	Prompt: "." Line Location: SBTRACE2+2
Function Call: WRITE	Prompt: !?10,"Subfile ",XBCDI," for field ",X," does not exists.",!?12,"Deleting field ",X," from file ",XBCDSF Line Location: SBCHECK+2
Function Call: WRITE	Prompt: !?10,XBCDI," is a primary file. Deleting ^DD(",XBCDSF,",""SB"",",XBCDI,")" Line Location: SBTRACE3+1
Function Call: WRITE	Prompt: !?10,XBCDI," sub-file has ""PT"" node. Deleting." Line Location: SBTRACE3+2
Function Call: WRITE	Prompt: !?10,XBCDI," has no ""UP"" node. Creating ^DD(",XBCDI,",0,""UP"")=",XBCDSF Line Location: SBTRACE3+3
Function Call: WRITE	Prompt: !?10,XBCDI," ""UP"" node is NULL. Setting ^DD(",XBCDI,",0,""UP"")=",XBCDSF Line Location: SBTRACE3+5
Function Call: WRITE	Prompt: !?10,XBCDSF," lists ",XBCDI," as a sub-file. The ""UP"" node in ",!?10+$L(XBCDSF)+1,XBCDI," is ",^DD(XBCDI,0,"UP"),"." Line Location: SBTRACE3+6
Function Call: WRITE	Prompt: !?12,"The ""SB"" in ",^DD(XBCDI,0,"UP")," agrees. Fixing." Line Location: SBTRACE3+7
Function Call: WRITE	Prompt: !?12,"The ""SB"" in ",^DD(XBCDI,0,"UP")," disagrees. Fixing." Line Location: SBTRACE3+8
Function Call: WRITE	Prompt: !?10,"Sub-file ",XBCDI," has no ^DD(",XBCDI,",0,""NM"") entry. Fixing." Line Location: SBTRACE4+1
Function Call: WRITE	Prompt: !?10,"Sub-file ",XBCDI," has multiple names. Fixing." Line Location: SBTRACE4+2
Function Call: WRITE	Prompt: !?12,"Can't fix. No ""UP"" node." Line Location: SBTFIX+2
Function Call: WRITE	Prompt: !?12,"Can't fix. ""UP"" node is NULL." Line Location: SBTFIX+4
Function Call: WRITE	Prompt: !?12,"Can't fix because can't locate parent field." Line Location: SBTFIX+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	CHKDD0+1, CHKDD0+2, CHKDD0+3, CHKPT+2, PT+2!, PT+3!, PT+4, PT+5, PT+7!, CHKTRB+1 , CHKTRB+3, TRB+2!, TRB+3!, ACOMP+2, ACOMP+3, ACOMP+4, ACOMP+5, SBTRACE2+2, SBCHECK+1, SBCHECK+3! , SBTRACE3+1!, SBTRACE3+2!, SBTRACE3+3, SBTRACE3+4, SBTRACE3+5, SBTRACE3+6, SBTRACE3+7!, SBTRACE3+8, SBTRACE4+1, SBTRACE4+2 , SBTFIX+1!, SBTFIX+2, SBTFIX+3, SBTFIX+5, SBTFIX+6, SBTFIX+7
^DD("ACOMP"	CHKACOMP+1, CHKACOMP+3, CHKFIELD+2, ACOMP+2!, ACOMP+3!, ACOMP+4!, ACOMP+6!
^DIC - [#1]	SBTRACE3+1
^UTILITY("XBDSET"	START+3

Label References

Name	Line Occurrences
ACOMP	CHKFIELD+2
CHKACOMP	XBCDDDC+4
CHKDD0	XBCDDDC+1
CHKFIELD	CHKACOMP+3
CHKPT	XBCDDDC+2
CHKTRB	XBCDDDC+3
PT	CHKPT+2
SBCHECK	SBTRACE2+2
SBTFIX	SBTRACE4+1, SBTRACE4+2
SBTRACE	XBCDDDC+5
SBTRACE2	SBTRACE+3
SBTRACE3	SBCHECK+5
SBTRACE4	SBCHECK+5
TRB	CHKTRB+3
XBCDDDC	START+3

Naked Globals

Name	Field # of Occurrence
^(	CHKDD0+3, SBTRACE4+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
U	START+2*, PT+4, ACOMP+5, SBCHECK+1, SBTFIX+6
>> X	SBCHECK+1*, SBCHECK+2, SBCHECK+3
XBCDAFLD	CHKFIELD+2*, CHKFIELD+3!, ACOMP+3, ACOMP+4, ACOMP+5, ACOMP+6
XBCDAFLE	CHKFIELD+1, CHKFIELD+2, CHKFIELD+3!, ACOMP+2, ACOMP+3, ACOMP+4, ACOMP+5, ACOMP+6
XBCDANS	START+4!
XBCDC	SBTRACE+2, SBTRACE+4!, SBTRACE2+2
XBCDFILE	START+2, START+3, START+4!, CHKDD0+1, CHKDD0+2, CHKDD0+3, CHKPT+2, PT+2, PT+3, PT+5 , PT+6, PT+7, CHKTRB+1, CHKTRB+3, TRB+2, TRB+3, CHKACOMP+1, CHKACOMP+3, CHKFIELD+2, ACOMP+2 , ACOMP+3, ACOMP+4, ACOMP+6, SBTRACE+2
XBCDFLD	CHKACOMP+2, CHKACOMP+3, CHKACOMP+4!, CHKFIELD+2, ACOMP+2, ACOMP+3, ACOMP+4, ACOMP+6
XBCDI	SBTRACE+3, SBTRACE+4!, SBTRACE2+1, SBTRACE2+2*, SBCHECK+1, SBCHECK+2, SBCHECK+3, SBTRACE3+1, SBTRACE3+2, SBTRACE3+3 , SBTRACE3+4, SBTRACE3+5, SBTRACE3+6, SBTRACE3+7, SBTRACE3+8, SBTRACE4+1, SBTRACE4+2, SBTFIX+1, SBTFIX+2, SBTFIX+3 , SBTFIX+5, SBTFIX+6, SBTFIX+7
XBCDL	START+3, START+4!, CHKPT+2, CHKTRB+3, CHKACOMP+3, CHKFIELD+2, SBTRACE+3, SBTRACE2+2*
XBCDPFLD	CHKPT+2*, CHKPT+3!, PT+3, PT+4, PT+5, PT+7
XBCDPFLE	CHKPT+1, CHKPT+2, CHKPT+3!, PT+2, PT+3, PT+4, PT+5, PT+7
XBCDSF	SBTRACE+3*, SBTRACE+4!, SBTRACE2+2, SBCHECK+1, SBCHECK+2, SBCHECK+3, SBTRACE3+1, SBTRACE3+3, SBTRACE3+4, SBTRACE3+5 , SBTRACE3+6, SBTRACE3+7, SBTRACE3+8
XBCDSFL	SBTRACE+1!, SBTRACE+2*, SBTRACE+4!
XBCDSFL(	SBTRACE+2, SBTRACE+3!, SBTRACE2+2
XBCDSFL(""	SBTRACE+3
XBCDTFLD	CHKTRB+3*, CHKTRB+4!, TRB+3
XBCDTFLE	CHKTRB+2, CHKTRB+3, CHKTRB+4!, TRB+2, TRB+3
XBCDX	CHKDD0+3, CHKPT+3!, PT+4, PT+5, PT+6, CHKTRB+4!, CHKFIELD+3!, ACOMP+5, ACOMP+6, SBTRACE4+2 , SBTFIX+3*, SBTFIX+4, SBTFIX+5, SBTFIX+6
XBCDY	SBTRACE+4!, SBTFIX+6*
XBCDZ	SBTRACE+4!, SBTFIX+6*, SBTFIX+7
>> Y	SBCHECK+1*, SBCHECK+3

Customize PDF page

Package: IHS VA Utilities

Routine: XBCDIC3

Information

Source Information

Caller Graph

Caller Graph Total: 1

Entry Points

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: