Routine: AMHEGS

Package	Total	Call Graph
Mental Health Social Services	10	^AMHDVD (ADDREC,ADDREC1)^AMHEGR DISPDG^AMHLE RECCHECK^AMHLE2 (CHECK,DEL,PAUSE,PCCLINK,SUIC)^AMHLEA ($$CTR,$$GETAWI)^AMHLEIN (GETPROV,OTHER,PCCLINK,REGULAR)^AMHLEP2 EN^AMHRDSP ($$ALLOWP,$$PPINT,NALLOWP)^AMHUTIL ($$HL,PTSEC)^AMHUTIL2
Registration	5	NOTICE^DGSEC4 EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
VA Fileman	5	^DDS ^DIC FILE^DICN ^DIE ^DIR
IHS VA Utilities	2	($$VAL,$$VALI)^XBDIQ1 ^XBFMK
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
IHS Patient	1	($$AGE,$$DOB,$$HRN,KILL)^AUPNPAT

Package	Total	Caller Graph
Mental Health Social Services	1	AMHEGR

Name	Comments	DBIA/ICR reference
DISP	;EP - called from protocol
HDR	; -- header code
ADD1	;
EDITREC	;
EXPND	; -- expand code
PAUSE	;EP
DONE	;
DISPDG	;EP
HELP	; -- help code
DISP9	;
CTR(X,Y)	;EP - Center X in a field Y wide.
DGSECD	;
DGSECE	;
DGSECX	;
INIT	; -- init variables and list array
ADDPT	;
DATE(D)	;
EN	;
CHK	;
START	;
ADDNS	;EP
REC(P,G)	;does this patient have a record in MHSS for this group
GATHER	;
EXIT	; -- exit code
DEL	;EP - called from protocol
EDITREC1	;
DGSECXX	;

External References

Name	Field # of Occurrence
^AMHDVD	DISP9+1
ADDREC^AMHEGR	ADDPT+15
ADDREC1^AMHEGR	EDITREC+14
DISPDG^AMHLE	DGSECE+4, DGSECE+5, DGSECD+5, DGSECD+6, DGSECX+5, DGSECX+6
RECCHECK^AMHLE2	EDITREC1+11
CHECK^AMHLEA	CHK+1
DEL^AMHLEA	DGSECXX+9
PAUSE^AMHLEA	EDITREC+16, DGSECE+4, DGSECD+5, DGSECX+5
PCCLINK^AMHLEA	EDITREC1+12, DGSECXX+10
SUIC^AMHLEA	CHK+6
$$CTR^AMHLEIN	DISPDG+3
$$GETAWI^AMHLEIN	ADDNS+14
GETPROV^AMHLEP2	ADDNS+17
OTHER^AMHLEP2	CHK+6
PCCLINK^AMHLEP2	CHK+7
REGULAR^AMHLEP2	CHK+4
EN^AMHRDSP	DGSECXX+2
$$ALLOWP^AMHUTIL	ADDPT+9
$$PPINT^AMHUTIL	ADDNS+17
NALLOWP^AMHUTIL	ADDPT+9
$$HL^AMHUTIL2	EDITREC1+10
PTSEC^AMHUTIL2	DGSECE+2, DGSECD+3, DGSECX+3
$$AGE^AUPNPAT	GATHER+9
$$DOB^AUPNPAT	DISPDG+2
$$HRN^AUPNPAT	GATHER+11, DISPDG+2
KILL^AUPNPAT	DONE+3
^DDS	EDITREC1+7, EDITREC1+8, ADD1+1
NOTICE^DGSEC4	DGSECE+9, DGSECD+10, DGSECX+10
^DIC	ADDPT+6, ADDPT+13
FILE^DICN	ADDNS+7
^DIE	EDITREC1+6, EDITREC1+10, ADDNS+11, ADDNS+15
^DIR	EDITREC+11, DGSECE+6, DGSECD+7, DGSECX+7, DGSECXX+4, PAUSE+1
EN^VALM	EN+3
TERM^VALM0	EXIT+1
CLEAR^VALM1	EN+4
FULL^VALM1	START+4, EDITREC+1, EDITREC+17, ADDPT+3, DISP+6, DEL+8, ADDNS+2
EN^VALM2	EDITREC+2, DISP+1, DEL+3
$$VAL^XBDIQ1	DEL+13
$$VALI^XBDIQ1	EDITREC1+10
^XBFMK	DONE+2, ADDPT+5, ADDPT+11
$$FMTE^XLFDT	ADDPT+10, DISPDG+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,"No records selected." Line Location: EDITREC+3
Function Call: WRITE	Prompt: !,"No record selected." Line Location: EDITREC+4
Function Call: WRITE	Prompt: !,"Not a valid GROUP." Line Location: EDITREC+6
Function Call: WRITE	Prompt: !,"Not a valid BH RECORD." Line Location: EDITREC+16
Function Call: WRITE	Prompt: ! Line Location: DGSECE+6
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! NOTIFY PROGRAMMER " Line Location: EDITREC1+9
Function Call: WRITE	Prompt: !!,"No patient selected." Line Location: ADDPT+7
Function Call: WRITE	Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!! Line Location: ADDPT+10
Function Call: WRITE	Prompt: !!,"adding patient to group failed." Line Location: ADDPT+14
Function Call: WRITE	Prompt: !,"No records selected." Line Location: DISP+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: DISP+3
Function Call: WRITE	Prompt: !,"Not a valid GROUP." Line Location: DISP+5
Function Call: WRITE	Prompt: !!,"There is no record/visit on file yet for this patient." Line Location: DISP+9
Function Call: WRITE	Prompt: ! Line Location: DGSECD+7
Function Call: WRITE	Prompt: !!,"You do not have the security access to delete a VISIT.",!,"Please see your supervisor or program manager.",! Line Location: DEL+2
Function Call: WRITE	Prompt: !,"No records selected." Line Location: DEL+4
Function Call: WRITE	Prompt: !,"No record selected." Line Location: DEL+5
Function Call: WRITE	Prompt: !,"Not a valid patient." Line Location: DEL+7
Function Call: WRITE	Prompt: !!,"There is no record/visit on file yet for this patient." Line Location: DEL+11
Function Call: WRITE	Prompt: ! Line Location: DGSECX+7
Function Call: WRITE	Prompt: ! Line Location: DGSECXX+3
Function Call: WRITE	Prompt: !!,"One of the patients in the group is a sensitive patient:",! Line Location: DISPDG+1
Function Call: WRITE	Prompt: !?5,$P(^DPT(AMHPAT,0),U,1),?40,"DOB: ",$$FMTE^XLFDT($$DOB^AUPNPAT(AMHPAT)),?65,"HRN: ",$$HRN^AUPNPAT(AMHPAT,DUZ(2)) Line Location: DISPDG+2
Function Call: WRITE	Prompt: !,$$CTR^AMHLEIN(AMHRESU(X)) Line Location: DISPDG+3
Function Call: WRITE	Prompt: !,"Creating new record..." Line Location: ADDNS+5
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health Record is NOT complete!! Deleting Record.",! Line Location: ADDNS+8
Function Call: WRITE	Prompt: !!,"Error updating record......" Line Location: ADDNS+15
Function Call: WRITE	Prompt: !,"No PRIMARY PROVIDER entered!! - Required element" Line Location: ADDNS+17
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: ADD1+2
Routine Call	VALM Line Location: EN+3
Routine Call	DIE Line Location: EDITREC1+6 EDITREC1+10 ADDNS+11 ADDNS+15
Routine Call	DDS Line Location: EDITREC1+7 EDITREC1+8 ADD1+1
Routine Call	DIC Line Location: ADDPT+6 ADDPT+13
Routine Call	DIR Line Location: EDITREC+11 DGSECE+6 DGSECD+7 DGSECX+7 DGSECXX+4 PAUSE+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHGROUP - [#9002011.67]	GATHER+3, GATHER+4, REC+2, REC+3, EDITREC+6, EDITREC+7, DISP+5, DISP+7, DEL+7, DEL+9 , ADDNS+12, ADDNS+13, ADDNS+14
^AMHREC - [#9002011]	REC+4, REC+5, EDITREC+16, EDITREC1+1, EDITREC1+3, EDITREC1+4, EDITREC1+7, EDITREC1+8, DGSECD+1, DGSECD+2 , DEL+12, DGSECX+1, DGSECX+2
^DD(9002011.67	ADDPT+12
^DPT - [#2]	GATHER+7, GATHER+8, GATHER+10, EDITREC+10, DISPDG+2
^TMP($J	EN+1!, GATHER+1!, GATHER+13*, EDITREC+5, DISP+4, DEL+6
^XUSEC("AMHZ DELETE RECORD"	DEL+2
^XUSEC("AMHZ DELETE SIGNED NOTE"	DEL+12

Label References

Name	Line Occurrences
$$DATE	GATHER+10
$$REC	GATHER+12, EDITREC+8, DISP+8, DEL+10
ADD1	CHK+3
ADDPT	ADDPT+9
DEL	ADDNS+17
DGSECXX	DGSECX+1, DGSECX+4
DISP9	DGSECD+1, DGSECD+4
DONE	START+2, START+5
EDITREC1	DGSECE+3
EN	START+4
EXIT	EDITREC+3, EDITREC+4, EDITREC+6, EDITREC+9, EDITREC+16, DGSECE+4, DGSECE+7, EDITREC1+13, ADDPT+7, ADDPT+14 , ADDPT+17, DISP+2, DISP+3, DISP+5, DISP+9, DGSECD+5, DGSECD+8, DISP9+2, DEL+2, DEL+4 , DEL+5, DEL+7, DEL+11, DEL+12, DGSECX+5, DGSECX+8, DGSECXX+5, DGSECXX+6, DGSECXX+12, ADDNS+17
GATHER	EN+2, INIT+1, EXIT+3
HDR	EXIT+5
PAUSE	EDITREC+6, EDITREC+12, EDITREC+13, EDITREC1+11, ADDPT+7, ADDPT+9, ADDPT+14, DISP+5, DISP+9, DEL+2 , DEL+7, DEL+11, DEL+12, DGSECXX+5, ADDNS+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMHACTN	EDITREC1+5, DGSECXX+1, ADDNS+4*
>> AMHADPTV	ADDNS+3*
AMHC	DONE+1!, GATHER+2*
>> AMHDATE	EDITREC1+3*, ADDNS+6
>> AMHERROR	EDITREC1+11*
AMHG	DONE+1!, EDITREC+6!, DISP+5!, DISP+9!, DEL+6*, DEL+7!, DEL+9, DEL+11!, ADDNS+12, ADDNS+13 , ADDNS+14
AMHLINE	DONE+1!, GATHER+2, GATHER+5, GATHER+6, GATHER+13, INIT+2, EXIT+4
>> AMHNAVR	CHK+5
>> AMHNG	GATHER+3, GATHER+4, GATHER+12, EDITREC+6, EDITREC+7, EDITREC+8, ADDPT+12, DISP+5, DISP+7, DISP+8 , DEL+7, DEL+9, DEL+10
>> AMHNGX	EDITREC+14*
>> AMHPAT	EDITREC+18, DGSECE+2, DGSECE+9, ADDPT+8, ADDPT+9, DGSECD+2, DGSECD+3, DGSECD+10, DGSECX+2, DGSECX+3 , DGSECX+10, DGSECXX+8*, DISPDG+2
>> AMHPTYPE	EDITREC1+4*, ADDNS+6, ADDNS+12
>> AMHQUIT	EDITREC1+9, ADDNS+4, ADD1+2*
AMHR	DONE+1!, EDITREC+8, EDITREC+9, EDITREC+16!, EDITREC1+1, EDITREC1+3, EDITREC1+4, EDITREC1+6, EDITREC1+7, EDITREC1+8 , EDITREC1+10, DISP+8, DISP+9!, DGSECD+1, DGSECD+2, DEL+10, DEL+11!, DEL+12, DEL+13, DGSECX+1 , DGSECX+2, ADDNS+10, ADDNS+11, ADDNS+12, ADDNS+17, ADD1+1
AMHRDEL	EDITREC+6!, EDITREC+16!, DISP+5!, DEL+7!
AMHRESU	DGSECE+1!, DGSECE+2, DGSECE+8!, DGSECE+9, DGSECD+3, DGSECD+9!, DGSECD+10, DGSECX+3, DGSECX+9!, DGSECX+10 , EXIT+7!
AMHRESU(	DISPDG+3
AMHRESU(1	DGSECE+3, DGSECE+4, DGSECD+4, DGSECD+5, DGSECX+4, DGSECX+5
>> AMHVTYPE	EDITREC1+1, EDITREC1+2, ADDNS+6, CHK+4
AMHX	DONE+1!, GATHER+2, GATHER+3, GATHER+4, GATHER+13, EDITREC+5, EDITREC+6, EDITREC+7, EDITREC+14, DISP+4 , DISP+5, DISP+7
AMHY	DONE+1!, GATHER+5, GATHER+6, GATHER+7, GATHER+8, GATHER+9, GATHER+10, GATHER+11, GATHER+12, GATHER+13
>> AMHZDEL	CHK+2
>> AMHZED	CHK+3
>> APCDOVRR	ADDNS+1*
>> AUPNDOD	ADDPT+10
D	DATE~, DATE+1, DATE+2
D0	ADDNS+5!, ADDNS+7!
DA	EDITREC+11!, DGSECE+6!, EDITREC1+6!, EDITREC1+7, EDITREC1+8, EDITREC1+10!, DGSECD+7!, DGSECX+7!, DGSECXX+4!, ADDNS+5! , ADDNS+11!, ADDNS+12, ADDNS+16!, ADD1+1*
DA(1	ADDPT+12*
DD	ADDNS+5!
>> DDSFILE	EDITREC1+7, EDITREC1+8, ADD1+1*
DFN	DONE+1!, GATHER+4, GATHER+7, GATHER+8, GATHER+9, GATHER+10, GATHER+11, GATHER+12, EDITREC+7, EDITREC+8 , EDITREC+10, EDITREC+18, ADDPT+8, DISP+7, DISP+8, DISP+9!, DEL+9*, DEL+10, DEL+11!, DGSECXX+8
DIADD	EDITREC1+6!, ADDNS+6, ADDNS+7!
DIC	ADDPT+6, ADDPT+12, ADDNS+5!, ADDNS+6*, ADDNS+7!
DIC("DR"	ADDNS+6*
DIC("P"	ADDPT+12*
DIC(0	ADDPT+6, ADDPT+12, ADDNS+6*
DIE	EDITREC1+6!, EDITREC1+10!, ADDNS+7!, ADDNS+11!, ADDNS+12, ADDNS+16!
DIMSG	EDITREC1+9!, ADD1+2!
DINUM	ADDNS+5!
DIR	EDITREC+1!, EDITREC+11!, DGSECE+6!, DGSECD+7!, DGSECX+7!, DGSECXX+4!, PAUSE+1!
DIR("A"	EDITREC+11, DGSECE+6, DGSECD+7, DGSECX+7, DGSECXX+4, PAUSE+1
DIR("B"	EDITREC+11, DGSECE+6, DGSECD+7, DGSECX+7, DGSECXX+4*
DIR(0	EDITREC+11, DGSECE+6, DGSECD+7, DGSECX+7, DGSECXX+4, PAUSE+1
>> DIRUT	EDITREC+12, DGSECXX+5, PAUSE+1*
DLAYGO	ADDNS+6*, ADDNS+7!
DO	ADDNS+5!
DR	EDITREC1+6!, EDITREC1+7, EDITREC1+8, EDITREC1+10!, ADDNS+5!, ADDNS+7!, ADDNS+11!, ADDNS+12, ADDNS+13, ADDNS+14 , ADDNS+16!, ADD1+1*
DR(2	EDITREC1+6, ADDNS+11
DT	GATHER+9
>> DUOUT	PAUSE+1
DUZ	ADDPT+9, DEL+2, DEL+12, ADDNS+6
DUZ(2	GATHER+11, DISPDG+2, ADDNS+14
G	REC~, REC+2, REC+3
I	EXIT+6!
IOF	START+1
IOM	CTR+1
P	REC~, REC+5
R	EDITREC+4!, EDITREC+5, EDITREC+6!, DISP+3!, DISP+4, DISP+5!, DEL+5*!, DEL+6, DEL+7!
R1	EDITREC+6!, DISP+5!, DEL+7!
U	GATHER+4, GATHER+7, GATHER+8, GATHER+10, REC+3, REC+5, EDITREC+7, EDITREC+10, EDITREC1+1, EDITREC1+3 , EDITREC1+4, EDITREC1+7, EDITREC1+8, ADDPT+12, DISP+7, DGSECD+1, DGSECD+2, DEL+9, DEL+12, DGSECX+1 , DGSECX+2, DISPDG+2, ADDNS+12, ADDNS+13, ADDNS+14
>> VALMBCK	EXIT+2*
>> VALMCNT	INIT+2, EXIT+4
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+3*
VALMY	EDITREC+3, EDITREC+4!, DISP+2, DISP+3!, DEL+4, DEL+5!
VALMY(0	EDITREC+4, DISP+3, DEL+5
X	REC+1~, REC+2, REC+3, CTR~, CTR+1, HDR+2, HDR+3, HELP+1, EXIT+6!, DISPDG+3 , ADDNS+6*, ADDNS+7!
XQORNOD	EDITREC+4!, DISP+3!, DEL+5!
XQORNOD(0	EDITREC+2, DISP+1, DEL+3
Y	GATHER+12, REC+1~, REC+2, REC+5*, REC+7, CTR~, CTR+1, EDITREC+13, DGSECE+7, ADDPT+7 , ADDPT+8, ADDPT+14, DGSECD+8, DGSECX+8, DGSECXX+6, EXIT+6!, ADDNS+8, ADDNS+10, ADDNS+15
Z	REC+1~, REC+3*, REC+4, REC+5, EXIT+6!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHEGS

Information

Source Information

Call Graph

Call Graph Total: 25

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: