Routine: APCLAPI7

Package	Total	Call Graph
DRG Grouper	1	$$CPT^ICPTCOD
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Patient Care Component Reports	1	($$LASTCPTT,$$LASTHF,$$LASTITEM)^APCLAPIU

Package	Total	Caller Graph
Patient Care Component	5	APCHS1 APCHS1A APCHS1B APCHS1C APCHSAST
Health Summary Components	3	BHSAST BHSBDEM BHSDEM
Patient Care Component Reports	1	APCLAPI6

Entry Points

Name	Comments	DBIA/ICR reference
PREFLANG(P,EDATE,F)	;EP - return the patient's preferred language as of date EDATE
E	;
LASTNAA	;EP ; Return the last recorded NO ACTIVE PROBLEMS FROM V UPDATED/REVIEWED: ; .09 OF V UPDATED/REVIEWED is set to 1 ; ; Input: ; APCLPDFN - Patient DFN ; APCLBD - beginning date to begin search for value - if blank, default is DOB ; APCLED - ending date of search - if blank, default is DT ; APCLFORM - APCLFORM returned: D - return date only - example 3070801 ; A - return value: ; date^text of item found^provider who documented^visit ien^File found in^ien of file found in ; Default if blank is D ; Output: ; If APCLFORM is blank or APCLFORM is D returns internal fileman date if one found otherwise returns null ; If APCLFORM is A returns the string: ; date^text of item found^PROVIDER^visit ien^File found in^ien of file found in ;
LASTSMOK(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last TOBACCO (SMOKING) ; Return the last recorded TOBACCO SMOKING SCREENING: ; - V Health Factor in Category TOBACCO (SMOKING) ; - V CPT [BGP SMOKING CPTS] ; - V POV [BGP GPRA SMOKING DXS] ; - V DENTAL ADA 1320 ; ; Input: ; APCLPDFN - Patient DFN ; APCLBD - beginning date to begin search for value - if blank, default is DOB ; APCLED - ending date of search - if blank, default is DT ; APCLFORM - APCLFORM returned: D - return date only - example 3070801 ; A - return value: ; date^text of item found^value if appropriate^visit ien^File found in^ien of file found in ;
LASTEDD(P)	;PEP - LAST DOCUMENTED EDD
ETHN(P,F)	;EP
LASTSMEX(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last TOBACCO (EXPOSURE) ; Return the last recorded TOBACCO SMOKING EXPOSURE SCREENING: ; - V Health Factor in Category TOBACCO (EXPOSURE) ; ; Input: ; APCLPDFN - Patient DFN ; APCLBD - beginning date to begin search for value - if blank, default is DOB ; APCLED - ending date of search - if blank, default is DT ; APCLFORM - APCLFORM returned: D - return date only - example 3070801 ; A - return value: ; date^text of item found^value if appropriate^visit ien^File found in^ien of file found in ;
VR	;EP
LASTSMLE(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last TOBACCO (SMOKING) ; Return the last recorded TOBACCO SMOKING SCREENING: ; - V Health Factor in Category TOBACCO (SMOKLESS - CHEWING/DIP) ; - V CPT [BGP SMOKELESS TOBACCO CPTS] ; - V DENTAL ADA 1320 ; ; Input: ; APCLPDFN - Patient DFN ; APCLBD - beginning date to begin search for value - if blank, default is DOB ; APCLED - ending date of search - if blank, default is DT ; APCLFORM - APCLFORM returned: D - return date only - example 3070801 ; A - return value: ; date^text of item found^value if appropriate^visit ien^File found in^ien of file found in ;
DEFEDD(P)	;PEP - return definitive EDD Date^definitive EDD type

Name	Field # of Occurrence
$$LASTCPTT^APCLAPIU	LASTSMOK+24, LASTSMLE+23
$$LASTHF^APCLAPIU	LASTSMOK+21, LASTSMLE+20, LASTSMEX+18
$$LASTITEM^APCLAPIU	LASTSMOK+26, LASTSMOK+28, LASTSMLE+25
$$DOB^AUPNPAT	LASTSMOK+16, LASTSMLE+15, LASTSMEX+13, LASTNAA+18
$$CPT^ICPTCOD	VR+1
$$VAL^XBDIQ1	VR+1, LASTNAA+31
$$VALI^XBDIQ1	DEFEDD+4

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PREFLANG+2, PREFLANG+3, PREFLANG+8, PREFLANG+9, PREFLANG+10
^AUPNREP - [#9000017]	DEFEDD+2, LASTEDD+2, LASTEDD+5, LASTEDD+6, LASTEDD+7, LASTEDD+8, LASTEDD+9, LASTEDD+10, LASTEDD+11, LASTEDD+12 , LASTEDD+13
^AUPNVRAD - [#9000010.22]	VR+1
^AUPNVRUP - [#9000010.54]	LASTNAA+29, LASTNAA+30, LASTNAA+31
^AUPNVRUP("AA"	LASTNAA+27, LASTNAA+28
^AUTTCRA("C"	LASTNAA+25
^AUTTLANG - [#9999999.99]	PREFLANG+12
^DIC(10.2 - [#10.2]	ETHN+9
^DPT - [#2]	ETHN+3, ETHN+6, ETHN+7

Name	Line Occurrences
E	LASTSMOK+22, LASTSMOK+25, LASTSMOK+27, LASTSMOK+29, LASTSMLE+21, LASTSMLE+24, LASTSMLE+26, LASTSMEX+19, LASTNAA+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCLBD	LASTSMOK~, LASTSMOK+16, LASTSMOK+21, LASTSMOK+23, LASTSMOK+26, LASTSMOK+28, LASTSMLE~, LASTSMLE+15, LASTSMLE+20, LASTSMLE+22 , LASTSMLE+25, LASTSMEX~, LASTSMEX+13, LASTSMEX+18, LASTSMEX+20, LASTNAA+18, LASTNAA+22
APCLED	LASTSMOK~, LASTSMOK+17, LASTSMOK+21, LASTSMOK+24, LASTSMOK+26, LASTSMOK+28, LASTSMLE~, LASTSMLE+16, LASTSMLE+20, LASTSMLE+23 , LASTSMLE+25, LASTSMEX~, LASTSMEX+14, LASTSMEX+18, LASTNAA+19, LASTNAA+23
APCLFORM	LASTSMOK~, LASTSMOK+18, LASTSMOK+30, LASTSMLE~, LASTSMLE+17, LASTSMLE+27, LASTSMEX~, LASTSMEX+15, LASTSMEX+21, LASTNAA+20 , LASTNAA+33
APCLLAST	VR+1, E+1, LASTSMOK+19~, LASTSMOK+20, LASTSMOK+21, LASTSMOK+23, LASTSMOK+26, LASTSMOK+28, LASTSMOK+30, LASTSMOK+31 , LASTSMLE+18~, LASTSMLE+19, LASTSMLE+20, LASTSMLE+22, LASTSMLE+25, LASTSMLE+27, LASTSMLE+28, LASTSMEX+16~, LASTSMEX+17, LASTSMEX+18 , LASTSMEX+20, LASTSMEX+21, LASTSMEX+22, LASTNAA+21~, LASTNAA+24, LASTNAA+33, LASTNAA+34
APCLPDFN	LASTSMOK~, LASTSMOK+15, LASTSMOK+16, LASTSMOK+21, LASTSMOK+24, LASTSMOK+26, LASTSMOK+28, LASTSMLE~, LASTSMLE+14, LASTSMLE+15 , LASTSMLE+20, LASTSMLE+23, LASTSMLE+25, LASTSMEX~, LASTSMEX+12, LASTSMEX+13, LASTSMEX+18, LASTNAA+17, LASTNAA+18, LASTNAA+27 , LASTNAA+28
APCLVAL	E+1, LASTSMOK+19~, LASTSMOK+21, LASTSMOK+24, LASTSMOK+26, LASTSMOK+28, LASTSMLE+18~, LASTSMLE+20, LASTSMLE+23, LASTSMLE+25* , LASTSMEX+16~, LASTSMEX+18, LASTNAA+21~, LASTNAA+31
APCLX	LASTSMOK+19~, LASTSMLE+18~, LASTSMEX+16~, LASTNAA+21~
BD	LASTNAA+21~, LASTNAA+22*, LASTNAA+27
D	PREFLANG+6~, PREFLANG+7, PREFLANG+8, PREFLANG+9, LASTNAA+21~, LASTNAA+27*, LASTNAA+28
DT	LASTSMOK+17, LASTSMLE+16, LASTSMEX+14, PREFLANG+5, LASTNAA+19
E	LASTSMOK+19~, LASTSMLE+18~, LASTSMEX+16~, ETHN+4~, ETHN+5, ETHN+6, ETHN+9, ETHN+11, LASTNAA+21~
ED	LASTNAA+21~, LASTNAA+23*, LASTNAA+27
EDATE	PREFLANG~, PREFLANG+5*, PREFLANG+8
F	PREFLANG~, PREFLANG+4, PREFLANG+12, PREFLANG+13, ETHN~, ETHN+2, ETHN+11, ETHN+12
G	LASTNAA+21~
I	ETHN+4~, ETHN+5, ETHN+7, ETHN+8, ETHN+9, ETHN+12
LAST	LASTEDD+3~, LASTEDD+4, LASTEDD+5, LASTEDD+7, LASTEDD+9, LASTEDD+11, LASTEDD+13, LASTEDD+14
LASTDOC	LASTEDD+3~, LASTEDD+4, LASTEDD+5, LASTEDD+7, LASTEDD+9, LASTEDD+11, LASTEDD+13
P	PREFLANG~, PREFLANG+1, PREFLANG+2, PREFLANG+3, PREFLANG+8, PREFLANG+9, PREFLANG+10, ETHN~, ETHN+1, ETHN+3 , ETHN+6, ETHN+7, DEFEDD~, DEFEDD+1, DEFEDD+2, DEFEDD+4, LASTEDD~, LASTEDD+1, LASTEDD+2, LASTEDD+5 , LASTEDD+6, LASTEDD+7, LASTEDD+8, LASTEDD+9, LASTEDD+10, LASTEDD+11, LASTEDD+12, LASTEDD+13
R	LASTSMOK+19~, LASTSMOK+23, LASTSMOK+24, LASTSMLE+18~, LASTSMLE+22, LASTSMLE+23, LASTSMEX+16~, LASTSMEX+20*, LASTNAA+21~
U	VR+1, E+1, LASTSMOK+21, LASTSMOK+23, LASTSMOK+26, LASTSMOK+28, LASTSMOK+30, LASTSMLE+20, LASTSMLE+22, LASTSMLE+25 , LASTSMLE+27, LASTSMEX+18, LASTSMEX+20, LASTSMEX+21, PREFLANG+10, PREFLANG+12, ETHN+7, ETHN+9, LASTNAA+30, LASTNAA+31 , LASTNAA+33, LASTEDD+5, LASTEDD+6, LASTEDD+7, LASTEDD+8, LASTEDD+9, LASTEDD+10, LASTEDD+11, LASTEDD+12, LASTEDD+13
V	LASTSMOK+19~, LASTSMLE+18~, LASTSMEX+16~, LASTNAA+21~, LASTNAA+25*, LASTNAA+26, LASTNAA+27, LASTNAA+28
X	VR+1, LASTSMOK+19~, LASTSMLE+18~, LASTSMEX+16~, PREFLANG+6~, PREFLANG+7, PREFLANG+9, PREFLANG+10, LASTNAA+21~, LASTNAA+28* , LASTNAA+29, LASTNAA+30, LASTNAA+31, DEFEDD+3~, LASTEDD+3~, LASTEDD+5, LASTEDD+6, LASTEDD+7, LASTEDD+8, LASTEDD+9 , LASTEDD+10, LASTEDD+11, LASTEDD+12*, LASTEDD+13
Y	VR+1, LASTSMOK+19~, LASTSMLE+18~, LASTSMEX+16~, PREFLANG+6~, PREFLANG+7, PREFLANG+10, PREFLANG+12, PREFLANG+13, PREFLANG+14 , LASTNAA+21~, DEFEDD+3~, LASTEDD+3~
Z	ETHN+4~, ETHN+6*, ETHN+7

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLAPI7

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: