Routine: ACDFLAT2

Package	Total	Call Graph
Alcohol Chemical Dependency	1	FILESFT^ACDFLAT3
IHS Patient	1	($$ENC,$$MCD,$$MCR,$$PI)^AUPNPAT

Package	Total	Caller Graph
Alcohol Chemical Dependency	2	ACDFLAT ACDRLP

Entry Points

Name	Comments	DBIA/ICR reference
FILESFT	; SHIFT TO SUBORDINATE FILE FOR REST OF DATA
FLAT(ACDVIEN,ACDARRAY)	; EP-SET FLAT RECORDS INTO ARRAY ; i $$flat^acdflat2(cdmis_visit_ien,.array_name) then flat records ; will be in array_name(n)=flat_record where n=1:1 and Q value will ; be the number of entries in array_name.
FLATX	; EXIT
PATIENT	; PATIENT RELATED FIELDS

Name	Line Occurrences (* Changed, ! Killed)
^ACDCOMP - [#9002170.1]	FLAT+16
^ACDVIS - [#9002172.1]	FLAT+10, FLAT+11
^AUPNPAT - [#9000001]	PATIENT+5, PATIENT+9, PATIENT+11
^AUTTCOM - [#9999999.05]	PATIENT+10
^AUTTTRI - [#9999999.03]	PATIENT+12
^DPT - [#2]	PATIENT+4, PATIENT+7, PATIENT+8
^VA(200 - [#200]	FLAT+20

Name	Field # of Occurrence
>> ACD6DIG	FLAT+13
ACDARRAY	FLAT~, FLAT+12!
ACDF	FLAT+12!
ACDF(1	FLAT+13*
ACDF(127	FLAT+20*
ACDF(14	FLAT+16*
ACDF(17	FLAT+17*
ACDF(18	FLAT+18*
ACDF(20	PATIENT+6*
ACDF(32	PATIENT+7*
ACDF(33	PATIENT+8*
ACDF(40	PATIENT+10*
ACDF(47	PATIENT+12*
ACDF(50	PATIENT+17*
ACDF(51	PATIENT+19*
ACDF(52	PATIENT+21*
ACDF(7	FLAT+14*
ACDFREC	FLAT+8~
ACDN0	FLAT+8~, FLAT+11*, FLAT+14, FLAT+15, FLAT+17, FLAT+18, FLAT+19, PATIENT+2, PATIENT+15
ACDPIEN	PATIENT+1~, PATIENT+2*, PATIENT+3, PATIENT+4, PATIENT+5, PATIENT+6, PATIENT+7, PATIENT+8, PATIENT+9, PATIENT+11 , PATIENT+16, PATIENT+18, PATIENT+20
ACDRCTR	FLAT+8~, FLAT+9*, FLATX+1
ACDVDT	PATIENT+14~, PATIENT+15*, PATIENT+16, PATIENT+18, PATIENT+20
ACDVIEN	FLAT~, FLAT+10, FLAT+11
U	FLAT+14, FLAT+15, FLAT+16, FLAT+17, FLAT+18, FLAT+19, FLAT+20, PATIENT+2, PATIENT+7, PATIENT+8 , PATIENT+9, PATIENT+10, PATIENT+11, PATIENT+12, PATIENT+15
X	FLAT+8~, PATIENT+16, PATIENT+17, PATIENT+18, PATIENT+19, PATIENT+20*, PATIENT+21
Y	FLAT+8~, FLAT+15, FLAT+16, FLAT+19, FLAT+20, PATIENT+9, PATIENT+10, PATIENT+11, PATIENT+12