Routine: HLCSMM

Information

HLCSMM ;ISC/MTC-Create Mail Message and Entry in the HL7 Transmission File ;11/03/2000 08:53 [ 04/02/2003 8:37 AM ]

Source file <HLCSMM.m>

Package	Total	Call Graph
Health Level Seven	3	$$PARAM^HLCS2 STATUS^HLCSMM1 $$SITE^HLZFUNC
Kernel	1	DUZ^XUP
MailMan	1	SENDMSG^XMXAPI
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Health Level Seven	1	HLCSMM1

Name	Comments	DBIA/ICR reference
EN(HLD0,HLD1)	; This routine will send a Message from the Out Queue to the ; MailGroup Specified in the Logical Link file (#870). It is called ; from HLCSMM1 routine that monitors the queue for a link. The MM LLP ; uses <CR> stuffing to indicate the end of segments. The message ; will use the following format within the XMB global. ; ^XMB(3.9,..1)=Segment 1 ; ^XMB(3.9,..2)="" - End of segment 1 ; ^XMB(3.9,..3)=Segment 2 ; ^XMB(3.9,..4)=Continuation of segment 2 ; ^XMB(3.9,..5)="" - End of segment 2 ; " " ; This processing will enable segment greater than 245.
NEWMM	;Patch 66-introduce new Mailman API's
ERROR	;-- send Mail Message indicating error

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+32
^HLCS(870 - [#870]	EN+20, EN+22, NEWMM+9*
^TMP("XMERR"	ERROR+2, ERROR+9, ERROR+12, ERROR+13, ERROR+14, ERROR+20!
^TMP($J	ERROR+5!, ERROR+10, ERROR+13, ERROR+14, ERROR+15, ERROR+16*, ERROR+20!
^XMB(3.8 - [#3.8]	NEWMM+4

Name	Line Occurrences
ERROR	NEWMM+10

Name	Field # of Occurrence
>> %	EN+32
DUZ	NEWMM+2~, NEWMM+7, ERROR+4~, ERROR+19
HLD0	EN~, EN+20, EN+22, NEWMM+9
HLD1	EN~, NEWMM+9
>> HLDAN	EN+34*, ERROR+16
>> HLDT	EN+32*, NEWMM+3
HLERR	EN+18~
HLFAC	EN+18~, EN+28, EN+30, NEWMM+3
HLI	EN+18~
HLI0	EN+18~
HLMSTXT	EN+18~
>> HLNXST	ERROR+6*
HLOGLINK	EN+18~, EN+20*, EN+34
HLPARAM	ERROR+3~, ERROR+7*
HLPARENT	EN+18~
HLPARM	EN+18~, EN+22*, NEWMM+4
HLPTXT	EN+18~
HLSERV	EN+18~
HLX	ERROR+3~, ERROR+8, ERROR+9, ERROR+12, ERROR+13, ERROR+14
HLY	ERROR+3~, ERROR+11, ERROR+12, ERROR+13
HLZ	ERROR+3~, ERROR+8, ERROR+10, ERROR+13, ERROR+14, ERROR+15, ERROR+16
U	EN+34, NEWMM+4, ERROR+7
XMERR	NEWMM+10, ERROR+1, ERROR+20!
XMINSTR	NEWMM+1~, NEWMM+7, ERROR+3~, ERROR+19
XMINSTR("ADDR	FLAGS" , NEWMM+6*
XMINSTR("FROM"	NEWMM+5, ERROR+18
XMSUB	NEWMM+1~, NEWMM+3, NEWMM+7, ERROR+3~, ERROR+17, ERROR+19
XMTO	NEWMM+1~, NEWMM+4*, NEWMM+7, ERROR+3~, ERROR+19
XMTO(	ERROR+7*
XMTO("G."	ERROR+7*
>> Y	EN+32*