Routine: AMHLEA

Call Graph

Call Graph Total: 32

Package	Total	Call Graph
Mental Health Social Services	21	START^AMHBPL ($$ESIG,ESIG,ESIGGFI)^AMHESIG EP^AMHLCD HDR^AMHLE (PCCLINK,RECCHECK)^AMHLE2 PHX^AMHLE3 PAUSE^AMHLEA ($$IINTAKE,EN)^AMHLEDEL ^AMHLEFP ($$GETAWI,$$GETCLN,$$GETCOMM,$$GETLOC,$$GETTOC,CALLDIE)^AMHLEIN EP1^AMHLEIV GATHER^AMHLEL ADDR^AMHLENS REGULAR^AMHLEP2 ^AMHLEPOV EN^AMHLESF EP1^AMHLETP ^AMHPEDIT ($$ALLOWP,$$PPINT,NALLOWP)^AMHUTIL $$HL^AMHUTIL2 APPT^AMHVRL2
VA Fileman	6	^DDS ^DIC (FILE,YN)^DICN ^DIE ^DIK ^DIR
IHS VA Utilities	3	$$VALI^XBDIQ1 ^XBFMK EN^XBNEW
Registration	2	TERM^VALM0 ($$FTIME,CLEAR,FULL)^VALM1

Package	Total	Caller Graph
Mental Health Social Services	60	AMHDMHPL AMHDPEE AMHEGR AMHEGRPV AMHEGS AMHEHR AMHEHR1 AMHGOM AMHLCD AMHLE AMHLE2 AMHLEA AMHLEA1 AMHLEDV AMHLEE AMHLEER AMHLEGP1 AMHLEI AMHLEIC AMHLEIV AMHLEIVP AMHLENS AMHLENS1 AMHLEP1 AMHLEP2 AMHLEPAT AMHLEPOV AMHLESF AMHLETP AMHNAVR AMHPCCL AMHPHQO AMHPST AMHRAS1 AMHRAS2 AMHRAS3 AMHRAS4 AMHRAS5 AMHRC1 AMHRC4 AMHRDE1 AMHRDE2 AMHRDE3 AMHRDE4 AMHRDE5 AMHRDISP AMHRDV1 AMHRDV4 AMHRDV5 AMHRE1 AMHRGADO AMHRNS AMHRPS AMHRPTI AMHRSB1 AMHRSR1 AMHRSR4 AMHRSR5 AMHSFR AMHVDL
Patient Care Component Reports	1	APCLAL4

Package

Total

Caller Graph

Mental Health Social Services

AMHDMHPL  AMHDPEE  AMHEGR  AMHEGRPV  AMHEGS  AMHEHR  AMHEHR1  AMHGOM
AMHLCD  AMHLE  AMHLE2  AMHLEA  AMHLEA1  AMHLEDV  AMHLEE  AMHLEER
AMHLEGP1  AMHLEI  AMHLEIC  AMHLEIV  AMHLEIVP  AMHLENS  AMHLENS1  AMHLEP1
AMHLEP2  AMHLEPAT  AMHLEPOV  AMHLESF  AMHLETP  AMHNAVR  AMHPCCL  AMHPHQO
AMHPST  AMHRAS1  AMHRAS2  AMHRAS3  AMHRAS4  AMHRAS5  AMHRC1  AMHRC4
AMHRDE1  AMHRDE2  AMHRDE3  AMHRDE4  AMHRDE5  AMHRDISP  AMHRDV1  AMHRDV4
AMHRDV5  AMHRE1  AMHRGADO  AMHRNS  AMHRPS  AMHRPTI  AMHRSB1  AMHRSR1
AMHRSR4  AMHRSR5  AMHSFR  AMHVDL

Patient Care Component Reports

APCLAL4

Entry Points

Name	Comments	DBIA/ICR reference
ADD1	;
CDST	;EP
DEL	;EP
GETPAT1
SUIC	;EP - is this a suicide visit? IF so, pop into suicide form
PCCLINK	;EP -PCC LINK
RMENU	;EP - called form AMHLEA
CDST1
3	;
1	;EP
GETVTYP	;
PRIMPROB(R)	;EP
5	;treatment Plan
OTHER1	;
7	;intake
6	;print encounter form
9	;problem list
8	;suicide forms
ADDSCR	;screenman mode
4	;scheduling system
PAUSE	;EP
INDS(R)	;is this a initial or a discharge
OTHERN	;
OTHERO	;
GETPAT	;EP
HEADER	;EP
OTHER	;EP - collect other data if patient related
2	;
ADDNS	;EP
ADDR	;EP
GETPROV	;get providers
CHECK	;EP
EXIT	;CLEAN UP AND EXIT
CDSTDEL	;

External References

Name	Field # of Occurrence
START^AMHBPL	9+1
$$ESIG^AMHESIG	OTHERN+4
ESIG^AMHESIG	ADDR+30
ESIGGFI^AMHESIG	OTHERN+12
EP^AMHLCD	2+1
HDR^AMHLE	EXIT+5
PCCLINK^AMHLE2	PCCLINK+1
RECCHECK^AMHLE2	ADDR+25, CHECK+2
PHX^AMHLE3	3+1
PAUSE^AMHLEA	7+1, 7+3, 8+1, 8+3
$$IINTAKE^AMHLEDEL	DEL+1
EN^AMHLEDEL	DEL+4
^AMHLEFP	6+3
$$GETAWI^AMHLEIN	ADDSCR+21
$$GETCLN^AMHLEIN	ADDSCR+20
$$GETCOMM^AMHLEIN	ADDSCR+19
$$GETLOC^AMHLEIN	ADDSCR+19
$$GETTOC^AMHLEIN	ADDSCR+21
CALLDIE^AMHLEIN	ADDR+19, ADDR+23, ADDR+26, ADDSCR+17
EP1^AMHLEIV	7+4
GATHER^AMHLEL	EXIT+3
ADDR^AMHLENS	ADDNS+5
REGULAR^AMHLEP2	ADDR+27, ADD1+13
^AMHLEPOV	ADDR+21
EN^AMHLESF	SUIC+11, 8+4
EP1^AMHLETP	5+1
^AMHPEDIT	GETPAT1+5
$$ALLOWP^AMHUTIL	GETPAT1+7
$$PPINT^AMHUTIL	ADDSCR+24
NALLOWP^AMHUTIL	GETPAT1+7
$$HL^AMHUTIL2	ADDSCR+19, ADD1+7
APPT^AMHVRL2	4+1
^DDS	ADD1+1, CDST1+3, 1+4
^DIC	GETPAT1+2, 1+3
FILE^DICN	ADDR+16, ADDSCR+12, CDST+6, GETPROV+6
YN^DICN	GETPAT1+6
^DIE	ADDR+18, ADDSCR+16, ADDSCR+22, ADD1+7, CDST1+1, OTHERN+11
^DIK	CDSTDEL+5
^DIR	GETVTYP+4, CDSTDEL+2, SUIC+6, OTHERN+8, OTHERO+3, GETPROV+3, PAUSE+1, CHECK+4
TERM^VALM0	EXIT+1
$$FTIME^VALM1	HEADER+3
CLEAR^VALM1	1+1
FULL^VALM1	ADDR+1, ADDNS+1, ADDSCR+3, OTHER+2, 1+2, 2+2
$$VALI^XBDIQ1	ADD1+7
^XBFMK	CDST+6, CDST1, CDST1+2, CDST1+5, GETPAT+1, 1+3
EN^XBNEW	6+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Date not entered." Line Location: ADDR+2
Function Call: WRITE	Prompt: !,"Visit type is required!" Line Location: ADDR+10
Function Call: WRITE	Prompt: !,"Creating new record..." Line Location: ADDR+16
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health Record is NOT complete!! Deleting Record.",! Line Location: ADDR+17
Function Call: WRITE	Prompt: !!,"Incomplete record!! Deleting record!!" Line Location: ADDR+20
Function Call: WRITE	Prompt: !!,"Incomplete record!! Deleting record!!" Line Location: ADDR+22
Function Call: WRITE	Prompt: !!,"Incomplete record!! Deleting record!!" Line Location: ADDR+24
Function Call: WRITE	Prompt: !,"Incomplete record!! Deleting record!!" Line Location: ADDR+25
Function Call: WRITE	Prompt: ! Line Location: ADDR+26
Function Call: WRITE	Prompt: !!,"Date not entered." Line Location: ADDNS+2
Function Call: WRITE	Prompt: !!,"Date not entered." Line Location: ADDSCR+4
Function Call: WRITE	Prompt: !,"Visit type is required!" Line Location: ADDSCR+8
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health Record is NOT complete!! Deleting Record.",! Line Location: ADDSCR+13
Function Call: WRITE	Prompt: !!,"Error updating record......" Line Location: ADDSCR+22
Function Call: WRITE	Prompt: !,"No PRIMARY PROVIDER entered!! - Required element" Line Location: ADDSCR+24
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: ADD1+6
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"PLEASE EDIT THIS RECORD!!",!! Line Location: ADD1+15
Function Call: WRITE	Prompt: !!,"There is already a initial/discharge entry for this visit.",!,"Editing existing data...." Line Location: CDST+4
Function Call: WRITE	Prompt: !!,"Creating Initial Chemical Dependency data record..." Line Location: CDST+5
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Notify supervisor....error in creating Initial Staging record.." Line Location: CDST+7
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Notify supervisor....error in creating Initial Staging record.." Line Location: CDST1+2
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: CDST1+4
Function Call: WRITE	Prompt: !!,"There is a staging tool entry for this visit and this visit",!,"is not an INITIAL, REOPEN, TRAN/DISC/CLOSE or FOLLOW UP.",! Line Location: CDSTDEL+1
Function Call: WRITE	Prompt: !!,"You have entered a diagnosis relating to Suicide. ",! Line Location: SUIC+4
Function Call: WRITE	Prompt: !,"IHS Suicide Forms should be filled out for all Suicide Ideations with Plan",!,"and Intent, for all Suicide Attempts and for all Completed Suicides.",! Line Location: SUIC+5
Function Call: WRITE	Prompt: @IOF,!!!?20,"***** OTHER INFORMATION *****",!! Line Location: OTHERO+1
Function Call: WRITE	Prompt: ! Line Location: OTHER1+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: GETPROV+1
Function Call: WRITE	Prompt: !!!!!!! Line Location: GETPROV+1
Function Call: WRITE	Prompt: !!! Line Location: GETPROV+2
Function Call: WRITE	Prompt: !!,"Creating Primary Provider entry failed!!!",$C(7),$C(7) Line Location: GETPROV+7
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF)&(AMHC=0) Line Location: GETPAT1+0
Function Call: WRITE	Prompt: !!!!!!!!?20,"TYPE THE PATIENT'S HRN, NAME, SSN OR DOB" Line Location: GETPAT1+0
Function Call: WRITE	Prompt: !!,"This visit has an Initial Intake with Updates, it can not be deleted",!,"until the update documents have been deleted." Line Location: DEL+1
Function Call: WRITE	Prompt: !,"Record deleted." Line Location: DEL+5
Function Call: WRITE	Prompt: !,"Update, add or append any of the following data" Line Location: RMENU+2
Function Call: WRITE	Prompt: !!,?5,"1). Update any of the following information:" Line Location: RMENU+3
Function Call: WRITE	Prompt: !,?10,"Designated Providers, Patient Flag" Line Location: RMENU+4
Function Call: WRITE	Prompt: !,?5,"2). Patient Case Open/Admit/Closed Data" Line Location: RMENU+5
Function Call: WRITE	Prompt: !,?5,"3). Personal History Information" Line Location: RMENU+6
Function Call: WRITE	Prompt: !?5,"4). Appointments (Scheduling System)" Line Location: RMENU+7
Function Call: WRITE	Prompt: !?5,"5). Treatment Plan Update" Line Location: RMENU+8
Function Call: WRITE	Prompt: !?5,"6). Print an Encounter Form" Line Location: RMENU+9
Function Call: WRITE	Prompt: !?5,"7). Add/Update/Print Intake Document" Line Location: RMENU+10
Function Call: WRITE	Prompt: !?5,"8). Add/Update Suicide Forms" Line Location: RMENU+11
Function Call: WRITE	Prompt: !,?5,"9). Problem List Update" Line Location: RMENU+12
Function Call: WRITE	Prompt: !?5,"10). None of the Above (Quit)" Line Location: RMENU+13
Function Call: WRITE	Prompt: !,AMHDASH Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"Date of Service: ",$$FTIME^VALM1(AMHDATE),!,AMHDASH Line Location: HEADER+3
Function Call: WRITE	Prompt: !!,"FAILED TO ADD PATIENT TO BH PATIENT DATA FILE" Line Location: 1+3
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: 1+5
Function Call: WRITE	Prompt: !!,"This is not a patient related encounter. Use ID to update an Intake document." Line Location: 7+1
Function Call: WRITE	Prompt: !!,"You cannot add/update an intake on a visit created in a group.",! Line Location: 7+3
Function Call: WRITE	Prompt: !!,"This is not a patient related encounter. Use SFR to update suicide forms." Line Location: 8+1
Function Call: WRITE	Prompt: !!,"You cannot add/update a suicide form on a visit created in a group.",! Line Location: 8+3
Function Call: WRITE	Prompt: !!,"Incomplete record!!" Line Location: CHECK+3
Function Call: WRITE	Prompt: !!,"Deleting record." Line Location: CHECK+7
Routine Call	DIE Line Location: ADDR+18 ADDSCR+16 ADDSCR+22 ADD1+7 CDST1+1 OTHERN+11
Routine Call	DDS Line Location: ADD1+1 CDST1+3 1+4
Routine Call	DIC Line Location: GETPAT1+2 1+3
Routine Call	DIR Line Location: GETVTYP+4 CDSTDEL+2 SUIC+6 OTHERN+8 OTHERO+3 GETPROV+3 PAUSE+1 CHECK+4

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AMHREC - [#9002011]	Classic Fileman Calls
^AMHRPROV - [#9002011.02]	Classic Fileman Calls
^AMHRCDST - [#9002011.06]	Classic Fileman Calls
^AMHPATR - [#9002011.55]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPATR - [#9002011.55]	1+3
^AMHPROB - [#9002012.2]	SUIC+2
^AMHRCDST("B"	CDST+4, CDSTDEL+5
^AMHREC - [#9002011]	ADDR+29, ADDR+30, INDS+2, CDST+3, CDST1+1, DEL+2, 7+1, 7+3, 8+1, 8+3 , 8+4
^AMHRPRO - [#9002011.01]	PRIMPROB+4, SUIC+2
^AMHRPRO("AD"	ADDR+22, PRIMPROB+2, SUIC+2
^AMHRPROV("AD"	ADDR+20, ADDR+22
^VA(200 - [#200]	GETPROV+3

Label References

Name	Line Occurrences
$$PRIMPROB	CDST1+1
@(	OTHER1+3
ADD1	ADD1+11
ADDSCR	ADDR+5
CDST1	CDST+4
CHECK	ADD1+9
DEL	ADDR+20, ADDR+22, ADDR+24, ADDR+25, ADDSCR+17, ADDSCR+24, CHECK+7
EXIT	ADDR+20, ADDR+22, ADDR+24, ADDR+25, ADDR+32, ADDNS+6, ADDSCR+17, ADDSCR+24, ADD1+10, ADD1+20
GETPAT	ADDSCR+17, OTHER1+1, GETPAT1+7
GETPAT1	GETPAT1+5
GETPROV	ADDSCR+24
HEADER	ADDR+13
OTHER	ADDR+29, ADD1+17, OTHERN+5
OTHER1	OTHERO+6
OTHERN	OTHERO+7
OTHERO	OTHERN+1
PAUSE	ADDR+17, ADDSCR+13, CDST+7, CDST1+2, OTHERN+7, GETPAT1+7, DEL+1, DEL+5
PCCLINK	ADDR+31, ADD1+18
RMENU	OTHERO+2
SUIC	ADDR+29, ADD1+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GETPAT1+6, 6+1
>> %1	6+1*
>> AMHACTN	ADDR+3, ADDNS+3, ADDSCR+5*, RMENU+1, CHECK+6
>> AMHADPTV	ADDR+4, ADDR+19, ADDR+27, ADDSCR+17, ADD1+1, ADD1+13, ADD1+17, ADD1+18, GETPROV+1
>> AMHANS	OTHERN+3, OTHERN+5, OTHERN+10
AMHC	GETPAT+2, GETPAT1, GETPAT1+3!, GETPAT1+5, GETPAT1+6!, GETPAT1+8!
>> AMHCDR	CDST+4, CDST+8, CDST1+1, CDST1+3
>> AMHDASH	HEADER+2, HEADER+3
>> AMHDATE	ADDR+2, ADDR+16, ADDNS+2, ADDSCR+4, ADDSCR+11, HEADER+3
>> AMHDET	ADDR+5, GETVTYP+1, GETVTYP+2, GETPAT1
AMHDR	EXIT+6!
AMHERROR	ADD1+15, EXIT+6!
AMHF	EXIT+6!
>> AMHFIRST	OTHER+1, OTHERN+1, OTHERN+13
>> AMHLEAP	SUIC+9*, SUIC+12, SUIC+13
AMHNAME	EXIT+6!
AMHNOLOG	6+2*, 6+4!
AMHNONE	EXIT+6!
AMHOKAY	ADDR+25, EXIT+6!, CHECK+2
AMHOTH	EXIT+6!
AMHPAT	ADDR+4!, ADDR+15!, ADDSCR+2!, ADDSCR+17, CDST1+1, SUIC+1, SUIC+9, SUIC+12, OTHER1+1, GETPROV+6 , GETPAT1+1, GETPAT1+4, GETPAT1+5, GETPAT1+6*, GETPAT1+7, 1+3, 1+4, 6+1, 4+1, 5+1 , 7+4
>> AMHPATCE	ADDR+15, ADDSCR+2, ADDSCR+17
AMHPTSV	EXIT+6!
>> AMHPTYPE	ADDSCR+11, ADDSCR+19, ADDSCR+20
AMHQUIT	ADDR+3, ADDNS+3, ADDSCR+5, ADD1+6, CDST1+4, EXIT+6!, 1+5
AMHR	ADDR+18, ADDR+19, ADDR+20, ADDR+22, ADDR+23, ADDR+26, ADDR+29, ADDR+30, ADDSCR+15, ADDSCR+16 , ADDSCR+17, ADDSCR+18, ADDSCR+24, ADD1+1, ADD1+7, CDST+3, CDST+4, CDST+6, CDST1+1, CDSTDEL+5 , SUIC+2, OTHERN+4, OTHERN+11, OTHERN+12, GETPROV+6, DEL+1, DEL+2, DEL+3, EXIT+6!, 6+1 , 7+1, 7+2, 7+3, 7+4, 8+1, 8+2, 8+3, 8+4, 9+1
AMHR0	EXIT+6!
>> AMHRCNT	EXIT+4
AMHRDEL	DEL+3*, EXIT+6!
>> AMHSELE	OTHERO+6*, OTHER1+1, OTHER1+3
AMHSHIGH	EXIT+6!
AMHV	EXIT+6!
AMHVDLT	DEL+2*, EXIT+6!
>> AMHVT	GETVTYP+6*
>> AMHVTYPE	ADDR+8, ADDR+19, ADDR+23, ADDR+27, ADDSCR+10, ADDSCR+11, ADD1+1, ADD1+13, GETVTYP+5, GETVTYP+6
AMHX	EXIT+6!
AMHXX	OTHERN+2!, OTHERN+4*, OTHERN+5, OTHERN+6, OTHERN+7, OTHERN+12
>> AMHZDEL	ADD1+10, CHECK+1, CHECK+8
>> AMHZED	ADD1+11, CHECK+1, CHECK+5
>> APCDOVRR	ADDR+14, ADDNS+4, ADDSCR+1*
APCDPKG	EXIT+6!
APCDV	EXIT+6!
D0	ADDR+16!, ADDSCR+12!, CDST+6!, GETPROV+6!
DA	ADDR+16!, ADDR+18!, ADDR+19, ADDR+23, ADDR+26, ADDSCR+16!, ADDSCR+17, ADDSCR+18, ADDSCR+23!, ADD1+1 , ADD1+7!, GETVTYP+3!, CDST1+1, CDST1+3, CDSTDEL+2!, CDSTDEL+5, SUIC+6!, OTHERN+8!, OTHERN+11!, GETPROV+3! , GETPROV+6!, GETPAT1+2!, 1+4, CHECK+4!
DD	ADDR+16!, ADDSCR+12!, CDST+6!, GETPROV+6!
>> DDSFILE	ADD1+1, CDST1+3, 1+4*
>> DFN	SUIC+9, SUIC+13, 8+4*
DG	GETPROV+6!
DH	GETPROV+6!
DI	GETPROV+6!
DIADD	ADDR+16!, ADDSCR+11, ADDSCR+12!, CDST+6!, CDST1!, GETPROV+6!, GETPAT1+2!
DIC	ADDR+16!, ADDSCR+11!, ADDSCR+12!, CDST+6!, GETPROV+3!, GETPROV+6!, GETPAT1+2!, 1+3
DIC("A"	GETPAT1*
DIC("DR"	ADDR+16, ADDSCR+11, GETPROV+6*
DIC(0	ADDR+16, ADDSCR+11, CDST+6, GETPROV+6, GETPAT1+2, 1+3
DIE	ADDR+16!, ADDR+18!, ADDR+19, ADDR+23, ADDR+26, ADDSCR+12!, ADDSCR+16!, ADDSCR+17, ADDSCR+18, ADDSCR+23! , ADD1+7!, CDST1+1, OTHERN+11!, GETPROV+6!
>> DIK	CDSTDEL+5*
DIMSG	ADD1+6!, CDST1+4!, 1+5!
DINUM	ADDR+16!
DIR	GETVTYP+4!, CDSTDEL+2!, SUIC+6!, OTHERN+8!, OTHERO+3!, GETPROV+3!, PAUSE+1!, CHECK+4!
DIR("A"	GETVTYP+3, CDSTDEL+2, SUIC+6, OTHERN+8, OTHERO+3, GETPROV+3, PAUSE+1, CHECK+4
DIR("B"	GETVTYP+3, CDSTDEL+2, SUIC+6, OTHERN+8, OTHERO+3, GETPROV+3, CHECK+4*
DIR(0	GETVTYP+1, GETVTYP+2, CDSTDEL+2, SUIC+6, OTHERN+8, OTHERO+3, GETPROV+3, PAUSE+1, CHECK+4*
DIRUT	GETVTYP+5, CDSTDEL+3, SUIC+7, OTHERN+9, OTHERO+4, GETPROV+3!, GETPROV+4, PAUSE+1
DIU	GETPROV+6!
DIW	GETPROV+6!
DLAYGO	ADDR+16!, ADDSCR+11, ADDSCR+12!, CDST+6!, CDST1!, GETPROV+6!, GETPAT1+2!, 1+3*
DO	ADDR+16!, ADDSCR+12!, CDST+6!, GETPROV+6!
DQ	GETPROV+6!
DR	ADDR+16!, ADDR+18!, ADDR+19, ADDR+23, ADDR+26, ADDSCR+12!, ADDSCR+16!, ADDSCR+17, ADDSCR+19, ADDSCR+20 , ADDSCR+21, ADDSCR+23!, ADD1+1, ADD1+7!, CDST1+1, CDST1+3, OTHERN+11!, GETPAT1+2!, 1+4*
DR(2	ADDR+18, ADDSCR+16
DT	CDST1+1
DTOUT	GETPROV+3!
DUOUT	GETPROV+3!, PAUSE+1
DUZ	ADDSCR+11, CDST1+1, GETPROV+3, GETPAT1+7
DUZ(2	ADDSCR+19, ADDSCR+20, ADDSCR+21
G	SUIC+2~*, SUIC+3
I	EXIT+7!
IOF	OTHERO+1, GETPROV+1, GETPAT1, HEADER+1
R	INDS~, INDS+1, INDS+2, PRIMPROB~, PRIMPROB+1, PRIMPROB+2
U	ADDR+29, ADDR+30, INDS+2, PRIMPROB+4, CDST+3, CDST1+1, SUIC+2, OTHERN+5, OTHERN+6, OTHERN+7 , GETPROV+3, DEL+2, 7+1, 7+3, 8+1, 8+3, 8+4
>> VALMBCK	EXIT+2*
>> VALMCNT	EXIT+4*
X	ADDR+16!, ADDSCR+11, ADDSCR+12!, PRIMPROB+2~, PRIMPROB+3, PRIMPROB+4, CDST+6, SUIC+2~, GETPROV+3!, GETPROV+6 , GETPAT1+5, EXIT+7!, 1+3
Y	ADDR+17, ADDR+18, ADDR+20, ADDR+24, ADDSCR+13, ADDSCR+15, ADDSCR+22, GETVTYP+6, CDST+7, CDST+8 , CDST1+2, CDSTDEL+4, SUIC+2~*, SUIC+8, OTHERN+10, OTHERO+5, OTHERO+6, GETPROV+3!, GETPROV+5, GETPROV+6 , GETPROV+7, GETPAT1+3, GETPAT1+4, EXIT+7!, 1+3, CHECK+5
Y(0	GETVTYP+6
Z	EXIT+7!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEA

Information

Source Information

Call Graph

Call Graph Total: 32

Caller Graph

Caller Graph Total: 61

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: