55 lines
1.4 KiB
Mathematica
55 lines
1.4 KiB
Mathematica
MHV7B0 ;WAS/GPM - HL7 MESSAGE BUILDER FOR MFN^Z01 ; [8/22/05 6:21pm]
|
|
;;1.0;My HealtheVet;;Aug 23, 2005
|
|
;;Per VHA Directive 2004-038, this routine should not be modified.
|
|
;
|
|
MFNZ01(MSGROOT,ADM,ERR,DATAROOT,HL) ;Build MFN^Z01
|
|
;
|
|
; Input:
|
|
; MSGROOT - (required) Global root of message
|
|
; ADM - (required) Array of administrative data
|
|
; ERR - (Not used) For compatibility with MHV7T
|
|
; DATAROOT - (Not used) For compatibility with MHV7T
|
|
; HL - (required) Array of HL package variables
|
|
; Output:
|
|
; MFN^Z01 message in MSGROOT
|
|
; MSH,MFI,MFE,ZHV
|
|
;
|
|
N CNT
|
|
S CNT=0
|
|
K @MSGROOT
|
|
S CNT=CNT+1,@MSGROOT@(CNT)=$$MFI(.HL)
|
|
S CNT=CNT+1,@MSGROOT@(CNT)=$$MFE(.ADM,.HL)
|
|
S CNT=CNT+1,@MSGROOT@(CNT)=$$ZHV(.ADM,.HL)
|
|
Q
|
|
;
|
|
MFI(HL) ;build MFI segment
|
|
N MFI
|
|
S MFI(0)="MFI"
|
|
S MFI(1,1,1)="MHV"
|
|
S MFI(3)="UPD"
|
|
S MFI(6)="NE"
|
|
Q $$BLDSEG^MHV7U(.MFI,.HL)
|
|
;
|
|
MFE(ADM,HL) ;build MFE segment
|
|
N MFE
|
|
S MFE(0)="MFE"
|
|
S MFE(1)="MUP"
|
|
S MFE(4)=$G(ADM("SITE NUMBER"))
|
|
S MFE(5)="CE"
|
|
Q $$BLDSEG^MHV7U(.MFE,.HL)
|
|
;
|
|
ZHV(ADM,HL) ;build ZHV segment
|
|
N ZHV
|
|
S ZHV(0)="ZHV"
|
|
S ZHV(1,1,1)=$G(ADM("SITE NUMBER"))
|
|
S ZHV(1,1,2)=$$ESCAPE^MHV7U($G(ADM("SITE NAME")),.HL)
|
|
S ZHV(2)=$G(ADM("DOMAIN"))
|
|
S ZHV(3)=$G(ADM("IP ADDRESS"))
|
|
S ZHV(4)=$G(ADM("HL7 LISTENER PORT"))
|
|
S ZHV(5)=$G(ADM("RPC BROKER PORT"))
|
|
S ZHV(6,1,1)=$G(ADM("VERSION"))
|
|
S ZHV(7)=$$ESCAPE^MHV7U($G(ADM("PATCH NUMBER")),.HL)
|
|
S ZHV(8)=$G(ADM("SYSTEM TYPE"))
|
|
Q $$BLDSEG^MHV7U(.ZHV,.HL)
|
|
;
|