XUOAAHL7 ;OAKCIOFO/JLG - Clinical Trainee HL7 Msg Routine;8:06 AM 22 Mar 2005
Source file <XUOAAHL7.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OAA | ; entry point for the scheduled option [XUOAA SEND HL7 MESSAGE]
; This routine generates an HL7 PMU message, Update Personnel Record, ; based on data pointed by the ^VA(200,"ATR",ien) cross-reference. ; The type of message is PMU~B02 with the following structure: ; MSH,EVN,STF,PRA,ORG,EDU ; The data generated for the STF,PRA,ORG, and EDU are not repeating. |
|
| LOOP1 | ; Generate batch messages of 100 messages long
|
|
| INIT | ; initialize HL variables
; "XUOAA PMU"=event protocol, XUOAAHL=hl variables ; checks for valid event protocol |
|
| STUB | ; create msg stub for batch msg
; XUHLMID=batch msg id, XUMTIEN=file 772 ien ; XUHLDT=FM date/time, XUHLDT1=HL7 date/time |
|
| BLDMSG(IEN) | ;
|
|
| SEND | ; send complete batch message
; "XUOAA PMU"=event protocol, LB=batch array type ; RESULT="msgid^error code^error msg" , XUMTIEN=file 772 ien from STUB |
|
| RESTORE | ; message could not be sent, restore x-ref
|
|
| RECACK | ; receive application acknoledgement from HL7
|
|
| STORENV | ; store environmental variables for logging purposes
|
|
| ;Send mail message to G.XUOAA CLIN TRAINEE TRANS
|
| HL7 Protocol Name | Call Tags |
|---|---|
| XUOAA PMU | RECACK |
