Routine: AMHEGR1

Call Graph Total: 21

Package	Total	Call Graph
Mental Health Social Services	7	($$PP,EDITGRP,EXIT,SIGN)^AMHEGR $$ESIG^AMHESIG $$PRVG^AMHGU (PCCLINK,RECCHECK)^AMHLE2 $$IINTAKE^AMHLEDEL $$ALLOWV^AMHUTIL ($$CHKD,CPT)^AMHUTIL1
IHS VA Utilities	5	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK DIQ^XBLM EN^XBNEW
VA Fileman	5	FILE^DICN ^DIE (,IX1)^DIK ($$GET1,EN)^DIQ ^DIR
Registration	2	FULL^VALM1 EN^VALM2
IHS Patient	1	$$DOD^AUPNPAT
Kernel	1	$$FMADD^XLFDT

Package

Total

Call Graph

($$PP,EDITGRP,EXIT,SIGN)^AMHEGR $$ESIG^AMHESIG $$PRVG^AMHGU (PCCLINK,RECCHECK)^AMHLE2 $$IINTAKE^AMHLEDEL $$ALLOWV^AMHUTIL ($$CHKD,CPT)^AMHUTIL1

IHS VA Utilities

^XBDBQUE $$VAL^XBDIQ1 ^XBFMK DIQ^XBLM EN^XBNEW

VA Fileman

FILE^DICN ^DIE (,IX1)^DIK ($$GET1,EN)^DIQ ^DIR

Registration

FULL^VALM1 EN^VALM2

IHS Patient

$$DOD^AUPNPAT

Kernel

$$FMADD^XLFDT

Package	Total	Caller Graph
Mental Health Social Services	1	AMHEGR

Package

Total

Caller Graph

Mental Health Social Services

AMHEGR

Name	Comments	DBIA/ICR reference
DISP	;EP - called from protocol
PAUSE	;EP
PPINI(R)	;
GATHER	;EP
ESIGGRP	;
DELR	;EP
DEL	;EP - called from protocol
DUP	;EP
POV(R)	;
PRTEF	;EP
SOAP	;EP - put in standard soap
PCCLINK	;EP

External References

Name	Field # of Occurrence
$$PP^AMHEGR	ESIGGRP+9
EDITGRP^AMHEGR	DUP+39
EXIT^AMHEGR	DEL+2, DEL+4, DEL+5, DEL+7, DEL+8, DEL+31, DEL+40, DEL+41, DEL+42, DEL+47 , SOAP+15, PRTEF+2, PRTEF+3, PRTEF+5, PRTEF+7, PRTEF+20, DISP+2, DISP+3, DISP+5, DISP+8 , ESIGGRP+2, ESIGGRP+3, ESIGGRP+5, ESIGGRP+7, ESIGGRP+8, ESIGGRP+10, DUP+2, DUP+3, DUP+5, DUP+9 , DUP+12
SIGN^AMHEGR	ESIGGRP+11
$$ESIG^AMHESIG	PCCLINK+7
$$PRVG^AMHGU	GATHER+10
PCCLINK^AMHLE2	PCCLINK+15
RECCHECK^AMHLE2	SOAP+5
$$IINTAKE^AMHLEDEL	DELR+4
$$ALLOWV^AMHUTIL	GATHER+6
$$CHKD^AMHUTIL1	DUP+29
CPT^AMHUTIL1	DUP+34
$$DOD^AUPNPAT	DUP+24
FILE^DICN	SOAP+10, DUP+11
^DIE	SOAP+4, DUP+37, PCCLINK+8, PCCLINK+16
^DIK	DEL+42, DEL+43, DUP+25, DUP+30, DUP+35
IX1^DIK	DUP+38
$$GET1^DIQ	GATHER+11
EN^DIQ	DEL+10
^DIR	DEL+39, PAUSE+2, PRTEF+14, DUP+8
FULL^VALM1	DEL+9, PRTEF+6, DISP+6, ESIGGRP+6, DUP+6
EN^VALM2	DEL+3, PRTEF+1, DISP+1, ESIGGRP+1, DUP+1
^XBDBQUE	PRTEF+19
$$VAL^XBDIQ1	DELR+2, PRTEF+10, GATHER+16, GATHER+18, PCCLINK+7, PCCLINK+11
^XBFMK	SOAP+3, SOAP+7, DUP+12, DUP+14
DIQ^XBLM	DISP+7
EN^XBNEW	DELR+7
$$FMADD^XLFDT	GATHER+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You do not have the security access to delete a Group entry.",!,"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 GROUP." Line Location: DEL+7
Function Call: WRITE	Prompt: !!,"This Group has been signed and you do not have security access to delete ",!,"a signed group. See your supervisor.",! Line Location: DEL+8
Function Call: WRITE	Prompt: ! Line Location: DEL+11
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: DELR+4
Function Call: WRITE	Prompt: !,"Incomplete record!! Deleting record!!" Line Location: SOAP+5
Function Call: WRITE	Prompt: !!,"adding record to group failed." Line Location: SOAP+11
Function Call: WRITE	Prompt: !,"No records selected." Line Location: PRTEF+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: PRTEF+3
Function Call: WRITE	Prompt: !,"Not a valid GROUP." Line Location: PRTEF+5
Function Call: WRITE	Prompt: !!,"There were no visits created for this group." Line Location: PRTEF+7
Function Call: WRITE	Prompt: !!,"Forms will be generated for the following patient visits:" Line Location: PRTEF+8
Function Call: WRITE	Prompt: !! Line Location: PRTEF+13
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: !,"No Group selected." Line Location: ESIGGRP+2
Function Call: WRITE	Prompt: !,"No Group selected." Line Location: ESIGGRP+3
Function Call: WRITE	Prompt: !,"Not a valid GROUP." Line Location: ESIGGRP+5
Function Call: WRITE	Prompt: !!,"There were no visits created for this group." Line Location: ESIGGRP+7
Function Call: WRITE	Prompt: !!,"The notes for this group have already been signed.",!! Line Location: ESIGGRP+8
Function Call: WRITE	Prompt: !!,"No E-Sig Required. Provider opted out of E-Sig." Line Location: ESIGGRP+10
Function Call: WRITE	Prompt: !,"No records selected." Line Location: DUP+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: DUP+3
Function Call: WRITE	Prompt: !,"Not a valid GROUP." Line Location: DUP+5
Function Call: WRITE	Prompt: ! Line Location: DUP+7
Function Call: WRITE	Prompt: !!,"entry of new group failed." Line Location: DUP+12
Function Call: WRITE	Prompt: !!,"Processing PCC Link for all visits..." Line Location: PCCLINK+1
Function Call: WRITE	Prompt: !!,"a previously entered visit has been deleted, skipping signature for that visit" Line Location: PCCLINK+6
Function Call: WRITE	Prompt: !,"Signing note for ",$$VAL^XBDIQ1(9002011,AMHR,.08) Line Location: PCCLINK+7
Function Call: WRITE	Prompt: !!,"Error updating electronic signature...see your supervisor for programmer help." Line Location: PCCLINK+9
Routine Call	DIE Line Location: SOAP+4 DUP+37 PCCLINK+8 PCCLINK+16
Routine Call	DIR Line Location: DEL+39 PAUSE+2 PRTEF+14 DUP+8

FileNo	Call Tags
^AMHREC - [#9002011]	Classic Fileman Calls
^AMHGROUP - [#9002011.67]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHGROUP - [#9002011.67]	DEL+7, DEL+8, DEL+31, DEL+44, DEL+45, SOAP+1, PRTEF+5, PRTEF+7, PRTEF+9, PRTEF+17 , DISP+5, ESIGGRP+5, ESIGGRP+7, ESIGGRP+8, GATHER+5, GATHER+13, PPINI+3, POV+3, DUP+5, DUP+16* , DUP+17!, DUP+18!, DUP+21, DUP+22, DUP+27, DUP+28, DUP+32, DUP+33, DUP+36*, PCCLINK+4 , PCCLINK+5, PCCLINK+12, PCCLINK+13, PCCLINK+14
^AMHGROUP("B"	GATHER+3, GATHER+4, DUP+15!
^AMHPROB - [#9002012.2]	POV+3
^AMHREC - [#9002011]	DELR+1, DELR+5, SOAP+1, SOAP+2, PRTEF+9, PCCLINK+6
^AMHSITE - [#9002013]	PRTEF+14, ESIGGRP+10, GATHER+8, GATHER+9
^AMHTACT - [#9002012]	GATHER+14
^DD(9002011.67	SOAP+9
^TMP($J	DEL+6, PRTEF+4, DISP+4, ESIGGRP+4, GATHER+1!, GATHER+20*, DUP+4
^VA(200 - [#200]	PPINI+3, PCCLINK+8, PCCLINK+16
^XUSEC("AMHZ DELETE RECORD"	DEL+2
^XUSEC("AMHZ DELETE SIGNED NOTE"	DEL+8, DEL+31, DELR+1

Name	Line Occurrences
$$POV	GATHER+19
$$PPINI	GATHER+17
DELR	DEL+46, SOAP+5
PAUSE	DEL+2, DEL+7, DEL+8, DEL+31, DELR+4, PRTEF+5, PRTEF+7, DISP+5, ESIGGRP+5, ESIGGRP+7 , ESIGGRP+8, ESIGGRP+10, DUP+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	GATHER+14*
>> AMHACTN	DELR+5, PCCLINK+3, PCCLINK+10*
>> AMHD	GATHER+2, GATHER+3, GATHER+4, GATHER+13, DUP+10*, DUP+11, DUP+15, DUP+37
>> AMHDATE	DUP+10, DUP+29, DUP+34, PCCLINK+12
>> AMHDELT	DEL+12*, DEL+31, DEL+34, DEL+42, DEL+43
AMHEFT	PRTEF+12!, PRTEF+16*
AMHEFTH	PRTEF+12!, PRTEF+16*
AMHG	DEL+6, DEL+7!, DEL+8, DEL+10, DEL+31, DEL+42, DEL+43, DEL+44, DEL+45, DISP+4 , DISP+5!, DISP+7, DUP+4*, DUP+5!, DUP+16
AMHGRPDE	DEL+46*!
>> AMHGRPN	PRTEF+17*
AMHGX	PCCLINK+2~, PCCLINK+4*, PCCLINK+5
>> AMHLEGP("RECS	ADDED" , PRTEF+11*
>> AMHLINE	GATHER+2, GATHER+13, GATHER+20
>> AMHLOC	PCCLINK+14*
>> AMHN	GATHER+5*, GATHER+6, GATHER+13, GATHER+14, GATHER+15
AMHNG	SOAP+1, SOAP+9, PRTEF+4, PRTEF+5!, PRTEF+7, PRTEF+9, PRTEF+17, ESIGGRP+4, ESIGGRP+5!, ESIGGRP+7 , ESIGGRP+8, ESIGGRP+9, DUP+13*, DUP+15, DUP+16, DUP+17, DUP+18, DUP+21, DUP+22, DUP+25 , DUP+27, DUP+28, DUP+30, DUP+32, DUP+33, DUP+35, DUP+36, DUP+37, DUP+38, PCCLINK+4 , PCCLINK+5, PCCLINK+12, PCCLINK+13, PCCLINK+14, PCCLINK+16
>> AMHOKAY	SOAP+5*
>> AMHPRVM	GATHER+7, GATHER+8, GATHER+10, GATHER+11, GATHER+12
>> AMHPTYPE	PCCLINK+13*
>> AMHR	DEL+45, DELR+1, DELR+2, DELR+4, DELR+5, DELR+6, SOAP+1, SOAP+2, SOAP+4, SOAP+8 , PRTEF+9, PRTEF+10, PRTEF+11, PCCLINK+5*, PCCLINK+6, PCCLINK+7, PCCLINK+8, PCCLINK+11
>> AMHRBD	GATHER+3
AMHRDEL	DEL+7!, DELR+6*, DISP+5!, DUP+5!
>> AMHRED	GATHER+2
>> AMHSIGN	PCCLINK+16
>> AMHVDLT	DELR+5*
AMHX	DEL+44, DEL+45, GATHER+4, GATHER+5, GATHER+10, GATHER+11, GATHER+13, GATHER+16, GATHER+17, GATHER+18 , GATHER+19, GATHER+20, DUP+20~, DUP+21, DUP+22, DUP+25, DUP+27, DUP+28, DUP+30, DUP+32* , DUP+33, DUP+35, DUP+36
>> AMHY	PRTEF+9*, PRTEF+11
>> C	SOAP+1*, SOAP+2
DA	DEL+10, DEL+39!, DEL+42, DEL+43, SOAP+4, PRTEF+14!, DUP+8!, DUP+25!, DUP+30!, DUP+35! , DUP+37, DUP+38, PCCLINK+8!, PCCLINK+16!*
DA(1	SOAP+9, DUP+25, DUP+30, DUP+35
DD	SOAP+10!, DUP+11!
DIADD	DUP+11*, DUP+12!, DUP+14!
>> DIC	DEL+10, SOAP+9, DUP+11*
>> DIC("P"	SOAP+9*
>> DIC(0	SOAP+9, DUP+11
DIE	SOAP+4, DUP+37, PCCLINK+8!, PCCLINK+16!
DIK	DEL+42!, DEL+43!, DUP+25!, DUP+30!, DUP+35!, DUP+38
DIR	DEL+39!, PAUSE+1!, PAUSE+2!, PRTEF+14!, DUP+8!
DIR("A"	DEL+38, PAUSE+2, DUP+8*
DIR("B"	DEL+39, PRTEF+14
DIR(0	DEL+39, PAUSE+2, PRTEF+13, DUP+8
>> DIRUT	DEL+40, PAUSE+2*, PRTEF+15, DUP+9
DIU	PCCLINK+16!
DIV	PCCLINK+16!
DLAYGO	DUP+11*, DUP+12!, DUP+14!
DO	SOAP+10!, DUP+11!
DR	SOAP+4, DUP+37, PCCLINK+8!, PCCLINK+16!
DT	SOAP+2, DUP+37
>> DUOUT	PAUSE+2
DUZ	DEL+2, DEL+8, DEL+31, DELR+1, GATHER+6, GATHER+8, GATHER+9, GATHER+10, GATHER+11, DUP+37 , PCCLINK+8, PCCLINK+16
DUZ(2	PRTEF+14, ESIGGRP+10, GATHER+8, GATHER+9
P	ESIGGRP+9, ESIGGRP+10, POV+2~, POV+3, DUP+20~, DUP+22, DUP+23, DUP+24, DUP+28, DUP+29 , DUP+33*, DUP+34
R	DEL+5!, DEL+6, DEL+7!, PRTEF+3!, PRTEF+4, PRTEF+5!, DISP+3!, DISP+4, DISP+5!, ESIGGRP+3! , ESIGGRP+4, ESIGGRP+5!, PPINI~, PPINI+1, PPINI+3, POV~, POV+1, POV+3, DUP+3*!, DUP+4 , DUP+5!
R1	DEL+7!, PRTEF+5!, DISP+5!, ESIGGRP+5!, DUP+5!
U	DEL+8, DEL+31, DEL+45, DELR+1, DELR+5, SOAP+9, PRTEF+9, PRTEF+14, PRTEF+17, ESIGGRP+8 , GATHER+6, GATHER+13, GATHER+14, GATHER+15, PPINI+3, POV+3, DUP+22, DUP+28, DUP+33, DUP+36 , PCCLINK+5, PCCLINK+7, PCCLINK+8, PCCLINK+12, PCCLINK+13, PCCLINK+14, PCCLINK+16
VALMY	DEL+4, DEL+5!, PRTEF+2, PRTEF+3!, DISP+2, DISP+3!, ESIGGRP+2, ESIGGRP+3!, DUP+2, DUP+3!
VALMY(0	DEL+5, PRTEF+3, DISP+3, ESIGGRP+3, DUP+3
X	SOAP+1, SOAP+8, GATHER+13, GATHER+14, GATHER+15, GATHER+16, GATHER+17, GATHER+18, GATHER+19, GATHER+20 , PPINI+2~, PPINI+3, POV+2~, POV+3, DUP+11
>> XBNS	PRTEF+18*
>> XBRC	PRTEF+18*
>> XBRP	PRTEF+18*
>> XBRX	PRTEF+18*
XQORNOD	DEL+5!, PRTEF+3!, DISP+3!, ESIGGRP+3!, DUP+3!
XQORNOD(0	DEL+3, PRTEF+1, DISP+1, ESIGGRP+1, DUP+1
Y	DEL+41, SOAP+11, PRTEF+16, PPINI+2~, PPINI+3, PPINI+4, POV+2~, POV+3, POV+4, DUP+10 , DUP+12, DUP+13, PCCLINK+9, PCCLINK+16!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHEGR1

Information

Source Information

Call Graph

Call Graph Total: 21

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: