Routine: ACDCINV2

Package	Total	Call Graph
Alcohol Chemical Dependency	2	(DIE,FILE)^ACDFMC ^ACDKILL
VA Fileman	2	^DIK ^DIR
IHS VA Utilities	1	$$VALI^XBDIQ1

Package	Total	Caller Graph
Alcohol Chemical Dependency	1	ACDCINV

Entry Points

Name	Comments	DBIA/ICR reference
GETDATA	; GET INTERVENTION DATA/GENERATE RECORDS
GETSEX	; GET PATIENT SEX
GETTRIBE	; GET PATIENT TRIBE OF MEMBERSHIP
EOJ	;
GETNAME	; GET PATIENT NAME
GETPAT	; GET PATIENT DATA
GETVET	; GET PATIENT VETERAN STATUS
START	;
INIT	;
GETAGE	; GET PATIENT AGE
GETPATS	; GET PATIENTS
GETVDATE	; GET VISIT DATE
GETSTATE	; GET PATIENT STATE OF RESIDENCE
MAIN	;

External References

Name	Field # of Occurrence
DIE^ACDFMC	GETPATS+10
FILE^ACDFMC	GETPATS+5
^ACDKILL	EOJ+1
^DIK	GETPATS+11
^DIR	GETVDATE+2, GETNAME+2, GETSEX+2, GETAGE+2, GETSTATE+2, GETTRIBE+2, GETVET+2
$$VALI^XBDIQ1	GETSTATE+6, GETTRIBE+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETDATA+4
Function Call: WRITE	Prompt: !,"Creation of INTERVENTION entry failed. Notify programmer.",!! Line Location: GETPATS+6
Function Call: WRITE	Prompt: !!,"---------- INTERVENTION INFO SECTION ----------" Line Location: GETPATS+7
Function Call: WRITE	Prompt: !," INCOMPLETE OR INCORRECT INTERVENTION ENTRY DELETED " Line Location: GETPATS+11
Function Call: WRITE	Prompt: !! Line Location: GETPAT+1
Function Call: WRITE	Prompt: !!,"---------- PATIENT DEMOGRAPHIC SECTION ----------" Line Location: GETPAT+4
Routine Call	DIR Line Location: GETVDATE+2 GETNAME+2 GETSEX+2 GETAGE+2 GETSTATE+2 GETTRIBE+2 GETVET+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACDINTV - [#9002173.5]	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+6
^%ZOSF("ERRTN"	GETPATS+6
^ACDF5PI - [#9002173]	INIT+4
^TMP("ACD"	INIT+10!
^TMP($J	INIT+10!

Label References

Name	Line Occurrences
@(	GETPATS+6
EOJ	START+2
GETAGE	GETPAT+7
GETDATA	MAIN+3
GETNAME	GETPAT+2
GETPAT	GETPATS+1
GETPATS	GETDATA+3
GETSEX	GETPAT+5
GETSTATE	GETPAT+9
GETTRIBE	GETPAT+11
GETVDATE	GETDATA+1
GETVET	GETPAT+13
INIT	MAIN+1
MAIN	START+1

Naked Globals

Name	Field # of Occurrence
^("$ZE"	GETPATS+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACDAGE	GETPATS+4, GETAGE+5*
>> ACDDFN	GETPATS+4, GETNAME+5*
>> ACDDOV	GETVDATE+4*
>> ACDDUZZ	INIT+9*
>> ACDIVIEN	GETPATS+8*, GETPATS+9, GETPATS+11
>> ACDPGM	INIT+5*, GETPATS+4
>> ACDQ	MAIN+2, MAIN+3, INIT+1, INIT+11, GETDATA+2, GETDATA+3, GETDATA+5, GETVDATE+1, GETVDATE+5, GETPATS+2 , GETPATS+6, GETPAT+3, GETPAT+6, GETPAT+8, GETPAT+10, GETPAT+12, GETPAT+14, GETNAME+1, GETNAME+6, GETSEX+1* , GETSEX+6, GETAGE+1, GETAGE+6, GETSTATE+1, GETSTATE+7, GETTRIBE+1, GETTRIBE+7, GETVET+1, GETVET+6*
>> ACDRVOF	INIT+7, INIT+8
>> ACDRVON	INIT+7, INIT+8
>> ACDSEX	GETPATS+4, GETSEX+5*
>> ACDSTA	GETPATS+4, GETSTATE+5*, GETSTATE+6
>> ACDSTACD	GETPATS+4, GETSTATE+6*
>> ACDTRB	GETPATS+4, GETTRIBE+5*, GETTRIBE+6
>> ACDTRBCD	GETPATS+4, GETTRIBE+6*
>> ACDVDTE	GETVDATE+4*
>> ACDVDTI	GETVDATE+4*, GETPATS+3
>> ACDVET	GETPATS+4, GETVET+5*
DA	GETVDATE+2!, GETPATS+9, GETPATS+11, GETNAME+2!, GETSEX+2!, GETAGE+2!, GETSTATE+2!, GETTRIBE+2!, GETVET+2!
>> DIC	GETPATS+3*
>> DIC("DR"	GETPATS+4*
>> DIC(0	GETPATS+3*
>> DIE	GETPATS+9*
>> DIE("NO^"	GETPATS+9*
>> DIK	GETPATS+11*
DIR	GETVDATE+2!, GETNAME+2!, GETSEX+2!, GETAGE+2!, GETSTATE+2!, GETTRIBE+2!, GETVET+2!
DIR("A"	GETVDATE+2, GETNAME+2, GETSEX+2, GETAGE+2, GETSTATE+2, GETTRIBE+2, GETVET+2*
DIR("B"	GETVET+2*
DIR(0	GETVDATE+2, GETNAME+2, GETSEX+2, GETAGE+2, GETSTATE+2, GETTRIBE+2, GETVET+2*
>> DIRUT	GETVDATE+3, GETNAME+3, GETSEX+3, GETAGE+3, GETSTATE+3, GETTRIBE+3, GETVET+3
>> DLAYGO	GETPATS+3*
>> DR	GETPATS+9*
>> DTOUT	GETPATS+11
DUZ(2	INIT+3, INIT+4, INIT+5, INIT+9
IO	INIT+6, INIT+7
IOF	INIT+2
U	INIT+7
>> X	INIT+7, GETPATS+3, GETPATS+6*
>> Y	INIT+7*, GETVDATE+4, GETPATS+6, GETPATS+8, GETPATS+11, GETNAME+4, GETNAME+5, GETSEX+4, GETSEX+5, GETAGE+4 , GETAGE+5, GETSTATE+4, GETSTATE+5, GETTRIBE+4, GETTRIBE+5, GETVET+4, GETVET+5
>> Y(0	GETVDATE+4

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDCINV2

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: