MDHL7D ; HOIFO/WAA -B-Braun, Fresenius Dialysis ; 06/08/00
 ;;1.0;CLINICAL PROCEDURES;**6**;Apr 01, 2004;Build 102
 ;S (TCNT,ICNT,LN)=0
OBX ; Process OBX
 ; M ^ZZBILL("MDHL7",$J,"POST-HL7")=^TMP($J,"MDHL7A")  ; POST PROCESSING
 N MDATT,PROC
 D ATT^MDHL7U(DEVIEN,.MDATT) Q:MDATT<1
 S PROC=0
 F  S PROC=$O(MDATT(PROC)) Q:PROC<1  D
 . N PROCESS
 . S PROCESS=$P(MDATT(PROC),";",5)
 . D @PROCESS
 . Q
 Q:'MDIEN
 D EN1^MDUXML  ; XML conversion utility
 ; M ^ZZBILL("MSHL7",$J,"XML")=^TMP($J,"MDHL7XML")  ; "XML RESULTS"
 D FILE^MDUXMLU1(MDIEN)  ;  File the results
 D REX^MDHL7U1(MDIEN)
 D GENACK^MDHL7X
 Q
