Routine: AMHDPEE

Package	Total	Call Graph
Mental Health Social Services	6	EP1^AMHLCD (GETPAT,PAUSE)^AMHLEA CONTACT^AMHLEP1 $$ALLOWVI^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1 ^AMHVD
Registration	4	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
VA Fileman	4	^DDS ^DIC ^DIE ^DIR
IHS VA Utilities	3	^XBFMK VIEWR^XBLM EN^XBVK
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
IHS Patient	1	(,$$DOB,$$HRN,KILL)^AUPNPAT

Package	Total	Caller Graph
Mental Health Social Services	5	AMHLETR3 AMHRE1 AMHRE2 AMHRP7 AMHVRL

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; -- header code
DEFAULT	;
HS	;EP called from protocol to generate hs
RMDP	;EP - called from protocol to remove DP entry
BV	;
HELP	; -- help code
CTR(X,Y)	;EP - Center X in a field Y wide.
INIT	; -- init variables and list array
DEMO	;
EDDP	;EP - called from protocol
LVD(P,I)	;EP
EN	; -- main entry point for AMH UPDATE PATIENT CASE DATA
END	;
GETTYPE	;
CD	;
START	;
EOJ	;
AV	;EP add visit
PROV	;
GATHER	;
EXPND	; -- expand code
ADDDP	;EP called from protocol to open a new case
EXIT	; -- exit code

External References

