Routine: AMHLETP4

Information

AMHLETP4 ; IHS/CMI/LAB - MENTAL HLTH ROUTINE ;

Source file <AMHLETP4.m>

Package	Total	Call Graph
VA Fileman	2	^DIR ^DIWP
IHS VA Utilities	1	$$VAL^XBDIQ1

Package	Total	Caller Graph
Mental Health Social Services	4	AMHLEI3 AMHLETP3 AMHLETPP AMHPOST1

Name	Comments	DBIA/ICR reference
NWP	;EP
GATHER	;gather up and display all problems/goals/methods
WPS	;EP
S	;
EOP	;
WP	;EP - Entry point to print wp fields pass node in AMHNODE

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EOP+1
Routine Call	DIR Line Location: EOP+1

Name	Line Occurrences (* Changed, ! Killed)
^AMHPTPP - [#9002011.62]	GATHER+3, GATHER+6
^AMHPTPP("AD"	GATHER+3
^AMHPTXP - [#9002011.56]	WP+5, WP+7
^DIC - [#1]	NWP+3
^TMP("AMHPTPP"	GATHER+1!, GATHER+5, S+2
^UTILITY($J	NWP+1!, WPS+1, WPS+3!

Name	Line Occurrences
S	GATHER+5, GATHER+6, GATHER+7, GATHER+8

Name	Field # of Occurrence
>> AMH0	GATHER+3*, GATHER+5
AMHA	GATHER+2~, GATHER+3*, GATHER+5, GATHER+6, GATHER+7, GATHER+8
AMHB	GATHER+2~
AMHC	GATHER+2~
AMHCOL	NWP+4, WPS+3!
AMHDA	WP+5, WP+7, NWP+3, WPS+3!
AMHFILE	NWP+3, WPS+3!
AMHG	NWP+3*, NWP+4, NWP+5, WPS+3!
AMHL	GATHER+2~
>> AMHLINE	GATHER+3, GATHER+5, S+1, S+2
AMHNODE	WP+5, WP+7, NWP+3, WPS+3!
AMHPCNT	WP+2~, WP+3, WP+6, WP+7, WPS+1*
AMHPRNM	WP+4!
AMHPRNM(	WP+7, WPS+1
>> AMHQUIT	EOP+1*
>> AMHRCNT	GATHER+3, GATHER+4, GATHER+5
>> AMHTP	GATHER+3
AMHX	WP+2~, WP+5, WP+7, NWP+2, NWP+4*
DIR	EOP+1!
DIR("A"	EOP+1*
DIR(0	EOP+1*
DIWF	WPS+2!
DIWL	NWP+4*, WPS+1, WPS+2!
DIWR	NWP+4*, WPS+2!
>> DTOUT	EOP+1
>> IOINHI	GATHER+5
>> IOINORM	GATHER+5
>> IORVOFF	GATHER+5
>> IORVON	GATHER+5
U	GATHER+5
X	GATHER+2~, GATHER+5, GATHER+6, GATHER+7, GATHER+8, NWP+5*, S+2
Y	GATHER+2~, GATHER+6, NWP+5, EOP+1
Z	GATHER+2~, WPS+1*, WPS+2!