MHV7B1N.m

MHV7B1N ;KUM/LB - HL7 message builder RSP^K11 Patient Porblems List ; 10/30/14 3:06pm

 ;;1.0;My HealtheVet;**11,22**;Mar 05, 2014;Build 19

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

 ;

 Q

 ;

DG1(MSGROOT,DATAROOT,CNT,LEN,HL) ;  Build DG1 segments for Patient Problems List 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,DG1

 D LOG^MHVUL2("MHV7B1N","BEGIN DG1","S","TRACE")

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

 . M ^KUMDG3=@DATAROOT

 . I $P(@DATAROOT@(I),"^",2)=0 Q

 . S APP=@DATAROOT@(I)

 . S DG1(0)="DG1"

 . S DG1(1,1)=I

 . S DG1(3,1,4)=$$ESCAPE^MHV7U($P(APP,"^"),.HL)   ;Diagnosis Code IEN

 . S DG1(3,1,1)=$$ESCAPE^MHV7U($P(APP,"^",2),.HL) ;Diagnosis Code 

 . S DG1(3,1,2)=$$ESCAPE^MHV7U($P(APP,"^",3),.HL) ;Diagnosis Code Description

 . ;S DG1(3,1,3)=$$ESCAPE^MHV7U("I9",.HL)         ;ICD-9 Coding System

 . ;Fix for ICD 10 PRODUCTION ISSUE on Oct 1,2015 date switch

 . ;Item#2.Story 223914: SM WLC - ICD10 - SNOMED CT Problem List and Encounter Completion and Workload

 . S DG1(3,1,3)=$$ESCAPE^MHV7U($P(APP,"^",4),.HL)         ;ICD-9 or ICD-10 Coding System

 . S CNT=CNT+1

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

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

 . Q

 D LOG^MHVUL2("MHV7B1N","END DG1","S","TRACE")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MHV7B1N   1775     printed  Apr 09, 2024@21:17:21                                                                                                                                                                                                     Page 2

MHV7B1N   ;KUM/LB - HL7 message builder RSP^K11 Patient Porblems List ; 10/30/14 3:06pm

 +1       ;;1.0;My HealtheVet;**11,22**;Mar 05, 2014;Build 19

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

 +3       ;

 +4        QUIT 

 +5       ;

DG1(MSGROOT,DATAROOT,CNT,LEN,HL) ;  Build DG1 segments for Patient Problems List 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,DG1

 +21       DO LOG^MHVUL2("MHV7B1N","BEGIN DG1","S","TRACE")

 +22       FOR I=1:1

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

                   QUIT 

               Begin DoDot:1

 +23               MERGE ^KUMDG3=@DATAROOT

 +24               IF $PIECE(@DATAROOT@(I),"^",2)=0

                       QUIT 

 +25               SET APP=@DATAROOT@(I)

 +26               SET DG1(0)="DG1"

 +27               SET DG1(1,1)=I

 +28      ;Diagnosis Code IEN

                   SET DG1(3,1,4)=$$ESCAPE^MHV7U($PIECE(APP,"^"),.HL)

 +29      ;Diagnosis Code 

                   SET DG1(3,1,1)=$$ESCAPE^MHV7U($PIECE(APP,"^",2),.HL)

 +30      ;Diagnosis Code Description

                   SET DG1(3,1,2)=$$ESCAPE^MHV7U($PIECE(APP,"^",3),.HL)

 +31      ;S DG1(3,1,3)=$$ESCAPE^MHV7U("I9",.HL)         ;ICD-9 Coding System

 +32      ;Fix for ICD 10 PRODUCTION ISSUE on Oct 1,2015 date switch

 +33      ;Item#2.Story 223914: SM WLC - ICD10 - SNOMED CT Problem List and Encounter Completion and Workload

 +34      ;ICD-9 or ICD-10 Coding System

                   SET DG1(3,1,3)=$$ESCAPE^MHV7U($PIECE(APP,"^",4),.HL)

 +35               SET CNT=CNT+1

 +36               SET @MSGROOT@(CNT)=$$BLDSEG^MHV7U(.DG1,.HL)

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

 +38               QUIT 

               End DoDot:1

 +39       DO LOG^MHVUL2("MHV7B1N","END DG1","S","TRACE")

 +40       QUIT 

 +41      ;