Routine: ACDCINV

Information

ACDCINV ;IHS/ADC/EDE/KML - DATA ENTER/EDIT FOR INTERVENTION;

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIE ^DIK
Alcohol Chemical Dependency	1	^ACDCINV2

Entry Points

Name	Comments	DBIA/ICR reference
EN1	;EP Edit for CDMIS interventions
K	;
EN	;EP Input for Interventions
DEL	;Delete incomplete/incorrect entries
EN3	;EP Delete a intervention entry - interactive

External References

Name	Field # of Occurrence
^ACDCINV2	EN+6
^DIC	EN3+7
YN^DICN	EN3+9
^DIE	EN1+7
^DIK	DEL+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U) Line Location: EN+3
Function Call: WRITE	Prompt: !,"Records that may be added are: THOSE WITHIN YOUR SIGNIN PROGRAM.",! Line Location: EN+4
Function Call: WRITE	Prompt: !,"ADDING CDMIS INTERVENTION RECORDS...",!! Line Location: EN+5
Function Call: WRITE	Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U) Line Location: EN1+3
Function Call: WRITE	Prompt: !,"Editable Records are: THOSE NOT EXTRACTED." Line Location: EN1+4
Function Call: WRITE	Prompt: !," THOSE WITHIN YOUR SIGNIN PROGRAM.",! Line Location: EN1+5
Function Call: WRITE	Prompt: !,"EDITING CDMIS INTERVENTION RECORDS...",!! Line Location: EN1+6
Function Call: WRITE	Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U) Line Location: EN3+2
Function Call: WRITE	Prompt: !,"Prevention records to Delete are: THOSE NOT EXTRACTED." Line Location: EN3+3
Function Call: WRITE	Prompt: !," THOSE WITHIN YOUR SIGNIN PROGRAM.",! Line Location: EN3+4
Function Call: WRITE	Prompt: !,"DELETING CDMIS INTERVENTION RECORDS...",!! Line Location: EN3+5
Function Call: WRITE	Prompt: !,ACD80 Line Location: EN3+8
Function Call: WRITE	Prompt: !,"Are You Sure You wish to DELETE this ENTRY" Line Location: EN3+9
Function Call: WRITE	Prompt: " Answer Yes or No" Condition for execution: %=0 Line Location: EN3+9
Function Call: WRITE	Prompt: " No action taken...." Line Location: EN3+10
Function Call: WRITE	Prompt: !!!,ACDH(1) Line Location: DEL+2
Function Call: WRITE	Prompt: !," INCOMPLETE or INCORRECT INTERVENTION deleted. ",!,ACDH(1) Line Location: DEL+3
Function Call: WRITE	Prompt: !!?4,"Intervention Deletion Complete...." Line Location: DEL+4
Routine Call	DIE Line Location: EN1+7
Routine Call	DIC Line Location: EN3+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACDF5PI - [#9002173]	Classic Fileman Calls
^ACDINTV - [#9002173.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	EN+3, EN1+3, EN3+2

Label References

Name	Line Occurrences
DEL	EN3+9
K	EN3+7, EN3+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN3+9*
ACD80	EN3+8*, K+1!
ACDAGE	K+1!
ACDATSN	K+1!
ACDCAGE	K+1!
ACDCOMC	K+1!
ACDDA	K+1!
ACDDFNP	K+1!
ACDDOV	K+1!
ACDDR	K+1!
>> ACDDUZ(2	EN1+2*, EN1+7
ACDDUZZ	EN+2*, K+1!
>> ACDH(1	EN3+7, DEL+2, DEL+3
ACDHS	K+1!
ACDIO	K+1!
ACDLINE	K+1!
ACDN0	K+1!
ACDOK	K+1!
ACDRPC	K+1!
ACDSEX	K+1!
ACDSTA	K+1!
ACDSTACD	K+1!
ACDSTANM	K+1!
ACDTOUT	K+1!
ACDTRB	K+1!
ACDTRBCD	K+1!
ACDTRBN	K+1!
ACDTRBNM	K+1!
ACDVET	K+1!
>> ACDVISP	EN3+7*, DEL+1, DEL+3
ACDX	K+1!
DA	EN1+7, DEL+3, K+1!
DIC	EN3+7*, K+1!
DIC("S"	EN3+6*
DIC(0	EN3+7*
DIE	EN1+7*, K+1!
>> DIK	DEL+3*
DR	EN1+7*, K+1!
DUZ(2	EN+2, EN+3, EN1+2, EN1+3, EN1+7*, EN3+2
IOF	EN+3, EN1+3, EN3+2
U	EN+3, EN1+3, EN3+2
>> Y	EN3+7

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDCINV

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: