Routine: APCLW11

Package	Total	Call Graph
Patient Care Component Reports	4	$$START1^APCLDF XTMP^APCLOSUT $$DEMO^APCLUTL (SETE,SETG,SETGROUP)^APCLW12
VA Fileman	2	DD^%DT (,C)^%DTC
DRG Grouper	1	$$ICDDX^ICDEX
IHS Patient	1	(,$$BEN)^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Taxonomy	1	$$ICD^ATXAPI

Entry Points

Name	Comments	DBIA/ICR reference
GETRECNT	;get most recent in 3 yrs
ONREG(P,R,S)	;is this patient on this register with this status
GETWTHT	;
PROC	;
GETWHSD	;check for height and weight on same date
START	;EP
EOJ	;
RO	;set up by date
PN	;kill off those that have prenatal code as dx
CALCBMI	;calculate BMI value

External References

Name	Field # of Occurrence
DD^%DT	START+2, START+3, START+4
^%DTC	PROC+15, PROC+32
C^%DTC	START+2, START+3
$$START1^APCLDF	GETWTHT+2, GETWTHT+5
XTMP^APCLOSUT	START+6
$$DEMO^APCLUTL	PROC+5
SETE^APCLW12	PROC+43
SETG^APCLW12	PROC+42
SETGROUP^APCLW12	START+7
$$ICD^ATXAPI	PN+3, PN+7
^AUPNPAT	PROC+8
$$BEN^AUPNPAT	PROC+24
$$ICDDX^ICDEX	PN+2, PN+6
$$FMADD^XLFDT	PROC+20
$$FMTE^XLFDT	PROC+20

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	ONREG+4, ONREG+7
^APCLBMI - [#9001003.9]	PROC+41
^APCLBMI("H"	PROC+38, PROC+39
^ATXAX("B"	PN+3, PN+7
^AUPNPAT - [#9000001]	PROC+1
^AUPNVPOV - [#9000010.07]	PN+2, PN+6
^AUPNVPOV("AD"	PN+2, PN+6
^DIBT(	PROC+6
^DPT - [#2]	PROC+2, PROC+3, PROC+4, PROC+20
^XTMP("APCLW1"	START+8, START+9, PROC+13, PROC+14

Label References

Name	Line Occurrences
$$ONREG	PROC+7
CALCBMI	PROC+35
GETRECNT	PROC+28
GETWHSD	PROC+29
GETWTHT	PROC+21

Naked Globals

Name	Field # of Occurrence
^(	PROC+13*
^("B"	PROC+14*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	EOJ+3!
APCL1YR	START+2*, PROC+20, PROC+21, EOJ+1!
APCL3YR	START+3*, PROC+21, EOJ+1!
APCLA	EOJ+1!
>> APCLAGE	PROC+17, PROC+20, PROC+21, PROC+28, PROC+29, PROC+32, PROC+33, PROC+34, PROC+38, PROC+39
>> APCLAGEG	START+7, START+8, PROC+42, PROC+43
>> APCLBBMI	START+5*
APCLBD	PROC+21*, EOJ+1!, GETWTHT+2
>> APCLBHGH	START+5*
>> APCLBLOW	START+5*
>> APCLBMI	PROC+41, CALCBMI+2*
>> APCLBOBE	START+5*
>> APCLBOVR	START+5*
>> APCLBTH	START+5*, START+8, START+9, PROC+13, PROC+14
>> APCLBTUP	START+5*
APCLCHT	PROC+27!, PROC+31, EOJ+1!, CALCBMI+2, GETWHSD+2, GETRECNT+2
>> APCLCLAS	PROC+24*, PROC+25, PROC+26
>> APCLCMS	PROC+7
APCLCWT	PROC+27!, PROC+30, PROC+32, EOJ+1!, CALCBMI+2, GETWHSD+2, GETRECNT+1
>> APCLDATE	START+2, START+3, START+4, PROC+4, PROC+15
>> APCLDEMO	PROC+5
>> APCLDT	START+4*, GETWTHT+2, GETWTHT+5
APCLER	EOJ+1!, GETWTHT+2, GETWTHT+5
>> APCLFBMI	START+5*
>> APCLFHGH	START+5*
>> APCLFLOW	START+5*
>> APCLFOBE	START+5*
>> APCLFOVR	START+5*
>> APCLFTUP	START+5*
APCLGHT	PROC+23, EOJ+1!, GETWTHT+1!
APCLGHT(	GETWTHT+6!, PN+6, PN+7!, RO+3, GETWHSD+2, GETRECNT+2
APCLGWT	PROC+22, EOJ+1!, GETWTHT+1!
APCLGWT(	GETWTHT+4!, PN+2, PN+3!, RO+2, GETWHSD+2, GETRECNT+1
>> APCLHBD	PROC+20*, GETWTHT+5
>> APCLHGHA	START+8, PROC+34
>> APCLIBEN	PROC+26
>> APCLJOB	START+5*, START+8, START+9, PROC+13, PROC+14
>> APCLLOWA	START+8, PROC+33
>> APCLMBMI	START+5*
APCLMGI	EOJ+1!
>> APCLMHGH	START+5*
APCLMHT	EOJ+1!, CALCBMI+2*
>> APCLMLOW	START+5*
>> APCLMOBE	START+5*
>> APCLMOVR	START+5*
>> APCLMTUP	START+5*
APCLMWT	EOJ+1!, CALCBMI+2*
APCLNN	EOJ+1!
APCLREF	PROC+38, PROC+39, PROC+40, PROC+41, EOJ+1!
APCLROHT	EOJ+1!, RO+1!
APCLROHT(	RO+3*, GETWHSD+2, GETRECNT+2
APCLROWT	EOJ+1!, RO+1!
APCLROWT(	RO+2*, GETWHSD+2, GETRECNT+1
>> APCLSEAT	PROC+6
>> APCLSEX	PROC+11, PROC+14
>> APCLSTAT	PROC+7
APCLX	EOJ+1!, GETWTHT+2, GETWTHT+5
APCLY	EOJ+1!, GETWTHT+2, GETWTHT+5
AUPNDAYS	PROC+15*, PROC+16, PROC+17, EOJ+2!
AUPNDOB	PROC+12, PROC+15, PROC+32, EOJ+2!
AUPNDOD	EOJ+2!
AUPNPAT	EOJ+2!
AUPNSEX	PROC+9, PROC+10, PROC+11, PROC+13, PROC+38, PROC+39, EOJ+2!
D	EOJ+3!, PN+2, PN+3, PN+6, PN+7, ONREG+4~*, ONREG+5, ONREG+7
DFN	START+5, PROC+1, PROC+2, PROC+3, PROC+4, PROC+5, PROC+6, PROC+7, PROC+8, PROC+20 , PROC+24, EOJ+3!, GETWTHT+2, GETWTHT+5
I	START+8*, START+9, EOJ+3!
J	START+8*, START+9, EOJ+3!
P	PN+2, PN+6, ONREG~, ONREG+1, ONREG+4
R	ONREG~, ONREG+2, ONREG+4
S	ONREG~, ONREG+3*, ONREG+6, ONREG+7
U	PROC+3, PROC+4, PROC+20, PROC+32, PROC+41, GETWTHT+4, GETWTHT+6, PN+2, PN+6, RO+2 , RO+3, GETWHSD+2, GETRECNT+1, GETRECNT+2, ONREG+7
V	EOJ+3!, PN+2, PN+6
X	START+2, START+3, PROC+15, PROC+32, EOJ+3!, GETWTHT+4, GETWTHT+6, PN+2, PN+3, PN+6 , PN+7, RO+2, RO+3, GETWHSD+2, GETRECNT+1, GETRECNT+2*
>> X1	START+2, START+3, PROC+15, PROC+32
>> X2	START+2, START+3, PROC+15, PROC+32
Y	START+2, START+3, START+4, PROC+8, EOJ+3!
Z	EOJ+3!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLW11

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: