Routine: ACDVIMP

Package	Total	Call Graph
Alcohol Chemical Dependency	3	EN^ACDVIMP1 EN^ACDVXMD ERROR^ACDWUTL
Kernel	2	^%ZISC ($$DEL,$$LIST,$$OPEN,OPEN)^%ZISH
VA Fileman	2	YN^DICN ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP
F	;File import from
XMD	;Audit trail
K	;kill variables
IN	;Read in from the imported file to build ^ACDVTMP
PASS2	; FOR PURGING FILES AFTER DATA INSTALLED
L1	;Open file to read from
PASS	;Skip when user tries to import their own extract
DIR	;Ask user for directory

External References

Name	Field # of Occurrence
^%ZISC	IN+10, IN+32, PASS+2
$$DEL^%ZISH	PASS2+2
$$LIST^%ZISH	F+3
$$OPEN^%ZISH	L1+1
OPEN^%ZISH	EN+4
EN^ACDVIMP1	DIR+13, F+21
EN^ACDVXMD	XMD+1
ERROR^ACDWUTL	F+3, PASS2+2
YN^DICN	DIR+21
^DIR	DIR+4, F+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"But you need to first install patch 25 of Kernel 7" Line Location: EN+4
Function Call: WRITE	Prompt: ! Line Location: DIR+3
Function Call: WRITE	Prompt: !!,7,7,"Facilities have no need to import data." Line Location: DIR+10
Function Call: WRITE	Prompt: !!,7,7,"But an incomplete import exists due to a corrupt location table.",!,"I will try again to complete the import..." Line Location: DIR+13
Function Call: WRITE	Prompt: !!,7,7,"It appears an import is presently running." Line Location: DIR+16
Function Call: WRITE	Prompt: @IOF,!!,7,7,"Please note that I will not allow you to import your own",!,"extract and will automatically delete the file for you...",!! Line Location: DIR+19
Function Call: WRITE	Prompt: !!,"It is advisable to capture the upcomming terminal screens to a printer.",!,"Please open a log file or turn on 'PRINT SCREEN'." Line Location: DIR+20
Function Call: WRITE	Prompt: !!,"Ok to Continue: " Line Location: DIR+21
Function Call: WRITE	Prompt: " Answer Yes or No" Condition for execution: %=0 Line Location: DIR+21
Function Call: WRITE	Prompt: !!,7,7,"No CDMIS import files found in ",ACDIR Line Location: F+4
Function Call: WRITE	Prompt: !,"Job terminated....." Line Location: F+5
Function Call: WRITE	Prompt: !,I," ",ACDF(I) Line Location: F+9
Function Call: WRITE	Prompt: ! Line Location: F+11
Function Call: WRITE	Prompt: !!,"No data to update",! Line Location: F+20
Function Call: WRITE	Prompt: !!,"Now updating CDMIS files with imported data....." Line Location: F+21
Function Call: WRITE	Prompt: !!,"Now purging files and setting audit trail",! Line Location: F+22
Function Call: WRITE	Prompt: !!!?20,"Finished........." Line Location: F+28
Function Call: WRITE	Prompt: !,"Error code: ",Y," detected." Line Location: L1+1
Function Call: WRITE	Prompt: !!,"Now importing data from file: ",ACDFNA Line Location: IN+1
Function Call: WRITE	Prompt: !,"Not a Import file...I will skip it" Line Location: IN+10
Function Call: WRITE	Prompt: !,"FACILITY: ",ACDHEAD(2) Line Location: IN+11
Function Call: WRITE	Prompt: !!,"It appears that the data from this file has already been imported once.",! Line Location: IN+13
Function Call: WRITE	Prompt: !!,7,7,7,7," You are trying to import your own extract. NOT ALLOWED ." Line Location: IN+14
Function Call: WRITE	Prompt: !!,"OK,Headquarters is importing an archive created at Headquarters.",!! Line Location: IN+15
Function Call: READ	Timeout: DTIME,ACD(2):DTIME Variable: ACD(1) Line Location: IN+20
Function Call: WRITE	Prompt: "." Line Location: IN+28
Function Call: WRITE	Prompt: !,"Deleting ",ACDFNA," from your system now..." Line Location: PASS2+1
Function Call: WRITE	Prompt: !,"No Updating has occurred for this file." Line Location: PASS2+3
Routine Call	DIR Line Location: DIR+4 F+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACDV1TMP	DIR+13
^ACDVTMP(	DIR+16, DIR+17!
^ACDVTMP4(	IN+13, IN+18*
^AUTTSITE(1	DIR+1
^DIC(4 - [#4]	IN+14, IN+15

Label References

Name	Line Occurrences
K	DIR+5, DIR+10, DIR+13, DIR+16, DIR+21, F+5, F+13, F+29, L1+1
L1	F+19
PASS	IN+13, IN+14
PASS2	F+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DIR+21*
ACD	K+2!
ACD(	IN+25*
ACD(1	IN+20*, IN+21, IN+22, IN+27
ACD(2	IN+20*, IN+27
>> ACD6DIG	DIR+10, IN+14, IN+15
ACDBWP	K+2!
ACDCS	K+2!
ACDDA	K+2!
ACDDUZ	K+2!
ACDF	F+2!, F+3, K+2!
ACDF(	F+9, F+19
ACDF(0	F+4
ACDFILES	F+17!, K+1!
ACDFILES(	F+25, F+26, IN+30, IN+31
ACDFNA	F+19, F+24, F+25*, F+26, L1+1, IN+1, IN+30, IN+31, PASS2+1, PASS2+2 , XMD+1, K+2!
ACDHEAD	XMD+1, K+2!
ACDHEAD(	F+26, IN+2, IN+31
ACDHEAD(2	IN+11, IN+12, IN+14, IN+15
ACDHEAD(4	IN+6, IN+7*, IN+10, IN+12
ACDI	F+19*, K+2!
ACDIFC	F+18, F+20, IN+16, K+1!
ACDIIF	K+2!
ACDIOP	K+2!
>> ACDIR	DIR+6*, F+3, F+4, L1+1, PASS2+2
ACDLINE	K+2!
ACDLIST	F+14*, F+19, K+2!
ACDN	F+9*, F+10, K+2!
ACDNODE	IN+12*, IN+13, IN+18, K+2!
ACDOWN	F+19!, F+23!, IN+13, IN+14, PASS2+3
ACDPG	K+2!
ACDQUIT	IN+19~, IN+20, IN+21, IN+22*
ACDRNG	K+2!
ACDRUG	K+2!
ACDTDC	K+2!
ACDUSER	K+2!
ACDV	K+2!
DIR	DIR+4!, K+2!
DIR("A"	DIR+2, F+10
DIR("B"	DIR+1*
DIR(0	DIR+2, F+10
>> DIRUT	DIR+5, F+13
DTIME	IN+2, IN+20
DUZ(2	IN+14, IN+15
>> I	F+9, F+26, IN+2, IN+20, IN+28, IN+31*
>> IJ	IN+25*
IO	IN+2, IN+20
IO(0	IN+1, IN+10, IN+11, IN+13, IN+14, IN+28, PASS2+3
IOF	DIR+19
U	DIR+1, IN+10, IN+12, IN+14, IN+15
>> X	DIR+6
XACDLN	IN+6, IN+7, IN+25, K+2!
XMY	K+2!
>> Y	F+3, F+14, L1+1, PASS2+2*

Marked Items

Name	Field # of Occurrence
$T(OPEN^%ZISH	EN+4

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDVIMP

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items