source: WorldVistAEHR/trunk/r/MY_HEALTHEVET-MHV/MHV7B0.m@ 701

Last change on this file since 701 was 623, checked in by George Lilly, 15 years ago

revised back to 6/30/08 version

File size: 1.4 KB
Line 
1MHV7B0 ;WAS/GPM - HL7 MESSAGE BUILDER FOR MFN^Z01 ; [8/22/05 6:21pm]
2 ;;1.0;My HealtheVet;;Aug 23, 2005
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 ;
5MFNZ01(MSGROOT,ADM,ERR,DATAROOT,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 ; Output:
14 ; MFN^Z01 message in MSGROOT
15 ; MSH,MFI,MFE,ZHV
16 ;
17 N CNT
18 S CNT=0
19 K @MSGROOT
20 S CNT=CNT+1,@MSGROOT@(CNT)=$$MFI(.HL)
21 S CNT=CNT+1,@MSGROOT@(CNT)=$$MFE(.ADM,.HL)
22 S CNT=CNT+1,@MSGROOT@(CNT)=$$ZHV(.ADM,.HL)
23 Q
24 ;
25MFI(HL) ;build MFI segment
26 N MFI
27 S MFI(0)="MFI"
28 S MFI(1,1,1)="MHV"
29 S MFI(3)="UPD"
30 S MFI(6)="NE"
31 Q $$BLDSEG^MHV7U(.MFI,.HL)
32 ;
33MFE(ADM,HL) ;build MFE segment
34 N MFE
35 S MFE(0)="MFE"
36 S MFE(1)="MUP"
37 S MFE(4)=$G(ADM("SITE NUMBER"))
38 S MFE(5)="CE"
39 Q $$BLDSEG^MHV7U(.MFE,.HL)
40 ;
41ZHV(ADM,HL) ;build ZHV segment
42 N ZHV
43 S ZHV(0)="ZHV"
44 S ZHV(1,1,1)=$G(ADM("SITE NUMBER"))
45 S ZHV(1,1,2)=$$ESCAPE^MHV7U($G(ADM("SITE NAME")),.HL)
46 S ZHV(2)=$G(ADM("DOMAIN"))
47 S ZHV(3)=$G(ADM("IP ADDRESS"))
48 S ZHV(4)=$G(ADM("HL7 LISTENER PORT"))
49 S ZHV(5)=$G(ADM("RPC BROKER PORT"))
50 S ZHV(6,1,1)=$G(ADM("VERSION"))
51 S ZHV(7)=$$ESCAPE^MHV7U($G(ADM("PATCH NUMBER")),.HL)
52 S ZHV(8)=$G(ADM("SYSTEM TYPE"))
53 Q $$BLDSEG^MHV7U(.ZHV,.HL)
54 ;
Note: See TracBrowser for help on using the repository browser.