Routine: XBDSET

Package	Total	Caller Graph
IHS VA Utilities	21	XBCDIC XBCFIX XBCFXREF XBDICV XBFCMP XBFLD2 XBFNC XBFRESET XBKD XBLFAM XBLFD XBLFMD XBLFSETS XBLZRO XBNODEL XBPKG XBRSRCH XBSAUD XBSAUTH XBSDDAUD XBSIC

Entry Points

Name	Comments	DBIA/ICR reference
ONEFILE	; GET ONE FILE AND EXIT
OPTION	; GET FILES FOR SELECTED OPTION
GETFILES	;
EOJ	;
PACKAGE	; GET FILES FROM SPECIFIC PACKAGE
LIST	; LIST FILES ALREADY SELECTED
START	;
RANGE	; GET RANGE OF FILES
BUILD	; Get files from selected BUILD
PXBSE	; GIVE USER A CHANCE TO SEE LAST PAGE AND QUIT
EN1	;EP - Non-interactive selection of range of files.
RANGE2	; LABEL FOR EXTERNAL ENTRY POINT EN1
SELECT	; GET SELECTED FILES

Name	Field # of Occurrence
^%ZIS	START+2
^DIC	ONEFILE+3, SELECT+2, PACKAGE+2, BUILD+2
^DIR	GETFILES+9, RANGE+2, RANGE+6
$$DIR^XBDIR	PXBSE+1

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETFILES+1
Function Call: WRITE	Prompt: ! Line Location: OPTION+1
Function Call: WRITE	Prompt: !," 'Thru FILE' number less than 'From FILE' number!",*7 Line Location: RANGE+7
Function Call: WRITE	Prompt: ! Line Location: RANGE+12
Function Call: WRITE	Prompt: !?4,XBDSC," file",$S(XBDSC=1:"",1:"s")," selected" Line Location: RANGE+13
Function Call: WRITE	Prompt: !?4,"No files selected",*7 Line Location: RANGE+14
Function Call: WRITE	Prompt: !,"No files selected." Line Location: LIST+1
Function Call: WRITE	Prompt: @IOF,"Files already selected:",! Line Location: LIST+2
Function Call: WRITE	Prompt: !,XBDSX,?14,$P(^DIC(XBDSX,0),U,1) Line Location: LIST+4
Function Call: WRITE	Prompt: @IOF Line Location: LIST+4
Routine Call	DIC Line Location: ONEFILE+3 SELECT+2 PACKAGE+2 BUILD+2
Routine Call	DIR Line Location: GETFILES+9 RANGE+2 RANGE+6
Routine Call	%ZIS Line Location: START+2

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

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	RANGE2+2, RANGE2+3, PACKAGE+6, LIST+4
^DIC(9.4 - [#9.4]	PACKAGE+6
^UTILITY("XBDSET"	START+3!, GETFILES+3, GETFILES+8, GETFILES+11!, GETFILES+13, ONEFILE+6, SELECT+2, SELECT+4, RANGE2+4, PACKAGE+6 , BUILD+6*, LIST+1, LIST+4, EN1+1!
^XPD(9.6 - [#9.6]	BUILD+6

Name	Field # of Occurrence
DIC	START+3!, ONEFILE+2, ONEFILE+4!, SELECT+1, SELECT+3!, PACKAGE+1, PACKAGE+3!, BUILD+1, BUILD+3!, EOJ+2!
DIC(0	ONEFILE+2, SELECT+1, PACKAGE+1, BUILD+1
DIR	START+3!, GETFILES+10!, RANGE+3!, RANGE+6!, EOJ+2!
DIR("?"	GETFILES+6, GETFILES+8
DIR("A"	GETFILES+4, RANGE+1, RANGE+6*
DIR("B"	GETFILES+5*
DIR(0	GETFILES+3, RANGE+1, RANGE+6*
DIRUT	GETFILES+11, RANGE+4, RANGE+6, RANGE+9, EOJ+2!
DTOUT	GETFILES+11, EOJ+2!
DUOUT	GETFILES+11, SELECT+4, LIST+4, LIST+5, EOJ+2!
IO	PXBSE+1
IO(0	PXBSE+1
IOF	LIST+2, LIST+4
>> IOP	START+1*
IOSL	LIST+4, LIST+5
IOST	PXBSE+1
U	LIST+4
X	PACKAGE+5, PACKAGE+6, BUILD+5, BUILD+6, EOJ+2!
XBDSC	RANGE+13, RANGE2+1, RANGE2+5, EOJ+1!
XBDSFF	RANGE+5, RANGE+7, RANGE2+1, EN1+3, EOJ+1!
XBDSFILE	RANGE2+1, RANGE2+2, RANGE2+3, RANGE2+4, EOJ+1!
XBDSHI	EN1+2, EN1+3, EOJ+1!
XBDSL	EOJ+1!
XBDSLO	EN1+2, EN1+3, EOJ+1!
XBDSND	GETFILES+4, GETFILES+5, ONEFILE+1*, EOJ+1!
XBDSP	START+4, GETFILES+3, GETFILES+4, GETFILES+5, GETFILES+6, GETFILES+13, EOJ+1!
XBDSQ	START+4, START+5, GETFILES+11, ONEFILE+7, SELECT+4, RANGE+4, RANGE+6, RANGE+7, RANGE+9, EOJ+1!
XBDSTF	RANGE+10, RANGE2+2, EN1+3, EOJ+1!
XBDSX	LIST+3, LIST+4, EOJ+1!
Y	OPTION+2, OPTION+3, OPTION+4, OPTION+5, OPTION+6, OPTION+7, ONEFILE+5, ONEFILE+6, SELECT+2, RANGE+5 , RANGE+7, RANGE+10, PACKAGE+4, PACKAGE+5, PACKAGE+6, BUILD+4, BUILD+5, BUILD+6, PXBSE+1*, EOJ+2!