Routine: ACDCSD

Package	Total	Call Graph
Alcohol Chemical Dependency	4	(,GETDEMO)^ACDDEGP (CHKFIN,GETVSITS,PAUSE)^ACDDEU (DIC,DIE,DIQ,FILE)^ACDFMC ^ACDKILL
VA Fileman	3	^DIC Y^DIQ ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PATED	; SELECT AN EXISTING PATIENT TO EDIT
EDIT	; EDIT AN EXISTING PATIENT
FIXCAT	; FIX OLD CATEGORY. IT MUST HAVE COMC/COMT
START	;
INIT	;
GETPATS	; GET PATIENTS
GETCAT	; GET CLIENT CATEGORY
EOJ	;
MAIN	;

External References

Name	Field # of Occurrence
^ACDDEGP	GETPATS+3
GETDEMO^ACDDEGP	PATED+6
CHKFIN^ACDDEU	FIXCAT+15, GETPATS+9
GETVSITS^ACDDEU	GETPATS+5
PAUSE^ACDDEU	GETCAT+12
DIC^ACDFMC	GETCAT+2
DIE^ACDFMC	GETCAT+6, FIXCAT+5, EDIT+6
DIQ^ACDFMC	GETCAT+12
FILE^ACDFMC	GETPATS+17
^ACDKILL	EOJ+2
^DIC	PATED+2
Y^DIQ	GETCAT+9, GETCAT+10, FIXCAT+8, FIXCAT+9
^DIR	MAIN+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U) Line Location: INIT+13
Function Call: WRITE	Prompt: !,"Adding/editing client categories for auto cs duplication",! Line Location: INIT+14
Function Call: WRITE	Prompt: !!,"WARNING - All patients must have an initial type contact for the",!,ACDCOMCL,"/",ACDCOMTL," component prior to using this client category,",! Line Location: FIXCAT+17
Function Call: WRITE	Prompt: !,"Creation of CLIENT entry failed. Notify programmer.",!! Line Location: GETPATS+18
Function Call: WRITE	Prompt: ! Line Location: PATED+1
Function Call: WRITE	Prompt: !," Patient demographic information set from Patient Registration data." Line Location: EDIT+7
Routine Call	DIC Line Location: PATED+2
Routine Call	DIR Line Location: MAIN+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACDPAT - [#9002172.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	INIT+7
^%ZIS(2 - [#3.2]	INIT+7
^%ZOSF("$ZE"	GETPATS+18
^%ZOSF("ERRTN"	GETPATS+18
^ACDF5PI - [#9002173]	INIT+4
^ACDPAT - [#9002172.8]	GETCAT+8, GETCAT+12, FIXCAT+6, FIXCAT+11, GETPATS+6
^DD(9002172.8	GETCAT+9, GETCAT+10, FIXCAT+8, FIXCAT+9, GETPATS+13
^DIC(4 - [#4]	INIT+13
^DPT - [#2]	FIXCAT+12, PATED+5
^TMP("ACD"	INIT+11!
^TMP($J	INIT+11!

Label References

Name	Line Occurrences
@(	GETPATS+18
EDIT	GETPATS+6, GETPATS+20, PATED+7
EOJ	START+2
FIXCAT	GETCAT+11
GETCAT	MAIN+3
GETPATS	MAIN+9
INIT	MAIN+1
MAIN	START+1
PATED	GETPATS+2

Naked Globals

Name	Field # of Occurrence
^(	FIXCAT+11
^("$ZE"	GETPATS+18
^(0	GETCAT+8, FIXCAT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACDAE	MAIN+8*, GETPATS+2
>> ACDAGE	EDIT+5
>> ACDAGER	EDIT+5
>> ACDCC	GETCAT+4*, GETCAT+8, GETCAT+12, FIXCAT+3, FIXCAT+6, FIXCAT+11, GETPATS+6, GETPATS+11, GETPATS+14, EDIT+1 , EDIT+2
>> ACDCOMC	GETCAT+8, GETCAT+9, GETCAT+11, FIXCAT+6, FIXCAT+7, FIXCAT+8
>> ACDCOMCL	GETCAT+9, FIXCAT+8, FIXCAT+17
>> ACDCOMT	GETCAT+8, GETCAT+10, GETCAT+11, FIXCAT+6, FIXCAT+7, FIXCAT+9
>> ACDCOMTL	GETCAT+10, FIXCAT+9, FIXCAT+17
>> ACDDFN	FIXCAT+12, PATED+5, EDIT+4
>> ACDDFNP	FIXCAT+11, FIXCAT+12, GETPATS+6, GETPATS+14, GETPATS+16, PATED+4, PATED+5, EDIT+2
>> ACDDOV	INIT+10*
>> ACDDUZZ	INIT+9, INIT+12
>> ACDINR	FIXCAT+13, GETPATS+8
>> ACDKPDA	GETCAT+6*
ACDNEWG	MAIN+5, GETCAT+5*, EOJ+1!
ACDNEWP	GETPATS+1!, GETPATS+19*, EDIT+4
>> ACDPGM	INIT+5*, GETCAT+2
>> ACDQ	MAIN+2, MAIN+4, MAIN+9, INIT+1, INIT+15, GETCAT+1, GETCAT+11, GETCAT+13, FIXCAT+1, FIXCAT+7 , FIXCAT+17, GETPATS+4, GETPATS+10, GETPATS+18, PATED+3*
>> ACDRVOF	INIT+7, INIT+8
>> ACDRVON	INIT+7, INIT+8
>> ACDSEX	EDIT+5
>> ACDSTA	EDIT+5
>> ACDSTACD	EDIT+5
>> ACDTRB	EDIT+5
>> ACDTRBCD	EDIT+5
>> ACDVET	EDIT+5
ACDY	FIXCAT+11*, FIXCAT+14~
>> C	GETCAT+9, GETCAT+10, FIXCAT+8, FIXCAT+9
DA	MAIN+6!, GETCAT+6, GETCAT+7!, GETCAT+12, FIXCAT+3, GETPATS+14, GETPATS+15, EDIT+2*
DA(1	GETPATS+14, EDIT+2
>> DIC	GETCAT+2, GETCAT+12, GETPATS+11, PATED+2
>> DIC("DR"	GETCAT+2*
>> DIC("P"	GETPATS+13*
>> DIC("S"	GETCAT+2*
>> DIC(0	GETCAT+2, GETPATS+12, PATED+2*
>> DIE	GETCAT+6, FIXCAT+2, EDIT+1*
>> DINUM	GETPATS+15*
DIR	MAIN+6!
DIR("A"	MAIN+6*
DIR("B"	MAIN+6*
DIR(0	MAIN+6*
>> DIRUT	MAIN+7
>> DLAYGO	GETCAT+2*
>> DR	GETCAT+6, FIXCAT+4, EDIT+3, EDIT+4, EDIT+5*
DT	INIT+10
DUZ(2	INIT+3, INIT+4, INIT+5, INIT+9, INIT+12, INIT+13
IO	INIT+6, INIT+7
IOF	INIT+2, INIT+13
U	INIT+7, INIT+13, GETCAT+5, GETCAT+6, GETCAT+8, GETCAT+9, GETCAT+10, FIXCAT+6, FIXCAT+8, FIXCAT+9 , FIXCAT+12, GETPATS+13, PATED+5
>> X	INIT+7, GETPATS+16, GETPATS+18*
>> Y	MAIN+5, MAIN+8, INIT+7, GETCAT+3, GETCAT+4, GETCAT+5, GETCAT+6, GETCAT+9, GETCAT+10, FIXCAT+8* , FIXCAT+9*, GETPATS+18, PATED+3, PATED+4

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDCSD

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

Naked Globals

Local Variables

Legend: