Routine: APCLAPI6

Package	Total	Call Graph
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Patient Care Component Reports	1	LASTNAA^APCLAPI7

Package

Total

Call Graph

IHS Patient

$$DOB^AUPNPAT

IHS VA Utilities

$$VAL^XBDIQ1

Patient Care Component Reports

LASTNAA^APCLAPI7

Package	Total	Caller Graph
Patient Care Component	7	APCDPL APCDPROB APCHS4 APCHS40 APCHS7 APCHS70 APCHS79
Patient Care Component Table Maintiance	5	APCM11E4 APCM13E4 APCM14E4 APCM24E4 APCM25E4
Health Summary Components	4	BHSALG BHSMED BHSPL BHSPLST
iCare	4	BQIMTCRD BQIMUVFL BQIRPL BQIRPLN
Mental Health Social Services	1	AMHGBPL

Package

Total

Caller Graph

Patient Care Component

APCDPL APCDPROB APCHS4 APCHS40 APCHS7 APCHS70 APCHS79

Patient Care Component Table Maintiance

APCM11E4 APCM13E4 APCM14E4 APCM24E4 APCM25E4

Health Summary Components

BHSALG BHSMED BHSPL BHSPLST

iCare

BQIMTCRD BQIMUVFL BQIRPL BQIRPLN

Mental Health Social Services

AMHGBPL

Entry Points

Name	Comments	DBIA/ICR reference
LASTALU(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last ALLERGY UPDATE ; Return the last recorded ALLERGY UPDATED FROM V UPDATED/REVIEWED: ; .11 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 ;
LASTALR(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last ALLERGY LIST REVIEWED ; Return the last recorded ALLERGY LIST REVIEWED FROM V UPDATED/REVIEWED: ; .04 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 ;
E	;
LASTNAP(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last NO ACTIVE PROBLEMS ; 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 ;
LASTNAA(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last NO ACTIVE ALLERGIES
UPREVP	;EP - IS UPDATE/REVIEWED I ON VISIT V?
LASTNAM(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last NO ACTIVE PROBLEMS ; 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 ;
LASTMLR(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last MEDICATION LIST REVIEWED ; Return the last recorded MEDICATION LIST REVIEWED FROM V UPDATED/REVIEWED: ; .04 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 ;
LASTPLR(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last PROBLEM LIST REVIEWED ; Return the last recorded PROBLEM LIST REVIEWED FROM V UPDATED/REVIEWED: ; .04 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 ;
LASTMLU(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last PROBLEM LIST UPDATE ; Return the last recorded PROBLEM LIST UPDATED FROM V UPDATED/REVIEWED: ; .11 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 ;
LASTPLU(APCLPDFN,APCLBD,APCLED,APCLFORM)	;PEP - date of last PROBLEM LIST UPDATE ; Return the last recorded PROBLEM LIST UPDATED FROM V UPDATED/REVIEWED: ; .11 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 ;
PRREV	;EP = set
UPREV(V,I)	;EP - IS UPDATE/REVIEWED I ON VISIT V?
UPREVPP	;EP = set

External References

Name	Field # of Occurrence
LASTNAA^APCLAPI7	LASTNAA+1
$$DOB^AUPNPAT	LASTPLR+18, LASTPLU+18, LASTNAP+18, LASTALR+18, LASTMLR+18, LASTMLU+18, LASTNAM+18, LASTALU+18
$$VAL^XBDIQ1	LASTPLR+31, LASTPLU+31, LASTNAP+31, PRREV+9, UPREVPP+10, LASTALR+31, LASTMLR+31, LASTMLU+31, LASTNAM+31, LASTALU+31

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVRUP - [#9000010.54]	LASTPLR+29, LASTPLR+30, LASTPLR+31, LASTPLU+29, LASTPLU+30, LASTPLU+31, LASTNAP+29, LASTNAP+30, LASTNAP+31, UPREV+8 , UPREV+9, UPREV+10, PRREV+6, PRREV+7, PRREV+8, UPREVP+6, UPREVP+7, UPREVP+8, UPREVP+9, UPREVPP+6 , UPREVPP+7, UPREVPP+8, UPREVPP+9, LASTALR+29, LASTALR+30, LASTALR+31, LASTMLR+29, LASTMLR+30, LASTMLR+31, LASTMLU+29 , LASTMLU+30, LASTMLU+31, LASTNAM+29, LASTNAM+30, LASTNAM+31, LASTALU+29, LASTALU+30, LASTALU+31
^AUPNVRUP("AA"	LASTPLR+27, LASTPLR+28, LASTPLU+27, LASTPLU+28, LASTNAP+27, LASTNAP+28, LASTALR+27, LASTALR+28, LASTMLR+27, LASTMLR+28 , LASTMLU+27, LASTMLU+28, LASTNAM+27, LASTNAM+28, LASTALU+27, LASTALU+28
^AUPNVRUP("AD"	UPREV+7, PRREV+5, UPREVP+5, UPREVPP+5
^AUTTCRA("C"	LASTPLR+25, LASTPLU+25, LASTNAP+25, UPREV+5, PRREV+3, UPREVP+3, UPREVPP+3, LASTALR+25, LASTMLR+25, LASTMLU+25 , LASTNAM+25, LASTALU+25

Name	Line Occurrences
E	LASTPLR+32, LASTPLU+32, LASTNAP+32, LASTALR+32, LASTMLR+32, LASTMLU+32, LASTNAM+32, LASTALU+32

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCLBD	LASTPLR~, LASTPLR+18, LASTPLR+22, LASTPLU~, LASTPLU+18, LASTPLU+22, LASTNAP~, LASTNAP+18, LASTNAP+22, LASTALR~ , LASTALR+18, LASTALR+22, LASTMLR~, LASTMLR+18, LASTMLR+22, LASTMLU~, LASTMLU+18, LASTMLU+22, LASTNAM~, LASTNAM+18* , LASTNAM+22, LASTALU~, LASTALU+18*, LASTALU+22, LASTNAA~
APCLED	LASTPLR~, LASTPLR+19, LASTPLR+23, LASTPLU~, LASTPLU+19, LASTPLU+23, LASTNAP~, LASTNAP+19, LASTNAP+23, LASTALR~ , LASTALR+19, LASTALR+23, LASTMLR~, LASTMLR+19, LASTMLR+23, LASTMLU~, LASTMLU+19, LASTMLU+23, LASTNAM~, LASTNAM+19* , LASTNAM+23, LASTALU~, LASTALU+19*, LASTALU+23, LASTNAA~
APCLFORM	LASTPLR~, LASTPLR+20, LASTPLR+33, LASTPLU~, LASTPLU+20, LASTPLU+33, LASTNAP~, LASTNAP+20, LASTNAP+33, LASTALR~ , LASTALR+20, LASTALR+33, LASTMLR~, LASTMLR+20, LASTMLR+33, LASTMLU~, LASTMLU+20, LASTMLU+33, LASTNAM~, LASTNAM+20* , LASTNAM+33, LASTALU~, LASTALU+20*, LASTALU+33, LASTNAA~
APCLLAST	LASTPLR+21~, LASTPLR+24, LASTPLR+33, LASTPLR+34, E+1, LASTPLU+21~, LASTPLU+24, LASTPLU+33, LASTPLU+34, LASTNAP+21~ , LASTNAP+24, LASTNAP+33, LASTNAP+34, LASTALR+21~, LASTALR+24, LASTALR+33, LASTALR+34, LASTMLR+21~, LASTMLR+24, LASTMLR+33 , LASTMLR+34, LASTMLU+21~, LASTMLU+24, LASTMLU+33, LASTMLU+34, LASTNAM+21~, LASTNAM+24, LASTNAM+33, LASTNAM+34, LASTALU+21~ , LASTALU+24*, LASTALU+33, LASTALU+34
>> APCLPCNT	PRREV+9, UPREVPP+10
APCLPDFN	LASTPLR~, LASTPLR+17, LASTPLR+18, LASTPLR+27, LASTPLR+28, LASTPLU~, LASTPLU+17, LASTPLU+18, LASTPLU+27, LASTPLU+28 , LASTNAP~, LASTNAP+17, LASTNAP+18, LASTNAP+27, LASTNAP+28, LASTALR~, LASTALR+17, LASTALR+18, LASTALR+27, LASTALR+28 , LASTMLR~, LASTMLR+17, LASTMLR+18, LASTMLR+27, LASTMLR+28, LASTMLU~, LASTMLU+17, LASTMLU+18, LASTMLU+27, LASTMLU+28 , LASTNAM~, LASTNAM+17, LASTNAM+18, LASTNAM+27, LASTNAM+28, LASTALU~, LASTALU+17, LASTALU+18, LASTALU+27, LASTALU+28 , LASTNAA~
>> APCLPRNM(	PRREV+9, UPREVPP+10
APCLVAL	LASTPLR+21~, LASTPLR+31, E+1, LASTPLU+21~, LASTPLU+31, LASTNAP+21~, LASTNAP+31, PRREV+3, UPREVP+3, UPREVPP+3 , LASTALR+21~, LASTALR+31, LASTMLR+21~, LASTMLR+31, LASTMLU+21~, LASTMLU+31, LASTNAM+21~, LASTNAM+31, LASTALU+21~, LASTALU+31
>> APCLVIEN	PRREV+5, UPREVP+5, UPREVPP+5
APCLX	LASTPLR+21~, LASTPLU+21~, LASTNAP+21~, LASTALR+21~, LASTMLR+21~, LASTMLU+21~, LASTNAM+21~, LASTALU+21~
BD	LASTPLR+21~, LASTPLR+22, LASTPLR+27, LASTPLU+21~, LASTPLU+22, LASTPLU+27, LASTNAP+21~, LASTNAP+22, LASTNAP+27, LASTALR+21~ , LASTALR+22, LASTALR+27, LASTMLR+21~, LASTMLR+22, LASTMLR+27, LASTMLU+21~, LASTMLU+22, LASTMLU+27, LASTNAM+21~, LASTNAM+22* , LASTNAM+27, LASTALU+21~, LASTALU+22*, LASTALU+27
D	LASTPLR+21~, LASTPLR+27, LASTPLR+28, LASTPLU+21~, LASTPLU+27, LASTPLU+28, LASTNAP+21~, LASTNAP+27, LASTNAP+28, LASTALR+21~ , LASTALR+27, LASTALR+28, LASTMLR+21~, LASTMLR+27, LASTMLR+28, LASTMLU+21~, LASTMLU+27, LASTMLU+28, LASTNAM+21~, LASTNAM+27* , LASTNAM+28, LASTALU+21~, LASTALU+27*, LASTALU+28
DT	LASTPLR+19, LASTPLU+19, LASTNAP+19, LASTALR+19, LASTMLR+19, LASTMLU+19, LASTNAM+19, LASTALU+19
E	LASTPLR+21~, LASTPLU+21~, LASTNAP+21~, LASTALR+21~, LASTMLR+21~, LASTMLU+21~, LASTNAM+21~, LASTALU+21~
ED	LASTPLR+21~, LASTPLR+23, LASTPLR+27, LASTPLU+21~, LASTPLU+23, LASTPLU+27, LASTNAP+21~, LASTNAP+23, LASTNAP+27, LASTALR+21~ , LASTALR+23, LASTALR+27, LASTMLR+21~, LASTMLR+23, LASTMLR+27, LASTMLU+21~, LASTMLU+23, LASTMLU+27, LASTNAM+21~, LASTNAM+23* , LASTNAM+27, LASTALU+21~, LASTALU+23*, LASTALU+27
G	LASTPLR+21~, LASTPLU+21~, LASTNAP+21~, LASTALR+21~, LASTMLR+21~, LASTMLU+21~, LASTNAM+21~, LASTALU+21~
I	UPREV~, UPREV+2, UPREV+5
R	LASTPLR+21~, LASTPLU+21~, LASTNAP+21~, LASTALR+21~, LASTMLR+21~, LASTMLU+21~, LASTNAM+21~, LASTALU+21~
U	LASTPLR+30, LASTPLR+31, LASTPLR+33, E+1, LASTPLU+30, LASTPLU+31, LASTPLU+33, LASTNAP+30, LASTNAP+31, LASTNAP+33 , UPREV+8, UPREV+10, PRREV+6, PRREV+8, UPREVP+6, UPREVP+8, UPREVP+9, UPREVPP+6, UPREVPP+8, UPREVPP+9 , LASTALR+30, LASTALR+31, LASTALR+33, LASTMLR+30, LASTMLR+31, LASTMLR+33, LASTMLU+30, LASTMLU+31, LASTMLU+33, LASTNAM+30 , LASTNAM+31, LASTNAM+33, LASTALU+30, LASTALU+31, LASTALU+33
V	LASTPLR+21~, LASTPLR+25, LASTPLR+26, LASTPLR+27, LASTPLR+28, LASTPLU+21~, LASTPLU+25, LASTPLU+26, LASTPLU+27, LASTPLU+28 , LASTNAP+21~, LASTNAP+25, LASTNAP+26, LASTNAP+27, LASTNAP+28, UPREV~, UPREV+1, UPREV+7, LASTALR+21~, LASTALR+25 , LASTALR+26, LASTALR+27, LASTALR+28, LASTMLR+21~, LASTMLR+25, LASTMLR+26, LASTMLR+27, LASTMLR+28, LASTMLU+21~, LASTMLU+25 , LASTMLU+26, LASTMLU+27, LASTMLU+28, LASTNAM+21~, LASTNAM+25, LASTNAM+26, LASTNAM+27, LASTNAM+28, LASTALU+21~, LASTALU+25 , LASTALU+26, LASTALU+27, LASTALU+28
X	LASTPLR+21~, LASTPLR+28, LASTPLR+29, LASTPLR+30, LASTPLR+31, LASTPLU+21~, LASTPLU+28, LASTPLU+29, LASTPLU+30, LASTPLU+31 , LASTNAP+21~, LASTNAP+28, LASTNAP+29, LASTNAP+30, LASTNAP+31, UPREV+3~, UPREV+7, UPREV+8, UPREV+9, UPREV+10 , PRREV+1~, PRREV+5, PRREV+6, PRREV+7, PRREV+8, PRREV+9, UPREVP+5, UPREVP+6, UPREVP+7, UPREVP+8 , UPREVP+9, UPREVPP+1~, UPREVPP+5, UPREVPP+6, UPREVPP+7, UPREVPP+8, UPREVPP+9, UPREVPP+10, LASTALR+21~, LASTALR+28 , LASTALR+29, LASTALR+30, LASTALR+31, LASTMLR+21~, LASTMLR+28, LASTMLR+29, LASTMLR+30, LASTMLR+31, LASTMLU+21~, LASTMLU+28 , LASTMLU+29, LASTMLU+30, LASTMLU+31, LASTNAM+21~, LASTNAM+28, LASTNAM+29, LASTNAM+30, LASTNAM+31, LASTALU+21~, LASTALU+28 , LASTALU+29, LASTALU+30, LASTALU+31
X(	UPREVP+9*
Y	LASTPLR+21~, LASTPLU+21~, LASTNAP+21~, UPREV+3~, UPREV+5, UPREV+6, UPREV+10, PRREV+1~, PRREV+3, PRREV+4 , PRREV+8, UPREVP+1~, UPREVP+3, UPREVP+4, UPREVP+8, UPREVPP+1~, UPREVPP+3, UPREVPP+4, UPREVPP+8, LASTALR+21~ , LASTMLR+21~, LASTMLU+21~, LASTNAM+21~, LASTALU+21~
Z	UPREV+3~, UPREV+4, UPREV+11, UPREV+12, PRREV+1~, PRREV+2, UPREVP+1~, UPREVP+2, UPREVP+9, UPREVPP+1~ , UPREVPP+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLAPI6

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 21

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: