Routine: APCLAPI4

Package	Total	Call Graph
Patient Care Component Reports	2	($$LASTCPTT,$$LASTDXT,$$LASTITEM,$$LASTPRCT,$$LASTRADT)^APCLAPIU $$VD^APCLV
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Taxonomy	1	$$ICD^ATXAPI

Package	Total	Caller Graph
Patient Care Component	10	APCHPRE1 APCHPWH4 APCHPWH6 APCHS9B3 APCHSM01 APCHSM03 APCHSM04 APCHSM06 APCHSMU2 APCHSTP
Diabetes Registry	7	BDMD013 BDMD113 BDMD413 BDMD913 BDMDA13 BDMDB13 BDMSMU2
Patient Care Component Reports	1	APCLAPIR
iCare	1	BQIRGASU

Entry Points

Name	Comments	DBIA/ICR reference
INRDXV	;
E	;
LASTPNEU(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last PNEUMOVAX ; Return the last recorded PNEUMOVAX: ; - V Immunization: 33, 100, 109 ; - V POV V06.6, V03.82 ; - V PROCEDURE 99.55 ; - V CPT [BGP PNEUMO IZ CPTS]
LASTTD(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last TD ; Return the last recorded TD: ; - V Immunization: 1, 9, 20, 22, 28, 35, 50, 106, 107, 110, 112, 113, 115 ; - V CPT [APCH TD CPTS]
INRDX(P,V,BD,ED)	;PEP - does patient P have a dx in BJPC AC THRPY INDIC DXS taxonomy ; P - DFN ; V - VISIT IEN ; BD - Beginning date for dx search ; ED - ending date for dx search ; caller can pass in V and just that visit will be examined for a diagnosis ; called can pass in BD and ED to determine what date range will be used for dx search ; V overrides BD and ED so if V is passed and BD and ED are passed, BD and ED will be ignored ; If V is null and BD and ED are null then DOB and DT are used ; return value= 1^date of dx^ien of dx^dx code
LASTBE(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last BARIUM ENEMA ; Return the last recorded BARIUM ENEMA: ; - V Radiology [BGP BE CPTS] ; - V CPT [BGP BE CPTS]
LASTFLU(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last FLU ; Return the last recorded FLU: ; - V Immunization: 15, 16, 88, 111 ; - V POV V06.6, V04.81 ; - V PROCEDURE 99.52 ; - V CPT [BGP CPT FLU]
LASTAOF(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last ASSESSMENT FUNCTION ; Return the last recorded ASSESSMENT OF FUNCTION: ; - V ELDER ENTRY
LASTOST(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last OSTEOPOROSIS SCREENING ; Return the last recorded OSTEOPOROSIS SCREENING: ; - V POV V82.81 ; - V PROCEDURE 88.98 ; - V CPT OR V READ [BGP OSTEO SCREEN CPTS]

Name	Field # of Occurrence
$$LASTCPTT^APCLAPIU	LASTTD+62, LASTPNEU+38, LASTFLU+46, LASTBE+26, LASTOST+29
$$LASTDXT^APCLAPIU	LASTPNEU+34, LASTFLU+42, LASTOST+25, INRDX+19
$$LASTITEM^APCLAPIU	LASTTD+24, LASTTD+26, LASTTD+28, LASTTD+30, LASTTD+32, LASTTD+34, LASTTD+36, LASTTD+38, LASTTD+40, LASTTD+42 , LASTTD+44, LASTTD+46, LASTTD+48, LASTTD+50, LASTTD+52, LASTTD+54, LASTTD+56, LASTTD+58, LASTTD+60, LASTPNEU+26 , LASTPNEU+28, LASTPNEU+30, LASTPNEU+32, LASTFLU+26, LASTFLU+28, LASTFLU+30, LASTFLU+32, LASTFLU+34, LASTFLU+36, LASTFLU+38 , LASTFLU+40
$$LASTPRCT^APCLAPIU	LASTPNEU+36, LASTFLU+44, LASTOST+27
$$LASTRADT^APCLAPIU	LASTBE+28, LASTOST+31
$$VD^APCLV	INRDXV+6
$$ICD^ATXAPI	INRDXV+5
$$DOB^AUPNPAT	LASTTD+19, LASTPNEU+21, LASTFLU+21, LASTBE+19, LASTOST+20, LASTAOF+18, INRDX+17
$$VAL^XBDIQ1	INRDX+20, INRDXV+6

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	INRDX+12
^AUPNVELD - [#9000010.35]	LASTAOF+26, LASTAOF+27, LASTAOF+29
^AUPNVELD("AA"	LASTAOF+23, LASTAOF+24
^AUPNVPOV - [#9000010.07]	INRDX+20, INRDXV+3, INRDXV+4, INRDXV+6
^AUPNVPOV("AD"	INRDXV+2
^AUPNVSIT - [#9000010]	INRDX+16

Name	Line Occurrences
E	LASTTD+25, LASTTD+27, LASTTD+29, LASTTD+31, LASTTD+33, LASTTD+35, LASTTD+37, LASTTD+39, LASTTD+41, LASTTD+43 , LASTTD+45, LASTTD+47, LASTTD+49, LASTTD+51, LASTTD+53, LASTTD+55, LASTTD+57, LASTTD+59, LASTTD+61, LASTTD+63 , LASTPNEU+27, LASTPNEU+29, LASTPNEU+31, LASTPNEU+33, LASTPNEU+35, LASTPNEU+37, LASTPNEU+39, LASTFLU+27, LASTFLU+29, LASTFLU+31 , LASTFLU+33, LASTFLU+35, LASTFLU+37, LASTFLU+39, LASTFLU+41, LASTFLU+43, LASTFLU+45, LASTFLU+47, LASTBE+27, LASTBE+29 , LASTOST+26, LASTOST+28, LASTOST+30, LASTOST+32
INRDXV	INRDX+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	INRDXV+1~, INRDXV+2*, INRDXV+3, INRDXV+4, INRDXV+6
APCLBD	LASTTD~, LASTTD+19, LASTTD+24, LASTTD+26, LASTTD+28, LASTTD+30, LASTTD+32, LASTTD+34, LASTTD+36, LASTTD+38 , LASTTD+40, LASTTD+42, LASTTD+44, LASTTD+46, LASTTD+48, LASTTD+50, LASTTD+52, LASTTD+54, LASTTD+56, LASTTD+58 , LASTTD+60, LASTTD+62, LASTPNEU~, LASTPNEU+21, LASTPNEU+26, LASTPNEU+28, LASTPNEU+30, LASTPNEU+32, LASTPNEU+34, LASTPNEU+36 , LASTPNEU+38, LASTFLU~, LASTFLU+21, LASTFLU+26, LASTFLU+28, LASTFLU+30, LASTFLU+32, LASTFLU+34, LASTFLU+36, LASTFLU+38 , LASTFLU+40, LASTFLU+42, LASTFLU+44, LASTFLU+46, LASTBE~, LASTBE+19, LASTBE+26, LASTBE+28, LASTOST~, LASTOST+20* , LASTOST+25, LASTOST+27, LASTOST+29, LASTOST+31, LASTAOF~, LASTAOF+18*
APCLED	LASTTD~, LASTTD+20, LASTTD+24, LASTTD+26, LASTTD+28, LASTTD+30, LASTTD+32, LASTTD+34, LASTTD+36, LASTTD+38 , LASTTD+40, LASTTD+42, LASTTD+44, LASTTD+46, LASTTD+48, LASTTD+50, LASTTD+52, LASTTD+54, LASTTD+56, LASTTD+58 , LASTTD+60, LASTTD+62, LASTPNEU~, LASTPNEU+22, LASTPNEU+26, LASTPNEU+28, LASTPNEU+30, LASTPNEU+32, LASTPNEU+34, LASTPNEU+36 , LASTPNEU+38, LASTFLU~, LASTFLU+22, LASTFLU+26, LASTFLU+28, LASTFLU+30, LASTFLU+32, LASTFLU+34, LASTFLU+36, LASTFLU+38 , LASTFLU+40, LASTFLU+42, LASTFLU+44, LASTFLU+46, LASTBE~, LASTBE+20, LASTBE+26, LASTBE+28, LASTOST~, LASTOST+21* , LASTOST+25, LASTOST+27, LASTOST+29, LASTOST+31, LASTAOF~, LASTAOF+19*
APCLF	LASTTD+22~, LASTPNEU+24~, LASTFLU+24~, LASTBE+22~, LASTOST+23~, LASTAOF+21~
APCLFORM	LASTTD~, LASTTD+21, LASTTD+64, LASTPNEU~, LASTPNEU+23, LASTPNEU+40, LASTFLU~, LASTFLU+23, LASTFLU+48, LASTBE~ , LASTBE+21, LASTBE+30, LASTOST~, LASTOST+22, LASTOST+33, LASTAOF~, LASTAOF+20, LASTAOF+30
APCLLAST	LASTTD+22~, LASTTD+23, LASTTD+24, LASTTD+26, LASTTD+28, LASTTD+30, LASTTD+32, LASTTD+34, LASTTD+36, LASTTD+38 , LASTTD+40, LASTTD+42, LASTTD+44, LASTTD+46, LASTTD+48, LASTTD+50, LASTTD+52, LASTTD+54, LASTTD+56, LASTTD+58 , LASTTD+60, LASTTD+62, LASTTD+64, LASTTD+65, E+1, LASTPNEU+24~, LASTPNEU+25, LASTPNEU+26, LASTPNEU+28, LASTPNEU+30 , LASTPNEU+32, LASTPNEU+34, LASTPNEU+36, LASTPNEU+38, LASTPNEU+40, LASTPNEU+41, LASTFLU+24~, LASTFLU+25, LASTFLU+26, LASTFLU+28 , LASTFLU+30, LASTFLU+32, LASTFLU+34, LASTFLU+36, LASTFLU+38, LASTFLU+40, LASTFLU+42, LASTFLU+44, LASTFLU+46, LASTFLU+48 , LASTFLU+49, LASTBE+22~, LASTBE+23, LASTBE+26, LASTBE+28, LASTBE+30, LASTBE+31, LASTOST+23~, LASTOST+24, LASTOST+25 , LASTOST+27, LASTOST+29, LASTOST+31, LASTOST+33, LASTOST+34, LASTAOF+21~, LASTAOF+22, LASTAOF+23, LASTAOF+24, LASTAOF+29 , LASTAOF+30, LASTAOF+31
APCLPDFN	LASTTD~, LASTTD+18, LASTTD+19, LASTTD+24, LASTTD+26, LASTTD+28, LASTTD+30, LASTTD+32, LASTTD+34, LASTTD+36 , LASTTD+38, LASTTD+40, LASTTD+42, LASTTD+44, LASTTD+46, LASTTD+48, LASTTD+50, LASTTD+52, LASTTD+54, LASTTD+56 , LASTTD+58, LASTTD+60, LASTTD+62, LASTPNEU~, LASTPNEU+20, LASTPNEU+21, LASTPNEU+26, LASTPNEU+28, LASTPNEU+30, LASTPNEU+32 , LASTPNEU+34, LASTPNEU+36, LASTPNEU+38, LASTFLU~, LASTFLU+20, LASTFLU+21, LASTFLU+26, LASTFLU+28, LASTFLU+30, LASTFLU+32 , LASTFLU+34, LASTFLU+36, LASTFLU+38, LASTFLU+40, LASTFLU+42, LASTFLU+44, LASTFLU+46, LASTBE~, LASTBE+18, LASTBE+19 , LASTBE+26, LASTBE+28, LASTOST~, LASTOST+19, LASTOST+20, LASTOST+25, LASTOST+27, LASTOST+29, LASTOST+31, LASTAOF~ , LASTAOF+17, LASTAOF+18, LASTAOF+23, LASTAOF+24
APCLVAL	LASTTD+22~, LASTTD+24, LASTTD+26, LASTTD+28, LASTTD+30, LASTTD+32, LASTTD+34, LASTTD+36, LASTTD+38, LASTTD+40* , LASTTD+42, LASTTD+44, LASTTD+46, LASTTD+48, LASTTD+50, LASTTD+52, LASTTD+54, LASTTD+56, LASTTD+58, LASTTD+60 , LASTTD+62, E+1, LASTPNEU+24~, LASTPNEU+26, LASTPNEU+28, LASTPNEU+30, LASTPNEU+32, LASTPNEU+34, LASTPNEU+36, LASTPNEU+38 , LASTFLU+24~, LASTFLU+26, LASTFLU+28, LASTFLU+30, LASTFLU+32, LASTFLU+34, LASTFLU+36, LASTFLU+38, LASTFLU+40, LASTFLU+42* , LASTFLU+44, LASTFLU+46, LASTBE+22~, LASTBE+26, LASTBE+28, LASTOST+23~, LASTOST+25, LASTOST+27, LASTOST+29, LASTOST+31 , LASTAOF+21~, LASTAOF+23*, LASTAOF+24, LASTAOF+29
APCLX	LASTTD+22~, LASTPNEU+24~, LASTFLU+24~, LASTBE+22~, LASTOST+23~, LASTAOF+21~, LASTAOF+24*, LASTAOF+26, LASTAOF+27, LASTAOF+29
APCLY	LASTTD+22~, LASTPNEU+24~, LASTFLU+24~, LASTBE+22~, LASTOST+23~, LASTAOF+21~
B	INRDXV+1~, INRDXV+4*, INRDXV+5
BD	INRDX~, INRDX+17*, INRDX+19
DT	LASTTD+20, LASTPNEU+22, LASTFLU+22, LASTBE+20, LASTOST+21, LASTAOF+19, INRDX+18
E	LASTTD+22~, LASTPNEU+24~, LASTFLU+24~, LASTBE+22~, LASTOST+23~, LASTAOF+21~
ED	INRDX~, INRDX+18*, INRDX+19
G	LASTTD+22~, LASTPNEU+24~, LASTFLU+24~, LASTBE+22~, LASTOST+23~, LASTAOF+21~, LASTAOF+27*, LASTAOF+28
P	INRDX~, INRDX+14, INRDX+17, INRDX+19
R	LASTTD+22~, LASTPNEU+24~, LASTFLU+24~, LASTBE+22~, LASTOST+23~, LASTAOF+21~, INRDX+11~, INRDX+15, INRDX+19, INRDX+20 , INRDXV+2, INRDXV+6*, INRDXV+7
T	LASTTD+22~, LASTPNEU+24~, LASTFLU+24~, LASTBE+22~, LASTOST+23~, LASTAOF+21~, INRDX+11~, INRDX+12*, INRDX+13, INRDXV+5
U	LASTTD+24, LASTTD+26, LASTTD+28, LASTTD+30, LASTTD+32, LASTTD+34, LASTTD+36, LASTTD+38, LASTTD+40, LASTTD+42 , LASTTD+44, LASTTD+46, LASTTD+48, LASTTD+50, LASTTD+52, LASTTD+54, LASTTD+56, LASTTD+58, LASTTD+60, LASTTD+62 , LASTTD+64, E+1, LASTPNEU+26, LASTPNEU+28, LASTPNEU+30, LASTPNEU+32, LASTPNEU+34, LASTPNEU+36, LASTPNEU+38, LASTPNEU+40 , LASTFLU+26, LASTFLU+28, LASTFLU+30, LASTFLU+32, LASTFLU+34, LASTFLU+36, LASTFLU+38, LASTFLU+40, LASTFLU+42, LASTFLU+44 , LASTFLU+46, LASTFLU+48, LASTBE+26, LASTBE+28, LASTBE+30, LASTOST+25, LASTOST+27, LASTOST+29, LASTOST+31, LASTOST+33 , LASTAOF+27, LASTAOF+29, LASTAOF+30, INRDX+20, INRDXV+4, INRDXV+6
V	LASTTD+22~, LASTPNEU+24~, LASTFLU+24~, LASTBE+22~, LASTOST+23~, LASTAOF+21~, INRDX~, INRDX+16, INRDXV+2, INRDXV+6
X	LASTTD+22~, LASTPNEU+24~, LASTFLU+24~, LASTBE+22~, LASTOST+23~, LASTAOF+21~, LASTAOF+27*
Y	LASTTD+22~, LASTPNEU+24~, LASTFLU+24~, LASTBE+22~, LASTOST+23~, LASTAOF+21~

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLAPI4

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 19

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: