Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCLAPI6

Package: Patient Care Component Reports

Routine: APCLAPI6


Information

APCLAPI6 ; IHS/CMI/LAB - visit data ;

Source Information

Source file <APCLAPI6.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 21

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  

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

Label References

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

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All