Routine: BZXPTMSG

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP -- MAIN ENTRY POINT TO ADD/EDIT BZX PATIENT MESSAGE FILE ENTRIES
SPEC(D0,BZXZIS5,BZXZIS7,BZXCOLOR)	;
ADD	;----- ADD/EDIT BZX PATIENT MESSAGE FILE ENTRY
COLORS(BZXCOLOR)	;
MSG(D0)	;EP;CALLED BY AUPNLK
RESET(BZXZIS5,BZXZIS7,BZXCOLOR)	;
TXT	;----- PRINT OPTION TEXT
DESC	;----- ROUTINE DESCRIPTION

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADD+14
Function Call: WRITE	Prompt: !,X Line Location: TXT+3
Function Call: WRITE	Prompt: *7 Line Location: MSG+20
Function Call: WRITE	Prompt: !,$G(^BZXPTMSG(1991258,D0,99.01)) Line Location: MSG+21
Function Call: WRITE	Prompt: ! Line Location: MSG+25
Function Call: WRITE	Prompt: @($P(BZXZIS5,U,8)) Line Location: SPEC+6
Function Call: WRITE	Prompt: @($P(BZXZIS5,U,4)) Line Location: SPEC+7
Function Call: WRITE	Prompt: @($P(BZXZIS7,U)) Line Location: SPEC+8
Function Call: WRITE	Prompt: @(BZXCOLOR(BZXCOL)) Line Location: SPEC+10
Function Call: WRITE	Prompt: @($P(BZXZIS5,U,9)) Line Location: RESET+3
Function Call: WRITE	Prompt: @($P(BZXZIS5,U,5)) Line Location: RESET+4
Function Call: WRITE	Prompt: @($P(BZXZIS7,U,3)) Line Location: RESET+5
Function Call: WRITE	Prompt: @$G(BZXCOLOR("RESET")) Line Location: RESET+6
Function Call: WRITE	Prompt: 27,91,*109 Line Location: RESET+7
Function Call: WRITE	Prompt: $C(27,91,109) Line Location: RESET+8
Routine Call	%ZIS Line Location: EN+4 MSG+11
Routine Call	DIE Line Location: ADD+13
Routine Call	DIC Line Location: ADD+7
Routine Call	DIR Line Location: MSG+30

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	MSG+15, MSG+16
^BZXPTMSG(1991258	MSG+7, MSG+21, SPEC+5, SPEC+9

Name	Field # of Occurrence
BZXCOL	SPEC+3~, SPEC+9*, SPEC+10
BZXCOLOR	MSG+5~, MSG+13, MSG+18, MSG+23, SPEC~, RESET~, COLORS~
BZXCOLOR(	SPEC+10
BZXCOLOR("BLACK"	COLORS+3*
BZXCOLOR("BLUE"	COLORS+7*
BZXCOLOR("CYAN"	COLORS+9*
BZXCOLOR("GREEN"	COLORS+5*
BZXCOLOR("MAGENTA"	COLORS+8*
BZXCOLOR("RED"	COLORS+4*
BZXCOLOR("RESET"	RESET+6, COLORS+11*
BZXCOLOR("WHITE"	COLORS+10*
BZXCOLOR("YELLOW"	COLORS+6*
BZXDATA	SPEC+3~, SPEC+5*, SPEC+6, SPEC+7, SPEC+8
BZXZIS5	MSG+5~, MSG+15*, MSG+18, MSG+23, SPEC~, SPEC+6, SPEC+7, RESET~, RESET+3, RESET+4
BZXZIS7	MSG+5~, MSG+16*, MSG+18, MSG+23, SPEC~, SPEC+8, RESET~, RESET+5
D0	MSG~, MSG+7, MSG+18, MSG+21, MSG+27, SPEC~, SPEC+5, SPEC+9
DA	ADD+2~, ADD+10*
DIC	ADD+2~, ADD+4*, ADD+11
DIC(0	ADD+5*
DIE	ADD+2~, ADD+11*
DIR	MSG+5~
DIR("A"	MSG+29*
DIR(0	MSG+28*
DLAYGO	ADD+2~, ADD+6*
DR	ADD+2~, ADD+12*
DTOUT	ADD+2~, ADD+8
DUOUT	ADD+2~, ADD+8
I	TXT+2~, TXT+3*
IOST(0	MSG+15, MSG+16
U	SPEC+6, SPEC+7, SPEC+8, SPEC+9, RESET+3, RESET+4, RESET+5
X	ADD+2~, TXT+2~, TXT+3*, MSG+5~
Y	ADD+2~, ADD+9, ADD+10, MSG+5~

Name	Field # of Occurrence
$T(DESC+I	TXT+3