Routine: AMHLEIN

Package	Total	Call Graph
VA Fileman	3	COMMA^%DTC ^DIE ^DIR
Kernel	2	HOME^%ZIS $$STRIP^XLFSTR
IHS VA Utilities	1	$$VAL^XBDIQ1
Mental Health Social Services	1	^AMHEKL

Package

Total

Call Graph

VA Fileman

COMMA^%DTC ^DIE ^DIR

Kernel

HOME^%ZIS $$STRIP^XLFSTR

IHS VA Utilities

$$VAL^XBDIQ1

Mental Health Social Services

^AMHEKL

Package	Total	Caller Graph
Mental Health Social Services	78	AMHBHRU AMHBL AMHCDBL AMHEGR AMHEGRCP AMHEGRPV AMHEGS AMHEXCP AMHEXD AMHEXDI AMHEXERR AMHEXLOG AMHEXRE AMHEXRLG AMHEXTAP AMHEYCP AMHEYD AMHEYDI AMHEYLOG AMHEYRE AMHEYREX AMHEYRLG AMHEYTAP AMHGAFS AMHGPCCL AMHLE AMHLE2 AMHLEA AMHLEA1 AMHLEAR AMHLEAR1 AMHLEDV AMHLEE AMHLEGP AMHLEGP1 AMHLEIC AMHLENS AMHLENS1 AMHLEP1 AMHLEP2 AMHLEPAT AMHLEPOV AMHLETP AMHLETP1 AMHLETR AMHLETR1 AMHLETR2 AMHNAVR AMHPCCL AMHPCCL1 AMHPHQM AMHRAGS AMHRAP2P AMHRAT2P AMHRBV1 AMHRC1P AMHRC2P AMHRC3 AMHRGADM AMHRL AMHRL3 AMHRLKUP AMHRLP2 AMHRNOAT AMHRNSIG AMHRNSM AMHRP1 AMHRP2P AMHRP3P AMHRP4P AMHRP5 AMHRP7 AMHRP8P AMHRP9P AMHRPPD AMHRPSP AMHRPTP AMHRTEN
Patient Chart	1	BPCBHRU

Package

Total

Caller Graph

Mental Health Social Services

AMHBHRU  AMHBL  AMHCDBL  AMHEGR  AMHEGRCP  AMHEGRPV  AMHEGS  AMHEXCP
AMHEXD  AMHEXDI  AMHEXERR  AMHEXLOG  AMHEXRE  AMHEXRLG  AMHEXTAP  AMHEYCP
AMHEYD  AMHEYDI  AMHEYLOG  AMHEYRE  AMHEYREX  AMHEYRLG  AMHEYTAP  AMHGAFS
AMHGPCCL  AMHLE  AMHLE2  AMHLEA  AMHLEA1  AMHLEAR  AMHLEAR1  AMHLEDV
AMHLEE  AMHLEGP  AMHLEGP1  AMHLEIC  AMHLENS  AMHLENS1  AMHLEP1  AMHLEP2
AMHLEPAT  AMHLEPOV  AMHLETP  AMHLETP1  AMHLETR  AMHLETR1  AMHLETR2  AMHNAVR
AMHPCCL  AMHPCCL1  AMHPHQM  AMHRAGS  AMHRAP2P  AMHRAT2P  AMHRBV1  AMHRC1P
AMHRC2P  AMHRC3  AMHRGADM  AMHRL  AMHRL3  AMHRLKUP  AMHRLP2  AMHRNOAT
AMHRNSIG  AMHRNSM  AMHRP1  AMHRP2P  AMHRP3P  AMHRP4P  AMHRP5  AMHRP7
AMHRP8P  AMHRP9P  AMHRPPD  AMHRPSP  AMHRPTP  AMHRTEN

Patient Chart

BPCBHRU

Entry Points

Name	Comments	DBIA/ICR reference
GETAWI(S,F)	;EP - return default appt/wi
PCCCHECK	;check to see if link to pcc active, set AMHLPCC IF SO
EOP	;EP - End of page.
DONE	;ENTRY POINT - END OF REPORT TIME DISPLAY
D(D)	;EP
GETTOC(S,F)	;EP - return default type of visit
OTNARR(AMHSITE)	;EP
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
GETLOC(S,P,F)	;EP - return default location
ASKINT(S)	;EP return 1 if should ask interpretor
MHNARR(AMHSITE)	;EP get mh default narrative
PAUSE	;EP
CDNARR(AMHSITE)	;EP
UNIVSITE(AMHSITE)	;EP return U or S
START	;EP - called from AMHLE
C(X,X2,X3)	;EP
ASKPCC(AMHSITE)	;EP ask about pcc problem list?
CALLDIE	;EP
GETCOMM(S,P,F)	;EP - return default community
USR()	;EP - Return name of current user from ^VA(200.
SSNARR(AMHSITE)	;EP get mh default narrative
GETCLN(S,P,F)	;EP return default clinic
ASKCC(AMHSITE)	;EP return 1 or 0 if should ask chief complaint

Name	Field # of Occurrence
COMMA^%DTC	C+1
HOME^%ZIS	START+1
^AMHEKL	DONE+6
^DIE	CALLDIE+6
^DIR	PAUSE+2, DONE+3, EOP+5
$$VAL^XBDIQ1	GETTOC+3, GETAWI+3
$$STRIP^XLFSTR	C+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,AMHBEEP,AMHBEEP,"Site not set in DUZ(2) - please login to Kernel first!!" Line Location: START+6
Function Call: WRITE	Prompt: !!,AMHBEEP,AMHBEEP,"Site Parameter file not established for this Location ",$P(^DIC(4,DUZ(2),0),U),".",!,"NOTIFY S MANAGER. CANNOT CONTINUE." Line Location: START+7
Function Call: WRITE	Prompt: !,AMHBEEP,AMHBEEP,"PCC Link Type NOT defined in BH Site Parameter file.",!,"No PCC LINK will OCCUR!! NOTIFY SYSTEM ADMINISTRATOR",! Line Location: PCCCHECK+3
Function Call: WRITE	Prompt: !,$C(7),"ENTRY MUST BE MADE IN THE PCC MASTER CONTROL FILE FOR THIS LOCATION",!,"PLEASE NOTIFY YOUR S MANAGER ... NO LINKAGE TO PCC IS OCCURRING !" Line Location: PCCCHECK+5
Function Call: WRITE	Prompt: !,$C(7),"ENTRY MUST BE MADE IN THE PCC MASTER CONTROL FILE FOR THIS PACKAGE !",!,"PLEASE NOTIFY YOUR S MANAGER ... NO LINKAGE TO PCC IS OCCURRING !" Line Location: PCCCHECK+7
Function Call: WRITE	Prompt: !!,"Can't lock global",! Line Location: CALLDIE+4
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Function Call: WRITE	Prompt: !!,"RUN TIME (H.M.S): ",AMHH,".",AMHM,".",AMHS Line Location: DONE+2
Routine Call	%ZIS Line Location: START+1
Routine Call	DIE Line Location: CALLDIE+6
Routine Call	DIR Line Location: PAUSE+2 DONE+3 EOP+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHSITE - [#9002013]	START+7, PCCCHECK+2, GETCOMM+4, GETCOMM+5, GETTOC+2, GETTOC+3, GETAWI+2, GETAWI+3, GETLOC+4, GETLOC+5 , ASKINT+3, ASKINT+4, UNIVSITE+3, UNIVSITE+4, ASKCC+3, ASKCC+4, GETCLN+6, GETCLN+7, ASKPCC+3, ASKPCC+4 , MHNARR+3, MHNARR+4, CDNARR+3, CDNARR+4, OTNARR+3, OTNARR+4, SSNARR+3, SSNARR+4
^APCCCTRL - [#9001000]	PCCCHECK+5, PCCCHECK+7, PCCCHECK+8
^AUTTSITE(1	PCCCHECK+5, PCCCHECK+8
^DIC(4 - [#4]	START+7, GETLOC+8, LOC+1
^DIC(40.7 - [#40.7]	GETCLN+10
^DIC(9.4 - [#9.4]	PCCCHECK+6
^VA(200 - [#200]	USR+1

Name	Field # of Occurrence
^(0	PCCCHECK+5, PCCCHECK+8, USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CALLDIE+8!
%D	CALLDIE+8!
%E	CALLDIE+8!
%W	CALLDIE+8!
%X	CALLDIE+8!
%Y	CALLDIE+8!
A	CALLDIE+8!
>> AMHBEEP	START+5*, START+6, START+7, PCCCHECK+3
>> AMHBT	DONE+1
>> AMHDASH	START+2*
AMHET	DONE+1, DONE+5!
AMHG	CALLDIE+4~*, CALLDIE+7, CALLDIE+8!
AMHH	DONE+1*, DONE+2, DONE+5!
>> AMHLEIN	START+4*
AMHLPCC	PCCCHECK+1!, PCCCHECK+2, PCCCHECK+3, PCCCHECK+4, PCCCHECK+5, PCCCHECK+7, PCCCHECK+8, PCCCHECK+9
>> AMHLPCCT	PCCCHECK+2*
AMHM	DONE+2*, DONE+5!
AMHPKG	PCCCHECK+6*, PCCCHECK+7, PCCCHECK+8, PCCCHECK+10!
>> AMHQUIT	START+6, START+7
AMHS	DONE+2*, DONE+5!
AMHSITE	UNIVSITE~, UNIVSITE+3, UNIVSITE+4, ASKCC~, ASKCC+3, ASKCC+4, ASKPCC~, ASKPCC+3, ASKPCC+4, MHNARR~ , MHNARR+3, MHNARR+4, CDNARR~, CDNARR+3, CDNARR+4, OTNARR~, OTNARR+3, OTNARR+4, SSNARR~, SSNARR+3 , SSNARR+4
AMHTS	DONE+1, DONE+2, DONE+5!
AMHX	GETCOMM+1~, GETCOMM+3, GETCOMM+4, GETCOMM+5, GETCOMM+6, GETCOMM+8, GETCOMM+9, GETLOC+1~, GETLOC+2, GETLOC+4 , GETLOC+5, GETLOC+6, GETLOC+7, GETLOC+8, GETLOC+9, ASKINT+1~, ASKINT+2, ASKINT+3, ASKINT+4, ASKINT+5 , UNIVSITE+1~, UNIVSITE+2, UNIVSITE+3, UNIVSITE+4, UNIVSITE+5, ASKCC+1~, ASKCC+2, ASKCC+3, ASKCC+4, ASKCC+5 , GETCLN+1~, GETCLN+2, GETCLN+3, GETCLN+5, GETCLN+6, GETCLN+7, GETCLN+8, GETCLN+9, GETCLN+10, GETCLN+11 , ASKPCC+1~, ASKPCC+2, ASKPCC+3, ASKPCC+4, ASKPCC+5, MHNARR+1~, MHNARR+2, MHNARR+3, MHNARR+4, MHNARR+5 , CDNARR+1~, CDNARR+2, CDNARR+3, CDNARR+4, CDNARR+5, OTNARR+1~, OTNARR+2, OTNARR+3, OTNARR+4, OTNARR+5 , SSNARR+1~, SSNARR+2, SSNARR+3, SSNARR+4, SSNARR+5
>> APCDOVRR	START+3*
D	CALLDIE+8!, D~, D+1, D+2
D0	CALLDIE+8!
D1	CALLDIE+8!
DA	CALLDIE+1, CALLDIE+4, CALLDIE+8!
DFOUT	EOP+4!
DI	CALLDIE+8!
DIADD	CALLDIE+8!
DIC	CALLDIE+8!
DIE	CALLDIE+2, CALLDIE+4, CALLDIE+8!
DIFLD	CALLDIE+8!
DIG	CALLDIE+3!, CALLDIE+8!
DIH	CALLDIE+3!, CALLDIE+8!
DIR	PAUSE+2!, DONE+3!, EOP+3~
DIR("A"	PAUSE+2, DONE+3, EOP+5*
DIR(0	PAUSE+2, DONE+3, EOP+5*
DIRUT	PAUSE+2, DONE+3, EOP+4!
DISYS	CALLDIE+8!
DIU	CALLDIE+3!, CALLDIE+8!
DIV	CALLDIE+3!, CALLDIE+8!
DIW	CALLDIE+3!, CALLDIE+8!
DIY	CALLDIE+3!, CALLDIE+8!
DK	CALLDIE+8!
DL	CALLDIE+8!
DLAYGO	CALLDIE+8!
DLOUT	EOP+4!
DO	CALLDIE+8!
DR	CALLDIE+5, CALLDIE+8!
DTOUT	EOP+4!
DUOUT	PAUSE+2, DONE+3, EOP+4!
DUZ	USR+1
DUZ(2	START+6, START+7, PCCCHECK+2, PCCCHECK+5, PCCCHECK+7, PCCCHECK+8, LOC+1
F	GETCOMM~, GETCOMM+2, GETCOMM+6, GETCOMM+8, GETTOC~, GETTOC+1, GETTOC+3, GETAWI~, GETAWI+1, GETAWI+3 , GETLOC~, GETLOC+3, GETLOC+6, GETLOC+8, GETCLN~, GETCLN+4*, GETCLN+9
IO	PAUSE+1, DONE+3
IO("S"	EOP+2
IO(0	PAUSE+1, DONE+3
IOF	START+1, DONE+4
IOM	CTR+1
IOST	PAUSE+1, DONE+3, EOP+1
>> IOT	EOP+2
P	GETCOMM~, GETCOMM+3, GETCOMM+5, GETLOC~, GETLOC+2, GETLOC+5, GETCLN~, GETCLN+3, GETCLN+5, GETCLN+7
S	GETCOMM~, GETCOMM+4, GETCOMM+5, GETTOC~, GETTOC+2, GETTOC+3, GETAWI~, GETAWI+2, GETAWI+3, GETLOC~ , GETLOC+4, GETLOC+5, ASKINT~, ASKINT+3, ASKINT+4, GETCLN~, GETCLN+6, GETCLN+7
U	START+7, PCCCHECK+2, PCCCHECK+5, PCCCHECK+8, GETCOMM+5, GETTOC+3, GETAWI+3, GETLOC+5, GETLOC+8, ASKINT+4 , UNIVSITE+4, ASKCC+4, GETCLN+7, GETCLN+10, ASKPCC+4, MHNARR+4, CDNARR+4, OTNARR+4, SSNARR+4, USR+1 , LOC+1
X	CALLDIE+8!, C~, C+2, CTR~, CTR+1
X2	C~
X3	C~
Y	CTR~, CTR+1
Z	CALLDIE+8!
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEIN

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 79

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: