Routine: AMHLEAR1

Information

AMHLEAR1 ; IHS/CMI/LAB - ACTIVITY RECORD FORM DATA ENTRY CREATE RECORD ;

Package	Total	Call Graph
Mental Health Social Services	3	RECCHECK^AMHLE2 ($$IINTAKE,EN)^AMHLEDEL CALLDIE^AMHLEIN
VA Fileman	2	FILE^DICN ^DIR

Package	Total	Caller Graph
Mental Health Social Services	1	AMHLEAR

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Creating new record " Line Location: CREATE+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health Record is NOT complete!! Deleting Record.",! Line Location: CREATE+3
Function Call: WRITE	Prompt: !!,"ERROR -- Incomplete record!! Deleting record!!" Line Location: CREATE+5
Function Call: WRITE	Prompt: !!,"Creating provider record failed.!! Notify site manager!",!! Line Location: PROV+3
Function Call: WRITE	Prompt: !!,"Creating pov visit failed.!! Notify site manager!",!! Line Location: POV+3
Function Call: WRITE	Prompt: !,"Incomplete record!! Deleting record!!" Line Location: POV+4
Function Call: WRITE	Prompt: !!?20,"*COMPLETED SUCCESSFUL ENTRY OF RECORD*",!!!! Line Location: POV+5
Function Call: WRITE	Prompt: ?25,"You may now enter a new Encounter Date",! Line Location: POV+6
Function Call: WRITE	Prompt: ?40,"OR",! Line Location: POV+7
Function Call: WRITE	Prompt: ?23,"You may '^' to discontinue Data Entry",!! Line Location: POV+8
Function Call: WRITE	Prompt: !!,"This visit has an Initial Intake with Updates, it can not be deleted",!,"until the update documents have been deleted." Line Location: DEL+1
Routine Call	DIR Line Location: PAUSE+1

Name	Line Occurrences
DEL	CREATE+5, POV+4
PAUSE	CREATE+3, DEL+1, DEL+4

Name	Field # of Occurrence
>> AMHACTN	CREATE+1*
AMHAWIXX	CREATE+1!
>> AMHDATE	CREATE+2
AMHHIT	XIT+2!
>> AMHOKAY	POV+4*
>> AMHPOV(	POV+1, POV+2
>> AMHPROV(	PROV+1, PROV+2
>> AMHR	CREATE+4*, DEL+1, DEL+2
>> AMHRDEL	DEL+2*
AMHX	PROV+1, PROV+2, POV+1, POV+2, XIT+2!
D0	CREATE+2!, PROV+2!, POV+2!, XIT+1!
DA	CREATE+2!, CREATE+4*, PROV+2!, POV+2!, XIT+1!
DD	CREATE+2!, PROV+2!, POV+2!
DI	XIT+1!
DIADD	CREATE+2!, PROV+2!, POV+2*!
DIC	CREATE+2!, PROV+2!, POV+2!*, XIT+1!
DIC("DR"	CREATE+2, PROV+2, POV+2*
DIC(0	CREATE+2, PROV+2, POV+2*
DIE	CREATE+2!, CREATE+4*, PROV+2!, POV+2!
DIR	PAUSE+1!
DIR("A"	PAUSE+1*
DIR(0	PAUSE+1*
>> DIRUT	PAUSE+1*
DIU	XIT+1!
DLAYGO	CREATE+2!, PROV+2!, POV+2*!
DO	CREATE+2!, PROV+2!, POV+2!, XIT+1!
DR	CREATE+2!, CREATE+4*, PROV+2!, POV+2!, XIT+1!
>> DUOUT	PAUSE+1
U	PROV+2, POV+2
X	CREATE+2!, PROV+2!, POV+2*!, XIT+1!
Y	CREATE+3, CREATE+4, CREATE+5, PROV+3, POV+3, XIT+1!