Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in HL7 Interface |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: XUOAAHL7

Package: Kernel

Routine: XUOAAHL7


Information

XUOAAHL7 ;OAKCIOFO/JLG - Clinical Trainee HL7 Msg Routine;8:06 AM 22 Mar 2005

Source Information

Source file <XUOAAHL7.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 5 DOLRO^%ZOSV  ($$FMADD,$$FMTHL7,$$NOW)^XLFDT  $$HLNAME^XLFNAME  $$NS^XUAF4  $$KSP^XUPARAM  
Health Level Seven 4 $$HLADDR^HLFNC  (INIT,MSH)^HLFNC2  GENERATE^HLMA  CREATE^HLTF  
VA Fileman 3 ^%DT  FILE^DIE  $$GET1^DIQ  
MailMan 2 SENDMSG^XMXAPI  $$GOTLOCAL^XMXAPIG  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Kernel 4 XU8P324  XU8P344  XU8P540  XUOAA SEND HL7 MESSAGE  

Entry Points

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
MAIL ;Send mail message to G.XUOAA CLIN TRAINEE TRANS
LOOP1 ; Generate batch messages of 100 messages long

External References

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

Used in HL7 Interface

HL7 Protocol Name Call Tags
XUOAA PMU RECACK

Global Variables Directly Accessed

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*

Label References

Name Line Occurrences
BLDMSG LOOP1+12
INIT LOOP1+4
LOOP1 LOOP1+18
MAIL LOOP1+1, LOOP1+20
RESTORE LOOP1+17
SEND LOOP1+16
STORENV LOOP1+17, RECACK+2
STUB LOOP1+5

Local Variables

Legend:

>> 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
EMAIL 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in HL7 Interface |  Global Variables Directly Accessed |  Label References |  Local Variables |  All