Routine: ACDRESET

Package	Total	Call Graph
Alcohol Chemical Dependency	3	DIE^ACDFMC $$DD^ACDFUNC D^ACDWRQ
VA Fileman	2	^DIC YN^DICN

Package

Total

Call Graph

^DIC YN^DICN

Name	Comments	DBIA/ICR reference
EN1	;
K	;
EN	;EP
PRV	;

Name	Field # of Occurrence
DIE^ACDFMC	EN1+20, EN1+21, EN1+22, EN1+23, PRV+5
$$DD^ACDFUNC	EN1+11, EN1+12
D^ACDWRQ	EN1+9
^DIC	EN1+6
YN^DICN	EN1+2, EN1+14

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,@IOF,"I will reset all CDMIS extract flags between the to: and from:",!,"dates you give me. Once the extract flags are reset for the records, the",!,"records may be re-extracted for transmission to the AREA or HQ." Line Location: EN+1
Function Call: WRITE	Prompt: !!,7,7,"WARNING.....",!,"THIS MAY CAUSE DUPLICATED ENTRIES IN THE AREA/HQ MACHINE..",!,"COORDINATE THE EXTRACT RESET WITH THE AREA/HEADQUARTERS.." Line Location: EN+2
Function Call: WRITE	Prompt: !!,"Answer yes to reset extract flags for 'ALL' programs." Line Location: EN1+3
Function Call: WRITE	Prompt: !,"If you answer yes, I will show you a list of programs found." Line Location: EN1+4
Function Call: WRITE	Prompt: !,"Answer no, and you may then select individual programs." Line Location: EN1+5
Function Call: WRITE	Prompt: !!!,"Resetting Extract flags for all CDMIS visit/prevention data" Line Location: EN1+10
Function Call: WRITE	Prompt: !!,"from: ",$$DD^ACDFUNC(ACDFR)," through: " Line Location: EN1+11
Function Call: WRITE	Prompt: $$DD^ACDFUNC(ACDTO),!!,"for Program(s): " Line Location: EN1+12
Function Call: WRITE	Prompt: !,$P(^DIC(4,DA,0),U) Line Location: EN1+13
Function Call: WRITE	Prompt: !!,"OK to continue" Line Location: EN1+14
Function Call: WRITE	Prompt: " Answer Yes or No" Condition for execution: %=0 Line Location: EN1+14
Function Call: WRITE	Prompt: !!,"Extract flags being re-initialized for VISIT DATA" Line Location: EN1+15
Function Call: WRITE	Prompt: "." Line Location: EN1+16
Function Call: WRITE	Prompt: !!,"Extract flags being re-initialized for PREVENTION DATA" Line Location: PRV+1
Function Call: WRITE	Prompt: "." Line Location: PRV+5
Routine Call	DIC Line Location: EN1+6

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

Name	Line Occurrences (* Changed, ! Killed)
^ACDCS("C"	EN1+23
^ACDIIF("C"	EN1+21
^ACDPD - [#9002170.7]	PRV+3, PRV+4
^ACDPD("B"	PRV+2
^ACDTDC("C"	EN1+22
^ACDVIS - [#9002172.1]	EN1+17, EN1+18, EN1+19
^ACDVIS("B"	EN1+16
^ACDVIS("C"	EN1+2
^DIC(4 - [#4]	EN1+13

Name	Line Occurrences
EN1	EN1+5
K	EN1+7, EN1+9, EN1+14

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+14, K+1!
ACD	EN1+16, PRV+2, K+1!
>> ACDBWP	PRV+4*
ACDDA	EN1+2, EN1+21, EN1+22, EN1+23, K+1!
ACDFR	EN1+11, EN1+16, PRV+2, K+1!
ACDPGM	EN1+1!, K+1!
ACDPGM(	EN1+2, EN1+6, EN1+13, EN1+19, PRV+4
ACDPGM(0	EN1+7
ACDQUIT	EN1+9!
ACDTO	EN1+12, EN1+16, PRV+2, K+1!
ACDV	EN1+16, EN1+17, EN1+18, EN1+19, EN1+20, EN1+21, EN1+22, EN1+23, PRV+2, PRV+3 , PRV+4, PRV+5, K+1!
DA	EN1+13, EN1+20, EN1+21, EN1+22, EN1+23, PRV+5, K+1!
>> DIC	EN1+6*
>> DIC("A"	EN1+6*
>> DIC(0	EN1+6*
DIE	EN1+20, EN1+21, EN1+22, EN1+23, PRV+5*, K+1!
DR	EN1+20, EN1+21, EN1+22, EN1+23, PRV+5*, K+1!
IOF	EN+1
U	EN1+13, PRV+4
X	K+1!
Y	EN1+6, K+1!

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDRESET

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: