Routine: AMHLEAR

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIC ^DIR
Mental Health Social Services	2	^AMHLEAR1 ^AMHLEIN

Entry Points

Name	Comments	DBIA/ICR reference
GETNARR	;
GETPOVS	;
GETPOVS1	;
GETCONT	;
END	;ending message
GETPROV	;get providers
INFORM	;
GETLOC	; GET LOCATION OF ENCOUNTER
CREATE
GETCOMM	;
GETTIME	;
GETNUM	;
SET
XIT	;CLEAN UP AND EXIT
GETPROG	;
GETACT	;
GETDATE	; GET DATE OF ENCOUNTER

External References

Name	Field # of Occurrence
^%DT	GETDATE+4
^AMHLEAR1	CREATE
^AMHLEIN	AMHLEAR+5
^DIC	GETLOC+1, GETCOMM+1
^DIR	GETPROV+2, GETPROG+2, GETDATE+1, GETACT+1, GETNUM+1, GETTIME+1, GETCONT+1, GETPOVS1+1, GETNARR+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " <Future dates not allowed>",$C(7),$C(7) Line Location: GETDATE+5
Function Call: WRITE	Prompt: !!,$C(7),$C(7),?14,"Enter Acceptable Activity Code (32-43, 51-59, 63-72, 83-84)",!! Line Location: GETACT+3
Function Call: WRITE	Prompt: !,$C(7),$C(7),"Must be in the code range " Line Location: GETACT+5
Function Call: WRITE	Prompt: !!," * ACTIVITY RECORD LOG Data Entry Option *",!! Line Location: INFORM+1
Function Call: WRITE	Prompt: " You will be prompted to enter all pertinent Record information",!," You will NOT be prompted to enter the Patient Names",! Line Location: INFORM+2
Function Call: WRITE	Prompt: " .....Only the following ACTIVITY CODES are acceptable Entries.....",! Line Location: INFORM+3
Function Call: WRITE	Prompt: !," 32-4351-59*63-657283-84",!! Line Location: INFORM+4
Function Call: WRITE	Prompt: !," ","......END OF ACTIVITY RECORD LOG DATA ENTRY......",! Line Location: END+1
Routine Call	DIC Line Location: GETLOC+1 GETCOMM+1
Routine Call	DIR Line Location: GETPROV+2 GETPROG+2 GETDATE+1 GETACT+1 GETNUM+1 GETTIME+1 GETCONT+1 GETPOVS1+1 GETNARR+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTCOM - [#9999999.05]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	GETNARR+3
^AMHTACT - [#9002012]	GETACT+3, GETACT+5
^AUTNPOV - [#9999999.27]	GETNARR+5

Label References

Name	Line Occurrences
END	AMHLEAR+8
GETACT	GETACT+3, GETACT+5, GETNUM+2, GETCONT+2
GETCOMM	GETACT+2
GETCONT	GETPOVS1+2, GETPOVS1+3
GETDATE	GETDATE+4, GETDATE+5, GETCOMM+2
GETLOC	GETDATE+2, GETDATE+3
GETNUM	GETTIME+2
GETPOVS1	GETNARR+4
GETPROG	GETLOC+2
GETPROV	AMHLEAR+7, GETPROG+3, GETPROG+4
INFORM	AMHLEAR+6
SET	GETNARR+3
XIT	AMHLEAR+4, AMHLEAR+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	GETDATE+4*
AMHACT	GETACT+1, GETACT+4, XIT+2!
AMHACTN	XIT+3!
AMHBEEP	XIT+2!
AMHBT	XIT+2!
AMHC	GETPROV+1, GETPROV+5, GETPOVS+1, GETPOVS1+2, GETPOVS1+3, SET, XIT+2!
AMHCOMM	GETCOMM+1, GETCOMM+3, XIT+2!
AMHCONT	GETCONT+1, GETCONT+3, XIT+2!
AMHCONT(0	GETCONT+3*
AMHDASH	XIT+2!
AMHDATE	GETDATE+1, GETDATE+6, XIT+2!
AMHGOT	XIT+2!
AMHLEGPI	XIT+2!
AMHLEIN	XIT+2!
AMHLOC	GETLOC+1, GETLOC+3, XIT+2!
AMHLPCC	XIT+2!
AMHNARR	GETNARR+1, GETNARR+3, GETNARR+5*, SET, XIT+2!
AMHNUM	GETNUM+1, GETNUM+3, XIT+2!
AMHOKAY	XIT+2!
AMHPAT	XIT+2!
AMHPOV	GETPOVS+1!, XIT+2!
AMHPOV(	SET*
AMHPOVP	GETPOVS1+4*, GETNARR+3, SET, XIT+2!
AMHPOVS	XIT+2!
AMHPROG	GETPROG+1, GETPROG+5, XIT+2!
AMHPROG(0	GETPROG+5*
AMHPROV	AMHLEAR+7!, GETPROV+1!, XIT+2!
AMHPROV(	GETPROV+5*
AMHQUIT	XIT+2!
AMHR	XIT+3!
AMHREC	XIT+2!
AMHTIME	GETTIME+1, GETTIME+3, XIT+2!
AMHVISIT	XIT+2!
D	XIT+1!
D0	XIT+1!
DA	GETPROV+2!, GETPROG+2!, GETCOMM+1!, GETPOVS1+1!, GETNARR+2!, XIT+1!
DIC	GETPROV+2!, GETPROG+2!, GETLOC+1!, GETCOMM+1!, GETPOVS1+1!, GETNARR+2!, XIT+1!
DIC("A"	GETCOMM+1*
DIC(0	GETLOC+1, GETCOMM+1
DIR	GETPROV+2!, GETPROG+2!, GETDATE+1!, GETACT+1!, GETNUM+1!, GETTIME+1!, GETCONT+1!, GETPOVS1+1!, GETNARR+2!, XIT+1!
DIR("A"	GETPROV+2, GETPROG+2, GETDATE+1, GETACT+1, GETNUM+1, GETTIME+1, GETCONT+1, GETPOVS1+1, GETNARR+2*
DIR(0	GETPROV+2, GETPROG+2, GETDATE+1, GETACT+1, GETNUM+1, GETTIME+1, GETCONT+1, GETPOVS1+1, GETNARR+2*
DIRUT	GETPROV+2!, GETPROV+3, GETPROG+2!, GETPROG+3, GETDATE+1, GETDATE+2, GETACT+1, GETACT+2, GETNUM+1, GETNUM+2 , GETTIME+1, GETTIME+2, GETCONT+1, GETCONT+2, GETPOVS1+1!, GETPOVS1+2, GETNARR+2!*, GETNARR+4
DIZ	XIT+1!
DO	XIT+1!
DR	XIT+1!
DT	GETDATE+1, GETDATE+5
DTOUT	GETPROV+2!, GETPROG+2!, GETPOVS1+1!, GETNARR+2!
DUOUT	GETPROV+2!, GETPROG+2!, GETDATE+1, GETACT+1, GETNUM+1, GETTIME+1, GETCONT+1, GETPOVS1+1!, GETNARR+2!
U	GETPROV+5, GETACT+3, GETACT+5, GETNARR+3, GETNARR+5, SET
X	GETPROV+2!, GETPROG+2!, GETDATE+5!, GETPOVS1+1!, GETNARR+2!, XIT+1!
Y	GETPROV+2!, GETPROV+4, GETPROV+5, GETPROG+2!, GETPROG+4, GETPROG+5, GETLOC+2, GETLOC+3, GETDATE+3, GETDATE+4 , GETDATE+5, GETDATE+6, GETCOMM+2, GETCOMM+3, GETACT+3, GETACT+4, GETACT+5, GETNUM+3, GETTIME+3, GETCONT+3 , GETPOVS1+1!, GETPOVS1+3, GETPOVS1+4, GETNARR+2!, GETNARR+3, GETNARR+5, XIT+1!
Y(0	GETPROG+5, GETCONT+3

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEAR

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: