Routine: XUOAAHL7

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

Package	Total	Caller Graph
Kernel	6	XU8P324 XU8P344 XU8P540 XUOAA PMU XUOAA SEND HL7 MESSAGE ^ORD(101

Entry Points

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
MAIL	;Send mail message to G.XUOAA CLIN TRAINEE TRANS

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

Customize PDF page

Package: Kernel

Routine: XUOAAHL7

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Used in HL7 Interface

Global Variables Directly Accessed

Label References

Local Variables

Legend: