Routine: ACDAUTO

Package	Total	Call Graph
Alcohol Chemical Dependency	2	(DSPHIST,GETVSITS,PAUSE)^ACDDEU (DIE,FILE)^ACDFMC
VA Fileman	2	IX1^DIK ^DIR

Package	Total	Caller Graph
Alcohol Chemical Dependency	2	ACDDE ACDDIC

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP
FILEV	;File visit into ^ACDVIS
K	;
EN1	;
IIF	;
FILEIIF	;File entry into ^ACDIIF

External References

Name	Field # of Occurrence
DSPHIST^ACDDEU	EN1+16, EN1+17
GETVSITS^ACDDEU	EN1+16, EN1+17
PAUSE^ACDDEU	EN1+16, EN1+17
DIE^ACDFMC	FILEV+4
FILE^ACDFMC	FILEV+1, FILEIIF+1, FILEIIF+8
IX1^DIK	FILEV+5, FILEIIF+9
^DIR	EN1+2, EN1+7, EN1+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,ACDLINE,!,7,7,*7,"Since you have created a new Transfer/Discharge/Close visit, I can now" Line Location: EN+5
Function Call: WRITE	Prompt: !,"automatically create an Initial or Re-open visit for you with a new" Line Location: EN+6
Function Call: WRITE	Prompt: !,"component code/type that you select." Line Location: EN+7
Function Call: WRITE	Prompt: !!,"If you plan to provide future services after discharge you should create an" Line Location: EN+8
Function Call: WRITE	Prompt: !,"Initial for the AFTCARE component." Line Location: EN+9
Function Call: WRITE	Prompt: !,ACDLINE Line Location: EN+10
Function Call: WRITE	Prompt: !!,"OK, no new visit created..." Line Location: EN1+4
Function Call: WRITE	Prompt: !!!,7,7,"An INITIAL visit already exists for this component code.",!,"No new visit created. You may try again." Line Location: EN1+16
Function Call: WRITE	Prompt: !!!,7,7,"No INITIAL visit exists for this component code.",!,"No new visit created. You may try again." Line Location: EN1+17
Function Call: WRITE	Prompt: !!,"Filing new entry now...." Line Location: EN1+18
Function Call: WRITE	Prompt: !!,"Finished auto creation..." Line Location: FILEIIF+11
Routine Call	DIR Line Location: EN1+2 EN1+7 EN1+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACDIIF - [#9002170]	Classic Fileman Calls
^ACDVIS - [#9002172.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACDIIF - [#9002170]	FILEIIF+2*
^ACDTDC - [#9002171]	IIF+2, FILEIIF+6, FILEIIF+7
^ACDTDC("C"	IIF+1
^ACDVIS - [#9002172.1]	EN1+15, EN1+19, EN1+23, FILEV+2*
^ACDVIS("D"	EN1+15

Label References

Name	Line Occurrences
EN1	EN1+16, EN1+17
K	EN1+4, EN1+7, EN1+11, EN1+16, EN1+17

Naked Globals

Name	Field # of Occurrence
^(	FILEIIF+6
^("BWP"	EN1+15, FILEIIF+2*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACD("IIF"	IIF+4, IIF+5, IIF+6, IIF+7, IIF+8, IIF+9, IIF+10, IIF+11, IIF+12, IIF+13 , IIF+14, IIF+15, IIF+16, IIF+17, IIF+18, IIF+19, IIF+20*, FILEIIF+1, FILEIIF+2
>> ACD("TDC"	IIF+2*, IIF+4, IIF+5, IIF+6, IIF+7, IIF+8, IIF+9, IIF+10, IIF+11, IIF+12 , IIF+13, IIF+14, IIF+15, IIF+16, IIF+17, IIF+18, IIF+19, IIF+20
>> ACD("V"	EN1+19, EN1+20, EN1+21, EN1+22, FILEV+1, FILEV+2
>> ACDBWP	FILEV+3*, FILEV+4, FILEV+5, FILEIIF+2, FILEIIF+5
ACDCOMC	EN1+8*, EN1+15, EN1+21, K+1!
ACDCOMT	EN1+12*, EN1+22, K+1!
ACDCONT	EN1+3*, EN1+16, EN1+17, EN1+20, K+1!
ACDDA	EN1+15, IIF+1, IIF+2, FILEIIF+6, FILEIIF+7, K+1!
>> ACDDFNP	EN1+15, FILEIIF+5, FILEIIF+10
>> ACDFHCP	FILEIIF+5, FILEIIF+10
>> ACDFPCC	FILEIIF+5, FILEIIF+10
ACDIIF	FILEIIF+3*, FILEIIF+5, FILEIIF+8, FILEIIF+9, FILEIIF+10, K+1!
ACDLINE	EN+4*, EN+5, EN+10, K+1!
ACDMLEV	FILEIIF+6*, FILEIIF+7, K+1!
ACDMULT	FILEIIF+6*, FILEIIF+7, FILEIIF+8, K+1!
>> ACDN0	EN1+15*
>> ACDPCCL(	FILEIIF+5, FILEIIF+10
>> ACDPGM	EN1+15
ACDPNTR	FILEIIF+6*, FILEIIF+8, K+1!
>> ACDVISP	EN+3, EN1+15, EN1+19, EN1+23, IIF+1, FILEIIF+10
>> ACDVPGM	EN1+23*, FILEV+4
>> DA	EN1+15, FILEV+4, FILEV+5, FILEIIF+9
>> DA(1	FILEIIF+8*
>> DIC	FILEV+1, FILEIIF+1, FILEIIF+8*
>> DIC("DR"	FILEIIF+7*
>> DIC(0	FILEV+1, FILEIIF+1, FILEIIF+8*
>> DIE	FILEV+4*
>> DIK	FILEV+5, FILEIIF+9
DIR	EN1+7!, EN1+11!
DIR("A"	EN1+1*
DIR(0	EN1+2, EN1+7, EN1+11*
>> DR	FILEV+4*
>> DTOUT	EN1+4, EN1+7, EN1+11
DUZ	FILEV+4
IOF	EN+5
U	EN1+15, EN1+20, EN1+21, EN1+22, FILEV+1, IIF+4, IIF+5, IIF+6, IIF+7, IIF+8 , IIF+9, IIF+10, IIF+11, IIF+12, IIF+13, IIF+14, IIF+15, IIF+16, IIF+17, IIF+18 , IIF+19, IIF+20, FILEIIF+1, FILEIIF+7
X	EN1+4, EN1+7!, EN1+11!, FILEV+1, FILEIIF+1, FILEIIF+8*
Y	EN1+3, EN1+4, EN1+7!, EN1+8, EN1+11!, EN1+12, EN1+15*, EN1+16, EN1+17, FILEV+2 , FILEV+3, FILEIIF+2, FILEIIF+3

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDAUTO

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: