MHV7B1C.m

MHV7B1C ;KUM - HL7 message builder RTB^K13 Titles ; 1/26/13 3:06pm

 ;;1.0;My HealtheVet;**10**;Aug 23, 2005;Build 50

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ;

 Q

 ;

RDF(MSGROOT,CNT,LEN,HL) ;  Build RDF segment for Titles data

 ;

 ;  Input:

 ;   MSGROOT - Root of array holding the message

 ;       CNT - Current message line counter

 ;       LEN - Current message length

 ;        HL - HL7 package array variable

 ;

 ;  Output:

 ;           - Populated message array

 ;           - Updated LEN and CNT

 ;

 N RDF

 S RDF(0)="RDF"

 S RDF(1)=4

 S RDF(2,1,1)="IEN",RDF(2,1,2)="NM",RDF(2,1,3)=30

 S RDF(2,2,1)="SEQNO",RDF(2,2,2)="NM",RDF(2,2,3)=6

 S RDF(2,3,1)="Title Name",RDF(2,3,2)="ST",RDF(2,3,3)=60

 S RDF(2,4,1)="Print Title Name",RDF(2,4,2)="ST",RDF(2,4,3)=60

 ;

 S CNT=CNT+1

 S @MSGROOT@(CNT)=$$BLDSEG^MHV7U(.RDF,.HL)

 S LEN=LEN+$L(@MSGROOT@(CNT))

 Q

 ;

RDT(MSGROOT,DATAROOT,CNT,LEN,HL) ;  Build RDT segments for Titles data

 ;

 ; Walks data in DATAROOT to populate MSGROOT with RDT segments

 ; sequentially numbered starting at CNT

 ;

 ;  Integration Agreements:

 ;        10103 : FMTHL7^XLFDT

 ;

 ;  Input:

 ;   MSGROOT - Root of array holding the message

 ;  DATAROOT - Root of array to hold extract data

 ;       CNT - Current message line counter

 ;       LEN - Current message length

 ;        HL - HL7 package array variable

 ;

 ;  Output:

 ;           - Populated message array

 ;           - Updated LEN and CNT

 ;

 ; POPULATE SEQUENCE NUMBER

 N I,APP,RDT

 D LOG^MHVUL2("MHV7B1C","BEGIN RDT","S","TRACE")

 F I=1:1 Q:'$D(@DATAROOT@(I))  D

 . S APP=@DATAROOT@(I)

 . S RDT(0)="RDT"

 . S RDT(1)=$P(APP,"^")                         ;IEN

 . S RDT(2)=$$ESCAPE^MHV7U($P(APP,"^",2),.HL)   ;Title Sequence 

 . S RDT(3)=$$ESCAPE^MHV7U($P(APP,"^",3),.HL)   ;Title Name

 . S RDT(4)=$$ESCAPE^MHV7U($P(APP,"^",4),.HL)   ;Print Title Name

 . S CNT=CNT+1

 . S @MSGROOT@(CNT)=$$BLDSEG^MHV7U(.RDT,.HL)

 . S LEN=LEN+$L(@MSGROOT@(CNT))

 . Q

 D LOG^MHVUL2("MHV7B1C","END RDT","S","TRACE")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MHV7B1C   2080     printed  Mar 13, 2025@21:20:16                                                                                                                                                                                                     Page 2

MHV7B1C   ;KUM - HL7 message builder RTB^K13 Titles ; 1/26/13 3:06pm

 +1       ;;1.0;My HealtheVet;**10**;Aug 23, 2005;Build 50

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

 +4        QUIT 

 +5       ;

RDF(MSGROOT,CNT,LEN,HL) ;  Build RDF segment for Titles data

 +1       ;

 +2       ;  Input:

 +3       ;   MSGROOT - Root of array holding the message

 +4       ;       CNT - Current message line counter

 +5       ;       LEN - Current message length

 +6       ;        HL - HL7 package array variable

 +7       ;

 +8       ;  Output:

 +9       ;           - Populated message array

 +10      ;           - Updated LEN and CNT

 +11      ;

 +12       NEW RDF

 +13       SET RDF(0)="RDF"

 +14       SET RDF(1)=4

 +15       SET RDF(2,1,1)="IEN"

           SET RDF(2,1,2)="NM"

           SET RDF(2,1,3)=30

 +16       SET RDF(2,2,1)="SEQNO"

           SET RDF(2,2,2)="NM"

           SET RDF(2,2,3)=6

 +17       SET RDF(2,3,1)="Title Name"

           SET RDF(2,3,2)="ST"

           SET RDF(2,3,3)=60

 +18       SET RDF(2,4,1)="Print Title Name"

           SET RDF(2,4,2)="ST"

           SET RDF(2,4,3)=60

 +19      ;

 +20       SET CNT=CNT+1

 +21       SET @MSGROOT@(CNT)=$$BLDSEG^MHV7U(.RDF,.HL)

 +22       SET LEN=LEN+$LENGTH(@MSGROOT@(CNT))

 +23       QUIT 

 +24      ;

RDT(MSGROOT,DATAROOT,CNT,LEN,HL) ;  Build RDT segments for Titles data

 +1       ;

 +2       ; Walks data in DATAROOT to populate MSGROOT with RDT segments

 +3       ; sequentially numbered starting at CNT

 +4       ;

 +5       ;  Integration Agreements:

 +6       ;        10103 : FMTHL7^XLFDT

 +7       ;

 +8       ;  Input:

 +9       ;   MSGROOT - Root of array holding the message

 +10      ;  DATAROOT - Root of array to hold extract data

 +11      ;       CNT - Current message line counter

 +12      ;       LEN - Current message length

 +13      ;        HL - HL7 package array variable

 +14      ;

 +15      ;  Output:

 +16      ;           - Populated message array

 +17      ;           - Updated LEN and CNT

 +18      ;

 +19      ; POPULATE SEQUENCE NUMBER

 +20       NEW I,APP,RDT

 +21       DO LOG^MHVUL2("MHV7B1C","BEGIN RDT","S","TRACE")

 +22       FOR I=1:1

               if '$DATA(@DATAROOT@(I))

                   QUIT 

               Begin DoDot:1

 +23               SET APP=@DATAROOT@(I)

 +24               SET RDT(0)="RDT"

 +25      ;IEN

                   SET RDT(1)=$PIECE(APP,"^")

 +26      ;Title Sequence 

                   SET RDT(2)=$$ESCAPE^MHV7U($PIECE(APP,"^",2),.HL)

 +27      ;Title Name

                   SET RDT(3)=$$ESCAPE^MHV7U($PIECE(APP,"^",3),.HL)

 +28      ;Print Title Name

                   SET RDT(4)=$$ESCAPE^MHV7U($PIECE(APP,"^",4),.HL)

 +29               SET CNT=CNT+1

 +30               SET @MSGROOT@(CNT)=$$BLDSEG^MHV7U(.RDT,.HL)

 +31               SET LEN=LEN+$LENGTH(@MSGROOT@(CNT))

 +32               QUIT 

               End DoDot:1

 +33       DO LOG^MHVUL2("MHV7B1C","END RDT","S","TRACE")

 +34       QUIT 

 +35      ;