Routine: APCLDM5

Information

APCLDM5 ; IHS/CMI/LAB - DM AUDIT ;

Package	Total	Call Graph
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	DD^%DT

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLDM1

Name	Comments	DBIA/ICR reference
CUML	; - ENTRY POINT - Set cumulative nodes
HEADER	; Set node with report header info
EN	;ENTRY POINT FROM APCLDM1
CLEAN	;EP
IDENT	; Pt identifying factors

Name	Field # of Occurrence
DD^%DT	IDENT+2
$$FMTE^XLFDT	HEADER+12

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	IDENT+3
^AUTTAREA - [#9999999.21]	HEADER+1
^AUTTLOC - [#9999999.06]	HEADER+1, HEADER+2
^AUTTSU - [#9999999.22]	HEADER+2
^DIC(4 - [#4]	HEADER+3
^DPT - [#2]	IDENT+2, IDENT+5, IDENT+6, IDENT+10
^TMP("APCL"	HEADER+6, HEADER+7, HEADER+8, HEADER+9, HEADER+10, HEADER+11, HEADER+12, IDENT+3, IDENT+4, IDENT+5 , IDENT+6, IDENT+10
^TMP("APCLCUML"	HEADER+6, HEADER+7, HEADER+8, HEADER+9, HEADER+10, HEADER+11, IDENT+1, CUML+1*, CUML+2
^TMP("APCLDM DXVS"	CLEAN+1!
^TMP("APCLDM FETCH"	CLEAN+1!
^TMP("APCLDM VST"	CLEAN+1!
^VA(200 - [#200]	HEADER+11

Name	Line Occurrences
CUML	IDENT+7, IDENT+11, IDENT+12, IDENT+13, IDENT+14
HEADER	EN+1
IDENT	EN+2

Name	Field # of Occurrence
^(	CUML+2*
^(1	IDENT+1*

Name	Field # of Occurrence
APCLAGE	IDENT+10*, IDENT+11, IDENT+12, IDENT+13, IDENT+14, IDENT+15!
APCLAREA	HEADER+1*, HEADER+8, CLEAN+4!
>> APCLBDT	HEADER+5
APCLCL1	CLEAN+2!
APCLCL2	CLEAN+2!
>> APCLCUML	IDENT+1, IDENT+7, IDENT+10
APCLDAYS	CLEAN+3!
APCLDOO	CLEAN+4!
APCLDP	CLEAN+3!
APCLDTE	HEADER+5*, HEADER+7, CLEAN+4!
APCLDX	CLEAN+2!
APCLDXVS	CLEAN+2!
>> APCLED	HEADER+12, HEADER+13, IDENT+10
>> APCLEDT	HEADER+5
APCLER	CLEAN+4!
APCLERTX	CLEAN+4!
APCLEYE1	CLEAN+2!
APCLEYE2	CLEAN+2!
APCLFAC	HEADER+3*, HEADER+10, CLEAN+4!
APCLFDX	CLEAN+2!
>> APCLFISC	HEADER+4, HEADER+7
APCLGOT1	IDENT+8, IDENT+9, IDENT+11, IDENT+12, IDENT+13, IDENT+14, CUML+1, CUML+2, CLEAN+4!
APCLHT	CLEAN+2!
APCLHTK1	CLEAN+3!
APCLHTNE	CLEAN+4!
APCLI	CLEAN+4!
APCLL	CLEAN+2!
APCLLL	CLEAN+4!
APCLMDFN	CLEAN+2!
APCLMEAS	CLEAN+2!
APCLPCL	CLEAN+4!
APCLPCL1	CLEAN+2!
APCLPCL2	CLEAN+2!
APCLPCL3	CLEAN+2!
>> APCLPD	IDENT+2, IDENT+3, IDENT+5, IDENT+6, IDENT+10
APCLPOD	CLEAN+2!
APCLPRD	CLEAN+2!
APCLPRV	CLEAN+2!
APCLRTYP	CLEAN+5!
APCLSEX	IDENT+5*, IDENT+8, CLEAN+4!
APCLSU	HEADER+2*, HEADER+9, CLEAN+4!
APCLSUB	IDENT+7, IDENT+11, IDENT+12, IDENT+13, IDENT+14*, CUML+1, CUML+2, CLEAN+4!
APCLTD	CLEAN+2!
>> APCLTDTE	HEADER+6
APCLTOT	CLEAN+2!
>> APCLUED	HEADER+13*
APCLVDFN	CLEAN+2!
APCLVMED	CLEAN+5!
APCLVST	CLEAN+2!
APCLW	CLEAN+5!
APCLX	CLEAN+2!
APCLY	CLEAN+2!
APCLYES	CLEAN+2!
DT	HEADER+13
DUZ	HEADER+11
DUZ(2	HEADER+1, HEADER+2, HEADER+3, IDENT+3
U	HEADER+1, HEADER+2, HEADER+3, HEADER+11, IDENT+2, IDENT+3, IDENT+5, IDENT+6, IDENT+10
>> Y	IDENT+2*, IDENT+4