Routine: BCHENV

Entry Points

Name	Field # of Occurrence
HOME^%ZIS	SENDBULL+11
DT^DICRW	SENDBULL+11
^DIE	PRE+3, PRE+5, PRE+7, PRE+9, PRE+11, PRE+13, PRE+17, POST+7
^DIK	PRE+1, PRE+18, PRE+20, POST+9
^XMD	SENDER+3
$$ADD^XPDMENU	POST+12

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: POST+7
Function Call: WRITE	Prompt: "Attempt to add BHL HL7 option failed.." Line Location: POST+13
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR ZERO.",! Line Location: SENDBULL+10
Function Call: WRITE	Prompt: !,"Sending Mailman message to holders of the"_" "_BCHKEY_" "_"security key." Line Location: SENDER+2
Routine Call	%ZIS Line Location: SENDBULL+11
Routine Call	DIE Line Location: PRE+3 PRE+5 PRE+7 PRE+9 PRE+11 PRE+13 PRE+17 POST+7

Name	Line Occurrences (* Changed, ! Killed)
^BCHRPROB("B"	POST+6
^BCHTHAC("B"	PRE+4
^BCHTHAC("C"	PRE+10
^BCHTPROB - [#90002.53]	PRE+19*
^BCHTPROB("B"	POST+3, POST+4
^BCHTPROB("C"	PRE+6, PRE+8, PRE+12, PRE+16
^BCHTREF("B"	PRE+2
^BCHTSERV("B"	PRE+20
^TMP($J	SENDBULL+14!, SENDER+4!, WRITEMSG+1*
^XUSEC(	GETRECIP+4

Name	Line Occurrences
GETRECIP	SENDBULL+15
WRITEMSG	SENDBULL+15

Name	Field # of Occurrence
>> %	WRITEMSG+1*
>> BCHIN	POST+3*, POST+5, POST+7
>> BCHINE	POST+4*, POST+5, POST+6, POST+9
BCHKEY	SENDER+2, SENDER+4!, GETRECIP+3*, GETRECIP+4
>> BCHX	POST+6*, POST+7
>> CTR	GETRECIP+3, GETRECIP+4
DA	PRE+1, PRE+2, PRE+3!, PRE+4, PRE+5!, PRE+6, PRE+7!, PRE+8, PRE+9!, PRE+10 , PRE+11!, PRE+12, PRE+13!, PRE+16, PRE+17!, PRE+18, PRE+20, POST+7, POST+8!, POST+9
DA(1	PRE+18*
DIE	PRE+3!, PRE+5!, PRE+7!, PRE+9!, PRE+11!, PRE+13!, PRE+17!, POST+7, POST+8!
DIFROM	SENDBULL+13~
>> DIK	PRE+1, PRE+18, PRE+20, POST+9
DR	PRE+3!, PRE+5!, PRE+7!, PRE+9, PRE+11!, PRE+13!, PRE+17!, POST+7, POST+8!
DUZ	SENDBULL+10, SENDER+1
IOST	SENDER+2
U	PRE+19
X	BCHENV+7, PRE+19, POST+11~, POST+12, POST+13, WRITEMSG+1
XMDUZ	SENDBULL+13~, SENDER*
XMSUB	SENDBULL+13~, SUBJECT*
XMTEXT	SENDBULL+13~, SENDER+1*
XMY	SENDBULL+13~
XMY(	SENDER+1, GETRECIP+4
XMY(1	SENDER+1*
>> XPDDIQ(	BCHENV+7*
>> XPDDIQ("XPZ1"	BCHENV+6*
>> XPDDIQ("XPZ2"	BCHENV+6*
>> XPDENV	BCHENV+6
>> Y	GETRECIP+4*

Name	Field # of Occurrence
$T(WRITEMSG+%	WRITEMSG+1