Routine: ACDPDA

Package	Total	Call Graph
VA Fileman	5	^DIC YN^DICN ^DIE ^DIK ^DIR
Alcohol Chemical Dependency	2	PAUSE^ACDDEU (DIE,DIQ,FILE)^ACDFMC

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Add prevention days
PV	;
K	;
CHK	;Check for valid entry
CHK2	;Allow display/edit
EN1	;ASK DAYS OVER AND OVER
EN2	;EP Edit Prevention days
EN3	;EP Delete a prevention entry - interactive
DEL	;Delete incomplete/incorrect entries

External References

Name	Field # of Occurrence
PAUSE^ACDDEU	CHK2+7
DIE^ACDFMC	PV+4, CHK2+10
DIQ^ACDFMC	CHK2+7
FILE^ACDFMC	EN1+17
^DIC	EN3+7
YN^DICN	EN3+9
^DIE	EN+7, EN2+6
^DIK	DEL+3
^DIR	EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, CHK2+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U) Line Location: EN+2
Function Call: WRITE	Prompt: !,"Records that may be added are: THOSE WITHIN YOUR SIGNIN PROGRAM.",! Line Location: EN+3
Function Call: WRITE	Prompt: !,"ADDING CDMIS PREVENTION RECORDS...",!! Line Location: EN+4
Function Call: WRITE	Prompt: !,"Day entry filed......" Line Location: PV+6
Function Call: WRITE	Prompt: !! Line Location: PV+7
Function Call: WRITE	Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U) Line Location: EN2+2
Function Call: WRITE	Prompt: !,"Editable Records are: THOSE NOT EXTRACTED." Line Location: EN2+3
Function Call: WRITE	Prompt: !," THOSE WITHIN YOUR SIGNIN PROGRAM.",! Line Location: EN2+4
Function Call: WRITE	Prompt: !,"EDITING CDMIS PREVENTION RECORDS...",!! Line Location: EN2+5
Function Call: WRITE	Prompt: !!,"You may now display or edit the CDMIS PREVENTION record just created or edited." Line Location: CHK2+2
Function Call: WRITE	Prompt: ! Line Location: CHK2+6
Function Call: WRITE	Prompt: !!!,ACDH(1) Line Location: DEL+2
Function Call: WRITE	Prompt: !," INCOMPLETE or INCORRECT PREVENTION LINK deleted from prevention file. **",!,ACDH(1) Line Location: DEL+3
Function Call: WRITE	Prompt: !!?4,"Prevention Deletion Complete...." Line Location: DEL+4
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 PREVENTION 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
Routine Call	DIE Line Location: EN+7 EN2+6
Routine Call	DIC Line Location: EN3+7
Routine Call	DIR Line Location: EN1+2 EN1+3 EN1+4 EN1+5 EN1+6 EN1+7 EN1+8 CHK2+3

FileNo	Call Tags
^ACDPD - [#9002170.7]	Classic Fileman Calls
^ACDF5PI - [#9002173]	Classic Fileman Calls

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

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN3+9*
ACD80	EN3+8*, K+1!
ACDAY	K+1!
ACDH	K+1!
ACDH(1	DEL+2, DEL+3, EN3+7
ACDLP	EN1+9*, K+1!
ACDM	EN1+1!, CHK+5, K+1!
ACDM(	EN1+9
ACDM(1	EN1+2*, EN1+14
ACDM(2	EN1+3*, EN1+15
ACDM(3	EN1+4*, EN1+15
ACDM(4	EN1+5*, EN1+15
ACDM(5	EN1+6*, EN1+15
ACDM(6	EN1+7*, EN1+15
ACDM(7	EN1+8*, EN1+15
>> ACDQ	CHK+3, CHK+4, CHK2+1, CHK2+7, CHK2+11
ACDVISP	EN+5!, EN+7, EN1+11, PV+2, CHK+1, CHK+2, CHK+3, CHK2+7, CHK2+9, DEL+1 , DEL+3, EN3+7*
>> ACDY	CHK2+4*, CHK2+5, CHK2+7
DA	EN+7!, PV+4, EN2+6, CHK2+3!, CHK2+7, CHK2+9, DEL+3, K+1!
DA(1	EN1+11, EN1+12, PV+2, PV+3
DIC	EN+7!, EN1+12, EN1+13, CHK2+7, EN3+7*, K+1!
DIC("DR"	EN+5, EN1+15
DIC("S"	EN3+6*
DIC(0	EN1+16, EN3+7
DIE	EN+6, EN+7!, EN1+12, PV+3, EN2+6, CHK2+9*, K+1!
DIE("NO^"	EN+7, PV+4
DIK	DEL+3*, K+1!
DIR	EN1+2!, EN1+3!, EN1+4!, EN1+5!, EN1+6!, EN1+7!, EN1+8!, CHK2+3!
DIR("B"	CHK2+3*
DIR(0	EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, CHK2+3
DR	EN+7!, PV+4, EN2+6, CHK2+7!, CHK2+9, K+1!
DTOUT	EN+7!, EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8
DUZ(2	EN+2, EN+7, EN2+2, EN2+6, EN3+2
IOF	EN+2, EN2+2, EN3+2
U	EN+2, EN2+2, EN3+2
X	EN1+1!, EN1+2!, EN1+3!, EN1+4!, EN1+5!, EN1+6!, EN1+7!, EN1+8!, EN1+14*
Y	EN1+2!, EN1+3!, EN1+4!, EN1+5!, EN1+6!, EN1+7!, EN1+8!, PV+4, CHK2+4, EN3+7

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDPDA

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
CHK	EN+7, EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, EN1+9, EN2+8
CHK2	CHK+3
DEL	CHK+2, EN3+9
EN1	PV+7
K	EN+7, EN1+9, PV+6, CHK+5, EN3+7, EN3+9