Routine: XBSIC

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ^XBDSET ^XBKVAR EN^XBVK
Kernel	3	$$LGR^%ZOSV $$FMTE^XLFDT $$REPEAT^XLFSTR
VA Fileman	1	^DIR

Package

Total

Call Graph

$$LGR^%ZOSV $$FMTE^XLFDT $$REPEAT^XLFSTR

^DIR

Name	Comments	DBIA/ICR reference
FILES	; PROCESS ALL FILES
WRITE	; WRITE ONE LINE
HEAD	; WRITE HEADER
SET	; SET ONE LINE
F	;Form feed
BROWSE	;
RECURSE	; RECURSE FOR FILES BEING POINTED TO
DBQUE	; call to XBDBQUE
LIST	; LIST OUTPUT
START	;
INIT	; INITIALIZATION
PAUSE	; PAUSE FOR USER
Q
EOJ	;
FILE(XBFILE)	; PROCESS ONE FILE (CALLED RECURSIVELY)

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Your DUZ(2) is not set!",!! Line Location: INIT+4
Function Call: WRITE	Prompt: !!,"The site specified in your DUZ(2) does not exist!",!! Line Location: INIT+5
Function Call: WRITE	Prompt: ! Line Location: DBQUE+1
Function Call: WRITE	Prompt: "." Line Location: FILE+2
Function Call: WRITE	Prompt: !,?4,XBFILE_" ("_$P($G(^DIC(XBFILE,0)),U)_")",! Line Location: LIST+6
Function Call: WRITE	Prompt: XBDEV,! Line Location: WRITE+4
Function Call: WRITE	Prompt: @IOF Line Location: F+4
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: " ID/SP/FD REPORT run at ",$P(^AUTTLOC(DUZ(2),0),U,2)," on ",$$FMTE^XLFDT(DT),?75,$J(XBPG,5),! Line Location: HEAD+3
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("=",80),! Line Location: HEAD+4
Function Call: WRITE	Prompt: !!,"RUN TIME (H.M.S): "_XBH_"."_XBM_"."_XBS,! Line Location: EOJ+2
Routine Call	DIR Line Location: DBQUE+4 PAUSE+5

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	INIT+5, HEAD+3
^DD(	FILE+5, FILE+6, FILE+8, FILE+9, FILE+13, FILE+14, FILE+20, FILE+24
^DIC - [#1]	LIST+6
^UTILITY("XBDSET"	INIT+9, FILES+2, EOJ+4!
^XTMP("XBSIC"	INIT+6!, FILE+3, SET+1, LIST+4, LIST+8, EOJ+3!

Name	Field # of Occurrence
^(	FILE+24
^(0	FILE+20, FILE+24

Name	Field # of Occurrence
DA	DBQUE+3!
DIR	DBQUE+5!, PAUSE+6!
DIR("A"	DBQUE+2, PAUSE+3
DIR("B"	DBQUE+2*
DIR(0	DBQUE+2, PAUSE+3
DIRUT	DBQUE+6, F+2, PAUSE+4!
DT	HEAD+3
DUZ(2	INIT+4, INIT+5, HEAD+3
IO	LIST+1
IO("S"	FILE+2, F+2, PAUSE+2, HEAD+1
IOF	F+4, HEAD+1
IOSL	F+1
IOST	FILE+2, F+2, PAUSE+1, HEAD+1
>> IOT	PAUSE+2
L	FILE+1~, FILE+12, FILE+13, FILE+14
RECURSE	FILE+22, RECURSE+2~, RECURSE+3*
U	FILE+20, FILE+25, RECURSE+1, RECURSE+4, LIST+6, HEAD+3
V	FILE+1~, FILE+9, FILE+10, FILE+14, FILE+15
W	FILE+1~, FILE+10, FILE+11, FILE+15*, SET+1
X	FILE+1~, FILE+4, FILE+5, FILE+6, FILE+8, FILE+9, FILE+10, FILE+11, FILE+13, FILE+14 , FILE+20, FILE+24*, FILE+25, RECURSE+1, RECURSE+4
>> XBBT	INIT+2*, EOJ+1
>> XBDEV	LIST+7, LIST+8, WRITE+1, WRITE+4
>> XBET	EOJ+1*
XBFILE	FILES+1, FILES+2, FILE~, FILE+3, FILE+5, FILE+6, FILE+8, FILE+9, FILE+13, FILE+14 , FILE+20, FILE+24, SET+1, RECURSE+1, RECURSE+2~, RECURSE+4, LIST+3, LIST+4*, LIST+6, LIST+8
>> XBFLD	FILE+23, FILE+24
>> XBH	EOJ+1*, EOJ+2
>> XBIOP	BROWSE+2*
>> XBJOB	INIT+2*, INIT+6, INIT+9, FILES+2, FILE+3, SET+1, LIST+4, LIST+8, EOJ+3, EOJ+4
>> XBM	EOJ+1*, EOJ+2
>> XBNS	DBQUE+8*
>> XBPG	HEAD+2*, HEAD+3
>> XBQFLG	START+2, INIT+3, INIT+10, FILES+2, LIST+4, LIST+5, LIST+8, WRITE+3, F+2*, F+3
>> XBRC	DBQUE+8, BROWSE+2
>> XBRP	DBQUE+8, BROWSE+1
>> XBRX	DBQUE+8, BROWSE+2
>> XBS	EOJ+1*, EOJ+2
>> XBTS	EOJ+1*
Y	DBQUE+7, FILE+1~, FILE+7, FILE+8, FILE+9, FILE+13, FILE+14
>> ZTQUEUED	FILE+2, F+2, PAUSE+2, HEAD+1

Information