Routine: AMHNAVR

Package	Total	Call Graph
Mental Health Social Services	6	EN2^AMHEKL (GETDATE,GETTYPE)^AMHLE SUIC^AMHLEA ^AMHLEIN (ADD,OTHER,PAUSE,PCCLINK)^AMHLEP2 $$CTR^AMHNAVRP
VA Fileman	4	^DDS ^DIC FILE^DICN ^DIR
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
IHS Patient	1	KILL^AUPNPAT

Package

Total

Call Graph

EN2^AMHEKL (GETDATE,GETTYPE)^AMHLE SUIC^AMHLEA ^AMHLEIN (ADD,OTHER,PAUSE,PCCLINK)^AMHLEP2 $$CTR^AMHNAVRP

^DDS ^DIC FILE^DICN ^DIR

^XBDBQUE ^XBFMK EN^XBVK

KILL^AUPNPAT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR^AMHNAVRP("*** NAVAJO PSYCHIATRIC HOSPITALIZATION REFERRAL ***",80),! Line Location: AMHNAVR+6
Function Call: WRITE	Prompt: !!,"This option should be used to add a visit to the BH system and then to",!,"complete a Psychiatric Referral Form.",!! Line Location: A+2
Function Call: WRITE	Prompt: !!,"Record IEN missing!" Line Location: 1+11
Function Call: WRITE	Prompt: !!,"Now creating referral form...." Line Location: ADDFORM+1
Function Call: WRITE	Prompt: !,"Creating new record..." Line Location: ADDFORM+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health Referral form is NOT complete!! Deleting Record.",! Line Location: ADDFORM+5
Function Call: WRITE	Prompt: !!,"Print a Psychiatric Hospitalization Referral Form",!! Line Location: P+1
Function Call: WRITE	Prompt: !!,"No referral form on file for that date." Line Location: P+10
Function Call: WRITE	Prompt: !!,"Edit a Psychiatric Hospitalization Referral Form",!! Line Location: E+1
Function Call: WRITE	Prompt: !!,"No referral form on file for that date." Line Location: E+10
Routine Call	DDS Line Location: ADDFORM+7 E+11
Routine Call	DIC Line Location: GETPAT+1
Routine Call	DIR Line Location: AMHNAVR+7 ADDFORM+9 P+5 P+11 E+5 E+12

FileNo	Call Tags
^AMHRNRF - [#9002011.11]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	1+12
^AMHRNRF - [#9002011.11]	P+9, E+9
^AMHRNRF("AC"	P+9, E+9

Name	Field # of Occurrence
>> AMHACT	AMHNAVR+9*, AMHNAVR+10
>> AMHCC	1+12*
>> AMHDATE	1+8, ADDFORM+3
>> AMHNAVR	1+3*
>> AMHPAT	A+5, GETPAT+1*, P+3, P+9, E+3, E+9
>> AMHPATCE	1+2*
>> AMHPTYPE	1+6
>> AMHR	1+11, 1+12, ADDFORM+3
>> AMHRDATE	P+4, P+7, P+9, E+4, E+7, E+9
>> AMHREF	ADDFORM+6, ADDFORM+7, P+9, P+10, E+9*, E+10, E+11
>> AMHVTYPE	1+9*, ADDFORM+7
D0	ADDFORM+2!, ADDFORM+4!
DA	AMHNAVR+7!, ADDFORM+2!, ADDFORM+7, ADDFORM+9!, P+5!, P+11!, E+5!, E+11, E+12!
DD	ADDFORM+2!
>> DDSFILE	ADDFORM+7, E+11
DFN	GETPAT+1!*
DIADD	ADDFORM+3*, ADDFORM+4!
DIC	GETPAT+1!, ADDFORM+2!, ADDFORM+3, ADDFORM+4!
DIC("DR"	ADDFORM+3*
DIC(0	GETPAT+1, ADDFORM+3
DIE	ADDFORM+4!
DINUM	ADDFORM+2!
DIR	AMHNAVR+7!, ADDFORM+9!, P+5!, P+11!, E+5!, E+12!
DIR("A"	AMHNAVR+7, ADDFORM+9, P+5, P+11, E+5, E+12
DIR("B"	AMHNAVR+7, ADDFORM+9, P+11, E+12
DIR(0	AMHNAVR+7, ADDFORM+9, P+5, P+11, E+5, E+12
>> DIRUT	AMHNAVR+8, ADDFORM+10, P+6, P+12, E+6, E+13
DLAYGO	ADDFORM+3*, ADDFORM+4!
DO	ADDFORM+2!
DR	ADDFORM+2!, ADDFORM+4!, ADDFORM+7, E+11
IOF	AMHNAVR+5, A+1
U	1+12, P+9, E+9
X	ADDFORM+3, ADDFORM+4!, P+9, E+9*
>> XBNS	ADDFORM+12, P+13, E+15*
>> XBRC	ADDFORM+12, P+13, E+15*
>> XBRP	ADDFORM+12, P+13, E+15*
>> XBRX	ADDFORM+12, P+13, E+15*
>> Y	AMHNAVR+9, GETPAT+1, ADDFORM+5, ADDFORM+6, ADDFORM+11, P+7, E+7, E+14

Information