Routine: AMHLEP4

Package	Total	Call Graph
Mental Health Social Services	4	MHPL^AMHLE2 EP1^AMHLEI (DEL,OTHER,PCCLINK,REGULAR)^AMHLEP2 $$PPINT^AMHUTIL
VA Fileman	2	^DDS ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
OTH	;
INTAKE	;EP
I1	;
TP	;remove this prompt per Denise 12-13-04 patch 4
CASE(P,R,T)	;return 1 if case already opened
CHECK	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: INTAKE+3
Function Call: WRITE	Prompt: !!,"Incomplete record. Deleting record." Line Location: INTAKE+4
Function Call: WRITE	Prompt: !!,"At least one POV IS REQUIRED." Line Location: I1+1
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health Case Record failed !! Deleting Record.",! Line Location: I1+15
Function Call: WRITE	Prompt: !,"Location of Encounter Missing!" Line Location: CHECK+3
Function Call: WRITE	Prompt: !,"Community of Service Missing!" Line Location: CHECK+4
Function Call: WRITE	Prompt: !,"Activity Type Missing!" Line Location: CHECK+5
Function Call: WRITE	Prompt: !,"Type of Contact Missing!" Line Location: CHECK+6
Function Call: WRITE	Prompt: !,"No primary Provider!",$C(7),$C(7) Line Location: CHECK+8
Function Call: WRITE	Prompt: !," WARNING: Activity Time Missing!" Line Location: CHECK+10
Function Call: WRITE	Prompt: $C(7) Line Location: CHECK+10
Routine Call	DDS Line Location: INTAKE+2
Routine Call	DIR Line Location: I1+2 I1+17

Name	Line Occurrences (* Changed, ! Killed)
^AMHPCASE - [#9002011.58]	CASE+5
^AMHPCASE("AA"	CASE+5
^AMHREC - [#9002011]	I1+6, CASE+5, CHECK+2
^AMHRPRO("AD"	I1+1
^AMHRPROV - [#9002011.02]	CHECK+7
^AMHRPROV("AD"	CHECK+7

Name	Field # of Occurrence
AMHOKAY	INTAKE+4!, INTAKE+5!, CHECK+1, CHECK+3, CHECK+4, CHECK+5, CHECK+6, CHECK+8, CHECK+10*
>> AMHPAT	I1+5, I1+6*
>> AMHQUIT	INTAKE+3*
>> AMHR	INTAKE+2, I1+1, I1+5, I1+6, CHECK+2, CHECK+7
>> AMHREC	CHECK+2*, CHECK+3, CHECK+4, CHECK+5, CHECK+6, CHECK+10
DA	INTAKE+2*, I1+2!, I1+17!
>> DDSFILE	INTAKE+2*
DIMSG	INTAKE+3!
DIR	I1+2!, I1+17!
DIR("A"	I1+2, I1+17
DIR("B"	I1+2, I1+17
DIR(0	I1+2, I1+17
>> DIRUT	I1+3, I1+18
>> DR	INTAKE+2*
H	CASE+5~*, CASE+6
IOF	INTAKE+1
P	CASE~, CASE+2, CASE+5
R	CASE~, CASE+3, CASE+5
T	CASE~, CASE+4, CASE+5
U	I1+6, CASE+1*, CASE+5, CHECK+3, CHECK+4, CHECK+5, CHECK+6, CHECK+7, CHECK+10
X	CASE+5~, CHECK+7
>> Y	I1+1, I1+3, I1+19, CHECK+7, CHECK+8