Routine: XBRSRCH2

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 - Search for routines in Input Transforms.
FIELD	; Check Field's Input Transform.
SBTRACE2	;
EOJ	;
LIST	; List Routine Names.
WRITE	;
START	;
FILE	; CHECK ONE FILE OR SUB-FILE

Name	Field # of Occurrence
^DIC	START+3
^XBRSRCH1	FIELD+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine searches a file for INPUT TRANSFORMS 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: !,XBSINP("FILE"),",",XBSINP("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
^UTILITY("XBRSRCH"	START+6!, LIST+1, LIST+4, LIST+5!

Name	Field # of Occurrence
^(	FILE+2

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

Information