Routine: XBRSRCH3

Information

XBRSRCH3 ; IHS/ADC/GTH - SEARCH OUTPUT TRANSFORM FOR ROUTINES ; [ 02/07/97 3:02 PM ]

Source file <XBRSRCH3.m>

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

Package	Total	Caller Graph
IHS VA Utilities	1	XBRSRCH

Name	Comments	DBIA/ICR reference
SBTRACE	; CHECK ALL SUB-FILES
EN	;EP - ENTRY POINT FOR CALLING ROUTINES
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+4

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

Name	Field # of Occurrence
^(2	FIELD+1

Name	Field # of Occurrence
DIC	START+2*, EOJ+1!
DIC(0	START+2*
U	START+2*, FIELD+2, FIELD+3, FIELD+4
X	FIELD+1, FIELD+2, FIELD+3, FIELD+4, 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+3*, FIELD+5
XBRSRCH("NO D	ETAIL" , WRITE+1
XBSOUT	EOJ+3!
XBSOUT("CNT"	SBTRACE+2, SBTRACE2+2
XBSOUT("COUNT"	FIELD+3*, FIELD+4
XBSOUT("FIELD"	FILE+1, FILE+2, FIELD+1, WRITE+3
XBSOUT("FILE"	START+5, SBTRACE+2, SBTRACE+3, SBTRACE2+2, FILE+2, FIELD+1, WRITE+2, WRITE+3
XBSOUT("I"	FIELD+4*
XBSOUT("L"	SBTRACE+3, SBTRACE2+2, FILE+2, WRITE+4, LIST+4*
XBSOUT("LAST	FILE" , EN+1, WRITE+2
XBSOUT("LCTL"	SBTRACE+3, SBTRACE2+1, SBTRACE2+2*
XBSOUT("MASTER"	START+7*, EN+3, EOJ+2
XBSOUTFL	SBTRACE+1!, EOJ+3!
XBSOUTFL(	SBTRACE+2, SBTRACE+3!, SBTRACE2+2
XBSOUTFL(""	SBTRACE+3
Y	START+4, START+5, FIELD+4*, EOJ+1!
YY	EOJ+1!