Routine: ACDVSAVE

Package	Total	Call Graph
Alcohol Chemical Dependency	10	EN^ACDCLN PAUSE^ACDDEU DIE^ACDFMC $$DD^ACDFUNC (EN,EN1)^ACDGLOCK ^ACDGX5 EN1^ACDV4MES (CLN,V)^ACDVSAV2 ^ACDVSRV0 D^ACDWRQ
VA Fileman	2	C^%DTC YN^DICN

Package

Total

Call Graph

EN^ACDCLN PAUSE^ACDDEU DIE^ACDFMC $$DD^ACDFUNC (EN,EN1)^ACDGLOCK ^ACDGX5 EN1^ACDV4MES (CLN,V)^ACDVSAV2
^ACDVSRV0 D^ACDWRQ

VA Fileman

C^%DTC YN^DICN

Entry Points

Name	Comments	DBIA/ICR reference
CLN	;Make pass to clean incomplete entries
EN	;EP
D	;Ask start/stop date
P	;Bld node
TDC	;Bld node
K	;
L	;Get visit link file
VIS	;Get visits
IIF	;Bld node
T	;Ask transmission mode ; commented out net mail option per Wilbur Woodis
V	;V node
CS	;Bld node

External References

Name	Field # of Occurrence
C^%DTC	T+13
EN^ACDCLN	T+10
PAUSE^ACDDEU	VIS+17
DIE^ACDFMC	IIF+7, TDC+7, CS+5, P+9
$$DD^ACDFUNC	D+4
EN^ACDGLOCK	EN+3
EN1^ACDGLOCK	K+2
^ACDGX5	VIS+10
EN1^ACDV4MES	EN+14
CLN^ACDVSAV2	CLN+1
V^ACDVSAV2	V+1
^ACDVSRV0	VIS+12
D^ACDWRQ	D+1
YN^DICN	T+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,7,7,"Data still exists in the ^ACDV1TMP global due to a",!,"CORRUPT LOCATION FILE. * I MUST STOP *" Line Location: EN+6
Function Call: WRITE	Prompt: !!,7,7,"An extract is presently running." Line Location: EN+9
Function Call: WRITE	Prompt: !!,7,7,"Once a CDMIS DATA RECORD is extracted,",!,"the record may NOT be 'DELETED' or 'EDITED'." Line Location: EN+12
Function Call: WRITE	Prompt: !!,"OK, Headquarters is Archiving",!!,"Be sure to delete the data when the archive is finished." Line Location: EN+15
Function Call: WRITE	Prompt: !!,"Extracting all CDMIS visit/prevention data",!,"from: ",$$DD^ACDFUNC(ACDFR)," through: ",$$DD^ACDFUNC(ACDTO) Line Location: D+4
Function Call: WRITE	Prompt: !!,7,7,"You must set domains to send extracted data to." Line Location: T+4
Function Call: WRITE	Prompt: !!,7,7,"No domains are defined to send the extraction data to.",!,"I cannot continue because of this." Line Location: T+5
Function Call: WRITE	Prompt: !!,"OK to continue" Line Location: T+7
Function Call: WRITE	Prompt: " Answer Yes or No" Condition for execution: %=0 Line Location: T+7
Function Call: WRITE	Prompt: !!,"Looking for visit data to extract....." Line Location: T+15
Function Call: WRITE	Prompt: "." Line Location: VIS+1
Function Call: WRITE	Prompt: !!,"Looking for prevention data to extract....." Line Location: VIS+5
Function Call: WRITE	Prompt: !!,"No new data found." Line Location: VIS+9
Function Call: WRITE	Prompt: !!,"Now deleting the ^ACDVTMP global....." Line Location: VIS+14
Function Call: WRITE	Prompt: !,"CDMIS data extraction successfully completed." Line Location: VIS+16
Function Call: WRITE	Prompt: "." Line Location: P+10

