- 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 ---[H[J[2J[HMHV7B1N 1775 printed Feb 18, 2025@23:41:53 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 ;