Name	Field # of Occurrence
EP1^AMHLCD	CD+4
GETPAT^AMHLEA	AV+2
PAUSE^AMHLEA	EDDP+4, EDDP+5, RMDP+4, RMDP+5, AV+3, AV+8
CONTACT^AMHLEP1	AV+6
$$ALLOWVI^AMHUTIL	LVD+7
$$DEMO^AMHUTIL1	GATHER+2, GATHER+3, GATHER+4, GATHER+5
DEMOCHK^AMHUTIL1	DEMO+1
^AMHVD	BV+1
^AUPNPAT	HS+5
$$DOB^AUPNPAT	GATHER+12, GATHER+18, GATHER+22, GATHER+26
$$HRN^AUPNPAT	GATHER+12, GATHER+18, GATHER+22, GATHER+26
KILL^AUPNPAT	EOJ+8
^DDS	ADDDP+8
^DIC	PROV+3, HS+2, DEFAULT+2, ADDDP+4, ADDDP+7
^DIE	EDDP+8, RMDP+8, RMDP+9, RMDP+10, RMDP+11
^DIR	CD+1
EN^VALM	EN+1
TERM^VALM0	EXIT+2
CLEAR^VALM1	EOJ+6
FULL^VALM1	EDDP+6, RMDP+6, ADDDP+1, AV+1
EN^VALM2	EDDP+1, RMDP+1
^XBFMK	PROV+1, ADDDP+7
VIEWR^XBLM	HS+11
EN^XBVK	HS+8, HS+12, EOJ+1
$$FMTE^XLFDT	LVD+20, HS+6
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$CTR("View/Update Designated Provider List",80) Line Location: START+5
Function Call: WRITE	Prompt: !! Line Location: PROV+3
Function Call: WRITE	Prompt: !,"No Provider Selected." Line Location: PROV+4
Function Call: WRITE	Prompt: !,"No records selected." Line Location: EDDP+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: EDDP+3
Function Call: WRITE	Prompt: !,"Not a valid PATIENT RECORD." Line Location: EDDP+5
Function Call: WRITE	Prompt: !,"Editing Designated Provider....." Line Location: EDDP+7
Function Call: WRITE	Prompt: !,"No records selected." Line Location: RMDP+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: RMDP+3
Function Call: WRITE	Prompt: !,"Not a valid PATIENT RECORD." Line Location: RMDP+5
Function Call: WRITE	Prompt: !,"Removing ",$P(^VA(200,AMHPROV,0),U)," as Designated Provider for ",!,$P(^DPT($P(^AMHPATR(AMHR,0),U),0),U)," ..." Line Location: RMDP+7
Function Call: WRITE	Prompt: !,"No Patient Selected." Line Location: HS+3
Function Call: WRITE	Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!! Line Location: HS+6
Function Call: WRITE	Prompt: !,"Error in Site Parameter File!",$C(7),$C(7) Line Location: GETTYPE+3
Function Call: WRITE	Prompt: !!,"PCC MENTAL HEALTH HEALTH SUMMARY TYPE IS MISSING!! NOTIFY YOUR SUPERVISOR OR SITE MANAGER.",!! Line Location: DEFAULT+3
Function Call: WRITE	Prompt: !,"No Patient Selected." Line Location: ADDDP+5
Function Call: WRITE	Prompt: !!,"FAILED TO ADD PATIENT TO MHSS PATIENT DATA FILE" Line Location: ADDDP+7
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: ADDDP+9
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,"NO Patient selected!",! Line Location: AV+3
Routine Call	VALM Line Location: EN+1
Routine Call	DIE Line Location: EDDP+8 RMDP+8 RMDP+9 RMDP+10 RMDP+11
Routine Call	DDS Line Location: ADDDP+8
Routine Call	DIC Line Location: PROV+3 HS+2 DEFAULT+2 ADDDP+4 ADDDP+7
Routine Call	DIR Line Location: CD+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls
^APCHSCTL - [#9001015]	Classic Fileman Calls
^AMHPATR - [#9002011.55]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPATR - [#9002011.55]	EDDP+5, RMDP+5, RMDP+7, RMDP+8, RMDP+9, RMDP+10, RMDP+11, ADDDP+7
^AMHPATR("AMH"	GATHER+2
^AMHPATR("AOT"	GATHER+4, GATHER+20
^AMHPATR("AOTH"	GATHER+5, GATHER+24
^AMHPATR("ASS"	GATHER+3, GATHER+16
^AMHPROB - [#9002012.2]	LVD+9
^AMHREC - [#9002011]	LVD+6, LVD+19
^AMHREC("AE"	LVD+4, LVD+5
^AMHRPRO - [#9002011.01]	LVD+9
^AMHRPRO("AD"	LVD+8
^AMHSITE - [#9002013]	GETTYPE+1, GETTYPE+2
^APCHSCTL - [#9001015]	GETTYPE+3
^DPT - [#2]	GATHER+2, GATHER+3, GATHER+4, GATHER+5, GATHER+12, GATHER+18, GATHER+22, GATHER+26, RMDP+7, HS+10
^TMP("AMHDPEE"	GATHER+1!, GATHER+14, GATHER+19, GATHER+23, GATHER+27, EDDP+4, RMDP+4
^TMP($J	GATHER+1!, GATHER+2, GATHER+3, GATHER+4, GATHER+5, GATHER+8, GATHER+9, GATHER+10
^VA(200 - [#200]	PROV+3, HDR+2, RMDP+7

Label References

Name	Line Occurrences
$$CTR	START+5
$$LVD	GATHER+12, GATHER+18, GATHER+22, GATHER+26
DEFAULT	GETTYPE+1, GETTYPE+2
EN	DEMO+3
EOJ	END+1
EXIT	EDDP+2, EDDP+3, EDDP+4, EDDP+5, EDDP+9, RMDP+2, RMDP+3, RMDP+4, RMDP+5, CD+2 , CD+3, CD+5, BV+2, HS+13, ADDDP+10, AV+3, AV+9
GATHER	INIT+2, EXIT+4
GETTYPE	HS+7
HDR	EXIT+6
PROV	DEMO+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HS+10*, HS+11, HS+12!, EOJ+4!
A	LVD+3~, LVD+4*, LVD+5
AMCHDAYS	HS+12!
AMCHDOB	HS+12!
AMHBD	START+1~
AMHCASE	EN+2!, EXIT+1!, EOJ+5!
AMHCDATE	EN+2!, EOJ+5!
AMHD	EN+2!, GATHER+2, GATHER+3, GATHER+4, GATHER+5, GATHER+9, GATHER+10, GATHER+12, GATHER+14, GATHER+16 , GATHER+18, GATHER+19, GATHER+20, GATHER+22, GATHER+23, GATHER+24, GATHER+26, GATHER+27, EOJ+5!
>> AMHDEMO	DEMO+1, DEMO+2, GATHER+2, GATHER+3, GATHER+4, GATHER+5
>> AMHDP	PROV+2*
>> AMHDPEEP	AV+5*, AV+7
AMHED	START+1~
AMHLINE	EN+2!, INIT+3, GATHER+7, GATHER+11, GATHER+14, GATHER+17, GATHER+19, GATHER+21, GATHER+23, GATHER+25* , GATHER+27, EXIT+5, EOJ+5!
>> AMHNAME	GATHER+8*, GATHER+9, GATHER+10
AMHP	END+2!
AMHPAT	ADDDP+3, ADDDP+6, ADDDP+7, ADDDP+8, EXIT+1!, AV+3, AV+4, AV+6
AMHPC	EXIT+1!
>> AMHPROV	PROV+5, HDR+2, GATHER+2, GATHER+3, GATHER+4, GATHER+5, GATHER+16, GATHER+20, GATHER+24, RMDP+7 , RMDP+8, RMDP+9, RMDP+10, RMDP+11, AV+5, AV+7
AMHQUIT	END+2!, ADDDP+9*
AMHR	EDDP+3!, EDDP+4!, EDDP+5!, EDDP+8, RMDP+3!, RMDP+4!, RMDP+5!, RMDP+7, RMDP+8, RMDP+9 , RMDP+10, RMDP+11, CD+4
AMHR0	START+1~
AMHR1	EXIT+1!
AMHRCNT	EN+2!, GATHER+7, GATHER+11, GATHER+14, GATHER+17, GATHER+19, GATHER+21, GATHER+23, GATHER+25*, GATHER+27 , EOJ+5!
AMHRDEL	EDDP+4!, EDDP+5!, RMDP+4!, RMDP+5!
>> AMHT	GATHER+10*, GATHER+13
AMHV	START+1~, START+3!
AMHW	END+2!
AMHX	START+1~, EN+2!, EXIT+1!, EOJ+5!
AMHY	START+1~
>> APCHSPAT	HS+9*, HS+10
>> APCHSTYP	HS+8, GETTYPE+2, GETTYPE+3, DEFAULT+1, DEFAULT+4
AUPNDAYS	START+1~
AUPNDOB	START+1~
AUPNDOD	START+1~, HS+6
AUPNPAT	START+1~
AUPNSEX	START+1~
B	LVD+3~, LVD+5*, LVD+6, LVD+7, LVD+8, LVD+14
BALMON	EOJ+7!
C	LVD+3~, LVD+8*, LVD+9
D	START+2~, LVD+3~, LVD+19*, LVD+20
DA	PROV+3!, EDDP+8, RMDP+8, RMDP+9, RMDP+10, RMDP+11, CD+1!, HS+2!, DEFAULT+2!, ADDDP+4! , ADDDP+8, EOJ+4!
DDS	EOJ+4!
DDSFILE	ADDDP+8*, EOJ+3!
DFN	START+1~, HS+1, HS+4, HS+5, HS+9, EXIT+1!, EOJ+2!, AV+4*
DIADD	PROV+3!, HS+2!, ADDDP+4!, ADDDP+7!
DIC	PROV+3!, HS+2!, DEFAULT+2!, ADDDP+4!, ADDDP+7*, EOJ+4!
DIC("A"	PROV+3*
DIC("B"	PROV+3*
DIC(0	PROV+3, HS+2, DEFAULT+2, ADDDP+4, ADDDP+7*
>> DIE	EDDP+8, RMDP+8, RMDP+9, RMDP+10, RMDP+11*
DIMSG	ADDDP+9!
DIPGM	EOJ+3!
DIR	CD+1!
DIR("A"	CD+1*
DIR("B"	CD+1*
DIR(0	CD+1*
>> DIRUT	CD+2
DLAYGO	PROV+3!, HS+2!, ADDDP+4!, ADDDP+7*!
DR	PROV+3!, EDDP+8, RMDP+8, RMDP+9, RMDP+10, RMDP+11, HS+2!, ADDDP+4!, ADDDP+8, EOJ+4!
DUZ	PROV+3, LVD+7
DUZ(2	GATHER+12, GATHER+18, GATHER+22, GATHER+26, GETTYPE+1, GETTYPE+2
>> E	LVD+9*, LVD+10, LVD+11
>> F	LVD+5, LVD+8, LVD+12*, LVD+14
G	LVD+3~, LVD+4, LVD+5, LVD+14, LVD+17, LVD+18, LVD+19
I	LVD~, LVD+1*, LVD+18, LVD+19, EXIT+7!
IOF	START+4, ADDDP+2
>> IOINORM	HDR+2
IOM	CTR+1
>> IORVON	HDR+2
P	LVD~, LVD+2, LVD+4, LVD+5
R	START+2~
U	PROV+3, HDR+2, LVD+9, LVD+19, GATHER+2, GATHER+3, GATHER+4, GATHER+5, GATHER+12, GATHER+18 , GATHER+22, GATHER+26, RMDP+7, RMDP+8, RMDP+9, RMDP+10, RMDP+11, HS+10, GETTYPE+2
VALM	EOJ+7!
VALMAR	EOJ+7!
VALMBCK	EXIT+3*, EOJ+7!
VALMBG	EOJ+7!
VALMCAP	EOJ+7!
VALMCC	EOJ+7!
VALMCNT	INIT+3, EXIT+5, EOJ+7!
VALMCOFF	EOJ+7!
VALMCON	EOJ+7!
VALMEVL	EOJ+7!
VALMHDR	EOJ+7!
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2*
VALMHDR(3	HDR+3*
VALMHDR(4	HDR+4*
VALMIOXY	EOJ+7!
VALMKEY	EOJ+7!
VALMLFT	EOJ+7!
VALMLST	EOJ+7!
VALMMENU	EOJ+7!
>> VALMSG	INIT+1*
VALMSGR	EOJ+7!
VALMUP	EOJ+7!
VALMVAR	EOJ+7!
VALMWD	EOJ+6, EOJ+7!
VALMY	EDDP+2, EDDP+3!, RMDP+2, RMDP+3!
VALMY(0	EDDP+3, RMDP+3
X	CTR~, CTR+1, DEFAULT+2, ADDDP+7, HELP+1*, EXIT+7!, EOJ+4!
XQORNOD	EDDP+3!, RMDP+3!
XQORNOD(0	EDDP+1, RMDP+1
Y	PROV+4, PROV+5, CTR~, CTR+1, GATHER+11, GATHER+12, GATHER+13, GATHER+14, GATHER+17, GATHER+18* , GATHER+19, GATHER+21, GATHER+22, GATHER+23, GATHER+25, GATHER+26, GATHER+27, CD+3, HS+3, HS+4 , HS+5*, DEFAULT+3, DEFAULT+4, ADDDP+5, ADDDP+6, ADDDP+7, EXIT+7!, EOJ+3!, EOJ+4!
Z	EXIT+7!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHDPEE

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: