Routine: AMHLEP1

Call Graph

Call Graph Total: 22

Package	Total	Call Graph
Mental Health Social Services	15	^AMHDVD (EHRE,TIU)^AMHEHR EN2^AMHEKL ($$DATE,$$ESIG)^AMHESIG (GETDATE,GETTYPE)^AMHLE (PAUSE,PCCLINK)^AMHLEA EP1^AMHLEDV (DEL,EDIT,EDITEHR)^AMHLEE FORMDIR^AMHLEFP (,CALLDIE,PAUSE)^AMHLEIN (ADD,OTHER,PAUSE,REGULAR)^AMHLEP2 EN^AMHRLKUP ($$EHR,$$PPNAME)^AMHUTIL ($$DATE,RESET)^AMHVRL ($$CONFID,MSG)^AMHVU
IHS VA Utilities	2	^XBDBQUE $$VAL^XBDIQ1
Kernel	2	($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR
VA Fileman	2	$$GET1^DIQ ^DIR
Registration	1	FULL^VALM1

Package	Total	Caller Graph
Mental Health Social Services	2	AMHDPEE AMHLESF

Package

Total

Caller Graph

Mental Health Social Services

AMHDPEE AMHLESF

Entry Points

Name	Comments	DBIA/ICR reference
DISPRECS	;display visits for selection by user
HDR	; -- print header
HRCN()	; -- returns chart # for this facility
ESIG9	;
NAME()	; -- returns printable name
SELECT	;
PAD(DATA,LENGTH)	; -- SUBRTN to pad length of data
3	;EP -- display visit
1	; -- add visit
GETVTYP	;
2	; -- edit visit
5	; -- delete visit
4	; -- soap update
7	; -- EHR visit
6	; -- print encounter form
9	;EP - called from protocol to sign visit
E9	;edit?
HEAD	;
CONTACT(P,AMHY)	;EP; called by AMHV UPDATE CLIENT CONTACT protocol
CHOICE	;;
OTHER	;EP
XIT	;
SP(NUM)	; -- SUBRTN to pad spaces
8	; -- TIU NOTE
DUP	;EP called from protocol
HEAD1	;
MENU	; -- menu of scheduling actions
NOW()	; -- returns readable now

External References

Name	Field # of Occurrence
^AMHDVD	3+9, 9+30
EHRE^AMHEHR	2+14, 4+10, 5+12
TIU^AMHEHR	8+9
EN2^AMHEKL	1+14, 2+20, 3+14, 4+17, 5+16, 6+21, 7+12, 8+12, E9+10, ESIG9+5
$$DATE^AMHESIG	9+13
$$ESIG^AMHESIG	9+19
GETDATE^AMHLE	1+7, 2+8, 3+4, 4+4, 5+7, 6+5, 7+4, 8+4
GETTYPE^AMHLE	1+5, 2+6
PAUSE^AMHLEA	2+13, 2+14, 2+16, 4+9, 4+10, 4+11, 5+12
PCCLINK^AMHLEA	4+16, ESIG9+3
EP1^AMHLEDV	DUP+2
DEL^AMHLEE	5+15
EDIT^AMHLEE	2+17, E9+7
EDITEHR^AMHLEE	7+9
FORMDIR^AMHLEFP	6+14
^AMHLEIN	1+1, 2+2, 3+1, 4+1, 5+3, 6+1, 7+2, 8+2, 9+8
CALLDIE^AMHLEIN	4+13
PAUSE^AMHLEIN	SELECT+2
ADD^AMHLEP2	1+12
OTHER^AMHLEP2	OTHER+2, 3+13, 4+15, ESIG9+2
PAUSE^AMHLEP2	5+2, 5+14, 9+23, 9+26
REGULAR^AMHLEP2	3+11, 4+14
EN^AMHRLKUP	2+11, 3+7, 4+7, 5+10, 6+8, 7+7, 8+7
$$EHR^AMHUTIL	2+14, 4+10, 5+12, 9+17
$$PPNAME^AMHUTIL	DISPRECS+7
$$DATE^AMHVRL	DISPRECS+10
RESET^AMHVRL	OTHER+3, DUP+4, MENU+3
$$CONFID^AMHVU	HDR+4
MSG^AMHVU	HDR+3, HDR+4, HDR+5, HDR+6
$$GET1^DIQ	DISPRECS+17
^DIR	9+25, E9+2, GETVTYP+2, HEAD+2, SELECT+1
FULL^VALM1	MENU+1, 5+6, 6+4, 9+6
^XBDBQUE	6+19
$$VAL^XBDIQ1	NAME+1
$$FMTE^XLFDT	NOW+1
$$NOW^XLFDT	NOW+1
$$REPEAT^XLFSTR	HDR+6, PAD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This is a group encounter. You must edit this group visit through the Group",!,"Form Data Entry menu option.",! Line Location: 2+13
Function Call: WRITE	Prompt: !!,"This is a group encounter. You must edit this group visit through the Group",!,"Form Data Entry menu option.",! Line Location: 4+9
Function Call: WRITE	Prompt: !!,"You cannot edit this note, it has been electronically signed." Line Location: 4+11
Function Call: WRITE	Prompt: !!,"You do not have the security access to delete a Visit.",!,"Please see your supervisor or program manager.",! Line Location: 5+2
Function Call: WRITE	Prompt: !,"There are no EHR created visits on that date." Line Location: 7+8
Function Call: WRITE	Prompt: !,"There are no EHR created visits on that date." Line Location: 8+8
Function Call: WRITE	Prompt: !!,"There are no records with unsigned notes that need to be signed.",! Line Location: 9+23
Function Call: WRITE	Prompt: ! Line Location: 9+25
Function Call: WRITE	Prompt: !,"No Records selected to display." Line Location: 9+26
Function Call: WRITE	Prompt: !,"Invalid selection!!" Line Location: 9+27
Function Call: WRITE	Prompt: !! Line Location: E9+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !,AMHDASH Line Location: HEAD1+3
Function Call: WRITE	Prompt: !?13,"Behavioral Health visits for ",$P(^DPT(AMHPAT,0),U) Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,AMHDASH Line Location: HEAD1+5
Function Call: WRITE	Prompt: !," #",?7,"PROVIDER",?18,"LOC",?23,"DATE",?33,"ACT",?37,"CONT",?42,"PATIENT",?55,"PROB",?64,"NARRATIVE",!,AMHDASH Line Location: HEAD1+6
Function Call: WRITE	Prompt: ! Line Location: SELECT+1
Function Call: WRITE	Prompt: !,"No Records selected to display." Line Location: SELECT+2
Function Call: WRITE	Prompt: !,"Invalid selection!!" Line Location: SELECT+3
Function Call: WRITE	Prompt: ?42,$P(^AUTTLOC($P(AMHR0,U,4),0),U,7)," ",$P(^AUPNPAT($P(AMHR0,U,8),41,$P(AMHR0,U,4),0),U,2) Line Location: DISPRECS+13
Function Call: WRITE	Prompt: ?42,$P(^AUTTLOC(DUZ(2),0),U,7)," ",$P(^AUPNPAT($P(AMHR0,U,8),41,DUZ(2),0),U,2) Line Location: DISPRECS+14
Function Call: WRITE	Prompt: ?42,"-----" Line Location: DISPRECS+15
Function Call: WRITE	Prompt: ?55,"No Problems recorded." Line Location: DISPRECS+16
Function Call: WRITE	Prompt: ?64,$E($$GET1^DIQ(9002011.01,AMHP,.04),1,15) Line Location: DISPRECS+17
Routine Call	DIR Line Location: 9+25 E9+2 GETVTYP+2 HEAD+2 SELECT+1

FileNo	Call Tags
^AMHREC - [#9002011]	Classic Fileman Calls
^AMHRPRO - [#9002011.01]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	DISPRECS+17
^AMHREC - [#9002011]	2+13, 2+15, 4+9, 4+11, 5+13, 9+16, 9+18, E9+6, DISPRECS+4
^AMHREC("AF"	9+14, 9+15
^AMHRPRO - [#9002011.01]	DISPRECS+17
^AMHRPRO("AD"	DISPRECS+16
^AMHTACT - [#9002012]	DISPRECS+11
^AMHTSET - [#9002012.1]	DISPRECS+11
^AUPNPAT - [#9000001]	DISPRECS+13, DISPRECS+14, HRCN+1
^AUTTLOC - [#9999999.06]	DISPRECS+8, DISPRECS+13, DISPRECS+14
^DPT - [#2]	HEAD1+4
^XUSEC("AMHZ DELETE RECORD"	5+2
^XUSEC("AMHZ DELETE SIGNED NOTE"	5+13

Label References

Name	Line Occurrences
$$HRCN	HDR+5
$$NAME	HDR+5
$$NOW	HDR+2
$$PAD	HDR+2, SP+1
$$SP	HDR+2, HDR+4, HDR+5
@(	MENU+2
DISPRECS	9+24
ESIG9	E9+3, E9+4
HEAD	DISPRECS+2, DISPRECS+6
HEAD1	HEAD+1
SELECT	9+27, SELECT+3
XIT	1+6, 1+8, 1+11, 1+13, 2+7, 2+9, 2+12, 2+13, 2+14, 2+19 , 3+5, 3+8, 4+5, 4+8, 4+9, 4+10, 4+11, 5+2, 5+8, 5+11 , 5+12, 5+14, 6+6, 6+9, 6+15, 6+20, 7+5, 7+8, 7+11, 8+5 , 8+8, 8+11, 9+23, 9+26, E9+9, ESIG9+4

Name	Field # of Occurrence
^(0	DISPRECS+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMHACTN	4+12, 6+17, ESIG9+1*
>> AMHCNTR	DISPRECS+3, DISPRECS+5, DISPRECS+7
AMHD	9+11~, 9+13, 9+14, 9+15
>> AMHDASH	HEAD1+3, HEAD1+5, HEAD1+6
AMHDATE	1+8, 2+9, 3+5, 4+5, 5+8, 6+6, 7+5, 8+5, E9+6*, XIT+1!
AMHDET	2+1, 7+1, 8+1, 9+7, XIT+1!
AMHEFT	6+10!, 6+16*
AMHEHR	7+7*!, 7+13!, 8+7!, 8+13!
AMHHDFN	OTHER+1, OTHER+3!, DUP+1, DUP+3, DUP+4!, CONTACT+4*, MENU+3!, 1+4, 2+3, 2+18 , 3+2, 3+10, 4+2, 5+4, 6+2, 6+22, 7+3, 7+10, 8+3, 8+10 , 9+9, 9+31, E9+8
AMHLOC	2+10, 3+6, 4+6, 5+9, 6+7, 7+6, 8+6*, XIT+1!
AMHP	XIT+1!, DISPRECS+16*, DISPRECS+17
>> AMHPAT	OTHER+1, DUP+1, DUP+3, CONTACT+3, CONTACT+4, 1+4, 2+3, 2+10, 2+18, 3+2* , 3+6, 3+10, 4+2, 4+6, 5+4, 5+9, 6+2, 6+7, 6+22, 7+3 , 7+6, 7+10, 8+3, 8+6, 8+10, 9+9, 9+14, 9+15, 9+31, E9+8 , HEAD1+4
AMHPATCE	1+2, 2+4, 3+3, 4+3, 5+5, 6+3, 9+10*, XIT+1!
AMHPG	XIT+1!, HEAD+1, HEAD1+1, DISPRECS+1
>> AMHPTYPE	1+6, 2+7
>> AMHQUIT	HEAD+2*, DISPRECS+6
AMHR	2+12, 2+13, 2+14, 2+15, 3+8, 4+8, 4+9, 4+10, 4+11, 4+13 , 5+11, 5+12, 5+13, 6+9, 6+14, 7+8, 8+8, 9+28, E9+6, XIT+1! , SELECT+4
AMHR0	XIT+1!, DISPRECS+4*, DISPRECS+8, DISPRECS+10, DISPRECS+11, DISPRECS+12, DISPRECS+13, DISPRECS+14
AMHRCNT	9+14, 9+21, 9+23, 9+25, XIT+1!, SELECT+1
AMHRCTR	XIT+1!, DISPRECS+1, DISPRECS+3, DISPRECS+4*
AMHRIEN	XIT+1!, DISPRECS+1, DISPRECS+4, DISPRECS+7, DISPRECS+16
AMHRRECS	9+11~, XIT+1!
AMHRRECS(	9+21*, 9+27, 9+28, SELECT+3, SELECT+4, DISPRECS+4
>> AMHVT	GETVTYP+4*
>> AMHVTYPE	1+10, 1+11, GETVTYP+3, GETVTYP+4*
AMHY	CONTACT~, MENU+2
AMHZDO	3+12*, 3+15!
D	9+11~, XIT+1!
DA	4+13*, E9+2!, GETVTYP+2!
DATA	PAD~, PAD+1
DFN	OTHER+1, DUP+1, DUP+3, CONTACT+1~, CONTACT+3, 1+4, 2+3, 2+10, 2+18, 3+2 , 3+6, 3+10, 4+2, 4+6, 5+4, 5+9, 6+2, 6+7, 6+22, 7+3 , 7+6, 7+10, 8+3, 8+6, 8+10, 9+9, 9+31, E9+8, NAME+1, HRCN+1
>> DIE	4+13*
DIR	9+25!, E9+2!, GETVTYP+2!, HEAD+2!, SELECT+1!
DIR("A"	9+25, E9+2, GETVTYP+2, SELECT+1
DIR("B"	E9+2, GETVTYP+2
DIR(0	9+25, E9+2, GETVTYP+1, HEAD+2, SELECT+1*
>> DIRUT	6+15, 9+25, 9+26, E9+3, GETVTYP+3, SELECT+1, SELECT+2
>> DR	4+13*
>> DTOUT	HEAD+2
>> DUOUT	9+25, SELECT+1
DUZ	5+2, 5+13
DUZ(2	DISPRECS+14, HRCN+1
IO	HEAD+2
IO(0	HEAD+2
IOF	5+6, 6+4, HEAD1+2
IOSL	DISPRECS+6
IOST	HEAD+2
>> IOUOFF	HDR+2
>> IOUON	HDR+2
LENGTH	PAD~, PAD+1
NUM	SP~, SP+1
P	CONTACT~, CONTACT+2, CONTACT+3
U	2+13, 2+15, 4+9, 4+11, 5+13, 9+16, 9+18, E9+6, HEAD1+4, DISPRECS+8 , DISPRECS+10, DISPRECS+11, DISPRECS+12, DISPRECS+13, DISPRECS+14, DISPRECS+17, HRCN+1
V	9+11~, 9+15*, 9+16, 9+17, 9+18, 9+19, 9+21, XIT+1!
X	9+11~, 9+19, 9+20, HDR+1~, HDR+2, HDR+3
>> XBNS	6+18*
>> XBRC	6+18*
>> XBRP	6+18*
>> XBRX	6+18*
>> Y	6+16, 9+27, 9+28, E9+4, GETVTYP+4, HEAD+2, SELECT+3, SELECT+4
>> Y(0	GETVTYP+4

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEP1

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: