Routine: AMHLETP

Package	Total	Call Graph
Mental Health Social Services	4	EN^AMHEKL PAUSE^AMHLEA ^AMHLEIN ($$ALLOWP,NALLOWP)^AMHUTIL
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
Registration	2	EN^VALM ($$FTIME,CLEAR,FULL)^VALM1
IHS VA Utilities	1	$$VAL^XBDIQ1
VA Fileman	1	^DIC

Package

Total

Call Graph

Mental Health Social Services

EN^AMHEKL PAUSE^AMHLEA ^AMHLEIN ($$ALLOWP,NALLOWP)^AMHUTIL

Kernel

$$FMTE^XLFDT DISP^XQORM1

Registration

EN^VALM ($$FTIME,CLEAR,FULL)^VALM1

IHS VA Utilities

$$VAL^XBDIQ1

VA Fileman

^DIC

Package	Total	Caller Graph
Mental Health Social Services	11	AMHGD AMHLEA AMHLEP2 AMHLETP1 AMHLETPP AMHLETPU AMHLETR AMHLETR1 AMHLETR2 AMHLETR3 AMHPOST1

Package

Total

Caller Graph

Mental Health Social Services

AMHGD AMHLEA AMHLEP2 AMHLETP1 AMHLETPP AMHLETPU AMHLETR AMHLETR1
AMHLETR2 AMHLETR3 AMHPOST1

Entry Points

Name	Comments	DBIA/ICR reference
GETTXT	;EP - GENERALIZED TEXT PRINTER
ALLOWTP(S,R)	;EP - CAN THIS USER SEE THIS TREATMENT PLAN?
HDR	;EP -- header code
EOJ	;EOJ CLEANUP
GATHER	;EP - called from AMHUAR
GETPAT	;get patient
GETFRAG
START	; Write Header
INIT	;EP -- init variables and list array
EN	; EP -- main entry point for AMH UPDATE ACTIVITY RECORDS
EXIT	; -- exit code
EP1(DFN)	;EP CALLED FROM PROTOCOL
TEXT	;
GETTXT2
EXPND	; -- expand code
HELP	;EP -- help code

External References

Name	Field # of Occurrence
EN^AMHEKL	START+1, EOJ+2
PAUSE^AMHLEA	GETPAT+6
^AMHLEIN	START+6
$$ALLOWP^AMHUTIL	GETPAT+6
NALLOWP^AMHUTIL	GETPAT+6
^DIC	GETPAT+3
EN^VALM	EN+2, EN+3
$$FTIME^VALM1	GATHER+7, GATHER+9, HDR+1
CLEAR^VALM1	EOJ+1, EN+2, EN+4
FULL^VALM1	START+9, EP1+6
$$VAL^XBDIQ1	GATHER+6
$$FMTE^XLFDT	GETPAT+7
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(X)\2,X Line Location: START+3
Function Call: WRITE	Prompt: !! Line Location: START+5
Function Call: WRITE	Prompt: ! Line Location: GETPAT+2
Function Call: WRITE	Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!! Line Location: GETPAT+7
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+2 EN+3
Routine Call	DIC Line Location: GETPAT+3

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPTXP - [#9002011.56]	ALLOWTP+4, ALLOWTP+6, ALLOWTP+9, ALLOWTP+10, ALLOWTP+13, ALLOWTP+14, ALLOWTP+15, GATHER+6, GATHER+7, GATHER+9 , GATHER+10, GATHER+11, GATHER+12
^AMHPTXP("AA"	GATHER+3
^AMHPTXP("AC"	GATHER+2
^AMHSITE - [#9002013]	ALLOWTP+8
^DPT - [#2]	EP1+2, EP1+3, HDR+1
^VA(200 - [#200]	GATHER+6

Name	Line Occurrences
$$ALLOWTP	GATHER+4
EN	START+9, EP1+5
EOJ	START+10
EXIT	START+9
GATHER	INIT+1
GETFRAG	GETTXT2
GETPAT	START+8, GETPAT+6
GETTXT2	GETTXT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMHCOL	EXIT+1!
>> AMHD	GATHER+3*
>> AMHDISP	EN+2
AMHE	GATHER+3*, GATHER+4, GATHER+5, GATHER+6, GATHER+7, GATHER+9, GATHER+10, GATHER+11, GATHER+12, EXIT+1!
AMHGNUM	EXIT+1!
>> AMHLEC	GETTXT2*, GETTXT2+1
AMHLEL	EXIT+1!
>> AMHLETP("C"	GETTXT+3!, GETFRAG+1*, GETFRAG+2
>> AMHLETP("DLT"	GETTXT+1, GETTXT+3!, GETTXT2+1
>> AMHLETP("F"	GETTXT+3!, GETTXT2+1, GETFRAG, GETFRAG+2
>> AMHLETP("ICL"	GETTXT+1, GETTXT2, GETTXT2+1*
>> AMHLETP("ILN"	GETTXT+1, GETTXT+3!, GETTXT2+1, GETFRAG, GETFRAG+1
>> AMHLETP("LGTH"	GETTXT+1
>> AMHLETP("NRQ"	GETTXT+2*
>> AMHLETP("Q"	GETTXT+2*
>> AMHLETP("TXT"	GETTXT+2, GETTXT+3!, GETFRAG, GETFRAG+1, GETFRAG+2*
AMHLETXT	EXIT+1!
AMHLETXT(	GETTXT2, GETTXT2+1
AMHLINE	GATHER+1, GATHER+5, GATHER+6, GATHER+7, GATHER+8, GATHER+9, GATHER+10, GATHER+12, GATHER+14*, INIT+2 , EXIT+1!
>> AMHPAT	GETPAT+1, GETPAT+5, GETPAT+6
AMHPTP	GATHER+1!, HDR+2!, EXIT+1!
AMHPTP(	GATHER+6, GATHER+8, GATHER+9, GATHER+10, GATHER+12, GATHER+14
AMHPTP("IDX"	GATHER+5*
AMHPTP(1	GATHER+2*, HDR+2
AMHQUIT	GATHER+1!
AMHRCNT	GATHER+1, GATHER+2, GATHER+5, GATHER+6, HDR+2, EXIT+1!
AMHTPN	EXIT+1!
>> AMHX	GATHER+6, GATHER+7, GATHER+8, GATHER+9, GATHER+10
APCHSPAT	EP1+4~
APCHSTYP	EP1+4~
>> AUPNDOD	GETPAT+7
>> C	GATHER+11*, GATHER+12
DFN	START+8, START+9, GETPAT+1, GETPAT+5*, EP1~, EP1+1, EP1+2, EP1+3, GATHER+2, GATHER+3 , HDR+1
DIC	GETPAT+3*!
DIC(0	GETPAT+3*
DUZ	GETPAT+6, GATHER+4
DUZ(2	ALLOWTP+8
G	ALLOWTP+11~, ALLOWTP+12, ALLOWTP+13, ALLOWTP+14, ALLOWTP+15*, ALLOWTP+16
IOF	START+2
J	START+3*, START+4!
P	ALLOWTP+5~, ALLOWTP+6*, ALLOWTP+7
R	ALLOWTP~, ALLOWTP+3, ALLOWTP+4, ALLOWTP+6, ALLOWTP+9, ALLOWTP+10, ALLOWTP+13, ALLOWTP+14, ALLOWTP+15
S	ALLOWTP~, ALLOWTP+2, ALLOWTP+8, ALLOWTP+9, ALLOWTP+10, ALLOWTP+14, ALLOWTP+15
U	ALLOWTP+6, ALLOWTP+9, ALLOWTP+10, ALLOWTP+14, ALLOWTP+15, EP1+3, GATHER+6, GATHER+7, GATHER+9, GATHER+12 , HDR+1
VALMCC	EN+1*, EXIT+2!
>> VALMCNT	INIT+2*
VALMHDR	EP1+7!, EXIT+2!
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2, HDR+3
X	START+3, START+4!, ALLOWTP+11~, ALLOWTP+13, ALLOWTP+14, ALLOWTP+15, EP1+8!, GATHER+11, GATHER+12, HELP+1 , GETTXT2*
Y	GETPAT+4, GETPAT+5, ALLOWTP+11~, EP1+8!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLETP

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller 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:

Marked Items