XUOAAHL7 ;OAKCIOFO/JLG - Clinical Trainee HL7 Msg Routine;8:06 AM 22 Mar 2005
Source file <XUOAAHL7.m>
Package | Total | Caller Graph |
---|---|---|
Kernel | 4 | XU8P324 XU8P344 XU8P540 XUOAA SEND HL7 MESSAGE |
Name | Comments | DBIA/ICR reference |
---|---|---|
RESTORE | ; message could not be sent, restore x-ref
|
|
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. |
|
RECACK | ; receive application acknoledgement from HL7
|
|
STORENV | ; store environmental variables for logging purposes
|
|
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 |
|
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) | ;
|
|
INIT | ; initialize HL variables
; "XUOAA PMU"=event protocol, XUOAAHL=hl variables ; checks for valid event protocol |
|
;Send mail message to G.XUOAA CLIN TRAINEE TRANS
|
||
LOOP1 | ; Generate batch messages of 100 messages long
|
Name | Field # of Occurrence |
---|---|
^%DT | BLDMSG+25 |
DOLRO^%ZOSV | STORENV+5 |
FILE^DIE | BLDMSG+72 |
$$GET1^DIQ | BLDMSG+8, BLDMSG+9, BLDMSG+10, BLDMSG+11, BLDMSG+12, BLDMSG+13, BLDMSG+16, BLDMSG+18, BLDMSG+19, BLDMSG+20 , BLDMSG+21, BLDMSG+28, BLDMSG+30, BLDMSG+33, BLDMSG+34, BLDMSG+42, BLDMSG+49 |
$$HLADDR^HLFNC | BLDMSG+15 |
INIT^HLFNC2 | INIT+3 |
MSH^HLFNC2 | BLDMSG+54 |
GENERATE^HLMA | SEND+3 |
CREATE^HLTF | STUB+3 |
$$FMADD^XLFDT | STORENV+3 |
$$FMTHL7^XLFDT | BLDMSG+27, BLDMSG+31, BLDMSG+35, BLDMSG+38, BLDMSG+50 |
$$NOW^XLFDT | STORENV+3 |
$$HLNAME^XLFNAME | BLDMSG+7 |
SENDMSG^XMXAPI | MAIL+8, MAIL+10 |
$$GOTLOCAL^XMXAPIG | MAIL+8 |
$$NS^XUAF4 | BLDMSG+39, BLDMSG+44 |
$$KSP^XUPARAM | BLDMSG+39 |
HL7 Protocol Name | Call Tags |
---|---|
XUOAA PMU | RECACK |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("HLS" | LOOP1+2!, LOOP1+19!, BLDMSG+57*, BLDMSG+59*, BLDMSG+61*, BLDMSG+63*, BLDMSG+65*, BLDMSG+67* |
^VA(200 - [#200] | LOOP1+1, LOOP1+7, LOOP1+8, LOOP1+11, LOOP1+13!, LOOP1+15, RESTORE+2* |
^XTMP( | STORENV+3* |
Name | Line Occurrences |
---|---|
BLDMSG | LOOP1+12 |
INIT | LOOP1+4 |
LOOP1 | LOOP1+18 |
LOOP1+1, LOOP1+20 | |
RESTORE | LOOP1+17 |
SEND | LOOP1+16 |
STORENV | LOOP1+17, RECACK+2 |
STUB | LOOP1+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | BLDMSG+23~, BLDMSG+24* |
ADDR | BLDMSG+1~, BLDMSG+15*, BLDMSG+61 |
APP | STORENV+1~, STORENV+2*, STORENV+3 |
CITY | BLDMSG+1~, BLDMSG+11*, BLDMSG+14 |
CNT | OAA+26~, LOOP1+3*, BLDMSG+56*, BLDMSG+57, BLDMSG+58*, BLDMSG+59, BLDMSG+60*, BLDMSG+61, BLDMSG+62*, BLDMSG+63 , BLDMSG+64*, BLDMSG+65, BLDMSG+66*, BLDMSG+67 |
CS | OAA+26~, INIT+6*, BLDMSG+7, BLDMSG+17, BLDMSG+29, BLDMSG+40, BLDMSG+46, BLDMSG+48, BLDMSG+63, BLDMSG+65 |
DEGLEV | BLDMSG+1~, BLDMSG+19*, BLDMSG+67 |
DIERR | BLDMSG+70~ |
DOB | BLDMSG+1~, BLDMSG+49*, BLDMSG+50*, BLDMSG+61 |
DT | BLDMSG+71, STORENV+2, STORENV+3 |
DUZ | MAIL+8, MAIL+10 |
BLDMSG+1~, BLDMSG+18*, BLDMSG+61 | |
ENTERDT | BLDMSG+1~, BLDMSG+34*, BLDMSG+35*, BLDMSG+36*, BLDMSG+65 |
ERROR | OAA+26~, LOOP1+3*, LOOP1+4, LOOP1+5, LOOP1+17, INIT+4*, STUB+4*, SEND+5* |
FACILITY | BLDMSG+1~, BLDMSG+39*, BLDMSG+40*, BLDMSG+59 |
FDA | BLDMSG+70~ |
FDA(200 | BLDMSG+71* |
FS | OAA+26~, INIT+5*, BLDMSG+59, BLDMSG+61, BLDMSG+63, BLDMSG+65, BLDMSG+67 |
GEOLOC | BLDMSG+1~, BLDMSG+14*, BLDMSG+15 |
>> HL("ACKCD" | RECACK+1 |
IEN | BLDMSG~, BLDMSG+4, BLDMSG+6, BLDMSG+8, BLDMSG+9, BLDMSG+10, BLDMSG+11, BLDMSG+12, BLDMSG+13, BLDMSG+16 , BLDMSG+18, BLDMSG+19, BLDMSG+20, BLDMSG+21, BLDMSG+28, BLDMSG+30, BLDMSG+33, BLDMSG+34, BLDMSG+38, BLDMSG+42 , BLDMSG+48, BLDMSG+49, BLDMSG+71 |
IFN | BLDMSG+1~, BLDMSG+48*, BLDMSG+61 |
INDX | OAA+26~, LOOP1+3*, LOOP1+7*, LOOP1+8, LOOP1+11, LOOP1+12, LOOP1+13, LOOP1+15, RESTORE+1*, RESTORE+2 |
LASTYR | BLDMSG+2~, BLDMSG+21*, BLDMSG+24, BLDMSG+27*, BLDMSG+63 |
LN | MAIL+1~, MAIL+2*, MAIL+5*, MAIL+6 |
MSGHDR | BLDMSG+2~, BLDMSG+54, BLDMSG+57 |
>> MSGID | SEND+6* |
MSGSBJ | MAIL+1~, MAIL+3*, MAIL+8, MAIL+10 |
MSGTXT | MAIL+1~, MAIL+4* |
MSGTXT( | MAIL+5*, MAIL+6* |
NAME | BLDMSG+2~, BLDMSG+7*, BLDMSG+61 |
PROGSTD | BLDMSG+2~, BLDMSG+20*, BLDMSG+63, BLDMSG+65 |
RECORDT | BLDMSG+2~, BLDMSG+38*, BLDMSG+59 |
RESULT | OAA+26~, SEND+3, SEND+4, SEND+5, SEND+6 |
SERVICE | BLDMSG+2~, BLDMSG+28*, BLDMSG+29*, BLDMSG+61, BLDMSG+65 |
SS | OAA+26~, INIT+7* |
SSN | BLDMSG+2~, BLDMSG+16*, BLDMSG+17*, BLDMSG+61 |
STATE | BLDMSG+2~, BLDMSG+12*, BLDMSG+14 |
STREET | BLDMSG+2~, BLDMSG+8*, BLDMSG+9*, BLDMSG+10*, BLDMSG+15 |
TERMDT | BLDMSG+2~, BLDMSG+30*, BLDMSG+31*, BLDMSG+32*, BLDMSG+65 |
TITLE | BLDMSG+3~, BLDMSG+33*, BLDMSG+61 |
TOTAL | OAA+26~, OAA+28*, LOOP1+14*, MAIL+6 |
U | INIT+4, BLDMSG+9, BLDMSG+10, BLDMSG+14, BLDMSG+40, BLDMSG+46, SEND+4, SEND+5, STORENV+3 |
VHATF | BLDMSG+3~, BLDMSG+42*, BLDMSG+43*, BLDMSG+44*, BLDMSG+46*, BLDMSG+65 |
X | BLDMSG+3~, BLDMSG+24*, STORENV+1~, STORENV+4* |
XTMP | STORENV+1~, STORENV+2*, STORENV+3, STORENV+4 |
XUCNT | OAA+26~ |
XUHLDT | OAA+26~, STUB+3 |
XUHLDT1 | OAA+26~, STUB+3 |
XUHLMID | OAA+26~, STUB+3, STUB+4, BLDMSG+54 |
XUMTIEN | OAA+27~, STUB+3, SEND+3 |
XUNAME | BLDMSG+3~, BLDMSG+7 |
XUNAME("FIELD" | BLDMSG+6* |
XUNAME("FILE" | BLDMSG+6* |
XUNAME("IENS" | BLDMSG+6* |
XUOAA | OAA+27~, LOOP1+2!, LOOP1+3*, LOOP1+7, LOOP1+9*, LOOP1+18, LOOP1+19!, BLDMSG+54 |
XUOAA( | LOOP1+11*, BLDMSG+38, RESTORE+1, RESTORE+2 |
XUOAAHL | OAA+27~, INIT+3, INIT+4, BLDMSG+54 |
XUOAAHL("ECH" | INIT+6, INIT+7 |
XUOAAHL("ETN" | BLDMSG+59 |
XUOAAHL("FS" | INIT+5 |
Y | BLDMSG+3~, BLDMSG+27 |
ZERR | BLDMSG+70~ |
ZIP | BLDMSG+3~, BLDMSG+13*, BLDMSG+14 |