Routine: APCHSM01

Package	Total	Call Graph
Patient Care Component Reports	4	($$LASTPELV,$$LASTPHYS,$$LASTRECT)^APCLAPI2 $$LASTBRST^APCLAPI3 $$LASTPNEU^APCLAPI4 $$START1^APCLDF
Patient Care Component	2	$$BI^APCHS11C ($$AGESEX,$$DATE,$$DATEAGE,$$INAC,$$MINAGE,$$OVR,$$PLTAX,$$REF,$$SITECRIT,WRITE)^APCHSMU
DRG Grouper	1	$$CODEN^ICPTCOD
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	($$FMADD,$$FMDIFF,$$FMTE)^XLFDT
Taxonomy	1	BLDTAX^ATXAPI

Entry Points

Name	Comments	DBIA/ICR reference
BRSTREF	;
PNEUIHS	;should this patient have pneumo reminder?
BRSTWT	;
PNEU	;EP - pneumovax
LPNREF(P,D)	;get last pneumovax refusal
REVAX	;
PELVWT	;
RECT	;
BRSTREG	;regular stuff
PELV	;
TYPEREF(N)	;EP
RECTREG	;regular stuff
PHYSREG	;regular stuff
A	;
PHYS	;
PELVREG	;regular stuff
CHK	;
PHYSWT	;
RECTWT	;
BRST	;
S(X)	;
PNEUREG	;

External References

Name	Field # of Occurrence
$$BI^APCHS11C	PNEU+8
$$AGESEX^APCHSMU	PNEU+5, BRSTREG+6, PELVREG+6, PHYSREG+4, RECTREG+3
$$DATE^APCHSMU	PNEU+19, PNEUREG+9, PNEUREG+10, PNEUIHS+9, PNEUIHS+14, REVAX+10, REVAX+11, REVAX+15, REVAX+19, REVAX+25 , BRST+9, BRSTREG+8, BRSTREG+11, BRSTREG+12, PELV+8, PELVREG+8, PELVREG+10, PELVREG+11, PHYSREG+6, PHYSREG+8 , PHYSREG+9, RECT+7, RECTREG+5, RECTREG+7, RECTREG+8
$$DATEAGE^APCHSMU	PNEUREG+2, PNEUIHS+8, PNEUIHS+14, BRSTREG+8, PELVREG+8, PHYSREG+6, RECTREG+5
$$INAC^APCHSMU	PNEU+3, BRST+1, PELV+1, PHYS+1, RECT+1
$$MINAGE^APCHSMU	PNEU+5, BRSTREG+6, PELVREG+1, PHYSREG+4, RECTREG+3
$$OVR^APCHSMU	PNEU+17, BRST+7, PELV+6, RECT+5
$$PLTAX^APCHSMU	PNEUIHS+4, PNEUIHS+5
$$REF^APCHSMU	BRSTREF+1, BRSTREF+6, BRSTREF+7, PELVWT+1, RECTWT+1
$$SITECRIT^APCHSMU	PNEU+4, BRSTREG+1, PELVREG+1, PHYSREG+1, RECTREG+1
WRITE^APCHSMU	PNEU+22, PNEUREG+5, PNEUREG+13, PNEUIHS+9, PNEUIHS+14, REVAX+4, REVAX+10, REVAX+11, REVAX+15, REVAX+18 , REVAX+19, REVAX+21, REVAX+24, REVAX+25, BRSTWT+2, PELVWT+2, PHYSWT+1, RECTWT+2
$$LASTPELV^APCLAPI2	PELV+4
$$LASTPHYS^APCLAPI2	PHYS+3
$$LASTRECT^APCLAPI2	RECT+3
$$LASTBRST^APCLAPI3	BRST+5
$$LASTPNEU^APCLAPI4	PNEU+9
$$START1^APCLDF	PNEU+13
BLDTAX^ATXAPI	BRSTREF+3
$$DOB^AUPNPAT	RECT+3
$$CODEN^ICPTCOD	BRSTREF+7
$$VAL^XBDIQ1	LPNREF+12, TYPEREF+6
$$FMADD^XLFDT	PNEUREG+8, REVAX+8, REVAX+11, REVAX+19, REVAX+25, BRSTREG+10, PELVREG+9, PHYSREG+7, RECTREG+6
$$FMDIFF^XLFDT	REVAX+6, REVAX+9, REVAX+17, REVAX+23, REVAX+24
$$FMTE^XLFDT	LPNREF+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	BRSTREF+3
^AUPNPREF - [#9000022]	TYPEREF+1
^AUPNPREF("AA"	CHK+3, CHK+5
^AUTTEXAM("C"	BRSTREF+1, PELVWT+1, RECTWT+1
^AUTTIMM("C"	PNEU+8, PNEU+20, PNEUREG+3, PNEUREG+11, CHK+1
^AUTTLOC - [#9999999.06]	PNEUIHS+2

Label References

Name	Line Occurrences
$$LPNREF	PNEU+21, PNEUREG+4, PNEUREG+12, PNEUIHS+10, PNEUIHS+15
$$TYPEREF	LPNREF+12
A	PNEUIHS+3
BRSTREF	BRSTWT+1
BRSTWT	BRST+10, BRSTREG+9, BRSTREG+13
CHK	LPNREF+5
PELVWT	PELV+9, PELVREG+8, PELVREG+12
PHYSWT	PHYSREG+6, PHYSREG+10
PNEUIHS	PNEU+25
PNEUREG	A+1, A+2
RECTWT	RECT+8, RECTREG+5, RECTREG+9
REVAX	PNEUIHS+11, PNEUIHS+16
S	PNEU+19, PNEU+21, PNEUREG+4, PNEUREG+12, PNEUIHS+10, PNEUIHS+15, BRSTREF+1, BRSTREF+6, BRSTREF+7, BRST+9 , PELVWT+1, PELV+8, RECTWT+1, RECT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	S+1~, PNEU+13, REVAX+6, REVAX+7, REVAX+8, REVAX+9, REVAX+10, REVAX+11, REVAX+17, REVAX+18 , TYPEREF+1~, TYPEREF+2, TYPEREF+3, TYPEREF+4, TYPEREF+5
A	PNEUIHS+2~, PNEUIHS+3, REVAX+9, REVAX+10, A+1, A+2
>> APCHA	PNEU+2*
APCHC	BRSTREF+2~, BRSTREF+5*, BRSTREF+6
APCHC(	BRSTREF+5
>> APCHHR	PNEU+2, PNEUIHS+5, REVAX+3, REVAX+14
>> APCHICAR	PNEU+9, PNEU+10, BRST+5, BRST+6, PELV+4, PELV+5, PHYS+3, PHYS+4, RECT+2, RECT+3 , RECT+4
>> APCHIMMC	PNEU+8*, PNEU+13
>> APCHLAST	PNEU+7, PNEU+10, PNEU+18, PNEU+21, PNEUREG+2, PNEUREG+4, PNEUREG+8, PNEUREG+12, PNEUIHS+10, PNEUIHS+15 , BRSTREF+1, BRSTREF+6, BRSTREF+7, BRST+4, BRST+6, BRST+8, BRSTREG+8, BRSTREG+10, PELVWT+1, PELV+3* , PELV+5, PELV+7, PELVREG+8, PELVREG+9, PHYS+2, PHYS+4, PHYSREG+6, PHYSREG+7, RECTWT+1, RECT+2 , RECT+4*, RECT+6, RECTREG+5, RECTREG+6
APCHMIN	PNEU+5, PNEU+6, PNEUREG+2, BRST+2~, BRSTREG+5, BRSTREG+6, BRSTREG+8, PELVREG+1, PELVREG+5, PELVREG+8 , PHYSREG+2, PHYSREG+4, PHYSREG+6, RECTREG+2, RECTREG+3, RECTREG+5
>> APCHNEXT	PNEU+7, PNEUREG+8, PNEUREG+9, PNEUREG+10, PNEUIHS+9, PNEUIHS+14, REVAX+4, REVAX+7, REVAX+10, REVAX+11 , REVAX+19, REVAX+25, BRST+4, BRSTREG+10, BRSTREG+11, BRSTREG+12, PELV+3, PELVREG+9, PELVREG+10, PELVREG+11 , PHYS+2, PHYSREG+7, PHYSREG+8, PHYSREG+9, RECT+2, RECTREG+6, RECTREG+7, RECTREG+8
>> APCHOVR	PNEU+17, PNEU+18, PNEU+19, BRST+7, BRST+8, BRST+9, PELV+6, PELV+7, PELV+8, RECT+5 , RECT+6, RECT+7
APCHPNEU	PNEU+12!, PNEU+14, PNEU+15, PNEUIHS+9, PNEUIHS+11, PNEUIHS+14, REVAX+4, REVAX+5, REVAX+6, REVAX+8 , REVAX+15, REVAX+16, REVAX+17, REVAX+19, REVAX+21, REVAX+22, REVAX+23, REVAX+24, REVAX+25
>> APCHR	PNEU+2, PNEUIHS+4, PNEUIHS+7, A+2
>> APCHSAGE	PNEUIHS+1, PNEUIHS+6, PNEUIHS+13, REVAX+1, REVAX+2, REVAX+13, A+1, BRSTREG+3, PELVREG+3, PHYSREG+3 , RECTREG+2
>> APCHSC	PNEU+20, PNEUREG+3, PNEUREG+11*
>> APCHSCRI	PNEU+4, PNEU+5, PNEU+6, PNEU+25, BRSTREG+1, BRSTREG+2, BRSTREG+6, PELVREG+1, PELVREG+2, PELVREG+6 , PHYSREG+1, PHYSREG+2, PHYSREG+3, PHYSREG+4, RECTREG+1*, RECTREG+2, RECTREG+3
>> APCHSDOB	REVAX+9, REVAX+23, PELV+4
>> APCHSEX	BRST+3, PELV+2
>> APCHSFLX	PNEU+8, PNEU+20, PNEUREG+3, PNEUREG+11
>> APCHSINT	PNEU+4, PNEU+5, PNEU+6, PNEUREG+1, PNEUREG+8, A+1, A+2, BRSTREG+1, BRSTREG+4, BRSTREG+6 , BRSTREG+7, BRSTREG+10, PELVREG+1, PELVREG+4, PELVREG+6, PELVREG+7, PELVREG+9, PHYSREG+1, PHYSREG+2, PHYSREG+4 , PHYSREG+5, PHYSREG+7, RECTREG+1, RECTREG+2, RECTREG+3*, RECTREG+4, RECTREG+6
>> APCHSITI	PNEU+3, PNEU+4, PNEU+5, PNEU+17, BRST+1, BRST+7, BRSTREG+1, BRSTREG+6, PELV+1, PELV+6 , PELVREG+1, PELVREG+6, PHYS+1, PHYSREG+1, PHYSREG+4, RECT+1, RECT+5, RECTREG+1, RECTREG+3
>> APCHSPAT	PNEU+5, PNEU+9, PNEU+13, PNEU+17, PNEU+21, PNEUREG+2, PNEUREG+4, PNEUREG+12, PNEUIHS+4, PNEUIHS+5 , PNEUIHS+8, PNEUIHS+10, PNEUIHS+14, PNEUIHS+15, BRSTREF+1, BRSTREF+6, BRSTREF+7, BRST+5, BRST+7, BRSTREG+6 , BRSTREG+8, PELVWT+1, PELV+4, PELV+6, PELVREG+1, PELVREG+6, PELVREG+8, PHYS+3, PHYSREG+4, PHYSREG+6 , RECTWT+1, RECT+3, RECT+5, RECTREG+3, RECTREG+5, CHK+3, CHK+5
APCHSTEX	PNEU+7!, BRST+4!, PELV+3!, PHYS+2!, RECT+2!
APCHSTEX(	S+1, S+2*
APCHSTEX(1	PNEUREG+2, PNEUREG+9, PNEUREG+10, PNEUIHS+9, PNEUIHS+14, REVAX+4, REVAX+7, REVAX+10, REVAX+11, REVAX+15 , REVAX+18, REVAX+19, REVAX+21, REVAX+24, REVAX+25, BRSTREG+8, BRSTREG+11, BRSTREG+12, PELVREG+8, PELVREG+10 , PELVREG+11, PHYSREG+6, PHYSREG+8, PHYSREG+9, RECTREG+5, RECTREG+7, RECTREG+8*
>> APCHSURX	PNEU+1, PNEU+23, PNEUREG+1, PNEUREG+6, PNEUREG+14, PNEUIHS+1, PNEUIHS+6, PNEUIHS+13, REVAX+2, REVAX+13 , REVAX+21, REVAX+22, REVAX+23, REVAX+24, REVAX+26, BRSTWT+3, BRSTREG+7, PELVWT+3, PELVREG+7, PHYSWT+2 , PHYSREG+5, RECTWT+3, RECTREG+4
>> APCHSWHR	BRST+4*
>> APCHWHI	BRST+4*
>> APCHWHL	BRST+4*
>> APCHWHN	BRST+4*
APCHX	BRST+4!
APCHY	PNEU+12!, PNEU+16!
APCHY(	PNEU+14
C	S+1~, S+2, PNEU+14, PNEU+15, LPNREF+1~, LPNREF+8, LPNREF+12, CHK+1, CHK+2, CHK+3 , CHK+5, CHK+8, CHK+9
D	PNEUIHS+8, PNEUIHS+9, LPNREF~, LPNREF+1~, LPNREF+2, LPNREF+10, CHK+7
DT	PNEUREG+9, PNEUREG+10, REVAX+6, REVAX+15, REVAX+17, REVAX+24, BRSTREG+11, BRSTREG+12, PELV+4, PELVREG+10 , PELVREG+11, PHYSREG+8, PHYSREG+9, RECT+3, RECTREG+7, RECTREG+8
DUZ(2	PNEUIHS+2
>> E	PNEU+13*
L	LPNREF+1~, LPNREF+4, LPNREF+6, LPNREF+7, LPNREF+8, LPNREF+9, LPNREF+10, LPNREF+12, CHK+8, CHK+9
N	LPNREF+1~, LPNREF+7, LPNREF+12, CHK+5, CHK+8, CHK+9, TYPEREF~, TYPEREF+1, TYPEREF+6
P	LPNREF~
>> T	LPNREF+3*, LPNREF+11
U	PNEU+10, PNEU+14, PNEU+15, PNEU+18, PNEU+19, PNEU+21, PNEUREG+4, PNEUREG+12, PNEUIHS+2, PNEUIHS+10 , PNEUIHS+15, REVAX+5, REVAX+6, REVAX+8, REVAX+16, REVAX+17, REVAX+19, REVAX+22, REVAX+23, REVAX+24 , REVAX+25, BRSTREF+1, BRSTREF+6, BRSTREF+7, BRST+6, BRST+8, BRST+9, PELVWT+1, PELV+5, PELV+7 , PELV+8, PHYS+4, RECTWT+1, RECT+4, RECT+6, RECT+7, LPNREF+7, LPNREF+8, LPNREF+9, CHK+8 , CHK+9, TYPEREF+1
V	PNEU+20, PNEU+21, PNEUREG+3, PNEUREG+4, PNEUREG+11, PNEUREG+12, PNEUIHS+10, PNEUIHS+15, BRSTREF+1, BRSTREF+4 , BRSTREF+5, BRSTREF+6, BRSTREF+7, PELVWT+1, RECTWT+1, LPNREF+1~, LPNREF+4*, LPNREF+13
X	S~, S+2, PNEU+14, PNEU+19, PNEU+21, PNEUREG+4, PNEUREG+12, PNEUIHS+10, PNEUIHS+15, BRSTREF+1 , BRSTREF+6, BRSTREF+7, BRST+9, PELVWT+1, PELV+8, RECTWT+1, RECT+7, LPNREF+1~, CHK+3, CHK+4 , CHK+5, CHK+6
>> Y	LPNREF+11, CHK+6*, CHK+7, CHK+8, CHK+9
>> Z	LPNREF+5*, CHK+1

Customize PDF page

Package: Patient Care Component

Routine: APCHSM01

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: