- OCXRU004 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*96) ;JAN 30,2001 at 11:16
- ;;3.0;ORDER ENTRY/RESULTS REPORTING;**96**;Dec 17,1997
- ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
- ;
- S ;
- ;
- D DOT^OCXRULE
- ;
- ;
- K REMOTE,LOCAL,OPCODE,REF
- F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
- .S ^TMP("OCXRULE",$J,$O(^TMP("OCXRULE",$J,"A"),-1)+1)=TEXT
- ;
- G ^OCXRU005
- ;
- Q
- ;
- DATA ;
- ;
- ;;D^2
- ;;EOR^
- ;;KEY^863.7:^GCC NUMERIC LESS THAN
- ;;R^"863.7:",.01,"E"
- ;;D^GCC NUMERIC LESS THAN
- ;;R^"863.7:",.02,"E"
- ;;D^EXTRINSIC FUNCTION
- ;;R^"863.7:",3,"E"
- ;;D^LESS^OCXF20
- ;;R^"863.7:","863.74:1",.01,"E"
- ;;D^PRIMARY DATA FIELD
- ;;R^"863.7:","863.74:1",1.1,"E"
- ;;D^1
- ;;R^"863.7:","863.74:2",.01,"E"
- ;;D^COMPARISON VALUE
- ;;R^"863.7:","863.74:2",1.1,"E"
- ;;D^2
- ;;EOR^
- ;;EOF^OCXS(863.7)^1
- ;;SOF^863.9 OCX MDD CONDITION/FUNCTION
- ;;KEY^863.9:^DATE AFTER
- ;;R^"863.9:",.01,"E"
- ;;D^DATE AFTER
- ;;R^"863.9:",.02,"E"
- ;;D^DATE/TIME
- ;;R^"863.9:",.03,"E"
- ;;D^GCC DATE/TIME AFTER
- ;;R^"863.9:",.04,"E"
- ;;D^IS AFTER
- ;;R^"863.9:","863.91:1",.01,"E"
- ;;D^OCXO GENERATE CODE FUNCTION
- ;;R^"863.9:","863.91:1",1,"E"
- ;;D^GCC DATE/TIME AFTER
- ;;R^"863.9:","863.92:1",.01,"E"
- ;;D^AFTER
- ;;R^"863.9:","863.92:2",.01,"E"
- ;;D^GREATER THAN
- ;;R^"863.9:","863.92:3",.01,"E"
- ;;D^SINCE
- ;;R^"863.9:","863.92:4",.01,"E"
- ;;D^>
- ;;EOR^
- ;;KEY^863.9:^EQ FREE TEXT
- ;;R^"863.9:",.01,"E"
- ;;D^EQ FREE TEXT
- ;;R^"863.9:",.02,"E"
- ;;D^FREE TEXT
- ;;R^"863.9:",.04,"E"
- ;;D^IS EQUAL TO
- ;;R^"863.9:","863.91:3",.01,"E"
- ;;D^OCXO GENERATE CODE FUNCTION
- ;;R^"863.9:","863.91:3",1,"E"
- ;;D^GCC FREE TEXT EQUALS
- ;;R^"863.9:","863.92:1",.01,"E"
- ;;D^EQUALS
- ;;EOR^
- ;;KEY^863.9:^EQUALS ELEMENT IN SET
- ;;R^"863.9:",.01,"E"
- ;;D^EQUALS ELEMENT IN SET
- ;;R^"863.9:",.02,"E"
- ;;D^FREE TEXT
- ;;R^"863.9:",.04,"E"
- ;;D^EQUALS AN ELEMENT IN THE SET
- ;;R^"863.9:","863.91:1",.01,"E"
- ;;D^OCXO GENERATE CODE FUNCTION
- ;;R^"863.9:","863.91:1",1,"E"
- ;;D^GCC FREE TEXT EQUALS ELEMENT IN SET
- ;;EOR^
- ;;KEY^863.9:^GREATER THAN
- ;;R^"863.9:",.01,"E"
- ;;D^GREATER THAN
- ;;R^"863.9:",.02,"E"
- ;;D^NUMERIC
- ;;R^"863.9:",.04,"E"
- ;;D^IS GREATER THAN
- ;;R^"863.9:","863.91:3",.01,"E"
- ;;D^OCXO GENERATE CODE FUNCTION
- ;;R^"863.9:","863.91:3",1,"E"
- ;;D^GCC NUMERIC GREATER THAN
- ;;EOR^
- ;;KEY^863.9:^LESS THAN
- ;;R^"863.9:",.01,"E"
- ;;D^LESS THAN
- ;;R^"863.9:",.02,"E"
- ;;D^NUMERIC
- ;;R^"863.9:",.04,"E"
- ;;D^IS LESS THAN
- ;;R^"863.9:","863.91:3",.01,"E"
- ;;D^OCXO GENERATE CODE FUNCTION
- ;;R^"863.9:","863.91:3",1,"E"
- ;;D^GCC NUMERIC LESS THAN
- ;;EOR^
- ;;KEY^863.9:^LOGICAL TRUE
- ;;R^"863.9:",.01,"E"
- ;;D^LOGICAL TRUE
- ;;R^"863.9:",.02,"E"
- ;;D^BOOLEAN
- ;;R^"863.9:",.03,"E"
- ;;D^GCC BOOLEAN LOGICAL TRUE
- ;;R^"863.9:",.04,"E"
- ;;D^IS TRUE
- ;;R^"863.9:","863.91:1",.01,"E"
- ;;D^OCXO GENERATE CODE FUNCTION
- ;;R^"863.9:","863.91:1",1,"E"
- ;;D^GCC BOOLEAN LOGICAL TRUE
- ;;R^"863.9:","863.92:1",.01,"E"
- ;;D^TRUE
- ;;EOR^
- ;;KEY^863.9:^NOT EQUAL TO
- ;;R^"863.9:",.01,"E"
- ;;D^NOT EQUAL TO
- ;;R^"863.9:",.02,"E"
- ;;D^FREE TEXT
- ;;R^"863.9:",.04,"E"
- ;;D^IS NOT EQUAL TO
- ;;R^"863.9:","863.91:1",.01,"E"
- ;;D^OCXO GENERATE CODE FUNCTION
- ;;R^"863.9:","863.91:1",1,"E"
- ;;D^GCC FREE TEXT NOT EQUALS
- ;;R^"863.9:","863.91:2",.01,"E"
- ;;D^OCXO NULL VALUE ALLOWED
- ;;R^"863.9:","863.91:2",1,"E"
- ;;D^1
- ;;EOR^
- ;;KEY^863.9:^STARTS WITH
- ;;R^"863.9:",.01,"E"
- ;;D^STARTS WITH
- ;;R^"863.9:",.02,"E"
- ;;D^FREE TEXT
- ;;R^"863.9:",.04,"E"
- ;;D^STARTS WITH
- ;;R^"863.9:","863.91:3",.01,"E"
- ;;D^OCXO GENERATE CODE FUNCTION
- ;;R^"863.9:","863.91:3",1,"E"
- ;;D^GCC FREE TEXT STARTS WITH
- ;;R^"863.9:","863.92:1",.01,"E"
- ;;D^BEGINS WITH
- ;;EOR^
- ;;EOF^OCXS(863.9)^1
- ;;SOF^863.4 OCX MDD ATTRIBUTE
- ;;KEY^863.4:^CANCELED BY
- ;;R^"863.4:",.01,"E"
- ;;D^CANCELED BY
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^FREE TEXT
- ;;EOR^
- ;;KEY^863.4:^CREAT CLEAR DATE
- ;;R^"863.4:",.01,"E"
- ;;D^CREAT CLEAR DATE
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^DATE/TIME
- ;;EOR^
- ;;KEY^863.4:^CREAT. CLEAR. VALUE
- ;;R^"863.4:",.01,"E"
- ;;D^CREAT. CLEAR. VALUE
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^NUMERIC
- ;;EOR^
- ;;KEY^863.4:^FILLER
- ;;R^"863.4:",.01,"E"
- ;;D^FILLER
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^FREE TEXT
- ;;EOR^
- ;;KEY^863.4:^FOOD-DRUG INTERACTION MED
- ;;R^"863.4:",.01,"E"
- ;;D^FOOD-DRUG INTERACTION MED
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^BOOLEAN
- ;;EOR^
- ;;KEY^863.4:^HL7 CONTROL CODE
- ;;R^"863.4:",.01,"E"
- ;;D^HL7 CONTROL CODE
- ;;R^"863.4:",.02,"E"
- ;;D^HL7CCODE
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^FREE TEXT
- ;;EOR^
- ;;KEY^863.4:^HL7 ENTERED BY
- ;;R^"863.4:",.01,"E"
- ;;D^HL7 ENTERED BY
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^FREE TEXT
- ;;EOR^
- ;;KEY^863.4:^HL7 FILLER
- ;;R^"863.4:",.01,"E"
- ;;D^HL7 FILLER
- ;;R^"863.4:",.02,"E"
- ;;D^HL7FILLR
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^FREE TEXT
- ;;EOR^
- ;;KEY^863.4:^IEN
- ;;R^"863.4:",.01,"E"
- ;;D^IEN
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^NUMERIC
- ;;EOR^
- ;;KEY^863.4:^INPATIENT
- ;;R^"863.4:",.01,"E"
- ;;D^INPATIENT
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^BOOLEAN
- ;;EOR^
- ;;KEY^863.4:^LAB RESULTS
- ;;R^"863.4:",.01,"E"
- ;;D^LAB RESULTS
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^FREE TEXT
- ;;EOR^
- ;;KEY^863.4:^ORDER MODE
- ;;R^"863.4:",.01,"E"
- ;;D^ORDER MODE
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^FREE TEXT
- ;;EOR^
- ;;KEY^863.4:^ORDER NUMBER
- ;;R^"863.4:",.01,"E"
- ;;D^ORDER NUMBER
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^NUMERIC
- ;;EOR^
- ;;KEY^863.4:^ORDERABLE ITEM
- ;;R^"863.4:",.01,"E"
- ;;D^ORDERABLE ITEM
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^FREE TEXT
- ;;EOR^
- ;;KEY^863.4:^ORDERED BY
- ;;R^"863.4:",.01,"E"
- ;;D^ORDERED BY
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^FREE TEXT
- ;;EOR^
- ;;KEY^863.4:^PT LOCATION
- ;;R^"863.4:",.01,"E"
- ;;D^PT LOCATION
- ;;R^"863.4:","863.41:1",.01,"E"
- ;;D^DATA TYPE
- ;;R^"863.4:","863.41:1",1,"E"
- ;;D^FREE TEXT
- ;;EOR^
- ;;EOF^OCXS(863.4)^1
- ;;SOF^863.2 OCX MDD SUBJECT
- ;;KEY^863.2:^PATIENT
- ;;R^"863.2:",.01,"E"
- ;;D^PATIENT
- ;;R^"863.2:","863.21:1",.01,"E"
- ;;D^FILE
- ;;R^"863.2:","863.21:1",1,"E"
- ;;D^2
- ;;EOR^
- ;;EOF^OCXS(863.2)^1
- ;;SOF^863.3 OCX MDD LINK
- ;;KEY^863.3:^HL7_ENTERED BY
- ;;R^"863.3:",.01,"E"
- ;;D^HL7_ENTERED BY
- ;;R^"863.3:",.02,"E"
- ;;D^PATIENT
- ;;R^"863.3:",.05,"E"
- ;;D^HL7 ENTERED BY
- ;;R^"863.3:",.06,"E"
- ;;D^99
- ;;R^"863.3:","863.32:1",.01,"E"
- ;;D^OCXO VARIABLE NAME
- ;;R^"863.3:","863.32:1",1,"E"
- ;;D^OCXODATA("ORC",10)
- ;;R^"863.3:","863.32:2",.01,"E"
- ;;D^OCXO UP-ARROW PIECE NUMBER
- ;;R^"863.3:","863.32:2",1,"E"
- ;;D^1
- ;;EOR^
- ;;KEY^863.3:^INPATIENT
- ;;R^"863.3:",.01,"E"
- ;;D^INPATIENT
- ;;R^"863.3:",.02,"E"
- ;;D^PATIENT
- ;;R^"863.3:",.05,"E"
- ;;D^INPATIENT
- ;;R^"863.3:",.06,"E"
- ;;D^99
- ;;R^"863.3:","863.32:1",.01,"E"
- ;;D^OCXO EXTERNAL FUNCTION CALL
- ;;R^"863.3:","863.32:1",1,"E"
- ;;D^WARDRMBD(|PATIENT IEN|)
- ;;R^"863.3:","863.32:2",.01,"E"
- ;;D^OCXO UP-ARROW PIECE NUMBER
- ;;R^"863.3:","863.32:2",1,"E"
- ;;D^1
- ;;EOR^
- ;;KEY^863.3:^ORDER.CANCELED BY
- ;;R^"863.3:",.01,"E"
- ;;D^ORDER.CANCELED BY
- ;;R^"863.3:",.02,"E"
- ;;D^PATIENT
- ;;R^"863.3:",.05,"E"
- ;;D^CANCELED BY
- ;;R^"863.3:",.06,"E"
- ;;D^998
- ;;R^"863.3:","863.32:1",.01,"E"
- ;;D^OCXO EXTERNAL FUNCTION CALL
- ;1;
- ;
- OCXRU004 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*96) ;JAN 30,2001 at 11:16
- +1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**96**;Dec 17,1997
- +2 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
- +3 ;
- S ;
- +1 ;
- +2 DO DOT^OCXRULE
- +3 ;
- +4 ;
- +5 KILL REMOTE,LOCAL,OPCODE,REF
- +6 FOR LINE=1:1:500
- SET TEXT=$PIECE($TEXT(DATA+LINE),";",2,999)
- IF TEXT
- QUIT
- IF $LENGTH(TEXT)
- Begin DoDot:1
- +7 SET ^TMP("OCXRULE",$JOB,$ORDER(^TMP("OCXRULE",$JOB,"A"),-1)+1)=TEXT
- End DoDot:1
- IF QUIT
- QUIT
- +8 ;
- +9 GOTO ^OCXRU005
- +10 ;
- +11 QUIT
- +12 ;
- DATA ;
- +1 ;
- +2 ;;D^2
- +3 ;;EOR^
- +4 ;;KEY^863.7:^GCC NUMERIC LESS THAN
- +5 ;;R^"863.7:",.01,"E"
- +6 ;;D^GCC NUMERIC LESS THAN
- +7 ;;R^"863.7:",.02,"E"
- +8 ;;D^EXTRINSIC FUNCTION
- +9 ;;R^"863.7:",3,"E"
- +10 ;;D^LESS^OCXF20
- +11 ;;R^"863.7:","863.74:1",.01,"E"
- +12 ;;D^PRIMARY DATA FIELD
- +13 ;;R^"863.7:","863.74:1",1.1,"E"
- +14 ;;D^1
- +15 ;;R^"863.7:","863.74:2",.01,"E"
- +16 ;;D^COMPARISON VALUE
- +17 ;;R^"863.7:","863.74:2",1.1,"E"
- +18 ;;D^2
- +19 ;;EOR^
- +20 ;;EOF^OCXS(863.7)^1
- +21 ;;SOF^863.9 OCX MDD CONDITION/FUNCTION
- +22 ;;KEY^863.9:^DATE AFTER
- +23 ;;R^"863.9:",.01,"E"
- +24 ;;D^DATE AFTER
- +25 ;;R^"863.9:",.02,"E"
- +26 ;;D^DATE/TIME
- +27 ;;R^"863.9:",.03,"E"
- +28 ;;D^GCC DATE/TIME AFTER
- +29 ;;R^"863.9:",.04,"E"
- +30 ;;D^IS AFTER
- +31 ;;R^"863.9:","863.91:1",.01,"E"
- +32 ;;D^OCXO GENERATE CODE FUNCTION
- +33 ;;R^"863.9:","863.91:1",1,"E"
- +34 ;;D^GCC DATE/TIME AFTER
- +35 ;;R^"863.9:","863.92:1",.01,"E"
- +36 ;;D^AFTER
- +37 ;;R^"863.9:","863.92:2",.01,"E"
- +38 ;;D^GREATER THAN
- +39 ;;R^"863.9:","863.92:3",.01,"E"
- +40 ;;D^SINCE
- +41 ;;R^"863.9:","863.92:4",.01,"E"
- +42 ;;D^>
- +43 ;;EOR^
- +44 ;;KEY^863.9:^EQ FREE TEXT
- +45 ;;R^"863.9:",.01,"E"
- +46 ;;D^EQ FREE TEXT
- +47 ;;R^"863.9:",.02,"E"
- +48 ;;D^FREE TEXT
- +49 ;;R^"863.9:",.04,"E"
- +50 ;;D^IS EQUAL TO
- +51 ;;R^"863.9:","863.91:3",.01,"E"
- +52 ;;D^OCXO GENERATE CODE FUNCTION
- +53 ;;R^"863.9:","863.91:3",1,"E"
- +54 ;;D^GCC FREE TEXT EQUALS
- +55 ;;R^"863.9:","863.92:1",.01,"E"
- +56 ;;D^EQUALS
- +57 ;;EOR^
- +58 ;;KEY^863.9:^EQUALS ELEMENT IN SET
- +59 ;;R^"863.9:",.01,"E"
- +60 ;;D^EQUALS ELEMENT IN SET
- +61 ;;R^"863.9:",.02,"E"
- +62 ;;D^FREE TEXT
- +63 ;;R^"863.9:",.04,"E"
- +64 ;;D^EQUALS AN ELEMENT IN THE SET
- +65 ;;R^"863.9:","863.91:1",.01,"E"
- +66 ;;D^OCXO GENERATE CODE FUNCTION
- +67 ;;R^"863.9:","863.91:1",1,"E"
- +68 ;;D^GCC FREE TEXT EQUALS ELEMENT IN SET
- +69 ;;EOR^
- +70 ;;KEY^863.9:^GREATER THAN
- +71 ;;R^"863.9:",.01,"E"
- +72 ;;D^GREATER THAN
- +73 ;;R^"863.9:",.02,"E"
- +74 ;;D^NUMERIC
- +75 ;;R^"863.9:",.04,"E"
- +76 ;;D^IS GREATER THAN
- +77 ;;R^"863.9:","863.91:3",.01,"E"
- +78 ;;D^OCXO GENERATE CODE FUNCTION
- +79 ;;R^"863.9:","863.91:3",1,"E"
- +80 ;;D^GCC NUMERIC GREATER THAN
- +81 ;;EOR^
- +82 ;;KEY^863.9:^LESS THAN
- +83 ;;R^"863.9:",.01,"E"
- +84 ;;D^LESS THAN
- +85 ;;R^"863.9:",.02,"E"
- +86 ;;D^NUMERIC
- +87 ;;R^"863.9:",.04,"E"
- +88 ;;D^IS LESS THAN
- +89 ;;R^"863.9:","863.91:3",.01,"E"
- +90 ;;D^OCXO GENERATE CODE FUNCTION
- +91 ;;R^"863.9:","863.91:3",1,"E"
- +92 ;;D^GCC NUMERIC LESS THAN
- +93 ;;EOR^
- +94 ;;KEY^863.9:^LOGICAL TRUE
- +95 ;;R^"863.9:",.01,"E"
- +96 ;;D^LOGICAL TRUE
- +97 ;;R^"863.9:",.02,"E"
- +98 ;;D^BOOLEAN
- +99 ;;R^"863.9:",.03,"E"
- +100 ;;D^GCC BOOLEAN LOGICAL TRUE
- +101 ;;R^"863.9:",.04,"E"
- +102 ;;D^IS TRUE
- +103 ;;R^"863.9:","863.91:1",.01,"E"
- +104 ;;D^OCXO GENERATE CODE FUNCTION
- +105 ;;R^"863.9:","863.91:1",1,"E"
- +106 ;;D^GCC BOOLEAN LOGICAL TRUE
- +107 ;;R^"863.9:","863.92:1",.01,"E"
- +108 ;;D^TRUE
- +109 ;;EOR^
- +110 ;;KEY^863.9:^NOT EQUAL TO
- +111 ;;R^"863.9:",.01,"E"
- +112 ;;D^NOT EQUAL TO
- +113 ;;R^"863.9:",.02,"E"
- +114 ;;D^FREE TEXT
- +115 ;;R^"863.9:",.04,"E"
- +116 ;;D^IS NOT EQUAL TO
- +117 ;;R^"863.9:","863.91:1",.01,"E"
- +118 ;;D^OCXO GENERATE CODE FUNCTION
- +119 ;;R^"863.9:","863.91:1",1,"E"
- +120 ;;D^GCC FREE TEXT NOT EQUALS
- +121 ;;R^"863.9:","863.91:2",.01,"E"
- +122 ;;D^OCXO NULL VALUE ALLOWED
- +123 ;;R^"863.9:","863.91:2",1,"E"
- +124 ;;D^1
- +125 ;;EOR^
- +126 ;;KEY^863.9:^STARTS WITH
- +127 ;;R^"863.9:",.01,"E"
- +128 ;;D^STARTS WITH
- +129 ;;R^"863.9:",.02,"E"
- +130 ;;D^FREE TEXT
- +131 ;;R^"863.9:",.04,"E"
- +132 ;;D^STARTS WITH
- +133 ;;R^"863.9:","863.91:3",.01,"E"
- +134 ;;D^OCXO GENERATE CODE FUNCTION
- +135 ;;R^"863.9:","863.91:3",1,"E"
- +136 ;;D^GCC FREE TEXT STARTS WITH
- +137 ;;R^"863.9:","863.92:1",.01,"E"
- +138 ;;D^BEGINS WITH
- +139 ;;EOR^
- +140 ;;EOF^OCXS(863.9)^1
- +141 ;;SOF^863.4 OCX MDD ATTRIBUTE
- +142 ;;KEY^863.4:^CANCELED BY
- +143 ;;R^"863.4:",.01,"E"
- +144 ;;D^CANCELED BY
- +145 ;;R^"863.4:","863.41:1",.01,"E"
- +146 ;;D^DATA TYPE
- +147 ;;R^"863.4:","863.41:1",1,"E"
- +148 ;;D^FREE TEXT
- +149 ;;EOR^
- +150 ;;KEY^863.4:^CREAT CLEAR DATE
- +151 ;;R^"863.4:",.01,"E"
- +152 ;;D^CREAT CLEAR DATE
- +153 ;;R^"863.4:","863.41:1",.01,"E"
- +154 ;;D^DATA TYPE
- +155 ;;R^"863.4:","863.41:1",1,"E"
- +156 ;;D^DATE/TIME
- +157 ;;EOR^
- +158 ;;KEY^863.4:^CREAT. CLEAR. VALUE
- +159 ;;R^"863.4:",.01,"E"
- +160 ;;D^CREAT. CLEAR. VALUE
- +161 ;;R^"863.4:","863.41:1",.01,"E"
- +162 ;;D^DATA TYPE
- +163 ;;R^"863.4:","863.41:1",1,"E"
- +164 ;;D^NUMERIC
- +165 ;;EOR^
- +166 ;;KEY^863.4:^FILLER
- +167 ;;R^"863.4:",.01,"E"
- +168 ;;D^FILLER
- +169 ;;R^"863.4:","863.41:1",.01,"E"
- +170 ;;D^DATA TYPE
- +171 ;;R^"863.4:","863.41:1",1,"E"
- +172 ;;D^FREE TEXT
- +173 ;;EOR^
- +174 ;;KEY^863.4:^FOOD-DRUG INTERACTION MED
- +175 ;;R^"863.4:",.01,"E"
- +176 ;;D^FOOD-DRUG INTERACTION MED
- +177 ;;R^"863.4:","863.41:1",.01,"E"
- +178 ;;D^DATA TYPE
- +179 ;;R^"863.4:","863.41:1",1,"E"
- +180 ;;D^BOOLEAN
- +181 ;;EOR^
- +182 ;;KEY^863.4:^HL7 CONTROL CODE
- +183 ;;R^"863.4:",.01,"E"
- +184 ;;D^HL7 CONTROL CODE
- +185 ;;R^"863.4:",.02,"E"
- +186 ;;D^HL7CCODE
- +187 ;;R^"863.4:","863.41:1",.01,"E"
- +188 ;;D^DATA TYPE
- +189 ;;R^"863.4:","863.41:1",1,"E"
- +190 ;;D^FREE TEXT
- +191 ;;EOR^
- +192 ;;KEY^863.4:^HL7 ENTERED BY
- +193 ;;R^"863.4:",.01,"E"
- +194 ;;D^HL7 ENTERED BY
- +195 ;;R^"863.4:","863.41:1",.01,"E"
- +196 ;;D^DATA TYPE
- +197 ;;R^"863.4:","863.41:1",1,"E"
- +198 ;;D^FREE TEXT
- +199 ;;EOR^
- +200 ;;KEY^863.4:^HL7 FILLER
- +201 ;;R^"863.4:",.01,"E"
- +202 ;;D^HL7 FILLER
- +203 ;;R^"863.4:",.02,"E"
- +204 ;;D^HL7FILLR
- +205 ;;R^"863.4:","863.41:1",.01,"E"
- +206 ;;D^DATA TYPE
- +207 ;;R^"863.4:","863.41:1",1,"E"
- +208 ;;D^FREE TEXT
- +209 ;;EOR^
- +210 ;;KEY^863.4:^IEN
- +211 ;;R^"863.4:",.01,"E"
- +212 ;;D^IEN
- +213 ;;R^"863.4:","863.41:1",.01,"E"
- +214 ;;D^DATA TYPE
- +215 ;;R^"863.4:","863.41:1",1,"E"
- +216 ;;D^NUMERIC
- +217 ;;EOR^
- +218 ;;KEY^863.4:^INPATIENT
- +219 ;;R^"863.4:",.01,"E"
- +220 ;;D^INPATIENT
- +221 ;;R^"863.4:","863.41:1",.01,"E"
- +222 ;;D^DATA TYPE
- +223 ;;R^"863.4:","863.41:1",1,"E"
- +224 ;;D^BOOLEAN
- +225 ;;EOR^
- +226 ;;KEY^863.4:^LAB RESULTS
- +227 ;;R^"863.4:",.01,"E"
- +228 ;;D^LAB RESULTS
- +229 ;;R^"863.4:","863.41:1",.01,"E"
- +230 ;;D^DATA TYPE
- +231 ;;R^"863.4:","863.41:1",1,"E"
- +232 ;;D^FREE TEXT
- +233 ;;EOR^
- +234 ;;KEY^863.4:^ORDER MODE
- +235 ;;R^"863.4:",.01,"E"
- +236 ;;D^ORDER MODE
- +237 ;;R^"863.4:","863.41:1",.01,"E"
- +238 ;;D^DATA TYPE
- +239 ;;R^"863.4:","863.41:1",1,"E"
- +240 ;;D^FREE TEXT
- +241 ;;EOR^
- +242 ;;KEY^863.4:^ORDER NUMBER
- +243 ;;R^"863.4:",.01,"E"
- +244 ;;D^ORDER NUMBER
- +245 ;;R^"863.4:","863.41:1",.01,"E"
- +246 ;;D^DATA TYPE
- +247 ;;R^"863.4:","863.41:1",1,"E"
- +248 ;;D^NUMERIC
- +249 ;;EOR^
- +250 ;;KEY^863.4:^ORDERABLE ITEM
- +251 ;;R^"863.4:",.01,"E"
- +252 ;;D^ORDERABLE ITEM
- +253 ;;R^"863.4:","863.41:1",.01,"E"
- +254 ;;D^DATA TYPE
- +255 ;;R^"863.4:","863.41:1",1,"E"
- +256 ;;D^FREE TEXT
- +257 ;;EOR^
- +258 ;;KEY^863.4:^ORDERED BY
- +259 ;;R^"863.4:",.01,"E"
- +260 ;;D^ORDERED BY
- +261 ;;R^"863.4:","863.41:1",.01,"E"
- +262 ;;D^DATA TYPE
- +263 ;;R^"863.4:","863.41:1",1,"E"
- +264 ;;D^FREE TEXT
- +265 ;;EOR^
- +266 ;;KEY^863.4:^PT LOCATION
- +267 ;;R^"863.4:",.01,"E"
- +268 ;;D^PT LOCATION
- +269 ;;R^"863.4:","863.41:1",.01,"E"
- +270 ;;D^DATA TYPE
- +271 ;;R^"863.4:","863.41:1",1,"E"
- +272 ;;D^FREE TEXT
- +273 ;;EOR^
- +274 ;;EOF^OCXS(863.4)^1
- +275 ;;SOF^863.2 OCX MDD SUBJECT
- +276 ;;KEY^863.2:^PATIENT
- +277 ;;R^"863.2:",.01,"E"
- +278 ;;D^PATIENT
- +279 ;;R^"863.2:","863.21:1",.01,"E"
- +280 ;;D^FILE
- +281 ;;R^"863.2:","863.21:1",1,"E"
- +282 ;;D^2
- +283 ;;EOR^
- +284 ;;EOF^OCXS(863.2)^1
- +285 ;;SOF^863.3 OCX MDD LINK
- +286 ;;KEY^863.3:^HL7_ENTERED BY
- +287 ;;R^"863.3:",.01,"E"
- +288 ;;D^HL7_ENTERED BY
- +289 ;;R^"863.3:",.02,"E"
- +290 ;;D^PATIENT
- +291 ;;R^"863.3:",.05,"E"
- +292 ;;D^HL7 ENTERED BY
- +293 ;;R^"863.3:",.06,"E"
- +294 ;;D^99
- +295 ;;R^"863.3:","863.32:1",.01,"E"
- +296 ;;D^OCXO VARIABLE NAME
- +297 ;;R^"863.3:","863.32:1",1,"E"
- +298 ;;D^OCXODATA("ORC",10)
- +299 ;;R^"863.3:","863.32:2",.01,"E"
- +300 ;;D^OCXO UP-ARROW PIECE NUMBER
- +301 ;;R^"863.3:","863.32:2",1,"E"
- +302 ;;D^1
- +303 ;;EOR^
- +304 ;;KEY^863.3:^INPATIENT
- +305 ;;R^"863.3:",.01,"E"
- +306 ;;D^INPATIENT
- +307 ;;R^"863.3:",.02,"E"
- +308 ;;D^PATIENT
- +309 ;;R^"863.3:",.05,"E"
- +310 ;;D^INPATIENT
- +311 ;;R^"863.3:",.06,"E"
- +312 ;;D^99
- +313 ;;R^"863.3:","863.32:1",.01,"E"
- +314 ;;D^OCXO EXTERNAL FUNCTION CALL
- +315 ;;R^"863.3:","863.32:1",1,"E"
- +316 ;;D^WARDRMBD(|PATIENT IEN|)
- +317 ;;R^"863.3:","863.32:2",.01,"E"
- +318 ;;D^OCXO UP-ARROW PIECE NUMBER
- +319 ;;R^"863.3:","863.32:2",1,"E"
- +320 ;;D^1
- +321 ;;EOR^
- +322 ;;KEY^863.3:^ORDER.CANCELED BY
- +323 ;;R^"863.3:",.01,"E"
- +324 ;;D^ORDER.CANCELED BY
- +325 ;;R^"863.3:",.02,"E"
- +326 ;;D^PATIENT
- +327 ;;R^"863.3:",.05,"E"
- +328 ;;D^CANCELED BY
- +329 ;;R^"863.3:",.06,"E"
- +330 ;;D^998
- +331 ;;R^"863.3:","863.32:1",.01,"E"
- +332 ;;D^OCXO EXTERNAL FUNCTION CALL
- +333 ;1;
- +334 ;