Routine: AMHRL

Package	Total	Call Graph
Mental Health Social Services	7	CALLDIE^AMHLEIN (ADD,INFORM)^AMHRL01 (XIT,XIT1)^AMHRL1 COUNT^AMHRL3 ^AMHRL4 (SHOW,SHOWP,SHOWR)^AMHRLS DEMOCHK^AMHUTIL1
VA Fileman	5	DD^%DT C^%DTC ^DIC ^DIK ^DIR
IHS VA Utilities	1	^XBDBQUE
Kernel	1	HOME^%ZIS

Package	Total	Caller Graph
Mental Health Social Services	3	AMHRLP2 AMHRPSU2 AMHRPT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
D11
D12
D13
DEMO	;
S1	;EP
S0	;
DEL	;EP DELETE LOG ENTRY IF ONE EXISTS AND USER "^" OUT
ZIS	;call to XBDBQUE
S13
S12
TITLE	;
P11
P12
P13
COUNT	;count only or detailed report
P1	;if patient, no prev defined report used
D	;
ED	;get ending date
SCREEN	;
P	;patient lister
S	;--- search template
XIT	;
SED	;get ending date
START	;
ADD	;
SU	;
XIT1	;
BROWSE	;
GETDATES	;
SBD	;get beginning date
SAVE	;
TYPE	;--- get type of report (patient, date range or search template)
D1	;if visit, no prev defined report used

External References

Name	Field # of Occurrence
DD^%DT	ED+1, ED+4, SED+1, SED+4
C^%DTC	ED+4, SED+4
HOME^%ZIS	START+1
CALLDIE^AMHLEIN	SAVE+10
ADD^AMHRL01	ADD+1
INFORM^AMHRL01	TYPE+1
XIT^AMHRL1	XIT+1
XIT1^AMHRL1	XIT1+1
COUNT^AMHRL3	COUNT+1
^AMHRL4	SCREEN+2
SHOW^AMHRLS	DEMO+5
SHOWP^AMHRLS	DEMO+5
SHOWR^AMHRLS	DEMO+5
DEMOCHK^AMHUTIL1	DEMO+1
^DIC	S0+1
^DIK	DEL+1
^DIR	TYPE+3, BD+1, ED+1, SBD+1, SED+1, TITLE+3, TITLE+7, SAVE+4, SAVE+7, DEMO+8
^XBDBQUE	DEMO+14, BROWSE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!! Line Location: START+2
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"USER NOT SET IN DUZ - NOTIFY SITE MANAGER!!",!! Line Location: START+3
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: ! Line Location: SBD+1
Function Call: WRITE	Prompt: ! Line Location: SED+1
Routine Call	%ZIS Line Location: START+1
Routine Call	DIC Line Location: S0+1
Routine Call	DIR Line Location: TYPE+3 BD+1 ED+1 SBD+1 SED+1 TITLE+3 TITLE+7 SAVE+4 SAVE+7 DEMO+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMHTRPT - [#9002013.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHTRPT - [#9002013.8]	P+3, P11!, P12!, S12!, D11!, D12!, DEL+1

Label References

Name	Line Occurrences
@(	TYPE+6
ADD	P+1, S1+1, ED+6, SED+5
BD	ED+2
BROWSE	DEMO+12
COUNT	P12, S12, D12
D	ED+6
D1	ED+7
D11	D12
D12	D13
DEL	P+1, P11, BD+2, ED+6, SED+5, D11
GETDATES	P+6, P11+3
P1	P+2, SED+6
P11	P11+4, P12
P12	P13
S	S1+1, S12
S0	S+1
S12	S13
SAVE	P13+1, D13+1, SAVE+8, DEMO+11
SBD	SED+2
SCREEN	P11, D11
SU	TYPE+2
TITLE	P+7, P13, S13, ED+8, SED+7, D13, TITLE+8
TYPE	P+1, P+7, P11, BD+2, ED+8, SED+7
XIT	TYPE+2, TYPE+4, TYPE+7, SBD+2, SED+5, D11, DEMO+12, DEMO+15
XIT1	DEMO+6
ZIS	P+8, P13+2, S13+1, ED+9, SED+8, D13+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMHBD	BD+3, ED+1, ED+4, SBD+3, SED+1, SED+4
>> AMHBDD	P+3, P11+4, ED+4, SED+4
>> AMHCAND	P+2, P+3, ED+7, SED+6, SAVE+1
>> AMHCNTL	SCREEN+2*
>> AMHCTYP	TITLE+1, TITLE+2, SAVE+2, SAVE+10, DEMO+5, DEMO+7
>> AMHD	ED+4, SED+4
>> AMHDEMO	DEMO+1, DEMO+2
>> AMHDONE	DEMO+4*
>> AMHED	ED+3, ED+4, SED+3, SED+4
>> AMHEDD	P+3, P11+4, ED+4, SED+4
>> AMHEP1	SAVE+4, SAVE+10
>> AMHLENG	TITLE+6*, TITLE+7
>> AMHNAME	SAVE+9*, SAVE+10
AMHOPT	DEMO+10*, DEMO+12, XIT+2!
>> AMHPACK	SAVE+10
>> AMHPTTS	START+5, START+6, START+7*
>> AMHPTTX	START+5, START+6, START+7*
>> AMHPTVS	START+5, START+6, START+7, TYPE+2, TYPE+3, P11, S0+1, SAVE+10
AMHQUIT	START+4!, P+1!, P+7!, P11!, P12!, P13!, S+2, S1+1, S12!, S13! , S0+2, ED+6!, ED+8!, SED+5!, SED+7!, D11!, D12!, D13!, TITLE+4, DEMO+9* , DEMO+11
AMHRDTR	P+4*, P11!, P11+1, ED+5, D11!, SAVE+10
>> AMHRPT	P+3, P11, P12, S12, D11, D12, SAVE+10, DEL+1
>> AMHSAVE	SAVE+3*
>> AMHSEAT	S0+3*
>> AMHTCW	P12, S12, D12, TITLE+6, DEMO+3
>> AMHTITL	TITLE+9*
>> AMHTYPE	TYPE+2, TYPE+5, TYPE+6
DA	S0+1!, SAVE+10, DEMO+8!, DEL+1!
DIC	S0+1*!, DEL+1!
DIC("A"	S0+1*
DIC("S"	S0+1*
DIC(0	S0+1*
DICR	S0+1!
>> DIE	SAVE+10*
DIK	DEL+1*!
DIR	TYPE+3!, BD+1!, ED+1!, SBD+1!, SED+1!, TITLE+3!, TITLE+7!, SAVE+4!, SAVE+7!, DEMO+8!
DIR("?"	TITLE+7*
DIR("A"	TYPE+3, BD+1, ED+1, SBD+1, SED+1, TITLE+3, TITLE+7, SAVE+4, SAVE+7, DEMO+8
DIR("B"	TITLE+3, SAVE+4, DEMO+8*
DIR(0	TYPE+3, BD+1, ED+1, SBD+1, SED+1, TITLE+3, TITLE+7, SAVE+4, SAVE+7, DEMO+8
>> DIRUT	TYPE+3, TYPE+4, P+3, P11+4, BD+1, BD+2, ED+1, ED+2, SBD+1, SBD+2 , SED+1, SED+2, TITLE+3, TITLE+4, TITLE+8, SAVE+4, SAVE+5, SAVE+7, SAVE+8, DEMO+9
DR	S0+1!, SAVE+10*
>> DUOUT	TYPE+3, BD+1, ED+1, SBD+1, SED+1, TITLE+3, SAVE+4, SAVE+7
DUZ	START+3
DUZ(2	START+2
IOF	START+1
IOM	DEMO+3
U	P+3, DEL+1
X	TYPE+3!, BD+1!, ED+1!, ED+4, SBD+1!, SED+1!, SED+4, TITLE+3!, TITLE+7!, SAVE+4! , SAVE+7!
>> X1	ED+4, SED+4
>> X2	ED+4, SED+4
>> XBIOP	BROWSE+2*
>> XBNS	DEMO+13*
>> XBRC	DEMO+13, BROWSE+2
>> XBRP	DEMO+13, BROWSE+1
>> XBRX	DEMO+13, BROWSE+2
Y	TYPE+3!, TYPE+5, S0+2, S0+3, BD+1!, BD+3, ED+1!, ED+3, ED+4, SBD+1! , SBD+3, SED+1!, SED+3, SED+4, TITLE+3!, TITLE+5, TITLE+7!, TITLE+9, SAVE+4!, SAVE+6 , SAVE+7!, SAVE+9, DEMO+10

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRL

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: