MDHL7D.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MDHL7D   621     printed  Apr 09, 2024@20:47:44                                                                                                                                                                                                       Page 2

MDHL7D    ; HOIFO/WAA -B-Braun, Fresenius Dialysis ; 06/08/00

 +1       ;;1.0;CLINICAL PROCEDURES;**6**;Apr 01, 2004;Build 102

 +2       ;S (TCNT,ICNT,LN)=0

OBX       ; Process OBX

 +1       ; M ^ZZBILL("MDHL7",$J,"POST-HL7")=^TMP($J,"MDHL7A")  ; POST PROCESSING

 +2        NEW MDATT,PROC

 +3        DO ATT^MDHL7U(DEVIEN,.MDATT)

           if MDATT<1

               QUIT 

 +4        SET PROC=0

 +5        FOR 

               SET PROC=$ORDER(MDATT(PROC))

               if PROC<1

                   QUIT 

               Begin DoDot:1

 +6                NEW PROCESS

 +7                SET PROCESS=$PIECE(MDATT(PROC),";",5)

 +8                DO @PROCESS

 +9                QUIT 

               End DoDot:1

 +10       if 'MDIEN

               QUIT 

 +11      ; XML conversion utility

           DO EN1^MDUXML

 +12      ; M ^ZZBILL("MSHL7",$J,"XML")=^TMP($J,"MDHL7XML")  ; "XML RESULTS"

 +13      ;  File the results

           DO FILE^MDUXMLU1(MDIEN)

 +14       DO REX^MDHL7U1(MDIEN)

 +15       DO GENACK^MDHL7X

 +16       QUIT