Routine: AMHLEI

Call Graph

Package	Total	Call Graph
VA Fileman	4	FILE^DICN ^DIE ^DIK ^DIR
Mental Health Social Services	3	(1,PAUSE)^AMHLEA EN^AMHLEI1 DISP^AMHLEI2
Registration	3	EN^VALM TERM^VALM0 ($$FTIME,CLEAR,FULL)^VALM1
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
Mental Health Social Services	3	AMHLEI2 AMHLEI3 AMHLEP4

Name	Comments	DBIA/ICR reference
HELP	;EP -- help code
DISP	;
EN	; EP -- main entry point for AMH UPDATE ACTIVITY RECORDS
EXPND	; -- expand code
D	;
EP1(DFN,AMHREC)	;EP CALLED FROM PROTOCOL
ED	;EP
GATHER	;EP - called from AMHUAR
BACK	;EP - go back to listman
GETINT	;
INIT	;EP -- init variables and list array
EXIT	; -- exit code
RB	;EP
DEL	;EP - called from protocol
DP	;update designated provider
HDR	;EP -- header code

Name	Field # of Occurrence
1^AMHLEA	DP+1
PAUSE^AMHLEA	DEL+1, DEL+5, DEL+8
EN^AMHLEI1	DISP+1
DISP^AMHLEI2	GATHER+2
FILE^DICN	GETINT+4
^DIE	GETINT+11, D+2, RB+3, ED+6
^DIK	DEL+7
^DIR	DEL+4
EN^VALM	EN+2
TERM^VALM0	BACK+1
$$FTIME^VALM1	HDR+1
CLEAR^VALM1	EN+3
FULL^VALM1	EP1+7, RB+1, ED+1, DEL+2
^XBFMK	GETINT+3, GETINT+5, GETINT+7, GETINT+11, D+2, RB+3, ED+3, ED+7, DEL+7
$$FMTE^XLFDT	GETINT+9, GETINT+10, ED+5
DISP^XQORM1	HELP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Error creating intake document." Line Location: EP1+8
Function Call: WRITE	Prompt: !!,"Adding new Intake Document failed!!!" Line Location: GETINT+5
Function Call: WRITE	Prompt: ! Line Location: D+1
Function Call: WRITE	Prompt: !!! Line Location: RB+2
Function Call: WRITE	Prompt: !!! Line Location: ED+2
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"You do not have the security access to delete a Intake Document.",!,"Please see your supervisor or program manager.",! Line Location: DEL+1
Function Call: WRITE	Prompt: !!,"Intake document not deleted." Line Location: DEL+5
Function Call: WRITE	Prompt: !!! Line Location: DEL+6
Function Call: WRITE	Prompt: !!,"Intake document deleted." Line Location: DEL+8
Routine Call	VALM Line Location: EN+2
Routine Call	DIE Line Location: GETINT+11 D+2 RB+3 ED+6
Routine Call	DIR Line Location: DEL+4

FileNo	Call Tags
^AMHPINTK - [#9002011.07]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AMHPINTK("B"	GETINT+1
^AMHREC - [#9002011]	EP1+2, GETINT+9, GETINT+10, ED+5
^DPT - [#2]	EP1+4, HDR+1
^TMP("AMHLEI1"	GATHER+1!
^XUSEC("AMHZ DELETE RECORD"	DEL+1

Name	Field # of Occurrence
AMHCOL	EXIT+1!
AMHCTR	INIT+2, EXIT+1!
AMHE	EXIT+1!
AMHGNUM	EXIT+1!
AMHINT	EP1+8, GETINT+1, GETINT+2, GETINT+6, GETINT+8, D+2, EXIT+1!
AMHLEI	EXIT+1!
AMHLEL	EXIT+1!
AMHLETXT	EXIT+1!
>> AMHPAT	DP+1*
AMHPATH	DP+1*!
AMHPTP	EXIT+1!
AMHRCNT	EXIT+1!
AMHREC	EP1~, EP1+1, EP1+2, GETINT+9, GETINT+10, ED+5
AMHTPN	EXIT+1!
>> AMHX2	D+2
DA	GETINT+8, D+2, RB+3, ED+4, ED+6!, DEL+4!, DEL+7*
DD	GETINT+4!
DFN	EP1~, EP1+3, EP1+4, GETINT+1, GETINT+4, RB+3, ED+4, DP+1*, GATHER+2, HDR+1 , DISP+1, DEL+7
DIADD	GETINT+4*!
>> DIC	GETINT+4*
>> DIC("DR"	GETINT+4*
>> DIC(0	GETINT+4*
DIE	GETINT+8, D+2, RB+3, ED+4, ED+6!
>> DIK	DEL+7*
DINUM	GETINT+4*!
DIR	BACK+5!, DEL+4!
DIR("A"	DEL+4*
DIR("B"	DEL+4*
DIR(0	DEL+4*
DIU	ED+6!
DIV	ED+6!
DIW	ED+6!
DLAYGO	GETINT+4*!
DO	GETINT+4!
DR	GETINT+9, GETINT+10, D+2, RB+3, ED+5*, ED+6!
DT	GETINT+9, GETINT+10, ED+5
DUZ	DEL+1
I	BACK+6!
U	GETINT+9, GETINT+10, ED+5, HDR+1
>> VALMBCK	BACK+2*
VALMCC	EN+1*, EXIT+2!
>> VALMCNT	INIT+2*
VALMHDR	EP1+11!, EXIT+2!
VALMHDR(1	HDR+1*
X	EP1+12!, GETINT+4, BACK+6!, HELP+1
Y	EP1+12!, GETINT+5, GETINT+6, BACK+6!, DEL+5
Z	BACK+6!