Routine: AMHLEA2

Package	Total	Call Graph
VA Fileman	5	^DDS ^DIC (FILE,YN)^DICN ^DIE ^DIR
IHS VA Utilities	3	^XBFMK EN^XBNEW EN^XBVK
Mental Health Social Services	3	RECCHECK^AMHLE2 ($$IINTAKE,EN)^AMHLEDEL ^AMHPEDIT

Entry Points

Name	Comments	DBIA/ICR reference
GETPOV	;
BEGIN	;add adm record
PAUSE	;EP
GETPROV	;get providers
CREATE	;EP
GETTYPE	;EP
GETPAT	;EP
EXIT	;
GETPAT1	;
DEL	;EP
GETDATE	;EP - GET DATE OF ENCOUNTER

External References

Name	Field # of Occurrence
RECCHECK^AMHLE2	CREATE+12
$$IINTAKE^AMHLEDEL	DEL+1
EN^AMHLEDEL	DEL+4
^AMHPEDIT	GETPAT1+5
^DDS	CREATE+9
^DIC	GETPAT1+2
FILE^DICN	CREATE+5, GETPROV+4
YN^DICN	GETPAT1+6
^DIE	CREATE+7
^DIR	GETTYPE+2, GETDATE+2, PAUSE+1, GETPROV+1
^XBFMK	GETPAT+1, EXIT+1
EN^XBNEW	GETPOV+1
EN^XBVK	EXIT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Update Case Tracking Visit Record",! Line Location: BEGIN+2
Function Call: WRITE	Prompt: !! Line Location: GETDATE+1
Function Call: WRITE	Prompt: !!,"No Patient Selected." Line Location: CREATE+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health Record is NOT complete!! Deleting Record.",! Line Location: CREATE+6
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: CREATE+10
Function Call: WRITE	Prompt: !!,"Incomplete record!! Deleting record!!" Line Location: CREATE+11
Function Call: WRITE	Prompt: !,"Incomplete record!! Deleting record!!" 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
Routine Call	DIE Line Location: CREATE+7
Routine Call	DDS Line Location: CREATE+9
Routine Call	DIC Line Location: GETPAT1+2
Routine Call	DIR Line Location: GETTYPE+2 GETDATE+2 PAUSE+1 GETPROV+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AMHREC - [#9002011]	Classic Fileman Calls
^AMHRPROV - [#9002011.02]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	DEL+2
^AMHRPRO("AD"	CREATE+11
^AMHRPROV("AD"	CREATE+11
^VA(200 - [#200]	GETPROV+1

Label References

Name	Line Occurrences
CREATE	BEGIN+7
DEL	CREATE+11, CREATE+12
EXIT	BEGIN+4, BEGIN+6, BEGIN+8, CREATE+4, CREATE+11, CREATE+12, CREATE+13
GETDATE	BEGIN+5
GETPAT	CREATE+3
GETPAT1	GETPAT1+5
GETPROV	CREATE+8
GETTYPE	BEGIN+3
PAUSE	CREATE+6, DEL+1, DEL+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GETPAT1+6*
>> AMHACTN	CREATE+1*
AMHC	GETPAT+2, GETPAT1+3!, GETPAT1+5, GETPAT1+6!, GETPAT1+7!
>> AMHDATE	BEGIN+6, GETDATE+2, GETDATE+4, CREATE+5
>> AMHOKAY	CREATE+12*
>> AMHPAT	CREATE+4, CREATE+5, GETPAT1+1, GETPAT1+4, GETPAT1+5, GETPAT1+6*, GETPROV+4
>> AMHPTYPE	BEGIN+4, GETTYPE+1, GETTYPE+4
>> AMHQUIT	CREATE+10*
>> AMHR	CREATE+7*, CREATE+9, CREATE+11, DEL+1, DEL+2, DEL+3, GETPROV+4
>> AMHRDEL	DEL+3*
>> AMHVDLT	DEL+2*
>> APCDOVRR	CREATE+2*
D0	CREATE+5!, GETPROV+4!
DA	GETTYPE+2!, CREATE+5!, CREATE+7!, CREATE+9, GETPAT1+2!, GETPROV+1!, GETPROV+4!
DD	CREATE+5!, GETPROV+4!
>> DDSFILE	CREATE+9*
DG	GETPROV+4!
DH	GETPROV+4!
DI	GETPROV+4!
DIADD	CREATE+5!, GETPAT1+2!, GETPROV+4!
DIC	CREATE+5!, GETPAT1+2!, GETPROV+1!, GETPROV+4*!
DIC("DR"	CREATE+5, GETPROV+4
DIC(0	CREATE+5, GETPAT1+2, GETPROV+4*
DIE	CREATE+5!, CREATE+7*!, GETPROV+4!
DIMSG	CREATE+10!
DINUM	CREATE+5!
DIR	GETTYPE+2!, GETDATE+2!, PAUSE+1!, GETPROV+1!
DIR("A"	GETTYPE+2, GETDATE+2, PAUSE+1, GETPROV+1
DIR("B"	GETPROV+1*
DIR(0	GETTYPE+2, GETDATE+2, PAUSE+1, GETPROV+1
DIRUT	GETTYPE+3, GETDATE+2, GETDATE+3, PAUSE+1, GETPROV+1!*, GETPROV+2
DIU	GETPROV+4!
DIW	GETPROV+4!
DLAYGO	CREATE+5!, GETPAT1+2!, GETPROV+4!
DO	CREATE+5!, GETPROV+4!
DQ	GETPROV+4!
DR	CREATE+5!, CREATE+7!, CREATE+9, GETPAT1+2!
DR(2	CREATE+7*
DT	GETDATE+2, CREATE+5
DTOUT	GETPROV+1!
DUOUT	GETDATE+2, PAUSE+1, GETPROV+1!
DUZ	CREATE+5, GETPROV+1
IOF	BEGIN+1
U	DEL+2, GETPROV+1
X	CREATE+5!, GETPAT1+5, GETPROV+1!, GETPROV+4*
Y	GETTYPE+4, GETDATE+4, CREATE+6, CREATE+7, GETPAT1+3, GETPAT1+4, GETPROV+1!, GETPROV+3, GETPROV+4, GETPROV+5

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEA2

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: