Routine: AMHLEOD

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC ^DIE ^DIR
IHS Patient	1	(,KILL)^AUPNPAT
Patient Care Component	1	^APCDALV
Registration	1	FULL^VALM1

Entry Points

Name	Comments	DBIA/ICR reference
GETOL	;
GETDRUG	;
BEGIN	;
GENVISIT	;
HDR	;write header
PROCESS	;
TEXT	;
NODRUG	;
START	;EP - called from option
INIT	;EP
EXIT	;cleanup and exit
GENVMED	;
GETLOC	; GET LOCATION OF ENCOUNTER
GETDATE	;EP GET DATE OF ENCOUNTER

External References

Name	Field # of Occurrence
^%DT	GETDATE+3
^APCDALV	GENVISIT+10
^AUPNPAT	GENVISIT+12
KILL^AUPNPAT	EXIT+3
^DIC	GETLOC+4, GETDRUG+5
^DIE	GENVMED+3
^DIR	GETDATE+1, GETOL+2, GETDRUG+2, NODRUG+2, NODRUG+6
FULL^VALM1	START+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Patient not defined" Line Location: START+2
Function Call: WRITE	Prompt: !?80-$L(X)\2,X Line Location: HDR+2
Function Call: WRITE	Prompt: !! Line Location: HDR+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"OUTSIDE DRUG not defined in DRUG file, notify programmer." Line Location: INIT+2
Function Call: WRITE	Prompt: !!,"Please enter your service unit's OTHER or UNDESIG location.",!,"If you don't know what that is please ask your PCC Data Entry Operator",!,"for the location of encounter to use for historical activities performed" Line Location: GETLOC+1
Function Call: WRITE	Prompt: !,"outside this facility.",! Line Location: GETLOC+2
Function Call: WRITE	Prompt: " <Future dates not allowed>",$C(7),$C(7) Line Location: GETDATE+4
Function Call: WRITE	Prompt: !! Line Location: GETDRUG+2
Function Call: WRITE	Prompt: !,"No drug entered!!" Line Location: GETDRUG+4
Function Call: WRITE	Prompt: !,"That drug cannot be found in the Drug file." Line Location: NODRUG+1
Function Call: WRITE	Prompt: !,"Exiting..." Line Location: NODRUG+3
Function Call: WRITE	Prompt: ! Line Location: NODRUG+6
Function Call: WRITE	Prompt: !!,"Exiting..." Line Location: NODRUG+7
Function Call: WRITE	Prompt: !!,$C(7),"Creating PCC Visit Failed....Notify Supervisor" Line Location: GENVISIT+11
Function Call: WRITE	Prompt: !!,"Error.... no drug entry" Line Location: GENVMED+1
Function Call: WRITE	Prompt: !!,"Please enter all available information about this prescription.",! Line Location: GENVMED+2
Function Call: WRITE	Prompt: !!,"Creating V Medication entry failed!! Notify supervisor!" Line Location: GENVMED+4
Routine Call	DIE Line Location: GENVMED+3
Routine Call	DIC Line Location: GETLOC+4 GETDRUG+5
Routine Call	DIR Line Location: GETDATE+1 GETOL+2 GETDRUG+2 NODRUG+2 NODRUG+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG("B"	INIT+2

Label References

Name	Line Occurrences
EXIT	START+2, BEGIN+2, BEGIN+3, BEGIN+6
GENVISIT	PROCESS+5
GENVMED	PROCESS+7
GETDATE	PROCESS+1, GETDATE+3, GETDATE+4
GETDRUG	BEGIN+5, NODRUG+4
GETLOC	BEGIN+4
GETOL	PROCESS+3
INIT	BEGIN+1
NODRUG	GETDRUG+6
PROCESS	BEGIN+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	GETDATE+3*
AMHDATE	PROCESS+2, EXIT+2!, GETDATE+1, GETDATE+5, GENVISIT+3
AMHDIEN	BEGIN+5, EXIT+2!, GETDRUG+1, GETDRUG+7, NODRUG+5*, GENVMED+1
AMHDRUG	EXIT+2!, GETDRUG+1, GETDRUG+5, GETDRUG+7, NODRUG+6, NODRUG+8, NODRUG+9*
AMHLOC	EXIT+2!, GETLOC+3, GETLOC+6, GENVISIT+6
AMHOIEN	EXIT+2!, INIT+2*, NODRUG+5
AMHOL	PROCESS+4, EXIT+2!, GETOL+1, GETOL+3, GENVISIT+9
AMHQUIT	BEGIN+2, BEGIN+5, PROCESS+6, EXIT+2!, INIT+1, INIT+2, NODRUG+3, NODRUG+7, GENVISIT+11*
APCDALVR	EXIT+1!, GENVISIT+1!
APCDALVR("APCDAFLG"	GENVISIT+11
APCDALVR("APCDANE"	GENVISIT+8*
APCDALVR("APCDAUTO"	GENVISIT+8*
APCDALVR("APCDCAT"	GENVISIT+7*
APCDALVR("APCDDATE"	GENVISIT+3*
APCDALVR("APCDLOC"	GENVISIT+6*
APCDALVR("APCDOLOC"	GENVISIT+9*
APCDALVR("APCDPAT"	GENVISIT+5*, GENVISIT+12
APCDALVR("APCDTYPE"	GENVISIT+4*
APCDALVR("APCDVSIT"	GENVISIT+12
APCDALVR("AUPNTALK"	GENVISIT+2*
APCDANE	EXIT+1!
APCDLOOK	EXIT+1!
APCDPAT	EXIT+1!, GENVISIT+12*
APCDVSIT	EXIT+1!, GENVISIT+12*, GENVMED+3
>> AUPNLK("ALL"	EXIT+3!
AUPNTALK	EXIT+3!
D	EXIT+4!
D0	EXIT+4!
DA	EXIT+4!, GETOL+2!, GETDRUG+7!, GENVMED+3*
DD	EXIT+4!, GETDRUG+2!, NODRUG+6!
DDH	EXIT+4!
>> DFN	START+2, BEGIN+3, GENVISIT+5, GENVISIT+12
DI	EXIT+4!
DIC	EXIT+4!, GETLOC+4!, GETDRUG+5!
DIC(0	GETLOC+4, GETDRUG+5
DIE	EXIT+4!, GENVMED+3*
DIR	EXIT+4!, GETDATE+1!, GETOL+2!, GETDRUG+2!, GETDRUG+7!, NODRUG+2!, NODRUG+6!
DIR("A"	GETDATE+1, GETOL+2, GETDRUG+2, NODRUG+2, NODRUG+6*
DIR("B"	NODRUG+2, NODRUG+6
DIR(0	GETDATE+1, GETOL+2, GETDRUG+2, NODRUG+2, NODRUG+6*
DIRUT	EXIT+4!, GETDATE+1, GETDATE+2, GETDRUG+2, GETDRUG+4, GETDRUG+7!, NODRUG+2, NODRUG+3, NODRUG+6, NODRUG+7
DIV	EXIT+4!
DIW	EXIT+4!
DQ	EXIT+4!
DR	EXIT+4!, GENVMED+3*
DT	GETDATE+1, GETDATE+4
DTOUT	EXIT+4!, GETDRUG+2, GETDRUG+7!, NODRUG+6
DUOUT	EXIT+4!, GETDATE+1, GETDRUG+7!, NODRUG+2
I	EXIT+4!
IOF	HDR+1
J	HDR+2*, HDR+3!
X	HDR+2, HDR+3!, EXIT+4!, GETDATE+4!, GETDRUG+5
Y	EXIT+4!, GETLOC+5, GETLOC+6, GETDATE+3, GETDATE+4, GETDATE+5, GETOL+3, GETDRUG+3, GETDRUG+5, GETDRUG+6 , GETDRUG+7, NODRUG+4, NODRUG+8, GENVISIT+12*, GENVMED+4

Marked Items

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEOD

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items