Routine: AMHLEFP

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
Mental Health Social Services	2	^AMHLEFP2 ($$ALLOWP,$$ALLOWVI,NALLOWP)^AMHUTIL
IHS VA Utilities	1	^XBDBQUE
Kernel	1	HOME^%ZIS

Package

Total

Call Graph

VA Fileman

DD^%DT C^%DTC ^DIC ^DIR

Mental Health Social Services

^AMHLEFP2 ($$ALLOWP,$$ALLOWVI,NALLOWP)^AMHUTIL

IHS VA Utilities

^XBDBQUE

Kernel

HOME^%ZIS

Package	Total	Caller Graph
Mental Health Social Services	6	AMHLE3 AMHLEA AMHLEE AMHLELV AMHLEP1 AMHLEP2

Package

Total

Caller Graph

Mental Health Social Services

AMHLE3 AMHLEA AMHLEE AMHLELV AMHLEP1 AMHLEP2

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
PRINT1	;
PAT	;one or all patients
ZIS	;EP
FORMAT	;
PROV	;limit by provider
V1	;
START	;
GETDATES	;
XIT	;
ED	;get ending date
PRINT	; EP - print individual forms
FORMDIR(R)	;EP
COMP	;EP - do nothing
D	; Run by visit date

Name	Field # of Occurrence
DD^%DT	ED+1, ED+4
C^%DTC	ED+4, D+1
HOME^%ZIS	START+1
^AMHLEFP2	PRINT1+5
$$ALLOWP^AMHUTIL	PAT+5, V1+6
$$ALLOWVI^AMHUTIL	V1+4
NALLOWP^AMHUTIL	PAT+5
^DIC	PAT+5, PROV+6
^DIR	BD+2, ED+1, PAT+2, PROV+3, FORMDIR+7
^XBDBQUE	ZIS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+2
Function Call: WRITE	Prompt: "******** ENCOUNTER FORM PRINT ********",!! Line Location: START+3
Function Call: WRITE	Prompt: "This report will produce hard copy computer generated encounter forms.",! Line Location: START+4
Function Call: WRITE	Prompt: !,"Please enter the date range for which forms should be printed.",! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: BD+2
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !! Line Location: FORMDIR+4
Routine Call	%ZIS Line Location: START+1
Routine Call	DIC Line Location: PAT+5 PROV+6
Routine Call	DIR Line Location: BD+2 ED+1 PAT+2 PROV+3 FORMDIR+7

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	V1+1, V1+5, V1+6
^AMHREC("B"	D+2, V1+1
^AMHRPROV - [#9002011.02]	V1+11
^AMHRPROV("AD"	V1+11
^AMHSITE - [#9002013]	FORMDIR+6

Name	Line Occurrences
BD	ED+2
FORMAT	PROV+5
FORMDIR	FORMAT+2
GETDATES	PAT+3, PROV+4
PAT	PAT+5
PRINT1	V1+1
PROV	PAT+4, PROV+6, FORMAT+3
V1	D+2
XIT	BD+3

Name	Field # of Occurrence
^(0	V1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMH80D	XIT+1!
AMHBD	BD+4*, ED+1, ED+4, XIT+1!, D+1
AMHBDD	ED+4*, XIT+2!
AMHBDO	XIT+2!
AMHBT	XIT+2!
AMHBTH	XIT+1!
AMHC	XIT+1!
AMHDOLOG	FORMAT+5*, XIT+3!
AMHED	ED+3*, ED+4, XIT+1!, D+2
AMHEDD	ED+4*, XIT+2!
AMHEDO	XIT+2!
AMHEFT	FORMAT+1!, FORMAT+4, XIT+1!, PRINT1+4
AMHEFTH	FORMAT+1!, FORMAT+4*, XIT+1!, PRINT1+4
AMHFOUND	XIT+2!
AMHHIT	XIT+2!
AMHHRCN	XIT+1!
AMHHRN	XIT+2!
AMHID	XIT+2!
AMHJOB	XIT+1!
AMHLENG	XIT+1!
AMHLINE	XIT+2!
AMHNOLOG	XIT+2!
AMHODAT	XIT+2!, D+2*, V1+1
AMHP	XIT+2!
AMHPAT	PAT+1, PAT+5, FORMAT+5, XIT+1!, V1+5
AMHPCNT	XIT+1!
AMHPG	XIT+1!
AMHPRNM	XIT+2!
AMHPRNT	XIT+2!
AMHPROB	XIT+2!
AMHPROV	PROV+2, PROV+6, XIT+1!, V1+10, V1+11
AMHPRV	XIT+2!
AMHQUIT	XIT+2!, PRINT+1*, D+2, V1+1
AMHR	XIT+2!, V1+1*, V1+4, V1+5, V1+6, V1+11
AMHR0	XIT+2!
AMHRCNT	XIT+2!, V1+1*
AMHRLOC	XIT+2!
AMHSD	ED+4, XIT+2!, D+1, D+2
AMHTICL	XIT+2!
AMHTNRQ	XIT+2!
AMHTOT	XIT+2!
AMHTQ	XIT+2!
AMHTTXT	XIT+2!
AMHX	XIT+1!
D	XIT+1!
DA	FORMDIR+7!
DFN	XIT+1!
DIC	PAT+5, PROV+1!, PROV+6, XIT+1!
DIC("A"	PAT+5, PROV+6
DIC(0	PAT+5, PROV+6
DIR	BD+2!, ED+1!, PAT+2!, PROV+3!, XIT+1!, FORMDIR+3!, FORMDIR+7!
DIR("A"	BD+2, ED+1, PAT+2, PROV+3, FORMDIR+7*
DIR("B"	PAT+2, PROV+3, FORMDIR+6*
DIR(0	BD+2, ED+1, PAT+2, PROV+3, FORMDIR+4*
DIRUT	BD+2, BD+3, ED+1, ED+2, PAT+2, PAT+3, PROV+3, PROV+4, FORMAT+3, XIT+1!
DTOUT	XIT+1!
DUOUT	BD+2, ED+1, PAT+2, PROV+3, XIT+1!
DUZ	PAT+5, V1+4, V1+6
DUZ(2	FORMDIR+6
>> F	V1+1, V1+3, V1+7, V1+9, V1+10, V1+11*
IO("Q"	XIT+1!
IOF	START+1, START+2, PRINT1+1
R	FORMDIR~, FORMDIR+2*
U	V1+1, V1+5, V1+6, V1+11, FORMDIR+6
>> X	ED+4, D+1, V1+11*
>> X1	ED+4, D+1
>> X2	ED+4, D+1
XBNS	ZIS+1*, XIT+1!
XBRC	ZIS+1*, XIT+1!
XBRP	ZIS+1*, XIT+1!
>> XBRX	ZIS+1*
XBTX	XIT+1!
Y	BD+4, ED+1, ED+3, ED+4, PAT+4, PAT+5, PROV+5, PROV+6, FORMAT+4, XIT+1!
ZTSK	XIT+1!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEFP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: