Routine: AMHVRL

Information

AMHVRL ; IHS/CMI/LAB - VIEW PT RECORD LT ;

Source Information

Source file <AMHVRL.m>

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Mental Health Social Services	5	$$LVD^AMHDPEE EN^AMHDPP EP^AMHPST ($$ALLOWP,$$PPNAME,$$SSN,NALLOWP)^AMHUTIL ($$PKGCK,$$VALMSG,LMKILL,MSG,RETURN)^AMHVU
IHS VA Utilities	3	$$VAL^XBDIQ1 (GUIR,VIEWR)^XBLM EN^XBVK
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
VA Fileman	2	^DIC YN^DICN
IHS Patient	1	($$AGE,$$HRN,KILL)^AUPNPAT

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
Mental Health Social Services	8	AMHBPL AMHBPL1 AMHDPP AMHGBPL AMHLEIVP AMHLEP1 AMHVRL1 AMHVRL2

Entry Points

Name	Comments	DBIA/ICR reference
RESET	;EP -- update partition for return to list manager
FS	;EP -called from protcol to display face sheet
AXV	;
HDR	;EP; -- header code
EOJ	; -- end of job
LV(P)	;
PAUSE	;EP -- end of action pause
INIT1	;EP - no hs view
HELP	;EP; -- help code
HDR1	;EP - no hs view
ONEVIS
EN1	;EP
INIT	;EP; -- init variables and list array
PEND	;
HSDISP	;EP
DATE(D)	;EP
EN	;EP; -- main entry point for list template AMHV HS VIEW
HAVEPAT	;EP; -- entry point when patient already known
GETPAT	;EP -- ask user to select patient
L1	;
SR	;EP
EXPND	;EP; -- expand code
EXIT	;EP; -- exit code
RESET2	;EP -- update partition without recreating display array
GETHSTYP	;EP -- ask user for health summary type

External References

Name	Field # of Occurrence
$$LVD^AMHDPEE	INIT1+14
EN^AMHDPP	HSDISP+2
EP^AMHPST	SR+2
$$ALLOWP^AMHUTIL	GETPAT+5
$$PPNAME^AMHUTIL	INIT1+17
$$SSN^AMHUTIL	INIT1+3
NALLOWP^AMHUTIL	GETPAT+5
$$PKGCK^AMHVU	AMHVRL+11
$$VALMSG^AMHVU	HDR+1, INIT+6
LMKILL^AMHVU	EOJ+1
MSG^AMHVU	AMHVRL+12, RESET+4
RETURN^AMHVU	PAUSE+1
$$AGE^AUPNPAT	INIT1+3
$$HRN^AUPNPAT	INIT1+2
KILL^AUPNPAT	EXIT+3
^DIC	GETPAT+1, GETHSTYP+7
YN^DICN	GETPAT+4, GETPAT+6
EN^VALM	EN1+3, EN+3
TERM^VALM0	EN1+2, EN+2, RESET+2, RESET2+2, RESET2+3
CLEAR^VALM1	EN1+4, EN+4
FULL^VALM1	AMHVRL+18, AMHVRL+26, HAVEPAT+4, FS+1
$$VAL^XBDIQ1	INIT1+3, INIT1+5, INIT1+8, INIT1+10, INIT1+19
GUIR^XBLM	INIT+2
VIEWR^XBLM	FS+3
EN^XBVK	EXIT+2
$$FMTE^XLFDT	INIT1+3, INIT1+17, ONEVIS+2, GETPAT+3
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!! Line Location: GETPAT+3
Function Call: WRITE	Prompt: !!,"dfn missing" Line Location: SR+4
Routine Call	VALM Line Location: EN1+3 EN+3
Routine Call	DIC Line Location: GETPAT+1 GETHSTYP+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCHSCTL - [#9001015]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	INIT1+17
^AMHREC("AE"	LV+3, LV+5
^AMHRPRO("AD"	INIT1+18
^APCCCTRL - [#9001000]	GETHSTYP+3
^APCHSCTL - [#9001015]	GETHSTYP+5
^DISV(	GETHSTYP+4, GETHSTYP+5
^DPT - [#2]	INIT1+2, INIT1+3, PEND+2, ONEVIS, FS+2
^SC - [#44]	ONEVIS+5, ONEVIS+7
^TMP("AMHVR"	AMHVRL+15!, AMHVRL+21!, INIT1+1!, INIT1+2, INIT1+3, INIT1+4, INIT1+5, INIT1+8, INIT1+10, INIT1+13* , INIT1+15, INIT1+17, INIT1+19, PEND+1, L1+3, L1+4, INIT+1!, INIT+3, INIT+5*, EXIT+1!

Label References

Name	Line Occurrences
EN	AMHVRL+26, HAVEPAT+4
EN1	AMHVRL+18
EXIT	AMHVRL+11, AMHVRL+14, AMHVRL+18, AMHVRL+24, AMHVRL+26, HAVEPAT+2, HAVEPAT+4
GETHSTYP	AMHVRL+24, HAVEPAT+2
GETPAT	AMHVRL+16, AMHVRL+22, GETPAT+5, GETPAT+6
HDR	RESET+5, RESET2+3
HDR1	RESET+3, RESET2+2
INIT	RESET+5
INIT1	RESET+3
ONEVIS	PEND+2
RESET	FS+5, HSDISP+4, SR+5

Naked Globals

Name	Field # of Occurrence
^(	ONEVIS+7
^(0	ONEVIS+7, GETHSTYP+3, GETHSTYP+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GETPAT+4, GETPAT+6
AGDENT	FS+4!
AGMVDF	FS+4!
AGOPT	FS+4!
AMCHDAYS	AMHVRL+23~, HAVEPAT+1~
AMCHDOB	AMHVRL+23~, HAVEPAT+1~
>> AMHC	INIT1+1, INIT1+15, INIT1+19, PEND+1, PEND+3, L1+3, L1+4
>> AMHCN	ONEVIS+5*, L1+1
>> AMHCP	ONEVIS+5*, ONEVIS+7
>> AMHDAT	PEND+2, ONEVIS+2, L1+1
AMHHDR	FS+2*, FS+3, FS+4!
>> AMHI	ONEVIS+4, ONEVIS+8
>> AMHJ	ONEVIS+4, ONEVIS+8
AMHMTY	AMHVRL+23~, HAVEPAT+1~
>> AMHN	ONEVIS*, ONEVIS+1, ONEVIS+4, ONEVIS+5, ONEVIS+8, L1+2
AMHPAT	AMHVRL+17, AMHVRL+23~, AMHVRL+25, HAVEPAT+1~, HAVEPAT+3, GETPAT+1!, GETPAT+4, GETPAT+6, HSDISP+1, HSDISP+3 , SR+1*
AMHPATH	HSDISP+1, HSDISP+3, SR+1, SR+2~
>> AMHPVD	ONEVIS+2*
>> AMHQ	ONEVIS+7*
>> AMHQIT	PEND+2
AMHTAT	AMHVRL+23~, HAVEPAT+1~
>> AMHTST	ONEVIS+4, ONEVIS+6, ONEVIS+7, ONEVIS+8, L1+1
AMHTYP	AMHVRL+23~, AMHVRL+24, HAVEPAT+1~, HAVEPAT+2
>> AMHVDT	PEND+2*, ONEVIS, ONEVIS+2, ONEVIS+3, ONEVIS+7
>> AMHVN	ONEVIS+7*
>> AMHVNT	ONEVIS+6, ONEVIS+7, L1+4
>> AMHVRLHS	AMHVRL+9*, AMHVRL+14, RESET+3, RESET2+2
AMHVSAV	AMHVRL+17, AMHVRL+23~, AMHVRL+25, HAVEPAT+1~, HAVEPAT+3*
>> AMHVT	ONEVIS+3*, L1+1
>> APCHSTYP	GETHSTYP+7*
>> AUPNDOD	GETPAT+3
D	INIT1+18~, INIT1+19, LV+2~, LV+3, LV+4, LV+5, DATE~, DATE+1, DATE+2
DD	GETHSTYP+1~
DFN	AMHVRL+15!, AMHVRL+16, AMHVRL+17, AMHVRL+21!, AMHVRL+22, AMHVRL+25, HAVEPAT+3, INIT1+2, INIT1+3, INIT1+5 , INIT1+8, INIT1+10, INIT1+14, PEND+2, ONEVIS, ONEVIS+7, EXIT+1!, GETPAT+1!, GETPAT+4, GETPAT+5 , GETPAT+6, FS+2, HSDISP+1, HSDISP+3, SR+1, SR+2, SR+4
DIC	GETPAT+1!, GETHSTYP+1~, GETHSTYP+2, GETHSTYP+7!
DIC("B"	GETHSTYP+6*
DIC(0	GETPAT+1, GETHSTYP+2
DR	GETHSTYP+1~
DT	INIT1+3, PEND+2
DUZ	GETPAT+5, GETHSTYP+4, GETHSTYP+5
DUZ(2	INIT1+2, GETHSTYP+3
>> IORVOFF	INIT1+4
>> IORVON	INIT1+4
P	LV~, LV+1, LV+3, LV+5
>> R	INIT1+14*, INIT1+15, INIT1+16, INIT1+17, INIT1+18
U	INIT1+2, INIT1+3, INIT1+17, ONEVIS+1, ONEVIS+4, ONEVIS+5, ONEVIS+7, ONEVIS+8, L1+2, GETHSTYP+3 , GETHSTYP+5, FS+2
V	LV+2~, LV+5*, LV+6
>> VALMBCK	RESET+1, RESET+2, RESET2+1, RESET2+2, RESET2+3*
>> VALMCC	EN1+1, EN+1
>> VALMCNT	PEND+3, INIT+4
>> VALMQUIT	RESET+1, RESET2+1
>> VALMSG	HDR+1, HDR1+1, INIT+6*
X	PEND+1, L1+1, L1+2, L1+3, INIT+3, INIT+4, INIT+5, HELP+1, GETHSTYP+1~, GETHSTYP+3 , GETHSTYP+5, GETHSTYP+6
>> Y	ONEVIS+2, GETPAT+1, GETPAT+2, GETHSTYP+5, GETHSTYP+7

Customize PDF page

Package: Mental Health Social Services

Routine: AMHVRL

Call Graph Total: 16

Caller Graph Total: 8