Routine: ACDFLAT3

Package	Total	Call Graph
Alcohol Chemical Dependency	1	($$LBLNK,$$LZERO)^ACDFUNC
IHS VA Utilities	1	EP^XBCLM

Package	Total	Caller Graph
Alcohol Chemical Dependency	1	ACDFLAT2

Name	Comments	DBIA/ICR reference
PROBCD(Y)
FILESFT	; EP-SHIFT TO SUBORDINATE FILE FOR REST OF DATA
TDC	; GET DATA FROM TRANS/DISC/CLOSE FILE
IIF	; GET DATA FROM INIT/INFO/FU FILE
SETARRAY	; SET RECORD INTO ARRAY
CS	; GET DATA FROM CLIENT SERVICE ENTRIES
DRUGCD(Y)
CS2	; PROCESS ONE CS ENTRY ; killing of ACDF(n) necessary because one flat record is ; generated for each CS entry pointing to visit and all fields ; remain the same except those set here. Fields may be missing.

Name	Field # of Occurrence
$$LBLNK^ACDFUNC	IIF+49, IIF+52, TDC+49, TDC+57, CS2+12, CS2+15, CS2+17
$$LZERO^ACDFUNC	IIF+16, IIF+18, IIF+29, IIF+31, TDC+16, TDC+18, TDC+29, TDC+31, TDC+51, CS2+9 , PROBCD+5, DRUGCD+5
EP^XBCLM	SETARRAY+7

Name	Line Occurrences (* Changed, ! Killed)
^ACDCOMP - [#9002170.1]	IIF+42, IIF+45, TDC+42, TDC+45
^ACDCS - [#9002172]	CS2+5, CS2+6, CS2+21, CS2+22, CS2+23
^ACDCS("C"	FILESFT+6, CS+3
^ACDDRUG - [#9002170.5]	DRUGCD+4
^ACDIIF - [#9002170]	IIF+1, IIF+3, IIF+8, IIF+9, IIF+10, IIF+21, IIF+22, IIF+23
^ACDIIF("C"	FILESFT+2
^ACDPLEX - [#9002170.4]	IIF+48, TDC+48
^ACDPROB - [#9002170.3]	PROBCD+4
^ACDTDC - [#9002171]	TDC+1, TDC+3, TDC+8, TDC+9, TDC+10, TDC+21, TDC+22, TDC+23
^ACDTDC("C"	FILESFT+4
^VA(200 - [#200]	CS2+26

Name	Line Occurrences
$$DRUGCD	IIF+26, TDC+26
$$PROBCD	IIF+5, IIF+13, TDC+5, TDC+13
CS	FILESFT+6
CS2	CS+3
IIF	FILESFT+3
SETARRAY	FILESFT+3, FILESFT+5, CS2+29
TDC	FILESFT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	IIF+6~, IIF+11, IIF+12, IIF+19~, IIF+24, IIF+25, IIF+39, TDC+6~, TDC+11, TDC+12 , TDC+19~, TDC+24, TDC+25, TDC+39, CS2+18~, CS2+24*, CS2+25
A	IIF+6~, IIF+12, IIF+13, IIF+19~, IIF+25, IIF+26, TDC+6~, TDC+12, TDC+13, TDC+19~ , TDC+25, TDC+26, CS2+18~, CS2+25*, CS2+26
>> ACDARRAY(	SETARRAY+6*
ACDCSIEN	FILESFT+1~, CS+2, CS+3, CS2+5, CS2+6, CS2+21, CS2+22, CS2+23
>> ACDF(	IIF+13, IIF+26, TDC+13, TDC+26, CS2+26*, SETARRAY+3
>> ACDF(100	IIF+50, TDC+55
>> ACDF(101	IIF+52, TDC+57, CS2+17*
>> ACDF(106	CS2+8!, CS2+9*
>> ACDF(108	CS2+11!, CS2+12*
>> ACDF(110	CS2+14!, CS2+15*
>> ACDF(113	IIF+5, TDC+5
>> ACDF(133	CS2+19!
>> ACDF(139	CS2+19!
>> ACDF(145	CS2+19!
>> ACDF(53	IIF+16, TDC+16
>> ACDF(56	IIF+18, TDC+18
>> ACDF(67	IIF+29, TDC+29
>> ACDF(70	IIF+31, TDC+31
>> ACDF(73	IIF+32, TDC+32
>> ACDF(74	IIF+33, TDC+33
>> ACDF(75	IIF+34, TDC+34
>> ACDF(76	IIF+35, TDC+35
>> ACDF(77	IIF+36, TDC+36
>> ACDF(78	IIF+37, TDC+37
>> ACDF(79	IIF+40, TDC+40
>> ACDF(82	IIF+42, TDC+42
>> ACDF(85	IIF+43, TDC+43
>> ACDF(86	IIF+45, TDC+45
>> ACDF(89	IIF+46, TDC+46
>> ACDF(90	IIF+49, TDC+49
>> ACDF(92	TDC+51*
>> ACDF(95	TDC+52*
>> ACDF(97	TDC+53*
>> ACDF(99	TDC+54*
>> ACDFREC	SETARRAY+1, SETARRAY+4, SETARRAY+6, SETARRAY+7
>> ACDFTEST	SETARRAY+7
ACDIIEN	FILESFT+1~, FILESFT+2*, FILESFT+3, IIF+1, IIF+3, IIF+8, IIF+9, IIF+10, IIF+21, IIF+22 , IIF+23
ACDLC	FILESFT+1~, IIF+8, IIF+11, IIF+21, IIF+24, TDC+8, TDC+11, TDC+21, TDC+24, CS2+21* , CS2+24
ACDMIEN	FILESFT+1~, IIF+7, IIF+8, IIF+9, IIF+10, IIF+20, IIF+21, IIF+22, IIF+23, TDC+7* , TDC+8, TDC+9, TDC+10, TDC+20, TDC+21, TDC+22, TDC+23, CS2+20, CS2+21*, CS2+22 , CS2+23
ACDN0	IIF+2~, IIF+3, IIF+4, IIF+15, IIF+17, IIF+28, IIF+30, IIF+32, IIF+33, IIF+34 , IIF+35, IIF+36, IIF+37, IIF+39, IIF+41, IIF+43, IIF+44, IIF+46, IIF+47, IIF+50 , IIF+51, TDC+2~, TDC+3, TDC+4, TDC+15, TDC+17, TDC+28, TDC+30, TDC+32, TDC+33 , TDC+34, TDC+35, TDC+36, TDC+37, TDC+39, TDC+41, TDC+43, TDC+44, TDC+46, TDC+47 , TDC+50, TDC+52, TDC+53, TDC+54, TDC+55, TDC+56, CS+1~, CS2+6*, CS2+7, CS2+10 , CS2+13, CS2+16
>> ACDRCTR	SETARRAY+5*, SETARRAY+6
ACDTIEN	FILESFT+1~, FILESFT+4*, FILESFT+5, TDC+1, TDC+3, TDC+8, TDC+9, TDC+10, TDC+21, TDC+22 , TDC+23
>> ACDVIEN	FILESFT+2, FILESFT+4, FILESFT+6, CS+3
U	IIF+4, IIF+10, IIF+15, IIF+17, IIF+23, IIF+28, IIF+30, IIF+32, IIF+33, IIF+34 , IIF+35, IIF+36, IIF+37, IIF+39, IIF+41, IIF+42, IIF+43, IIF+44, IIF+45, IIF+46 , IIF+47, IIF+48, IIF+50, IIF+51, TDC+4, TDC+10, TDC+15, TDC+17, TDC+23, TDC+28 , TDC+30, TDC+32, TDC+33, TDC+34, TDC+35, TDC+36, TDC+37, TDC+39, TDC+41, TDC+42 , TDC+43, TDC+44, TDC+45, TDC+46, TDC+47, TDC+48, TDC+50, TDC+52, TDC+53, TDC+54 , TDC+55, TDC+56, CS2+7, CS2+10, CS2+13, CS2+16, CS2+23, CS2+26, PROBCD+4, DRUGCD+4
V	SETARRAY+3!*
>> W	IIF+39, TDC+39
X	IIF+15, IIF+16, IIF+17, IIF+18, IIF+28, IIF+29, IIF+30, IIF+31, IIF+38, IIF+39 , IIF+40, IIF+49, IIF+51, IIF+52, TDC+15, TDC+16, TDC+17, TDC+18, TDC+28, TDC+29 , TDC+30, TDC+31, TDC+38, TDC+39, TDC+40, TDC+50, TDC+51, TDC+56, TDC+57, CS2+7 , CS2+9, CS2+10, CS2+12, CS2+13, CS2+15, CS2+16, CS2+17, PROBCD+2~, PROBCD+3, PROBCD+4* , PROBCD+5, PROBCD+6, DRUGCD+2~, DRUGCD+3, DRUGCD+4, DRUGCD+5, DRUGCD+6, SETARRAY+3*
Y	IIF+4, IIF+5, IIF+10, IIF+13, IIF+23, IIF+26, IIF+38, IIF+39, IIF+40, IIF+41 , IIF+42, IIF+44, IIF+45, IIF+47, IIF+48, IIF+49, TDC+4, TDC+5, TDC+10, TDC+13 , TDC+23, TDC+26, TDC+38, TDC+39, TDC+40, TDC+41, TDC+42, TDC+44, TDC+45, TDC+47* , TDC+48, TDC+49, CS2+23, CS2+26, PROBCD~, PROBCD+1, PROBCD+4, DRUGCD~, DRUGCD+1, DRUGCD+4 , SETARRAY+3*

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDFLAT3

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: