Routine: AMHLEGP

Package	Total	Call Graph
VA Fileman	3	(,DD)^%DT ^DIC ^DIR
Mental Health Social Services	2	(,INFORM,XIT)^AMHLEGP1 (,$$GETCOMM,$$GETLOC)^AMHLEIN
IHS VA Utilities	1	^XBDBQUE

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;
GETLOC	;
GETCLN	;
ENDMSG	;
GETNUM	;
PRINT	;
GETCPTS1	;
GETNARR	;
GETPOVS	;
INFORM	;
GETEDUC1	;
NUM	;
GETTOD	;
GETDATE	; GET DATE OF ENCOUNTER
GETCONT	;
GETTIME	;
GETPOVS1	;
XIT	;
GETPROV1	;
GETCPTS	;
GETACT	;
GETPROV	;get providers
GETCOMM	;
EDTIME
GETPROG	;
GETEDUC	;

External References

Name	Field # of Occurrence
^%DT	GETDATE+4, EDTIME+1
DD^%DT	EDTIME, DISP+2
^AMHLEGP1	DISP+11
INFORM^AMHLEGP1	INFORM+1
XIT^AMHLEGP1	XIT+1
^AMHLEIN	AMHLEGP+3
$$GETCOMM^AMHLEIN	GETCOMM+1
$$GETLOC^AMHLEIN	GETLOC+1
^DIC	GETCLN+1, GETLOC+1, GETCOMM+1, GETNARR+5
^DIR	GETDATE+2, GETPROG+2, GETLOC+6, GETPROV1+1, GETACT+1, GETCONT+1, GETPOVS1+1, GETNARR+2, GETCPTS1+1, GETEDUC1+1 , GETEDUC1+10, GETEDUC1+12, GETEDUC1+15, GETEDUC1+17, GETTIME+1, GETNUM+1, DISP+8, PRINT+1, NUM+6
^XBDBQUE	NUM+10

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: !!,"Clinic is required. Type '^' to exit or enter a clinic code." Line Location: GETCLN+2
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: X Line Location: GETTOD+3
Function Call: WRITE	Prompt: !,"Enter time of arrival, or 'D' for default." Line Location: GETTOD+6
Function Call: WRITE	Prompt: " ",X Line Location: GETTOD+7
Function Call: WRITE	Prompt: !!,"Invalid time entry, enter time of visit or 1200 for the default." Line Location: EDTIME+1
Function Call: WRITE	Prompt: ! Line Location: EDTIME+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"REQUIRED, enter a '^' to exit.",! Line Location: GETLOC+3
Function Call: WRITE	Prompt: " ",X Line Location: GETNARR+4
Function Call: WRITE	Prompt: !,$C(7),$C(7),"Invalid Narrative" Line Location: GETNARR+5
Function Call: WRITE	Prompt: !!,"I am going to ask you to enter ",AMHNUM," patient names. I will then create a",!,"record in the BH file for each patient. The record will contain the",!,"following information: ",! Line Location: DISP+1
Function Call: WRITE	Prompt: !,"Date of Encounter: " Line Location: DISP+2
Function Call: WRITE	Prompt: Y Line Location: DISP+2
Function Call: WRITE	Prompt: Y Line Location: DISP+2
Function Call: WRITE	Prompt: !,"Loc. of Enc.: ",$E($P(^DIC(4,AMHLOC,0),U),1,25),?40,"Community: ",$E($P(^AUTTCOM(AMHCOMM,0),U),1,25) Line Location: DISP+3
Function Call: WRITE	Prompt: ! Condition for execution: X>1 Line Location: DISP+4
Function Call: WRITE	Prompt: ?12,$P(^VA(200,$P(AMHPROV(X),U),0),U) Line Location: DISP+4
Function Call: WRITE	Prompt: !,"Activity: ",$E($P(^AMHTACT(+AMHACT,0),U,2),1,25),?40,"Type of Contact: ",$P(AMHCONT(0),U) Line Location: DISP+5
Function Call: WRITE	Prompt: ! Condition for execution: X>1 Line Location: DISP+6
Function Call: WRITE	Prompt: ?12,$P(^AMHPROB($P(AMHPOV(X),U),0),U)," ",$E($P(^AUTNPOV($P(AMHPOV(X),U,2),0),U),1,50) Line Location: DISP+6
Function Call: WRITE	Prompt: !,"# Patients: ",AMHNUM,?15,"Total Time: ",AMHTIME,! Line Location: DISP+7
Function Call: WRITE	Prompt: !! Line Location: PRINT+1
Function Call: WRITE	Prompt: !! Line Location: NUM+5
Routine Call	DIC Line Location: GETCLN+1 GETLOC+1 GETCOMM+1 GETNARR+5
Routine Call	DIR Line Location: GETDATE+2 GETPROG+2 GETLOC+6 GETPROV1+1 GETACT+1 GETCONT+1 GETPOVS1+1 GETNARR+2 GETCPTS1+1 GETEDUC1+1 GETEDUC1+10 GETEDUC1+12 GETEDUC1+15 GETEDUC1+17 GETTIME+1 GETNUM+1 DISP+8 PRINT+1 NUM+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^AUTTCOM - [#9999999.05]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls
^AUTNPOV - [#9999999.27]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	GETNARR+4, DISP+6
^AMHSITE - [#9002013]	NUM+6
^AMHTACT - [#9002012]	DISP+5
^AUTNPOV - [#9999999.27]	DISP+6
^AUTTCOM - [#9999999.05]	DISP+3
^AUTTLOC - [#9999999.06]	GETLOC+6
^DIC(4 - [#4]	GETLOC+1, DISP+3
^VA(200 - [#200]	DISP+4

Label References

Name	Line Occurrences
EDTIME	GETTOD+5
GETACT	GETCONT+2
GETCLN	GETCLN+2, GETTOD+4
GETCOMM	GETPROV1+5, GETACT+2
GETCONT	GETPOVS1+3, GETPOVS1+4, GETPOVS1+5
GETCPTS	GETPOVS1+6, GETPOVS1+7, GETNARR+3, GETEDUC1+4
GETCPTS1	GETCPTS1+10
GETDATE	GETDATE+4, GETDATE+5, GETPROG+3
GETEDUC	GETCPTS1+3, GETCPTS1+7
GETEDUC1	GETEDUC1+20
GETLOC	GETLOC+3, GETLOC+6, GETPROV1+2, GETPROV1+3, GETPROV1+4
GETNARR	GETNARR+5
GETPOVS	GETCPTS1+4, GETCPTS1+5, GETTIME+2
GETPOVS1	GETNARR+8
GETPROG	GETCLN+3
GETPROV	GETCOMM+2
GETPROV1	GETPROV1+7
GETTIME	GETCPTS1+6, GETEDUC1+3, GETEDUC1+5, GETEDUC1+6, GETNUM+2
GETTOD	GETTOD+6, EDTIME+1, EDTIME+2, GETLOC+2
INFORM	AMHLEGP+4
PRINT	ENDMSG+2
XIT	GETDATE+3, DISP+9, DISP+10, ENDMSG+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	GETDATE+4, EDTIME+1
>> AMHACT	GETACT+1, GETACT+3, DISP+5
>> AMHC	GETPROV+1, GETPROV1+1, GETPROV1+3, GETPROV1+4, GETPROV1+5, GETPROV1+6, GETPOVS+1, GETPOVS1+1, GETPOVS1+4, GETPOVS1+5 , GETPOVS1+6, GETPOVS1+7, GETNARR+7, GETCPTS+1, GETCPTS1+5, GETCPTS1+7, GETCPTS1+9, GETEDUC+1, GETEDUC1+4, GETEDUC1+6 , GETEDUC1+8, GETEDUC1+11, GETEDUC1+14, GETEDUC1+16, GETEDUC1+19
>> AMHCLN	GETCLN+1, GETCLN+4
>> AMHCOMM	GETCOMM+1, GETCOMM+3, DISP+3
>> AMHCONT	GETCONT+1, GETCONT+3
>> AMHCONT(0	GETCONT+3*, DISP+5
AMHCPT	GETCPTS+1!
AMHCPT(	GETCPTS1+9*
>> AMHCPTP	GETCPTS1+8, GETCPTS1+9, GETEDUC1+7, GETEDUC1+8
>> AMHDATE	GETDATE+2, GETDATE+6, GETTOD+1, EDTIME, EDTIME+3, DISP+2
AMHEDUC	GETEDUC+1!
AMHEDUC(	GETEDUC1+8, GETEDUC1+11, GETEDUC1+14, GETEDUC1+16, GETEDUC1+19*
AMHEFT	NUM+4!, NUM+8*
AMHEFTH	NUM+4!, NUM+8*
>> AMHGROUP	GETDATE+1*
>> AMHLEGP("RECS	ADDED" , ENDMSG+2
>> AMHLOC	GETLOC+1, GETLOC+5, DISP+3
>> AMHNARR	GETNARR+1, GETNARR+6, GETNARR+7
>> AMHNUM	GETNUM+1, GETNUM+3, DISP+1, DISP+7
>> AMHOL	GETLOC+6*
AMHPOV	GETPOVS+1!
AMHPOV(	GETNARR+7*, DISP+6
>> AMHPOVP	GETPOVS1+8*, GETNARR+4, GETNARR+7
>> AMHPROG	GETPROG+1, GETPROG+4
>> AMHPROG(0	GETPROG+4*, DISP+2
AMHPROV	GETPROV+1!
AMHPROV(	GETPROV1+6*, DISP+4
>> AMHPTYPE	GETPROG+4*, GETLOC+1
>> AMHTIME	GETTIME+1, GETTIME+3, DISP+7
>> AMHTOD	GETTOD+2, GETTOD+3, GETTOD+5, GETTOD+8*, EDTIME
>> APCDOVRR	GETNARR+5*
DA	GETPROG+2!, GETLOC+6!, GETPROV1+1!, GETCOMM+1!, GETPOVS1+1!, GETNARR+2!, GETCPTS1+1!, GETEDUC1+1!, GETEDUC1+10!, GETEDUC1+12! , GETEDUC1+15!, GETEDUC1+17!, DISP+8!, NUM+6!
DD	GETNARR+5!
DIADD	GETNARR+5!
DIC	GETPROG+2!, GETCLN+1!, GETLOC+1!, GETPROV1+1!, GETCOMM+1!, GETPOVS1+1!, GETNARR+5!, GETCPTS1+1!, GETEDUC1+1!, GETEDUC1+10! , GETEDUC1+12!, GETEDUC1+15!, GETEDUC1+17!, DISP+8!
DIC("A"	GETCLN+1, GETCOMM+1
DIC("B"	GETLOC+1, GETCOMM+1
DIC(0	GETCLN+1, GETLOC+1, GETCOMM+1, GETNARR+5
DIR	GETDATE+2!, GETPROG+2!, GETLOC+6!, GETPROV1+1!, GETACT+1!, GETCONT+1!, GETPOVS1+1!, GETPOVS1+2!, GETNARR+2!, GETCPTS1+1! , GETCPTS1+2!, GETEDUC1+1!, GETEDUC1+2!, GETEDUC1+10!, GETEDUC1+12!, GETEDUC1+15!, GETEDUC1+17!, GETTIME+1!, GETNUM+1!, DISP+8! , PRINT+1!, NUM+6!
DIR("A"	GETDATE+2, GETPROG+2, GETLOC+6, GETPROV1+1, GETACT+1, GETCONT+1, GETPOVS1+1, GETNARR+2, GETCPTS1+1, GETEDUC1+1 , GETEDUC1+10, GETEDUC1+12, GETEDUC1+15, GETEDUC1+17, GETTIME+1, GETNUM+1, DISP+8, PRINT+1
DIR("B"	DISP+8, PRINT+1, NUM+6*
DIR(0	GETDATE+2, GETPROG+2, GETLOC+6, GETPROV1+1, GETACT+1, GETCONT+1, GETPOVS1+1, GETNARR+2, GETCPTS1+1, GETEDUC1+1 , GETEDUC1+10, GETEDUC1+12, GETEDUC1+15, GETEDUC1+17, GETTIME+1, GETNUM+1, DISP+8, PRINT+1, NUM+5*
DIRUT	GETDATE+2, GETDATE+3, GETPROG+2!, GETPROG+3, GETPROV1+1!, GETPROV1+3, GETACT+1, GETACT+2, GETCONT+1, GETCONT+2 , GETPOVS1+1!, GETPOVS1+4, GETPOVS1+7, GETCPTS1+1!, GETCPTS1+5, GETCPTS1+7, GETEDUC1+1!, GETEDUC1+4, GETEDUC1+6, GETEDUC1+10! , GETEDUC1+12!, GETEDUC1+13, GETEDUC1+15!, GETEDUC1+17!, GETEDUC1+18, GETTIME+1, GETTIME+2, GETNUM+1, GETNUM+2, DISP+8! , DISP+9, PRINT+1*, PRINT+2, NUM+7
DLAYGO	GETNARR+5*!
DO	GETNARR+5!
DT	GETDATE+2, GETDATE+5
DTIME	GETTOD+3
DTOUT	GETPROG+2!, GETPROV1+1!, GETPOVS1+1!, GETCPTS1+1!, GETEDUC1+1!, GETEDUC1+10!, GETEDUC1+12!, GETEDUC1+15!, GETEDUC1+17!, DISP+8!
DUOUT	GETDATE+2, GETPROG+2!, GETLOC+6, GETPROV1+1!, GETPROV1+2, GETACT+1, GETCONT+1, GETPOVS1+1!, GETPOVS1+3, GETNARR+3 , GETCPTS1+1!, GETCPTS1+4, GETEDUC1+1!, GETEDUC1+10!, GETEDUC1+12!, GETEDUC1+15!, GETEDUC1+17!, GETTIME+1, GETNUM+1, DISP+8! , PRINT+1
DUZ(2	GETLOC+1, GETCOMM+1, NUM+6
U	GETLOC+1, GETLOC+6, GETPROV1+6, GETNARR+4, GETNARR+7, GETEDUC1+11, GETEDUC1+14, GETEDUC1+16, GETEDUC1+19, DISP+3 , DISP+4, DISP+5, DISP+6, NUM+6
X	GETDATE+5!, GETPROG+2!, GETCLN+2, GETTOD+3, GETTOD+4, GETTOD+5, GETTOD+6, GETTOD+7, GETTOD+8, EDTIME* , EDTIME+2, GETLOC+2, GETLOC+3, GETPROV1+1!, GETPOVS1+1!, GETNARR+4, GETCPTS1+1!, GETEDUC1+1!, GETEDUC1+10!, GETEDUC1+12! , GETEDUC1+15!, GETEDUC1+17!, DISP+4, DISP+6*, DISP+8!
>> XBNS	NUM+9*
>> XBRC	NUM+9*
>> XBRP	NUM+9*
>> XBRX	NUM+9*
Y	GETDATE+4, GETDATE+5, GETDATE+6, GETPROG+2!, GETPROG+4, GETCLN+3, GETCLN+4, EDTIME, EDTIME+1, EDTIME+3 , GETLOC+2, GETLOC+3, GETLOC+5, GETLOC+6, GETPROV1+1!, GETPROV1+4, GETPROV1+5, GETPROV1+6, GETCOMM+2, GETCOMM+3 , GETACT+3, GETCONT+3, GETPOVS1+1!, GETPOVS1+5, GETPOVS1+6, GETPOVS1+8, GETNARR+4, GETNARR+5, GETNARR+6, GETCPTS1+1! , GETCPTS1+3, GETCPTS1+6, GETCPTS1+8, GETEDUC1+1!, GETEDUC1+3, GETEDUC1+5, GETEDUC1+7, GETEDUC1+10!, GETEDUC1+11, GETEDUC1+12! , GETEDUC1+13, GETEDUC1+14, GETEDUC1+15!, GETEDUC1+16, GETEDUC1+17!, GETEDUC1+18, GETEDUC1+19, GETTIME+3, GETNUM+3, DISP+2 , DISP+8!, DISP+10, PRINT+3, NUM+8
Y(0	GETPROG+4, GETCONT+3

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEGP

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: