Routine: ACDAUTO1

Package	Total	Call Graph
VA Fileman	4	%XY^%RCR ^DIC IX1^DIK ^DIR
Alcohol Chemical Dependency	3	MODV^ACDAUTO3 GETVSITS^ACDDEU (DIE,FILE)^ACDFMC

Package	Total	Caller Graph
Alcohol Chemical Dependency	2	ACDDE ACDDIC

Entry Points

Name	Comments	DBIA/ICR reference
CS	;Begin auto creation of entries in ^ACDCS
EN	;EP Ask for clients to auto create 'CS' for
MODV	; MODIFY DEMOGRAPHIC PORTION OF VISIT JUST GENERATED
GENV	; GENERATE VISIT NODE
K	;
EN1	;Begin auto creation process of entries in ^ACDVIS
DUPV	; DUPLICATE CS VISIT
CHKCSV	; SEE IF CS VISIT EXISTS
GENCSV	; AUTODUPLICATE CS VISIT
MAIN	;
DIR	;Ask for patients Category or Selected patients

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,ACDLINE,! Line Location: MAIN+7
Function Call: WRITE	Prompt: "Since you have created a new Client Service visit, I can now",! Line Location: MAIN+9
Function Call: WRITE	Prompt: "automatically create an exact duplicate of it for you with",! Line Location: MAIN+10
Function Call: WRITE	Prompt: "the visit and 'ALL' attached client service days but for",! Line Location: MAIN+11
Function Call: WRITE	Prompt: "different patients you select.",! Line Location: MAIN+12
Function Call: WRITE	Prompt: "Since you have added client service days to a Client Service",! Line Location: MAIN+15
Function Call: WRITE	Prompt: "visit I can now automatically duplicate the client service days",! Line Location: MAIN+16
Function Call: WRITE	Prompt: "for different patients you select.",! Line Location: MAIN+17
Function Call: WRITE	Prompt: ACDLINE,! Line Location: MAIN+19
Function Call: WRITE	Prompt: ! Line Location: DIR+3
Function Call: WRITE	Prompt: !!,"Auto creating visit nodes for:",!! Line Location: EN1+2
Function Call: WRITE	Prompt: $P(^DPT(ACDDFNP,0),U),! Line Location: EN1+5
Function Call: WRITE	Prompt: !!,"Auto creating Client Service nodes now for:" Line Location: CS+2
Function Call: WRITE	Prompt: ?35,"Client service day: ",ACDUPDT," being auto-created.",! Line Location: CS+28
Function Call: WRITE	Prompt: !!!,"Finished auto-creating.",! Line Location: CS+29
Routine Call	DIC Line Location: DIR+7
Routine Call	DIR Line Location: DIR+1

FileNo	Call Tags
^ACDCS - [#9002172]	Classic Fileman Calls
^ACDVIS - [#9002172.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACDCS - [#9002172]	CS+9
^ACDPAT - [#9002172.8]	DIR+9
^ACDVIS - [#9002172.1]	MAIN+3, CHKCSV+5, GENV+1
^DPT - [#2]	EN1+5, CS+5
^TMP("ACD"	CHKCSV+4

Name	Field # of Occurrence
^(	DIR+9

Name	Field # of Occurrence
>> %X	DUPV+2, CS+17
>> %Y	DUPV+3, CS+18
ACDA	DIR+9*, K+1!
ACDCATP	DIR+9*, K+1!
>> ACDCOMC	CHKCSV+6
>> ACDCOMT	CHKCSV+6
>> ACDCS(	CS+6
ACDCSORI	CS+6*, CS+9, CS+17, K+1!
>> ACDDECSN	MAIN+8
>> ACDDFNP	EN1+3, EN1+4, EN1+5, EN1+7, GENCSV+5, GENV+6, DUPV+3, CS+3, CS+4, CS+5 , CS+14
>> ACDFHCP	CS+14
>> ACDFPCC	CS+14
ACDLINE	MAIN+5*, MAIN+7, MAIN+19, K+1!
ACDNEWCS	CS+12*, CS+14, CS+18, CS+23, CS+28, K+1!
>> ACDOPAT	MAIN+3*, EN1+4, CS+4
>> ACDPCCL(	CS+14*
ACDPT1	DIR+6!, K+1!
ACDPT1(	DIR+9, EN1+3, EN1+7, GENCSV+5, GENV+6*, DUPV+3, CS+3, CS+14
ACDPT1(0	EN1+1
>> ACDQ	CHKCSV+4, CHKCSV+6, CHKCSV+8
ACDQUIT	MAIN+1!, DIR+1*, DIR+2
ACDUPDT	CS+9*, CS+28, K+1!
>> ACDVDTI	CHKCSV+4
>> ACDVIEN	EN1+7, CHKCSV+1, CHKCSV+9
>> ACDVISP	MAIN+2, MAIN+3, GENV+1, DUPV+2
ACDXXX	K+1!
>> ACDY	CHKCSV+3, CHKCSV+4, CHKCSV+5, CHKCSV+9
>> DA	GENCSV+5, CS+23, CS+28*
>> DIC	DIR+7, GENV+2, CS+10*
>> DIC("S"	DIR+7*
>> DIC(0	DIR+7, GENV+3, CS+11*
>> DIE	CS+22*
>> DIK	GENCSV+6, CS+28
>> DIR("A"	DIR+1*
>> DIR(0	DIR+1*
>> DR	CS+24*
>> DTOUT	DIR+1
U	MAIN+3, EN1+5, CHKCSV+6, GENV+1, CS+5, CS+9
>> X	DIR+1, CHKCSV+5, CHKCSV+6, GENV+1, CS+9*
>> Y	DIR+8, DIR+9, GENV+6, CS+12