Routine: ANSMENU

Package	Total	Call Graph
Kernel	1	^%ZIS
Nursing Acuity	1	(P1,PAUSE)^ANSDIC

Package	Total	Caller Graph
Nursing Acuity	6	ANSEA ANSEAD ANSEAV ANSES ANSQ ANSQRP

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;EP;TO DISPLAY HEADER
HEAD1
TITLE	;EP;TO DISPLAY TITLE
MM	;EP
TEXT	;;WARNING: RESTRICTED PATIENT DATA, UNAUTHORIZED
H1
RV	;WARNING MESSAGE WHEN REVERSE VIDEO NOT DEFINED
SU	;EP
HDVS
AR	;EP
EXIT
CLEAN	;EP;TO KILL SELECTD VARIABLES
HOME	;EP;TO SET TERMINAL CONTROL VARIABLES

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?80-$L(ANSZ)/2,ANSZ Line Location: EXIT+1
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !?80-$L(ANSX)\2,ANSX Line Location: HEAD1+2
Function Call: WRITE	Prompt: *7,"WARNING",?$X+5 Line Location: HEAD1+4
Function Call: WRITE	Prompt: !?80-$L(ANSX)\2,ANSX Line Location: H1+1
Function Call: WRITE	Prompt: @IOF,!?10,"WARNING WARNING WARNING WARNING WARNING" Line Location: RV+1
Function Call: WRITE	Prompt: !!,7,7,"Your DEVICE and/or TERMINAL TYPE are not properly defined.",!,"The REVERSE VIDEO ON and/or REVERSE VIDEO OFF are not properly defined." Line Location: RV+2
Function Call: WRITE	Prompt: !,"This is the responsibility of your computer site manager." Line Location: RV+3
Function Call: WRITE	Prompt: !!,"Please contact this individual for assistance. Let them know that you",!,"are logged in on device NO.: ",$I Line Location: RV+4
Routine Call	%ZIS Line Location: TITLE+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	HOME+1
^DIC(4 - [#4]	HDVS
^DIC(9.4 - [#9.4]	HDVS+1
^VA(200 - [#200]	HEAD1+2

Name	Field # of Occurrence
^(0	HEAD1+2, HDVS

Name	Field # of Occurrence
ANSBOX	CLEAN+1!
>> ANSJ	HEAD1*
ANSOF	HEAD1+7, HOME+1*, HOME+2, CLEAN+1!
ANSON	HEAD1+7, HOME+1*, HOME+2, CLEAN+1!
ANSPPO	CLEAN+1!
ANSPTX	CLEAN+1!
ANSREV	CLEAN+1!
ANSRR	CLEAN+1!
ANSSOF	CLEAN+1!
ANSTRM	EXIT!, HOME+1*, CLEAN+1!
ANSTRN	CLEAN+1!
ANSX	EXIT!, HEAD1+2, HEAD1+4, H1, H1+1, HDVS, HDVS+3
ANSZ	EXIT!, EXIT+1!, HDVS+1, HDVS+2, MM+1, AR+1, SU+1, CLEAN+1!
DUZ	HEAD1+2
DUZ(2	HDVS
IO	HEAD+2
IOF	HEAD+1, RV+1
>> IOP	TITLE+1*
IOST	HDVS+2
IOST(0	HOME+1
U	HEAD1+2, HDVS, HDVS+1, HOME+1

Name	Field # of Occurrence
$T(TEXT+ANSJ	H1