Routine: ACDPIMP

Package	Total	Call Graph
Alcohol Chemical Dependency	3	EN^ACDPIMP1 EN^ACDPXMD 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 ^ACDPTMP
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+3, PASS+2
$$DEL^%ZISH	PASS+4
$$LIST^%ZISH	F+3
$$OPEN^%ZISH	L1+1
OPEN^%ZISH	EN+4
EN^ACDPIMP1	DIR+13, F+20
EN^ACDPXMD	XMD+1
ERROR^ACDWUTL	F+3, PASS+4
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 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 for update",! Line Location: F+19
Function Call: WRITE	Prompt: !!!!,"Now updating CDMIS files with imported data....." Line Location: F+20
Function Call: WRITE	Prompt: !!!!?20,"Finished........." Line Location: F+21
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 an Import file...I will skip it" Line Location: IN+3
Function Call: WRITE	Prompt: !,"FACILITY: ",ACDHEAD(2) Line Location: IN+4
Function Call: READ	Timeout: DTIME,ACD(2):DTIME Variable: ACD(1) Line Location: IN+7
Function Call: WRITE	Prompt: "." Line Location: IN+9
Function Call: WRITE	Prompt: !,"Deleting ",ACDFNA," from your system now..." Line Location: PASS+3
Function Call: WRITE	Prompt: !,"No Updating has occurred for this file." Line Location: PASS+5
Routine Call	DIR Line Location: DIR+4 F+12

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DIR+21*
%X	K+3!
%Y	K+3!
ACD	K+2!
ACD(1	IN+7*, IN+8
ACD(2	IN+7*, IN+8
>> ACD6DIG	DIR+10
ACDA	K+3!
ACDBWP	K+2!
ACDCS	K+2!
ACDDA	K+2!
ACDDUZ	K+2!
ACDF	F+2!, F+3, K+2!
ACDF(	F+9, F+18
ACDF(0	F+4
ACDFNA	F+18*, L1+1, IN+1, PASS+3, PASS+4, XMD+1, K+2!
ACDHEAD	XMD+1, K+2!
ACDHEAD(	IN+2*
ACDHEAD(2	IN+4, IN+5
ACDHEAD(4	IN+3, IN+5
ACDI	F+18*, K+2!
ACDIFC	F+17, F+19, IN+6, K+1!
ACDIIF	K+2!
ACDIOP	K+2!
ACDIR	DIR+6*, F+3, F+4, L1+1, PASS+4, K+3!
ACDLINE	K+2!
ACDLIST	F+14*, F+18, K+2!
ACDMSG	K+3!
ACDN	F+9*, F+10, K+2!
ACDNODE	IN+5*, K+2!
ACDOWN	F+18!, PASS+5
ACDPG	K+2!
ACDRNG	K+2!
ACDRUG	K+2!
ACDTDC	K+2!
ACDUSER	K+2!
ACDV	K+2!
DIC	K+3!
DIK	K+3!
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+7
>> I	F+9, IN+2
IO	IN+2, IN+7
IO(0	IN+1, IN+3, IN+4, IN+9, PASS+5
IOF	DIR+19
U	DIR+1, IN+3, IN+5
>> X	DIR+6
XMDUZ	K+3!
XMY	K+2!
XMZ	K+3!
>> Y	F+3, F+14, L1+1, PASS+4*

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDPIMP

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

Name	Line Occurrences
K	DIR+5, DIR+10, DIR+13, DIR+16, DIR+21, F+5, F+13, F+22, L1+1
L1	F+18

Name	Line Occurrences (* Changed, ! Killed)
^ACDP1TMP	DIR+13
^ACDPTMP	DIR+16, DIR+17!
^AUTTSITE(1	DIR+1