Routine: BDMFMENU

Information

BDMFMENU ; IHS/CMI/LAB - CONTROL HEADINGS AND MENUS ;

Source file <BDMFMENU.m>

Package	Total	Call Graph
Diabetes Registry	2	DIR^BDMFDIC ^BDMFEXIT
Kernel	2	^%ZIS ENS^%ZISS

Package	Total	Caller Graph
Diabetes Registry	8	BDMFLOW BDMFUTIL BDMLET BDMTRANS BDMVRL BDMVRL3 BDMVRL6 BDMVRL8

Name	Comments	DBIA/ICR reference
TITLE	;EP;TO DISPLAY TITLE
TEXT	;;THIS SYSTEM CONTAINS CONFIDENTIAL PATIENT INFORMATION COVERED
U1	;EP;TO TURN UNDERLINE ON
DA	;EP
P1	;EP;
HOME	;EP;TO SET TERMINAL CONTROL VARIABLES
RV	;WARNING MESSAGE WHEN REVERSE VIDEO NOT DEFINED
RP	;EP
LM	;EP
AS17	;
AS16	;
WARNING	;EP;TO DISPLAY WARNING MESSAGE
ASPR	;EP
RM	;EP
AS19	;
AS18	;
HEAD	;EP;TO DISPLAY HEADER
PAUSE	;EP;
DASH1(Z)	;EP;TO WRITE DASHES WITHOUT LINE FEED
HDVS
PDM	;EP
AR	;EP
AT	;EP
CLEAN	;EP;TO KILL SELECTD VARIABLES
RMAN	;EP
U2	;EP;TO TURN UNDERLINE OFF
DASH(Z)	;EP;TO WRITE LINE OF DASHES
HEAD1
MM	;EP
H1
AS	;EP
EXIT
B1	;EP;TO TURN BLINK ON
B2	;EP;TO TURN BLINK OFF

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(BDMY)/2,BDMY Line Location: EXIT+1
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !?80-$L(BDMX)\2,BDMX Line Location: H1+1
Function Call: WRITE	Prompt: @IOF Line Location: RV+1
Function Call: WRITE	Prompt: !?10,"WARNING WARNING WARNING WARNING WARNING" Line Location: RV+2
Function Call: WRITE	Prompt: 7,7 Line Location: RV+3
Function Call: WRITE	Prompt: !!,"Your DEVICE and/or TERMINAL TYPE are not properly defined to work with the ARMS" Line Location: RV+4
Function Call: WRITE	Prompt: !,"system. The REVERSE VIDEO ON and/or REVERSE VIDEO OFF are not properly defined." Line Location: RV+5
Function Call: WRITE	Prompt: !,"This is the responsibility of the AREA OFFICE computer site manager." Line Location: RV+6
Function Call: WRITE	Prompt: !!,"Please contact this individual for assistance. Let him/her know that you" Line Location: RV+7
Function Call: WRITE	Prompt: !,"are logged in on device NO.: ",$I Line Location: RV+8
Function Call: WRITE	Prompt: ! Line Location: DASH+2
Function Call: WRITE	Prompt: $$DASH1(Z) Line Location: DASH+3
Function Call: WRITE	Prompt: "-" Line Location: DASH1+3
Function Call: WRITE	Prompt: !! Line Location: WARNING+3
Function Call: WRITE	Prompt: ?$X+5,"WARNING" Line Location: WARNING+4
Function Call: WRITE	Prompt: ! Line Location: P1+2
Routine Call	%ZIS Line Location: TITLE+3

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

Name	Line Occurrences
$$DASH1	DASH+3
B1	WARNING+1
B2	WARNING+5
H1	HEAD1
HDVS	HEAD1+1
HEAD	TITLE+5
HOME	TITLE+4
P1	RV+9
RV	HEAD1+7, HOME+5
TITLE	RM+2, AS+2, ASPR+2, AR+2, AT+2, AS19+2, AS18+2, AS17+2, AS16+2, MM+2 , RP+2, DA+2, LM+2, PDM+2, RMAN+2

Name	Field # of Occurrence
ACRI	WARNING+2~, WARNING+4*
BDMBOX	CLEAN+1!
BDMFINSS	TITLE+1*, CLEAN+1!
>> BDMJ	HEAD1*
BDMOF	HEAD1+7, HOME+4*, HOME+5, CLEAN+1!
BDMON	HEAD1+7, HOME+3*, HOME+5, CLEAN+1!
>> BDMOUT	P1+6*
BDMPPO	CLEAN+1!
BDMPTX	CLEAN+1!
>> BDMREGNM	EXIT+1
BDMREV	CLEAN+1!
BDMRR	CLEAN+1!
BDMSOF	CLEAN+1!
BDMTRM	EXIT!, HOME+1*, HOME+3, HOME+4, CLEAN+1!
BDMTRN	CLEAN+1!
BDMX	EXIT!, HEAD1+3, HEAD1+4, HEAD1+5, H1, H1+1, HDVS*, HDVS+6
>> BDMXY	HOME+2*
BDMY	EXIT+1, RM+1, AS+1, ASPR+1, AR+1, AT+1, AS19+1, AS18+1, AS17+1, AS16+1 , MM+1, RP+1, DA+1, LM+1, PDM+1, RMAN+1, CLEAN+1!
BDMZ	EXIT!, HDVS+2, HDVS+3, HDVS+4*, HDVS+5, CLEAN+1!
DIR	PAUSE+2!
DIR("A"	P1+4*
DIR(0	P1+3*
>> DN	P1+6*
DUZ	HEAD1+2, HEAD1+3
DUZ(2	HDVS
I	DASH1+2~, DASH1+3*
>> IOBOFF	B1+1, B2+1
>> IOBON	B1+1
IOF	HEAD+1, RV+1
>> IOP	TITLE+2*
IOST	HDVS+5, PAUSE+1
IOST(0	HOME+1, HOME+2
>> IOUOFF	U1+1, U2+1
>> IOUON	U1+1
U	HEAD1+3, HDVS, HDVS+3, HOME+3, HOME+4
X	P1+1~, P1+6
Y	P1+1~
Z	DASH~, DASH+1, DASH+3, DASH1~, DASH1+1, DASH1+3, P1+1~