Routine: AMHLEER

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
Mental Health Social Services	7	START^AMHBPL DISPDG^AMHLE RECCHECK^AMHLE2 (OTHER,PAUSE,PCCLINK)^AMHLEA XIT^AMHLEE ^AMHRLKUP PTSEC^AMHUTIL2
VA Fileman	5	^%DT ^DDS ^DIC ^DIE ^DIR
Registration	2	NOTICE^DGSEC4 FULL^VALM1
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

Mental Health Social Services

START^AMHBPL DISPDG^AMHLE RECCHECK^AMHLE2 (OTHER,PAUSE,PCCLINK)^AMHLEA XIT^AMHLEE ^AMHRLKUP PTSEC^AMHUTIL2

VA Fileman

^%DT ^DDS ^DIC ^DIE ^DIR

Registration

NOTICE^DGSEC4 FULL^VALM1

Kernel

$$FMTE^XLFDT

Name	Comments	DBIA/ICR reference
RECLKUP	;
PL1	;
GETLOC	;get location of encounter
EOJ	; END OF JOB
DGSECDS	;
GETPAT	; GET PATIENT
EDIT	;
TEXT	;
PL	;EP - called from SDE to update the problem list
GETDATE	; GET DATE OF ENCOUNTER

External References

Name	Field # of Occurrence
^%DT	GETDATE+5
START^AMHBPL	PL1+1
DISPDG^AMHLE	DGSECDS+6, DGSECDS+7
RECCHECK^AMHLE2	EDIT+6
OTHER^AMHLEA	EDIT+5
PAUSE^AMHLEA	EDIT+6, PL+7, PL+11, PL+12, DGSECDS+1, DGSECDS+6
PCCLINK^AMHLEA	EDIT+7
XIT^AMHLEE	PL+7, PL+9, PL+10, PL+11, PL+12, DGSECDS+1, DGSECDS+6, DGSECDS+9, PL1+2
^AMHRLKUP	RECLKUP+1
PTSEC^AMHUTIL2	DGSECDS+4
^DDS	EDIT+4
NOTICE^DGSEC4	DGSECDS+11
^DIC	GETPAT+2, GETLOC+2
^DIE	EDIT+3
^DIR	GETDATE+3, PL+8, DGSECDS+8
FULL^VALM1	PL+1
$$FMTE^XLFDT	GETPAT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No Date entered!" Line Location: AMHLEER+4
Function Call: WRITE	Prompt: ! Line Location: GETDATE+1
Function Call: WRITE	Prompt: " <Future dates not allowed>",$C(7),$C(7) Line Location: GETDATE+6
Function Call: WRITE	Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!! Line Location: GETPAT+5
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! NOTIFY PROGRAMMER " Line Location: EDIT+4
Function Call: WRITE	Prompt: !,"Problem List updates must be attached to a visit. If you are updating the " Line Location: PL+2
Function Call: WRITE	Prompt: !,"Problem List in the context of a patient visit select the appropriate existing" Line Location: PL+3
Function Call: WRITE	Prompt: !,"visit and then update the Problem List. If you are updating the Problem List " Line Location: PL+4
Function Call: WRITE	Prompt: !,"outside of the context of a patient visit, first create a chart review visit " Line Location: PL+5
Function Call: WRITE	Prompt: !,"and then update the Problem List." Line Location: PL+6
Function Call: WRITE	Prompt: !,"There are no visits to select." Line Location: PL+7
Function Call: WRITE	Prompt: !,"No record selected." Line Location: PL+9
Function Call: WRITE	Prompt: !,"No record selected." Line Location: PL+10
Function Call: WRITE	Prompt: !,"Not a valid BH RECORD." Line Location: PL+12
Function Call: WRITE	Prompt: !!,"This is not a patient visit." Line Location: DGSECDS+1
Function Call: WRITE	Prompt: ! Line Location: DGSECDS+8
Routine Call	DIE Line Location: EDIT+3
Routine Call	DDS Line Location: EDIT+4
Routine Call	DIC Line Location: GETPAT+2 GETLOC+2
Routine Call	DIR Line Location: GETDATE+3 PL+8 DGSECDS+8

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AMHREC - [#9002011]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	EDIT+1, EDIT+5, PL+12, DGSECDS+1, DGSECDS+2, DGSECDS+3
^TMP("AMHVRECS"	PL+11

Name	Line Occurrences
EDIT	AMHLEER+9
EOJ	AMHLEER+4, AMHLEER+8, AMHLEER+10
GETDATE	AMHLEER+3, GETDATE+5, GETDATE+6
GETLOC	AMHLEER+5
GETPAT	AMHLEER+6
PL1	DGSECDS+5
RECLKUP	AMHLEER+7

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	GETDATE+5*
>> AMHACTN	EDIT+2*
AMHDATE	AMHLEER+4, GETDATE+2, GETDATE+8, EOJ+1!
>> AMHERROR	EDIT+6*
>> AMHLOC	GETLOC+1, GETLOC+4, DGSECDS+3*
AMHODAT	GETDATE+7!, EOJ+1!
AMHPAT	GETPAT+1, GETPAT+4, EDIT+1, EDIT+4, EOJ+1!, DGSECDS+2, DGSECDS+4, DGSECDS+11
AMHPROV	EOJ+1!
>> AMHQUIT	EDIT+4*
AMHR	AMHLEER+8, EDIT+1, EDIT+3, EDIT+4, EDIT+5, EOJ+1!, PL+11*!, PL+12!, DGSECDS+1, DGSECDS+2 , DGSECDS+3, PL1+1
>> AMHR1	PL+10*, PL+11
>> AMHRCNT	PL+7, PL+8
AMHRDEL	PL+11!, PL+12!
AMHRESU	DGSECDS+4, DGSECDS+10!, DGSECDS+11
AMHRESU(1	DGSECDS+5, DGSECDS+6
>> AUPNDOD	GETPAT+5
DA	GETPAT+2!, GETLOC+2!, EDIT+3!, EDIT+4, DGSECDS+8!
>> DDSFILE	EDIT+4*
DIADD	EDIT+3*!
DIC	GETPAT+2!, GETLOC+2!
DIC("A"	GETPAT+2, GETLOC+2
DIC(0	GETPAT+2, GETLOC+2
DIE	EDIT+3*!
DIMSG	EDIT+4!
DIR	GETDATE+3!, PL+8!, DGSECDS+8!
DIR("A"	GETDATE+3, PL+8, DGSECDS+8*
DIR("B"	DGSECDS+8*
DIR(0	GETDATE+3, PL+8, DGSECDS+8*
>> DIRUT	GETDATE+3, GETDATE+4, PL+8, PL+9
DR	GETPAT+2!, EDIT+3!, EDIT+4
DR(2	EDIT+3*
DT	GETDATE+3, GETDATE+6
>> DUOUT	GETDATE+3, PL+8
U	EDIT+1, EDIT+5, DGSECDS+1, DGSECDS+2, DGSECDS+3
VALMY	PL+10!
X	GETDATE+6!
XQORNOD	PL+10!
>> Y	GETDATE+5, GETDATE+6, GETDATE+8, GETPAT+3, GETPAT+4, GETLOC+3, GETLOC+4, PL+10, DGSECDS+9

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEER

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: