Routine: AMHLELV

Package	Total	Call Graph
Mental Health Social Services	4	EN^AMHDVD FORMDIR^AMHLEFP ($$ALLOWP,$$ALLOWVI,$$PPINT,NALLOWP)^AMHUTIL EP^AMHVDSG
VA Fileman	2	^DIC ^DIR
IHS Patient	1	KILL^AUPNPAT
IHS VA Utilities	1	^XBDBQUE
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

Mental Health Social Services

EN^AMHDVD FORMDIR^AMHLEFP ($$ALLOWP,$$ALLOWVI,$$PPINT,NALLOWP)^AMHUTIL EP^AMHVDSG

^DIC ^DIR

KILL^AUPNPAT

^XBDBQUE

$$FMTE^XLFDT

Name	Comments	DBIA/ICR reference
GETREC	;
ZIS	;
EN1	;EP - called from xbdbque
PROV	;
FORMAT	;
GETPAT	; GET PATIENT
PHD	;
EN2(AMHPAT)	;
START	;EP display patients last visit
XIT	;
COMP	;
PHD1	;

External References

Name	Field # of Occurrence
EN^AMHDVD	EN2+6, EN1+1
FORMDIR^AMHLEFP	FORMAT+9
$$ALLOWP^AMHUTIL	GETPAT+5
$$ALLOWVI^AMHUTIL	GETREC+7
$$PPINT^AMHUTIL	GETREC+9
NALLOWP^AMHUTIL	GETPAT+5
EP^AMHVDSG	EN1+3
KILL^AUPNPAT	XIT+1
^DIC	GETPAT+2, PROV+5
^DIR	PHD+2, PROV+2, FORMAT+2
^XBDBQUE	ZIS+2
$$FMTE^XLFDT	PHD1+3, GETPAT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No visits to that provider." Line Location: START+6
Function Call: WRITE	Prompt: !!,"No visits of file for this patient - "_$P(^DPT(AMHPAT,0),U),! Line Location: EN2+2
Function Call: WRITE	Prompt: !,"No visits for that patient." Line Location: EN2+5
Function Call: WRITE	Prompt: ! Line Location: PHD+2
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: PHD1+2
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2)," ",$$FMTE^XLFDT(DT),?20,"BEHAVIORAL HEALTH RECORD DISPLAY",?72,"Page ",AMHPG,! Line Location: PHD1+3
Function Call: WRITE	Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!! Line Location: GETPAT+6
Function Call: WRITE	Prompt: !!,"No visits on file for this patient.",! Line Location: GETREC+2
Routine Call	DIC Line Location: GETPAT+2 PROV+5
Routine Call	DIR Line Location: PHD+2 PROV+2 FORMAT+2

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

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC("AE"	EN2+2, GETREC+2, GETREC+5, GETREC+6
^DPT - [#2]	EN2+2
^TMP("AMHVDSG"	EN1+2!, EN1+6, EN1+8
^VA(200 - [#200]	PHD1+3, PROV+5

Name	Line Occurrences
FORMAT	START+8, FORMAT+10
GETPAT	START+2
GETREC	START+5, EN2+4
PHD	EN1+5, EN1+7
PHD1	PHD+1
PROV	START+4, EN2+3, PROV+6
XIT	START+3, START+6, START+7, ZIS+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GETREC+5~*
AMH80D	XIT+3!
AMHBD	XIT+3!
AMHBDD	XIT+4!
AMHBDO	XIT+4!
AMHBRK	XIT+2!
AMHBT	XIT+4!
AMHBTH	XIT+3!
AMHC	XIT+3!
AMHDLAST	XIT+2!
AMHED	XIT+3!
AMHEDD	XIT+4!
AMHEDO	XIT+4!
AMHEFT	FORMAT+6!, FORMAT+11*
AMHFOUND	XIT+4!
AMHHIT	XIT+4!
AMHHRCN	XIT+3!
AMHHRN	XIT+4!
AMHID	XIT+4!
AMHJOB	XIT+3!
AMHLENG	XIT+3!
AMHLINE	XIT+4!
>> AMHLVPR	START+6, GETREC+8, GETREC+9, PROV+1, PROV+7
AMHODAT	XIT+4!
AMHP	XIT+4!
AMHPAT	START+3, XIT+5!, EN2~, EN2+2, GETPAT+1, GETPAT+4, GETPAT+5*, GETREC+2, GETREC+5, GETREC+6
AMHPCNT	XIT+3!
AMHPG	XIT+3!, EN1+4, PHD+1, PHD1+1, PHD1+3
AMHPRNM	XIT+4!
AMHPRNT	XIT+4!
AMHPROB	XIT+4!
AMHPROV	XIT+3!
AMHPRV	XIT+4!
AMHQUIT	START+1!, XIT+4!, PHD+2*
AMHR	START+6, START+7, XIT+4!, EN2+1~, EN2+5, EN1+3, GETREC+1, GETREC+5, GETREC+8, GETREC+9* , FORMAT+9
AMHR0	XIT+4!
AMHRCNT	XIT+4!
AMHRLOC	XIT+4!
AMHSD	XIT+4!
AMHTICL	XIT+4!
AMHTNRQ	XIT+4!
AMHTOT	XIT+4!
AMHTQ	XIT+4!
AMHTTXT	XIT+4!
AMHTYPE	START+9, ZIS+1, XIT+2!, FORMAT+1, FORMAT+4, FORMAT+5
AMHVDFN	XIT+2!
AMHVDG	XIT+2!
AMHVDSH	XIT+2!
AMHVFLE	XIT+2!
AMHVI	XIT+2!
AMHVIGR	XIT+2!
AMHVL	XIT+2!
AMHVNM	XIT+2!
AMHX	XIT+2!, XIT+3!, EN1+6*, EN1+8, EN1+10!
>> AUPNDOD	GETPAT+6
D	XIT+3!, GETREC+5~*, GETREC+6
DA	PROV+2!
DFN	XIT+3!
DIC	XIT+3!, GETPAT+2!, PROV+5
DIC("A"	GETPAT+2*
DIC("B"	PROV+5*
DIC(0	GETPAT+2, PROV+5
DIR	XIT+3!, PHD+2!, PROV+2!, FORMAT+2!
DIR("A"	PROV+2, FORMAT+2
DIR("B"	PROV+2, FORMAT+2
DIR(0	PHD+2, PROV+2, FORMAT+2*
DIRUT	XIT+3!, PROV+3, FORMAT+2*, FORMAT+3, FORMAT+10
DT	PHD1+3
DTOUT	XIT+3!, PHD+2
DUOUT	XIT+3!, FORMAT+2
DUZ	PHD1+3, GETPAT+5, GETREC+7, PROV+5
IO	EN1+1, PHD+2
IO("Q"	XIT+3!
IO(0	EN1+1, PHD+2
IOF	PHD1+1
IOSL	EN1+7
IOST	EN1+1, PHD+2
P	GETREC+5~
U	EN2+2, PHD1+3, PROV+5
>> V	GETREC+6*, GETREC+7, GETREC+8, GETREC+9
XBNS	ZIS+1*, XIT+3!
XBRC	ZIS+1*, XIT+3!
XBRP	ZIS+1*, XIT+3!
>> XBRX	ZIS+1*
XBTX	XIT+3!
Y	XIT+3!, PHD+2, GETPAT+3, GETPAT+4, PROV+4, PROV+6, PROV+7, FORMAT+4, FORMAT+11
ZTSK	XIT+3!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLELV

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: