Routine: AMHLEA1

Information

AMHLEA1 ; IHS/CMI/LAB - ADD NEW CHR ACTIVITY RECORDS ;

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Mental Health Social Services	4	RECCHECK^AMHLE2 PAUSE^AMHLEA ($$IINTAKE,EN)^AMHLEDEL CALLDIE^AMHLEIN
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIR
IHS VA Utilities	3	^XBFMK EN^XBNEW EN^XBVK

Entry Points

Name	Comments	DBIA/ICR reference
GETPOV	;
BEGIN	;add adm record
PAUSE	;EP
GETPROV	;get providers
POV	;
CREATE	;EP
GETTYPE	;EP
CHK	;
DEL	;EP
FILE	;
EXIT	;
EP	;EP - ask for POV and file each
GETDATE	;EP - GET DATE OF ENCOUNTER

External References

Name	Field # of Occurrence
RECCHECK^AMHLE2	CREATE+11
PAUSE^AMHLEA	FILE+9
$$IINTAKE^AMHLEDEL	DEL+1
EN^AMHLEDEL	DEL+4
CALLDIE^AMHLEIN	CREATE+7, CREATE+12, FILE+6, FILE+8
^DIC	POV+2
FILE^DICN	CREATE+3, GETPROV+4, FILE+2
^DIE	CREATE+5
^DIR	GETTYPE+2, GETDATE+2, PAUSE+1, GETPROV+1, CHK+3
^XBFMK	EXIT+1, POV+3, FILE+1, FILE+3, FILE+5, FILE+9
EN^XBNEW	GETPOV+1
EN^XBVK	EXIT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: GETDATE+1
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health Record is NOT complete!! Deleting Record.",! Line Location: CREATE+4
Function Call: WRITE	Prompt: !!,"Incomplete record!! Deleting record!!" Line Location: CREATE+8
Function Call: WRITE	Prompt: !!,"Incomplete record!! Deleting record!!" Line Location: CREATE+10
Function Call: WRITE	Prompt: !,"Incomplete record!! Deleting record!!" Line Location: CREATE+11
Function Call: WRITE	Prompt: ! Line Location: CREATE+12
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
Function Call: WRITE	Prompt: !,"Record deleted." Line Location: DEL+5
Function Call: WRITE	Prompt: !!,"Creating Primary Provider entry failed!!!",$C(7),$C(7) Line Location: GETPROV+5
Function Call: WRITE	Prompt: !!,"NO RECORD DEFINED!!" Line Location: EP+1
Function Call: WRITE	Prompt: !!,"NO RECORD!!" Line Location: EP+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"At least ONE POV is REQUIRED!!" Line Location: CHK+2
Function Call: WRITE	Prompt: ! Line Location: POV+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health POV failed!! Notify Site Manager." Line Location: FILE+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"DIE failed when updating POV" Line Location: FILE+9
Routine Call	DIE Line Location: CREATE+5
Routine Call	DIC Line Location: POV+2
Routine Call	DIR Line Location: GETTYPE+2 GETDATE+2 PAUSE+1 GETPROV+1 CHK+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMHREC - [#9002011]	Classic Fileman Calls
^AMHRPRO - [#9002011.01]	Classic Fileman Calls
^AMHRPROV - [#9002011.02]	Classic Fileman Calls
^AMHPROB - [#9002012.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	FILE+8
^AMHREC - [#9002011]	DEL+2, EP+2
^AMHRPRO - [#9002011.01]	FILE+4, FILE+7
^AMHRPRO("AD"	CREATE+10, CHK+1, POV+1
^AMHRPROV("AD"	CREATE+8, CREATE+10
^VA(200 - [#200]	GETPROV+1

Label References

Name	Line Occurrences
CHK	EP+5
CREATE	BEGIN+5
DEL	CREATE+8, CREATE+10, CREATE+11
EP	CHK+4
EXIT	BEGIN+2, BEGIN+4, BEGIN+6, CREATE+8, CREATE+10, CREATE+11, CREATE+15
GETDATE	BEGIN+3
GETPOV	CREATE+9
GETPROV	CREATE+6
GETTYPE	BEGIN+1
PAUSE	CREATE+4, DEL+1, DEL+5
POV	EP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMHACTN	CREATE+1*
>> AMHDATE	BEGIN+4, GETDATE+2, GETDATE+4, CREATE+3
>> AMHGROUP	POV+1
>> AMHOKAY	CREATE+11*
>> AMHPAT	GETPROV+4, FILE+6
>> AMHPOV	POV+4*
>> AMHPOVP	POV+4*, FILE+2
>> AMHPOVR	FILE+4, FILE+7, FILE+8
>> AMHPTYPE	BEGIN+2, GETTYPE+1, GETTYPE+4
>> AMHR	CREATE+5*, CREATE+7, CREATE+8, CREATE+10, CREATE+12, DEL+1, DEL+2, DEL+3, GETPROV+4, EP+1 , EP+2, CHK+1, POV+1, FILE+6
>> AMHRDEL	DEL+3*
>> AMHRPRO	FILE+4*, FILE+6, FILE+7, FILE+8
>> AMHVDLT	DEL+2*
>> APCDOVRR	CREATE+2, EP+3
D0	CREATE+3!, GETPROV+4!, FILE+2!
DA	GETTYPE+2!, CREATE+3!, CREATE+5!, CREATE+7, CREATE+12, GETPROV+1!, GETPROV+4!, FILE+2!, FILE+6, FILE+8*
DD	CREATE+3!, GETPROV+4!, FILE+2!
DG	GETPROV+4!
DH	GETPROV+4!
DI	GETPROV+4!
DIADD	CREATE+3!, GETPROV+4!, FILE+2*!
DIC	CREATE+3!, GETPROV+1!, GETPROV+4!, POV+1, FILE+2!
DIC("A"	POV+1*
DIC("B"	POV+1*
DIC("DR"	GETPROV+4, FILE+2
DIC("S"	POV+1*
DIC(0	CREATE+3, GETPROV+4, POV+1, FILE+2
DIE	CREATE+3!, CREATE+5!, CREATE+7, CREATE+12, GETPROV+4!, FILE+2!, FILE+6, FILE+8*
DIE("NO^"	FILE+6, FILE+8
DINUM	CREATE+3!, FILE+2!
DIR	GETTYPE+2!, GETDATE+2!, PAUSE+1!, GETPROV+1!, CHK+3!
DIR("A"	GETTYPE+2, GETDATE+2, PAUSE+1, GETPROV+1, CHK+3*
DIR("B"	GETPROV+1, CHK+3
DIR(0	GETTYPE+2, GETDATE+2, PAUSE+1, GETPROV+1, CHK+3*
DIRUT	GETTYPE+3, GETDATE+2, GETDATE+3, PAUSE+1, GETPROV+1!, GETPROV+2, CHK+3
DIU	GETPROV+4!
DIW	GETPROV+4!
DLAYGO	CREATE+3!, GETPROV+4!, FILE+2*!
DO	CREATE+3!, GETPROV+4!, FILE+2!
DQ	GETPROV+4!
DR	CREATE+3!, CREATE+5!, CREATE+7, CREATE+12, FILE+2!, FILE+6, FILE+8*
DR(2	CREATE+5*
DT	GETDATE+2
DTOUT	GETPROV+1!
DUOUT	GETDATE+2, PAUSE+1, GETPROV+1!, CHK+3
DUZ	GETPROV+1
U	DEL+2, GETPROV+1, POV+4, FILE+8
X	CREATE+3!, GETPROV+1!, GETPROV+4, FILE+2!, FILE+8
Y	GETTYPE+4, GETDATE+4, CREATE+4, CREATE+5, CREATE+8, GETPROV+1!, GETPROV+3, GETPROV+4, GETPROV+5, CHK+4 , POV+3, POV+4, FILE+3, FILE+4, FILE+9

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEA1

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: