source: WorldVistAEHR/trunk/r/CLINICAL_PROCEDURES-MD/MDHL7D.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 601 bytes
RevLine 
[613]1MDHL7D ; HOIFO/WAA -B-Braun, Fresenius Dialysis ; 06/08/00
2 ;;1.0;CLINICAL PROCEDURES;**6**;Apr 01, 2004;Build 102
3 ;S (TCNT,ICNT,LN)=0
4OBX ; Process OBX
5 ; M ^ZZBILL("MDHL7",$J,"POST-HL7")=^TMP($J,"MDHL7A") ; POST PROCESSING
6 N MDATT,PROC
7 D ATT^MDHL7U(DEVIEN,.MDATT) Q:MDATT<1
8 S PROC=0
9 F S PROC=$O(MDATT(PROC)) Q:PROC<1 D
10 . N PROCESS
11 . S PROCESS=$P(MDATT(PROC),";",5)
12 . D @PROCESS
13 . Q
14 Q:'MDIEN
15 D EN1^MDUXML ; XML conversion utility
16 ; M ^ZZBILL("MSHL7",$J,"XML")=^TMP($J,"MDHL7XML") ; "XML RESULTS"
17 D FILE^MDUXMLU1(MDIEN) ; File the results
18 D REX^MDHL7U1(MDIEN)
19 D GENACK^MDHL7X
20 Q
Note: See TracBrowser for help on using the repository browser.