FileNo	Call Tags
^ACDIIF - [#9002170]	Classic Fileman Calls
^ACDPD - [#9002170.7]	Classic Fileman Calls
^ACDTDC - [#9002171]	Classic Fileman Calls
^ACDCS - [#9002172]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACDCS - [#9002172]	L+3, CS+1, CS+3
^ACDCS("C"	L+3
^ACDIIF - [#9002170]	L+1, IIF+1, IIF+3, IIF+5, IIF+6
^ACDIIF("C"	L+1
^ACDPD - [#9002170.7]	VIS+6, P+1, P+6, P+8
^ACDPD("B"	VIS+6
^ACDTDC - [#9002171]	L+2, TDC+1, TDC+3, TDC+5, TDC+6
^ACDTDC("C"	L+2
^ACDV1TMP	EN+6
^ACDVIS("B"	VIS+1
^ACDVTMP(	EN+9, EN+10!, VIS+9, VIS+15!, IIF+2, IIF+4, IIF+5, IIF+6, TDC+2, TDC+4 , TDC+5, TDC+6, CS+2, CS+4, P+7, P+8*
^ACDVTMP(0	VIS+10*
^AUTTLOC - [#9999999.06]	P+4, P+5
^AUTTSITE(1	P+5

Name	Line Occurrences
CLN	VIS+2
CS	L+3
IIF	L+1
K	EN+6, EN+9, D+1, T+7, VIS+9, VIS+18
L	VIS+1
P	VIS+6
TDC	L+2
V	VIS+1

Name	Field # of Occurrence
^(	IIF+5, IIF+6, TDC+5, TDC+6, P+8
^(0	VIS+10*, IIF+5, IIF+6, TDC+5, TDC+6, P+8

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	T+7*
ACD	VIS+1, VIS+6, K+4!
ACD("CS"	CS+3*, CS+4
ACD("IIF"	IIF+3*, IIF+4
ACD("P"	P+1, P+2, P+4, P+7, P+8
ACD("TDC"	TDC+3*, TDC+4
>> ACD6DIG	EN+15
ACD6PGM	P+4*, P+5, K+4!
>> ACDAY	P+8*
ACDBWP	P+4*, K+4!
ACDDA	L+1, L+2, L+3*, IIF+1, IIF+3, IIF+4, IIF+5, IIF+6, IIF+7, TDC+1 , TDC+3, TDC+4, TDC+5, TDC+6, TDC+7, CS+1, CS+3, CS+4, CS+5, K+4!
ACDDRUG	K+4!
ACDDTF	D+2*, VIS+10, K+3!
ACDDTT	D+2*, VIS+10, K+3!
ACDFR	D+2, D+4, T+13*, VIS+1, VIS+6, K+4!
>> ACDMAIL	VIS+10, VIS+12
>> ACDPGM	P+2
ACDPOINT	IIF+5, IIF+6, TDC+5, TDC+6, K+4!
ACDQUIT	D+1!
ACDRUG	IIF+5, TDC+5, K+4!
ACDSCND	IIF+6, TDC+6, K+5!
ACDTIME	K+4!
ACDTO	D+2, D+4, VIS+1, VIS+6, K+4!
ACDUSER	IIF+2, IIF+4, IIF+5, IIF+6, TDC+2, TDC+4, TDC+5, TDC+6, CS+2, CS+4 , P+5*, P+7, P+8, K+4!
ACDV	VIS+1, VIS+6, L+1, L+2, L+3, IIF+2, IIF+4, IIF+5, IIF+6, TDC+2 , TDC+4, TDC+5, TDC+6, CS+2, CS+4, P+1, P+6, P+7, P+8, P+9 , K+4!
>> ACDVHIT	VIS+1
>> DA	IIF+7, TDC+7, CS+5, P+9
>> DIE	IIF+7, TDC+7, CS+5, P+9
>> DR	IIF+7, TDC+7, CS+5, P+9
U	VIS+10, IIF+1, TDC+1, CS+1, P+2, P+4, P+5, P+6
>> X	T+13
>> X1	T+13*
>> X2	T+13*
>> XBGL	VIS+10*

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDVSAVE

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: