Routine: APCLDM1

Package	Total	Call Graph
Patient Care Component Reports	8	$$START1^APCLDF ^APCLDM1A ^APCLDM2 ^APCLDM3 ^APCLDM4 (CLEAN,EN)^APCLDM5 TOBACCO^APCLDM6 $$CLINIC^APCLV
VA Fileman	2	(,DD)^%DT ^%DTC

Package	Total	Caller Graph
Patient Care Component Reports	7	APCLDM1A APCLDM2 APCLDM3 APCLDM4 APCLDM6 APCLDM7 APCLDM8

Entry Points

Name	Comments	DBIA/ICR reference
2	;
FIRSTDX	;
CUML	; - ENTRY POINT - Set cumulative nodes
TOBACCO	;
CMSFDX	;get first dm dx from case management
LASTHT
PLFDX	;get first dm dx from problem list
3	;
VISITS	; Get all visits for indicated time period
41	;
1	;
PLFDXX
EN	; - ENTRY POINT - from ^APCLASK
XIT
DMVISITS	; Gets all visits where dx was DM for indicated time period
X2	;
X
X1
CLINICAL	; Get clinical data
X4	;
4	;DATE OF ONSET

Name	Field # of Occurrence
^%DT	41+5
DD^%DT	FIRSTDX+2, CMSFDX+6, PLFDX+3
^%DTC	41+5
$$START1^APCLDF	DMVISITS+2, VISITS+1, FIRSTDX+2, PLFDX+1, LASTHT
^APCLDM1A	CLINICAL+5
^APCLDM2	CLINICAL+6
^APCLDM3	CLINICAL+7
^APCLDM4	CLINICAL+8
CLEAN^APCLDM5	EN+4
EN^APCLDM5	EN+2
TOBACCO^APCLDM6	TOBACCO+1
$$CLINIC^APCLV	DMVISITS+5

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"*** SCRIPT ERROR IN DMVISITS^APCLDM1. CONTACT SITE MANAGER" Line Location: DMVISITS+3

Name	Line Occurrences (* Changed, ! Killed)
^ACM(44 - [#9002244]	CMSFDX+3, CMSFDX+4
^AUPNPROB - [#9000011]	PLFDX+2
^AUPNVSIT - [#9000010]	DMVISITS+7
^TMP("APCL"	FIRSTDX+3, X2+1, 4+1, 4+2, 4+3, 41+1, 41+5, CMSFDX+6, PLFDX+3, LASTHT+1 , LASTHT+2
^TMP("APCLCUML"	CUML+1*, CUML+2
^TMP("APCLDM DXVS"	DMVISITS+8*
^TMP("APCLDM FETCH"	DMVISITS+1!, DMVISITS+4, DMVISITS+5, DMVISITS+8, DMVISITS+11!, VISITS+2
^TMP("APCLDM V"	DMVISITS+4!, DMVISITS+5*, DMVISITS+9!
^TMP("APCLDM VST"	VISITS+2*

Name	Field # of Occurrence
^(	CUML+2*

Name	Field # of Occurrence
>> %DT	41+5*
APCL	CLINICAL+4!, DMVISITS+11!, VISITS+3!, FIRSTDX+1!, X2+2!, X4+1!
APCL(1	FIRSTDX+2, CMSFDX+6, PLFDX+1, PLFDX+2!, PLFDX+3, LASTHT
APCLC	DMVISITS+4, DMVISITS+8, DMVISITS+9!
>> APCLCUML	LASTHT+2
>> APCLDATE	DMVISITS+2, VISITS+1
>> APCLDMRG	CMSFDX+2, CMSFDX+3
APCLDX	DMVISITS+11!
>> APCLER	EN+1, CLINICAL+2, DMVISITS+2, DMVISITS+3, VISITS+1, FIRSTDX+2, X2+1, PLFDX+1, LASTHT
APCLFDX	CMSFDX+1!, CMSFDX+3, CMSFDX+4*, CMSFDX+5, CMSFDX+6
APCLGOT1	CUML+1, CUML+2, 41+2, 41+3, 41+5, X4+1!, LASTHT+2
>> APCLHT	LASTHT*, LASTHT+1
>> APCLHTKI	LASTHT*
>> APCLI	CLINICAL+4*
>> APCLL	DMVISITS+4, DMVISITS+5, DMVISITS+8, VISITS+2
>> APCLPD	DMVISITS+2, VISITS+1, FIRSTDX+2, CMSFDX+3, PLFDX+1, LASTHT
APCLSUB	CUML+1, CUML+2, 41+2, 41+3, 41+5, X4+1!, LASTHT+2
>> APCLTOT	DMVISITS+9, DMVISITS+10
APCLX	CLINICAL+4!, DMVISITS+2, VISITS+1, FIRSTDX+2, CMSFDX+3, CMSFDX+4, PLFDX+1, LASTHT
APCLY	CLINICAL+4, X!, DMVISITS+2, VISITS+1*, FIRSTDX+2, PLFDX+1, LASTHT
>> C	DMVISITS+5*, DMVISITS+6
DT	41+5
U	DMVISITS+5, DMVISITS+7, DMVISITS+8, VISITS+2, FIRSTDX+2, CMSFDX+3, CMSFDX+4, PLFDX+2, LASTHT
>> V	DMVISITS+5*, DMVISITS+7
>> X	41+5*
>> X1	41+5*
>> X2	41+5*
>> Y	FIRSTDX+2, FIRSTDX+3, 41+5, CMSFDX+6, PLFDX+3*

Name	Field # of Occurrence
$T(@APCLI	CLINICAL+4