Routine: ACDRR1CB

Package	Total	Call Graph
Alcohol Chemical Dependency	2	(PRCIIF,PRCTD)^ACDRR1C (DRUGCNT,PATCNT,PROBCNT)^ACDRR1CC
VA Fileman	1	^%DTC

Package	Total	Caller Graph
Alcohol Chemical Dependency	1	ACDRR1C

Name	Comments	DBIA/ICR reference
ZEROCNTS	; ZERO COUNTERS
COMPLOS2	; COMPUTE LENGTH OF STAY FOR ONE TD ; find in/re for same patient & component code/type before td
FINDPRB	; FIND PROBLEMS IN EARLIER IN/RE/FU OR LATER TD ; find in/re/fu before time frame or td after time frame
TBLCNTS	; TABLE COUNTS FOR PRINT ROUTINE
PROBCNT	; PATIENT COUNT BY PROBLEM
PATIENTS	; EP-PROCESS PATIENTS WITH VISITS WITHIN TIME FRAME
PATCNT	; COUNT PATIENT DATA
DRUGCNT	; PATIENT COUNT BY DRUG
COMPLOS	; COMPUTE LENGTH OF STAY BY COMP CODE/TYPE

Name	Field # of Occurrence
^%DTC	COMPLOS2+15
PRCIIF^ACDRR1C	FINDPRB+5
PRCTD^ACDRR1C	FINDPRB+10
DRUGCNT^ACDRR1CC	DRUGCNT+1
PATCNT^ACDRR1CC	PATCNT+1
PROBCNT^ACDRR1CC	PROBCNT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACDCOMP - [#9002170.1]	TBLCNTS+9
^ACDVIS - [#9002172.1]	FINDPRB+3, COMPLOS2+4, COMPLOS2+5
^ACDVIS("D"	FINDPRB+3, COMPLOS2+4
^TMP("ACDRR1"	PATIENTS+3, TBLCNTS+1!, TBLCNTS+3, TBLCNTS+4, TBLCNTS+5, TBLCNTS+8, TBLCNTS+10, TBLCNTS+11, TBLCNTS+16, TBLCNTS+17* , TBLCNTS+18, TBLCNTS+21, TBLCNTS+22, TBLCNTS+23, TBLCNTS+24, TBLCNTS+25, TBLCNTS+26, TBLCNTS+28, TBLCNTS+29, TBLCNTS+30 , TBLCNTS+31, TBLCNTS+32, TBLCNTS+33, TBLCNTS+35, TBLCNTS+36, TBLCNTS+37, TBLCNTS+38, TBLCNTS+39, TBLCNTS+40, TBLCNTS+42 , TBLCNTS+43, TBLCNTS+44, TBLCNTS+45, TBLCNTS+46, TBLCNTS+47, TBLCNTS+49, TBLCNTS+50, TBLCNTS+51, TBLCNTS+52, TBLCNTS+53 , TBLCNTS+54, TBLCNTS+56, TBLCNTS+57, TBLCNTS+58, TBLCNTS+59, TBLCNTS+60, TBLCNTS+61, TBLCNTS+64, TBLCNTS+65, TBLCNTS+66 , TBLCNTS+70, TBLCNTS+71, TBLCNTS+72, TBLCNTS+73, TBLCNTS+77, TBLCNTS+78, TBLCNTS+79, TBLCNTS+80, TBLCNTS+84, TBLCNTS+85* , TBLCNTS+86, TBLCNTS+87, TBLCNTS+91, TBLCNTS+92, TBLCNTS+93, TBLCNTS+94, TBLCNTS+95, FINDPRB+3, FINDPRB+5, COMPLOS+2 , COMPLOS+4, COMPLOS+6, COMPLOS2+17, COMPLOS2+18*

Name	Line Occurrences
COMPLOS	PATIENTS+6
COMPLOS2	COMPLOS+6
DRUGCNT	PATIENTS+5
FINDPRB	PATIENTS+3
PATCNT	PATIENTS+3
PROBCNT	PATIENTS+4
TBLCNTS	PATIENTS+7
ZEROCNTS	PATIENTS+1

Name	Field # of Occurrence
^(	PATIENTS+3, TBLCNTS+70, TBLCNTS+77, TBLCNTS+84
^(0	FINDPRB+3, COMPLOS2+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %Y	COMPLOS2+16
>> ACDBT	TBLCNTS+1, TBLCNTS+3, TBLCNTS+4, TBLCNTS+5, TBLCNTS+10, TBLCNTS+11, TBLCNTS+16, TBLCNTS+17, TBLCNTS+18, TBLCNTS+21 , TBLCNTS+22, TBLCNTS+23, TBLCNTS+24, TBLCNTS+25, TBLCNTS+26, TBLCNTS+28, TBLCNTS+29, TBLCNTS+30, TBLCNTS+31, TBLCNTS+32 , TBLCNTS+33, TBLCNTS+35, TBLCNTS+36, TBLCNTS+37, TBLCNTS+38, TBLCNTS+39, TBLCNTS+40, TBLCNTS+42, TBLCNTS+43, TBLCNTS+44 , TBLCNTS+45, TBLCNTS+46, TBLCNTS+47, TBLCNTS+49, TBLCNTS+50, TBLCNTS+51, TBLCNTS+52, TBLCNTS+53, TBLCNTS+54, TBLCNTS+56 , TBLCNTS+57, TBLCNTS+58, TBLCNTS+59, TBLCNTS+60, TBLCNTS+61, TBLCNTS+64, TBLCNTS+65, TBLCNTS+66, TBLCNTS+71, TBLCNTS+72 , TBLCNTS+73, TBLCNTS+78, TBLCNTS+79, TBLCNTS+80, TBLCNTS+85, TBLCNTS+86, TBLCNTS+87, TBLCNTS+93, TBLCNTS+94, TBLCNTS+95
>> ACDCC	COMPLOS2+2*, COMPLOS2+6
>> ACDCCT	TBLCNTS+7, TBLCNTS+8, TBLCNTS+9, TBLCNTS+10, TBLCNTS+11, COMPLOS+3, COMPLOS+4, COMPLOS+6, COMPLOS2+2, COMPLOS2+17 , COMPLOS2+18
>> ACDCMBO	TBLCNTS+90, TBLCNTS+91, TBLCNTS+92, TBLCNTS+93, TBLCNTS+94, TBLCNTS+95
>> ACDCT	COMPLOS2+2*, COMPLOS2+7
>> ACDCT("ALCOHO	L ONLY" , ZEROCNTS+10, ZEROCNTS+11, ZEROCNTS+12, ZEROCNTS+13, ZEROCNTS+14, ZEROCNTS+15, TBLCNTS+28, TBLCNTS+29, TBLCNTS+30 , TBLCNTS+31, TBLCNTS+32, TBLCNTS+33
>> ACDCT("ALCOHOL"	ZEROCNTS+4, ZEROCNTS+5, ZEROCNTS+6, ZEROCNTS+7, ZEROCNTS+8, ZEROCNTS+9, TBLCNTS+21, TBLCNTS+22, TBLCNTS+23, TBLCNTS+24 , TBLCNTS+25, TBLCNTS+26
>> ACDCT("ALCOHOL&DRUGS"	ZEROCNTS+28, ZEROCNTS+29, ZEROCNTS+30, ZEROCNTS+31, ZEROCNTS+32, ZEROCNTS+33, TBLCNTS+49, TBLCNTS+50, TBLCNTS+51, TBLCNTS+52 , TBLCNTS+53, TBLCNTS+54
>> ACDCT("DRUGS	ONLY" , ZEROCNTS+22, ZEROCNTS+23, ZEROCNTS+24, ZEROCNTS+25, ZEROCNTS+26, ZEROCNTS+27, TBLCNTS+42, TBLCNTS+43, TBLCNTS+44 , TBLCNTS+45, TBLCNTS+46, TBLCNTS+47
>> ACDCT("DRUGS"	ZEROCNTS+16, ZEROCNTS+17, ZEROCNTS+18, ZEROCNTS+19, ZEROCNTS+20, ZEROCNTS+21, TBLCNTS+35, TBLCNTS+36, TBLCNTS+37, TBLCNTS+38 , TBLCNTS+39, TBLCNTS+40
>> ACDCT("NEITHER"	ZEROCNTS+34, ZEROCNTS+35, ZEROCNTS+36, ZEROCNTS+37, ZEROCNTS+38, ZEROCNTS+39, TBLCNTS+56, TBLCNTS+57, TBLCNTS+58, TBLCNTS+59 , TBLCNTS+60, TBLCNTS+61
>> ACDCT("SEEN"	ZEROCNTS+1, ZEROCNTS+2, ZEROCNTS+3*, TBLCNTS+3, TBLCNTS+4, TBLCNTS+5
>> ACDCT("TOBACCO"	ZEROCNTS+41, ZEROCNTS+42, ZEROCNTS+43*, TBLCNTS+64, TBLCNTS+65, TBLCNTS+66
>> ACDCT("TRIBE"	TBLCNTS+15, TBLCNTS+16, TBLCNTS+17, TBLCNTS+18
>> ACDDATE	COMPLOS+5, COMPLOS+6, COMPLOS2+10, COMPLOS2+14
>> ACDDRUG	TBLCNTS+83, TBLCNTS+84, TBLCNTS+85, TBLCNTS+86, TBLCNTS+87
>> ACDDTLO	FINDPRB+5, FINDPRB+8
>> ACDINRE	COMPLOS2+3, COMPLOS2+11, COMPLOS2+13, COMPLOS2+14
>> ACDJOB	TBLCNTS+1, TBLCNTS+3, TBLCNTS+4, TBLCNTS+5, TBLCNTS+10, TBLCNTS+11, TBLCNTS+16, TBLCNTS+17, TBLCNTS+18, TBLCNTS+21 , TBLCNTS+22, TBLCNTS+23, TBLCNTS+24, TBLCNTS+25, TBLCNTS+26, TBLCNTS+28, TBLCNTS+29, TBLCNTS+30, TBLCNTS+31, TBLCNTS+32 , TBLCNTS+33, TBLCNTS+35, TBLCNTS+36, TBLCNTS+37, TBLCNTS+38, TBLCNTS+39, TBLCNTS+40, TBLCNTS+42, TBLCNTS+43, TBLCNTS+44 , TBLCNTS+45, TBLCNTS+46, TBLCNTS+47, TBLCNTS+49, TBLCNTS+50, TBLCNTS+51, TBLCNTS+52, TBLCNTS+53, TBLCNTS+54, TBLCNTS+56 , TBLCNTS+57, TBLCNTS+58, TBLCNTS+59, TBLCNTS+60, TBLCNTS+61, TBLCNTS+64, TBLCNTS+65, TBLCNTS+66, TBLCNTS+71, TBLCNTS+72 , TBLCNTS+73, TBLCNTS+78, TBLCNTS+79, TBLCNTS+80, TBLCNTS+85, TBLCNTS+86, TBLCNTS+87, TBLCNTS+93, TBLCNTS+94, TBLCNTS+95
>> ACDPGM	FINDPRB+3, COMPLOS2+5
>> ACDPIEN	PATIENTS+2, PATIENTS+3, FINDPRB+3, FINDPRB+5, COMPLOS+1, COMPLOS+2, COMPLOS+4, COMPLOS+6, COMPLOS2+4
>> ACDPRIEN	TBLCNTS+69, TBLCNTS+70, TBLCNTS+71, TBLCNTS+72, TBLCNTS+73, TBLCNTS+76, TBLCNTS+77, TBLCNTS+78, TBLCNTS+79, TBLCNTS+80
>> ACDTC	FINDPRB+6*, FINDPRB+7, FINDPRB+8, FINDPRB+10
>> ACDTRIBE	TBLCNTS+14, TBLCNTS+15, TBLCNTS+16, TBLCNTS+17, TBLCNTS+18
>> ACDVDATE	FINDPRB+4*, FINDPRB+5, FINDPRB+8
>> ACDVHIT	FINDPRB+2, FINDPRB+5, FINDPRB+9, FINDPRB+10
ACDVIEN	FINDPRB+2, FINDPRB+3, FINDPRB+5~, FINDPRB+9, FINDPRB+10~, COMPLOS2+3, COMPLOS2+4, COMPLOS2+5
>> C	TBLCNTS+92*, TBLCNTS+93, TBLCNTS+94, TBLCNTS+95
U	TBLCNTS+9, FINDPRB+4, FINDPRB+6, COMPLOS2+6, COMPLOS2+7, COMPLOS2+8, COMPLOS2+9
>> X	TBLCNTS+4, TBLCNTS+5, TBLCNTS+17, TBLCNTS+18, TBLCNTS+25, TBLCNTS+26, TBLCNTS+32, TBLCNTS+33, TBLCNTS+39, TBLCNTS+40 , TBLCNTS+46, TBLCNTS+47, TBLCNTS+53, TBLCNTS+54, TBLCNTS+60, TBLCNTS+61, TBLCNTS+65, TBLCNTS+66, TBLCNTS+72, TBLCNTS+73 , TBLCNTS+79, TBLCNTS+80, TBLCNTS+86, TBLCNTS+87, TBLCNTS+94, TBLCNTS+95, FINDPRB+3, FINDPRB+4, FINDPRB+6, COMPLOS2+4 , COMPLOS2+6, COMPLOS2+7, COMPLOS2+8, COMPLOS2+9*, COMPLOS2+10, COMPLOS2+11, COMPLOS2+17
>> X1	COMPLOS2+14*
>> X2	COMPLOS2+14*
>> Y	ZEROCNTS+40, ZEROCNTS+41, ZEROCNTS+42, ZEROCNTS+43, TBLCNTS+63, TBLCNTS+64, TBLCNTS+65, TBLCNTS+66, TBLCNTS+70, TBLCNTS+71 , TBLCNTS+72, TBLCNTS+73, TBLCNTS+77, TBLCNTS+78, TBLCNTS+79, TBLCNTS+80, TBLCNTS+84*, TBLCNTS+85, TBLCNTS+86, TBLCNTS+87
>> Z	TBLCNTS+9*, TBLCNTS+10, TBLCNTS+11

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDRR1CB

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: