Routine: AMHAPI6

Package	Total	Call Graph
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1

Package	Total	Caller Graph
Mental Health Social Services	3	AMHBPL AMHGBPL AMHHS1

Entry Points

Name	Comments	DBIA/ICR reference
LASTPLR(AMHPDFN,AMHBD,AMHED,AMHFORM)	;PEP - date of last PROBLEM LIST REVIEWED ; Return the last recorded PROBLEM LIST REVIEWED FROM MHSS UPDATED/REVIEWED: ; .04 OF MHSS UPDATED/REVIEWED is set to 1 ; ; Input: ; AMHPDFN - Patient DFN ; AMHBD - beginning date to begin search for value - if blank, default is DOB ; AMHED - ending date of search - if blank, default is DT ; AMHFORM - AMHFORM 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 AMHFORM is blank or AMHFORM is D returns internal fileman date if one found otherwise returns null ; If AMHFORM is A returns the string: ; date^text of item found^PROVIDER^visit ien^File found in^ien of file found in ;
UPREV(V,I)	;EP - IS UPDATE/REVIEWED I ON VISIT V?
UPREVPP	;EP = set
LASTNAP(AMHPDFN,AMHBD,AMHED,AMHFORM)	;PEP - date of last NO ACTIVE PROBLEMS ; Return the last recorded NO ACTIVE PROBLEMS FROM MHSS UPDATED/REVIEWED: ; .09 OF MHSS UPDATED/REVIEWED is set to 1 ; ; Input: ; AMHPDFN - Patient DFN ; AMHBD - beginning date to begin search for value - if blank, default is DOB ; AMHED - ending date of search - if blank, default is DT ; AMHFORM - AMHFORM 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 AMHFORM is blank or AMHFORM is D returns internal fileman date if one found otherwise returns null ; If AMHFORM is A returns the string: ; date^text of item found^PROVIDER^visit ien^File found in^ien of file found in ;
UPREVP	;EP - IS UPDATE/REVIEWED I ON VISIT V?
PRREV	;EP = set
E	;
LASTPLU(AMHPDFN,AMHBD,AMHED,AMHFORM)	;PEP - date of last PROBLEM LIST UPDATE ; Return the last recorded PROBLEM LIST UPDATED FROM MHSS UPDATED/REVIEWED: ; .11 OF MHSS UPDATED/REVIEWED is set to 1 ; ; Input: ; AMHPDFN - Patient DFN ; AMHBD - beginning date to begin search for value - if blank, default is DOB ; AMHED - ending date of search - if blank, default is DT ; AMHFORM - AMHFORM 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 AMHFORM is blank or AMHFORM is D returns internal fileman date if one found otherwise returns null ; If AMHFORM is A returns the string: ; date^text of item found^PROVIDER^visit ien^File found in^ien of file found in ;

External References

Name	Field # of Occurrence
$$DOB^AUPNPAT	LASTPLR+18, LASTPLU+18, LASTNAP+18
$$VAL^XBDIQ1	LASTPLR+31, LASTPLU+31, LASTNAP+31, PRREV+9, UPREVPP+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHRRUP - [#9002011.14]	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
^AMHRRUP("AA"	LASTPLR+27, LASTPLR+28, LASTPLU+27, LASTPLU+28, LASTNAP+27, LASTNAP+28
^AMHRRUP("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

Label References

Name	Line Occurrences
E	LASTPLR+32, LASTPLU+32, LASTNAP+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMHBD	LASTPLR~, LASTPLR+18, LASTPLR+22, LASTPLU~, LASTPLU+18, LASTPLU+22, LASTNAP~, LASTNAP+18*, LASTNAP+22
AMHED	LASTPLR~, LASTPLR+19, LASTPLR+23, LASTPLU~, LASTPLU+19, LASTPLU+23, LASTNAP~, LASTNAP+19*, LASTNAP+23
AMHFORM	LASTPLR~, LASTPLR+20, LASTPLR+33, LASTPLU~, LASTPLU+20, LASTPLU+33, LASTNAP~, LASTNAP+20*, LASTNAP+33
AMHLAST	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
>> AMHPCNT	PRREV+9, UPREVPP+10
AMHPDFN	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
>> AMHPRNM(	PRREV+9, UPREVPP+10
AMHVAL	LASTPLR+21~, LASTPLR+31, E+1, LASTPLU+21~, LASTPLU+31, LASTNAP+21~, LASTNAP+31*, PRREV+3, UPREVP+3, UPREVPP+3
>> AMHVIEN	PRREV+5, UPREVP+5, UPREVPP+5
AMHX	LASTPLR+21~, LASTPLU+21~, LASTNAP+21~
BD	LASTPLR+21~, LASTPLR+22, LASTPLR+27, LASTPLU+21~, LASTPLU+22, LASTPLU+27, LASTNAP+21~, LASTNAP+22*, LASTNAP+27
D	LASTPLR+21~, LASTPLR+27, LASTPLR+28, LASTPLU+21~, LASTPLU+27, LASTPLU+28, LASTNAP+21~, LASTNAP+27*, LASTNAP+28
DT	LASTPLR+19, LASTPLU+19, LASTNAP+19
E	LASTPLR+21~, LASTPLU+21~, LASTNAP+21~
ED	LASTPLR+21~, LASTPLR+23, LASTPLR+27, LASTPLU+21~, LASTPLU+23, LASTPLU+27, LASTNAP+21~, LASTNAP+23*, LASTNAP+27
G	LASTPLR+21~, LASTPLU+21~, LASTNAP+21~
I	UPREV~, UPREV+2, UPREV+5
R	LASTPLR+21~, LASTPLU+21~, LASTNAP+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
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
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
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
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: Mental Health Social Services

Routine: AMHAPI6

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: