Routine: XBPKG

Information

XBPKG ;IHS/SET/GTH - MOVE FILES INTO PACKAGE ENTRY ; [ 04/18/2003 9:06 AM ]

Source file <XBPKG.m>

Package	Total	Call Graph
IHS VA Utilities	2	$$DIR^XBDIR ^XBDSET
VA Fileman	1	^DIC

Name	Comments	DBIA/ICR reference
START	;
EOJ	;
MOVEFILS(DA)	;-- Move the selected files into the selected entry in PACKAGE.
ASKKILL(P)	;-- Ask the user if KILL multiple in PACKAGE prior to move.
SELPKG()	;-- Select the entry in PACKAGE into which to move the files.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Select the files that you want to copy into the entry in PACKAGE",! Line Location: START+1
Function Call: WRITE	Prompt: !!,"Select the entry in PACKAGE into which to move the files" Line Location: SELPKG+1
Function Call: WRITE	Prompt: !!,C_" files set into Package "_$P(^DIC(9.4,DA,0),U)_".",! Line Location: MOVEFILS+12
Routine Call	DIC Line Location: SELPKG+4

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	START+7, START+9!, MOVEFILS+2, MOVEFILS+6, MOVEFILS+7, MOVEFILS+8, MOVEFILS+11, MOVEFILS+12
^UTILITY("XBDSET"	START+3, MOVEFILS+5, MOVEFILS+11

Name	Field # of Occurrence
C	MOVEFILS+3~, MOVEFILS+4, MOVEFILS+9, MOVEFILS+11, MOVEFILS+12
DA	START+4~, START+5*, START+6, START+7, START+9, START+10, MOVEFILS~, MOVEFILS+1, MOVEFILS+2, MOVEFILS+6 , MOVEFILS+7, MOVEFILS+8, MOVEFILS+11, MOVEFILS+12
DIC	SELPKG+2~, SELPKG+3*, EOJ+2!
DIC(0	SELPKG+3*
DIR	EOJ+2!
DIRUT	EOJ+2!
DTOUT	EOJ+2!
DUOUT	EOJ+2!
I	MOVEFILS+3~, MOVEFILS+4, MOVEFILS+5, MOVEFILS+6, MOVEFILS+7, MOVEFILS+8
P	ASKKILL~, ASKKILL+1
U	MOVEFILS+12
X	START+7*, START+8, START+9, EOJ+2!
XBDSC	EOJ+1!
XBDSFF	EOJ+1!
XBDSFILE	EOJ+1!
XBDSHI	EOJ+1!
XBDSL	EOJ+1!
XBDSLO	EOJ+1!
XBDSND	EOJ+1!
XBDSP	EOJ+1!
XBDSQ	EOJ+1!
XBDSTF	EOJ+1!
XBDSX	EOJ+1!
Y	SELPKG+5, EOJ+2!