source: WorldVistAEHR/trunk/r/CLINICAL_PROCEDURES-MD/MDUXMLOX.m@ 1111

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1MDUXMLOX ; HOIFO/WAA -OBX converter XML text ; 7/26/00
2 ;;1.0;CLINICAL PROCEDURES;**6**;Apr 01, 2004;Build 102
3 ; OBX for the XML Parser
4 ;
5OBX D XML^MDUXMLU1("<OBSERVATION>")
6 D BLDXML^MDUXMLU1("SEQUENCE",$P(LINE,DL,2))
7 D XML^MDUXMLU1("<CODE>")
8 D BLDXML^MDUXMLU1("SCHEME",DEVICE)
9 I $P($P(LINE,DL,4),"^")="",$P($P(LINE,DL,4),"^",2)'="" S $P(LINE,DL,4)=$P($P(LINE,DL,4),"^",2)
10 D BLDXML^MDUXMLU1("VALUE",$P(LINE,DL,4))
11 D BLDXML^MDUXMLU1("ORIGINAL","Y")
12 D XML^MDUXMLU1("</CODE>")
13 D BLDXML^MDUXMLU1("DATATYPE",$P(LINE,DL,3))
14 I $P(LINE,DL,3)="FT" D FREE
15 E D BLDXML^MDUXMLU1("VALUE",$P(LINE,DL,6))
16 D BLDXML^MDUXMLU1("UNITS",$P(LINE,DL,7))
17 I $P(LINE,DL,8)'="" D
18 . N RANGE
19 . S RANGE=$P(LINE,DL,8)
20 . D XML^MDUXMLU1("<REFERENCE_RANGE>")
21 . D BLDXML^MDUXMLU1("LOW",$P(RANGE,"-",1))
22 . D BLDXML^MDUXMLU1("HIGH",$P(RANGE,"-",2))
23 . D XML^MDUXMLU1("</REFERENCE_RANGE>")
24 D XML^MDUXMLU1("</OBSERVATION>")
25 Q
26FREE ; This will process free test
27 D XML^MDUXMLU1("<VALUE>")
28 N I,X,FREE,DATA
29 S I=1
30 D XML^MDUXMLU1($P(LINE,DL,6)) ; First line
31 S X=0
32 F S X=$O(^TMP($J,"MDHL7A",NUM,X)) Q:X<1 D
33 . S DATA=$G(^TMP($J,"MDHL7A",NUM,X)) Q:DATA=""
34 . S DATA=$$VAL^MDUXMLU1($P(DATA,DL))
35 . D XML^MDUXMLU1(DATA)
36 . Q
37 ; ^--- THIS STUFF THE DATA INTO THE DATA ARRAY
38 D XML^MDUXMLU1("</VALUE>")
39 Q
Note: See TracBrowser for help on using the repository browser.