| 1 | MHV7B0 ;WAS/GPM - HL7 MESSAGE BUILDER FOR MFN^Z01 ; 1/21/08 5:18pm
|
|---|
| 2 | ;;1.0;My HealtheVet;**2**;Aug 23, 2005;Build 22
|
|---|
| 3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | MFNZ01(MSGROOT,ADM,ERR,DATAROOT,LEN,HL) ;Build MFN^Z01
|
|---|
| 6 | ;
|
|---|
| 7 | ; Input:
|
|---|
| 8 | ; MSGROOT - (required) Global root of message
|
|---|
| 9 | ; ADM - (required) Array of administrative data
|
|---|
| 10 | ; ERR - (Not used) For compatibility with MHV7T
|
|---|
| 11 | ; DATAROOT - (Not used) For compatibility with MHV7T
|
|---|
| 12 | ; HL - (required) Array of HL package variables
|
|---|
| 13 | ;
|
|---|
| 14 | ; Output:
|
|---|
| 15 | ; MFN^Z01 message in MSGROOT
|
|---|
| 16 | ; MSH,MFI,MFE,ZHV
|
|---|
| 17 | ; LEN - Length of formatted message
|
|---|
| 18 | ;
|
|---|
| 19 | N CNT
|
|---|
| 20 | D LOG^MHVUL2("MFN-Z01 BUILDER","BEGIN","S","TRACE")
|
|---|
| 21 | K @MSGROOT
|
|---|
| 22 | S CNT=1,@MSGROOT@(CNT)=$$MFI(.HL),LEN=$L(@MSGROOT@(CNT))
|
|---|
| 23 | S CNT=CNT+1,@MSGROOT@(CNT)=$$MFE(.ADM,.HL),LEN=LEN+$L(@MSGROOT@(CNT))
|
|---|
| 24 | S CNT=CNT+1,@MSGROOT@(CNT)=$$ZHV(.ADM,.HL),LEN=LEN+$L(@MSGROOT@(CNT))
|
|---|
| 25 | D LOG^MHVUL2("MFN-Z01 BUILDER","END","S","TRACE")
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | MFI(HL) ;build MFI segment
|
|---|
| 29 | N MFI
|
|---|
| 30 | S MFI(0)="MFI"
|
|---|
| 31 | S MFI(1,1,1)="MHV"
|
|---|
| 32 | S MFI(3)="UPD"
|
|---|
| 33 | S MFI(6)="NE"
|
|---|
| 34 | Q $$BLDSEG^MHV7U(.MFI,.HL)
|
|---|
| 35 | ;
|
|---|
| 36 | MFE(ADM,HL) ;build MFE segment
|
|---|
| 37 | N MFE
|
|---|
| 38 | S MFE(0)="MFE"
|
|---|
| 39 | S MFE(1)="MUP"
|
|---|
| 40 | S MFE(4)=$G(ADM("SITE NUMBER"))
|
|---|
| 41 | S MFE(5)="CE"
|
|---|
| 42 | Q $$BLDSEG^MHV7U(.MFE,.HL)
|
|---|
| 43 | ;
|
|---|
| 44 | ZHV(ADM,HL) ;build ZHV segment
|
|---|
| 45 | N ZHV
|
|---|
| 46 | S ZHV(0)="ZHV"
|
|---|
| 47 | S ZHV(1,1,1)=$G(ADM("SITE NUMBER"))
|
|---|
| 48 | S ZHV(1,1,2)=$$ESCAPE^MHV7U($G(ADM("SITE NAME")),.HL)
|
|---|
| 49 | S ZHV(2)=$G(ADM("DOMAIN"))
|
|---|
| 50 | S ZHV(3)=$G(ADM("IP ADDRESS"))
|
|---|
| 51 | S ZHV(4)=$G(ADM("HL7 LISTENER PORT"))
|
|---|
| 52 | S ZHV(5)=$G(ADM("RPC BROKER PORT"))
|
|---|
| 53 | S ZHV(6,1,1)=$G(ADM("VERSION"))
|
|---|
| 54 | S ZHV(7)=$$ESCAPE^MHV7U($G(ADM("PATCH NUMBER")),.HL)
|
|---|
| 55 | S ZHV(8)=$G(ADM("SYSTEM TYPE"))
|
|---|
| 56 | Q $$BLDSEG^MHV7U(.ZHV,.HL)
|
|---|
| 57 | ;
|
|---|
