Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MHV7B1P

MHV7B1P.m

Go to the documentation of this file.
  1. MHV7B1P ;KUM - HL7 message builder ACK^P03 WLC Filer ; 1/11/15 3:06pm
  1. ;;1.0;My HealtheVet;**11**;Aug 23, 2005;Build 61
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. ERR(MSGROOT,DATAROOT,CNT,LEN,HL) ; Build ERR segment for Workload Credit Filer Results data
  1. ;
  1. ; Walks data in DATAROOT to populate MSGROOT with RDT segments
  1. ; sequentially numbered starting at CNT
  1. ;
  1. ; Integration Agreements:
  1. ; 10103 : FMTHL7^XLFDT
  1. ;
  1. ; Input:
  1. ; MSGROOT - Root of array holding the message
  1. ; DATAROOT - Root of array to hold extract data
  1. ; CNT - Current message line counter
  1. ; LEN - Current message length
  1. ; HL - HL7 package array variable
  1. ;
  1. ; Output:
  1. ; - Populated message array
  1. ; - Updated LEN and CNT
  1. ;
  1. ; POPULATE SEQUENCE NUMBER
  1. N I,APP,ERR
  1. D LOG^MHVUL2("MHV7B1P","BEGIN ERR","S","TRACE")
  1. F I=1:1 Q:'$D(@DATAROOT@(I)) D
  1. . S APP=@DATAROOT@(I)
  1. . S ERR(0)="ERR"
  1. . S ERR(4,1,4)=$$ESCAPE^MHV7U($P(APP,"^",5),.HL) ;Visit IEN
  1. . S ERR(4,1,1)=$$ESCAPE^MHV7U($P(APP,"^",1),.HL) ;Success/Failure Flag
  1. . S ERR(4,1,2)=$$ESCAPE^MHV7U($P(APP,"^",2),.HL) ;Success/Failure Message
  1. . S ERR(4,1,3)=$$ESCAPE^MHV7U($P(APP,"^",4),.HL) ;Workload IEN
  1. . S CNT=CNT+1
  1. . S @MSGROOT@(CNT)=$$BLDSEG^MHV7U(.ERR,.HL)
  1. . S LEN=LEN+$L(@MSGROOT@(CNT))
  1. . Q
  1. D LOG^MHVUL2("MHV7B1P","END ERR","S","TRACE")
  1. Q
  1. ;