Routine: AMHLESAN

Information

AMHLESAN ; IHS/CMI/LAB - DISPLAY/EDIT TREATMENT NOTES ;

Source file <AMHLESAN.m>

Package	Total	Call Graph
Registration	3	EN^VALM TERM^VALM0 ($$FTIME,CLEAR,FULL)^VALM1
VA Fileman	2	^DIE ^DIR
IHS VA Utilities	1	^XBFMK
Kernel	1	DISP^XQORM1
Mental Health Social Services	1	EN^AMHLESA1

Package	Total	Caller Graph
Mental Health Social Services	2	AMHLEE AMHLEP3

Name	Comments	DBIA/ICR reference
DISP	;
HELP	;EP -- help code
BACK	;go back to listman
EXPND	; -- expand code
SELECT	;
HDR	;EP -- header code
EP1(DFN,AMHR)	;EP CALLED FROM PROTOCOL
20	;;Referral(s) Made to;;D;;7905
21	;;Other Comments;;D;;7724
INIT	;EP -- init variables and list array
1	;;Parents;;D;;7701
GATHER1	;
3	;;Lives With;;D;;7703
2	;;Guardians;;D;;7702
5	;;Person Referring Info;;D;;7706
4	;;Spouse/Partner Info;;D;;7704
7	;;Suspected Perpetrator Info;;D;;7901
6	;;Relation To Victim;;D;;7707
9	;;Prior Incidents Noted;;D;;7717
8	;;History;;D;;7709
EN	; EP -- main entry point for AMH UPDATE ACTIVITY RECORDS
D	;
77	;;Services Provided up to time of review;;D;;7808
76	;;Risk;;D;;7806
75	;;Assessment: Strengths Identified;;D;;7805
74	;;Assessment: Problems Identified;;D;;7804
73	;;Outcome Reasons;;D;;7803
72	;;Outcome;;D;;7802
71	;;Reasons for Review;;D;;7801
78	;;Recommendations/Comments;;D;;7809
11	;;Assessment: Strengths Identified;;D;;7712
10	;;Assessment: Problems Identified;;D;;7711
13	;;Services Provided/Treatment Plan;;D;;7715
12	;;Risk for Recurrence;;D;;7713
15	;;Date of Examination;;D;;7719
14	;;Examining Physician;;D;;7902
17	;;Date/Time Complaint Filed;;D;;7722
16	;;Police Contacted: Y/N;;D;;7721
19	;;Officer Name and Agency;;D;;7904
18	;;Complaint #;;D;;7903
GATHER	;EP - called from AMHUAR
EXIT	; -- exit code

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SELECT+1
Function Call: WRITE	Prompt: !,"No items selected." Line Location: SELECT+2
Function Call: WRITE	Prompt: !,"No items selected." Line Location: SELECT+3
Function Call: WRITE	Prompt: ! Line Location: D+1
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+2
Routine Call	DIE Line Location: D+2
Routine Call	DIR Line Location: SELECT+1

FileNo	Call Tags
^AMHREC - [#9002011]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	EP1+2, EP1+3
^DPT - [#2]	HDR+1

Name	Field # of Occurrence
>> AMHC	SELECT+6*, SELECT+8
AMHCOL	EXIT+1!
AMHE	GATHER+3, GATHER1+1, EXIT+1!
AMHGNUM	EXIT+1!
>> AMHI	SELECT+6*
AMHLEL	EXIT+1!
AMHLESAN	GATHER+1!
AMHLESAN(	GATHER+5, GATHER1+3
AMHLESAN("IDX"	GATHER+5, GATHER1+3
AMHLETXT	EXIT+1!
AMHLINE	GATHER+1, GATHER+5, GATHER1+3*, INIT+2, EXIT+1!
AMHPTP	EXIT+1!
AMHQUIT	GATHER+1!
AMHR	EP1~, EP1+1, EP1+2, EP1+3, D+2, DISP+1
AMHRCNT	GATHER+1, GATHER+5, GATHER1+3*, EXIT+1!
AMHTPN	EXIT+1!
>> AMHVTYPE	EP1+3*, SELECT+1, SELECT+7, SELECT+8, GATHER+2
>> AMHX	SELECT+7, SELECT+8, SELECT+9
>> AMHX1	SELECT+9*, SELECT+10
>> AMHX2	SELECT+9*, D+2
>> AMHY	SELECT+4*, SELECT+6
>> DA	D+2*
DFN	EP1~, HDR+1
>> DIE	D+2*
DIR	BACK+5!, SELECT+1!
DIR("A"	SELECT+1*
DIR(0	SELECT+1*
>> DIRUT	SELECT+1*, SELECT+3
>> DR	D+2*
>> DUOUT	SELECT+1
I	BACK+6!
IOF	SELECT+5
U	EP1+3, HDR+1
>> VALMBCK	BACK+2*
VALMCC	EN+1*, EXIT+2!
>> VALMCNT	INIT+2*
VALMHDR	EP1+7!, EXIT+2!
VALMHDR(1	HDR+1*
X	EP1+8!, BACK+6!, GATHER+4, GATHER+5, GATHER1+2, GATHER1+3, HELP+1*
Y	EP1+8!, BACK+6!, SELECT+2, SELECT+4, SELECT+8*
Z	BACK+6!