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 | 
| 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 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| 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* |