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 ---[H[J[2J[HMDHL7D 621 printed Dec 13, 2024@01:42:46 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
