Routine: XBRSRCH4

Package	Total	Call Graph
IHS VA Utilities	1	^XBRSRCH1
VA Fileman	1	^DIC

Package

Total

Call Graph

^DIC

Package	Total	Caller Graph
IHS VA Utilities	1	XBRSRCH

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
SBTRACE	; CHECK ALL SUB-FILES
EN	;EP - ENTRY POINT FOR CALLING ROUTINES
FIELD	; CHECK FIELD'S XREFS
SBTRACE2	;
EOJ	;
LIST	; LIST ROUTINE NAMES
CHKSK	; CHECK XREF SET/KILL
WRITE	;
START	;
FILE	; CHECK ONE FILE OR SUB-FILE
CHKXREF	; CHECK ONE XREF

Name	Field # of Occurrence
^DIC	START+3
^XBRSRCH1	CHKSK+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine searches a file for XREFS that call routines.",! Line Location: START+1
Function Call: WRITE	Prompt: "." Line Location: WRITE+1
Function Call: WRITE	Prompt: ! Line Location: WRITE+2
Function Call: WRITE	Prompt: !,XBSXREF("FILE"),",",XBSXREF("FIELD"),?20,$E(X,1,59) Line Location: WRITE+3
Function Call: WRITE	Prompt: !?20,$E(X,1,59) Line Location: WRITE+4
Function Call: WRITE	Prompt: !!,"Sorted list of routines found:",! Line Location: LIST+2
Function Call: WRITE	Prompt: !,"^",X Line Location: LIST+4
Function Call: WRITE	Prompt: ! Line Location: LIST+6
Routine Call	DIC Line Location: START+3

FileNo	Call Tags
^DIC - [#1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(	SBTRACE2+2, FILE+2, FIELD+1, FIELD+3, CHKXREF+1, CHKXREF+3
^UTILITY("XBRSRCH"	START+6!, LIST+1, LIST+4, LIST+5!

Name	Field # of Occurrence
DIC	START+2*, EOJ+1!
DIC(0	START+2*
U	START+2*, CHKSK+1, CHKSK+2, CHKSK+3
X	CHKXREF+1, CHKXREF+3, CHKSK+1, CHKSK+2, CHKSK+3, WRITE+3, WRITE+4, LIST+3, LIST+4*, EOJ+1!
X0	EOJ+1!
X1	EOJ+1!
X2	EOJ+1!
XBRSRCH	EOJ+2!
XBRSRCH("FOUND"	CHKSK+2*, CHKSK+4
XBRSRCH("NO D	ETAIL" , WRITE+1
XBSXREF	EOJ+3!
XBSXREF("CNT"	SBTRACE+2, SBTRACE2+2
XBSXREF("COUNT"	CHKSK+2*, CHKSK+3
XBSXREF("FIELD"	FILE+1, FILE+2, FIELD+1, FIELD+3, CHKXREF+1, CHKXREF+3, WRITE+3
XBSXREF("FILE"	START+5, SBTRACE+2, SBTRACE+3, SBTRACE2+2, FILE+2, FIELD+1, FIELD+3, CHKXREF+1, CHKXREF+3, WRITE+2 , WRITE+3
XBSXREF("I"	CHKSK+3*
XBSXREF("L"	SBTRACE+3, SBTRACE2+2, FILE+2, FIELD+3, WRITE+4, LIST+4
XBSXREF("LAST	FILE" , EN+1, WRITE+2
XBSXREF("LCTL"	SBTRACE+3, SBTRACE2+1, SBTRACE2+2*
XBSXREF("MASTER"	START+7*, EN+3, EOJ+2
XBSXREF("XREF"	FIELD+2, FIELD+3, CHKXREF+1, CHKXREF+3
XBSXREFF	SBTRACE+1!, EOJ+3!
XBSXREFF(	SBTRACE+2, SBTRACE+3!, SBTRACE2+2
XBSXREFF(""	SBTRACE+3
Y	START+4, START+5, CHKSK+3*, EOJ+1!
YY	EOJ+1!

Information