Ignore:
Timestamp:
Dec 4, 2009, 12:11:15 AM (14 years ago)
Author:
George Lilly
Message:

revised back to 6/30/08 version

File:
1 edited

Legend:

Unmodified
Added
Removed

  • WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0I.m

    r613 r623  
    1 OCXOZ0I ;SLC/RJS,CLA - Order Check Scan ;NOV 8,2009 at 18:44
    2         ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221,243**;Dec 17,1997;Build 242
    3         ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
    4         ;
    5         ; ***************************************************************
    6         ; ** Warning: This routine is automatically generated by the   **
    7         ; ** Rule Compiler (^OCXOCMP) and ANY changes to this routine  **
    8         ; ** will be lost the next time the rule compiler executes.    **
    9         ; ***************************************************************
    10         ;
    11         Q
    12         ;
    13 EL114   ; Examine every rule that involves Element #114 [CLOZAPINE ANC < 1.5]
    14         ;  Called from SCAN+9^OCXOZ01.
    15         ;
    16         Q:$G(OCXOERR)
    17         ;
    18         D R57R2A^OCXOZ0W   ; Check Relation #2 in Rule #57 'CLOZAPINE'
    19         Q
    20         ;
    21 EL119   ; Examine every rule that involves Element #119 [CLOZAPINE WBC < 3.0]
    22         ;  Called from SCAN+9^OCXOZ01.
    23         ;
    24         Q:$G(OCXOERR)
    25         ;
    26         D R57R2A^OCXOZ0W   ; Check Relation #2 in Rule #57 'CLOZAPINE'
    27         Q
    28         ;
    29 EL115   ; Examine every rule that involves Element #115 [CLOZAPINE ANC >= 1.5]
    30         ;  Called from SCAN+9^OCXOZ01.
    31         ;
    32         Q:$G(OCXOERR)
    33         ;
    34         D R57R3A^OCXOZ0W   ; Check Relation #3 in Rule #57 'CLOZAPINE'
    35         Q
    36         ;
    37 EL120   ; Examine every rule that involves Element #120 [CLOZAPINE WBC >= 3.0 & < 3.5]
    38         ;  Called from SCAN+9^OCXOZ01.
    39         ;
    40         Q:$G(OCXOERR)
    41         ;
    42         D R57R3A^OCXOZ0W   ; Check Relation #3 in Rule #57 'CLOZAPINE'
    43         Q
    44         ;
    45 EL140   ; Examine every rule that involves Element #140 [CLOZAPINE ANC >= 1.5 & < 2.0]
    46         ;  Called from SCAN+9^OCXOZ01.
    47         ;
    48         Q:$G(OCXOERR)
    49         ;
    50         D R57R4A^OCXOZ0W   ; Check Relation #4 in Rule #57 'CLOZAPINE'
    51         Q
    52         ;
    53 EL71    ; Examine every rule that involves Element #71 [AMINOGLYCOSIDE ORDER SESSION]
    54         ;  Called from SCAN+9^OCXOZ01.
    55         ;
    56         Q:$G(OCXOERR)
    57         ;
    58         D R59R1A^OCXOZ0X   ; Check Relation #1 in Rule #59 'AMINOGLYCOSIDE ORDER'
    59         Q
    60         ;
    61 EL72    ; Examine every rule that involves Element #72 [PATIENT OVER CT OR MRI DEVICE LIMITATIONS]
    62         ;  Called from SCAN+9^OCXOZ01.
    63         ;
    64         Q:$G(OCXOERR)
    65         ;
    66         D R60R1A^OCXOZ0X   ; Check Relation #1 in Rule #60 'CT OR MRI PHYSICAL LIMIT CHECK'
    67         Q
    68         ;
    69 EL73    ; Examine every rule that involves Element #73 [CREATININE CLEARANCE ESTIMATE]
    70         ;  Called from SCAN+9^OCXOZ01.
    71         ;
    72         Q:$G(OCXOERR)
    73         ;
    74         D R61R1A^OCXOZ0Y   ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
    75         Q
    76         ;
    77 EL96    ; Examine every rule that involves Element #96 [CREATININE CLEARANCE DATE/TIME]
    78         ;  Called from SCAN+9^OCXOZ01.
    79         ;
    80         Q:$G(OCXOERR)
    81         ;
    82         D R61R1A^OCXOZ0Y   ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
    83         Q
    84         ;
    85 EL97    ; Examine every rule that involves Element #97 [RENAL RESULTS]
    86         ;  Called from SCAN+9^OCXOZ01.
    87         ;
    88         Q:$G(OCXOERR)
    89         ;
    90         D R61R1A^OCXOZ0Y   ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
    91         Q
    92         ;
    93 EL84    ; Examine every rule that involves Element #84 [INPATIENT FOOD-DRUG REACTION]
    94         ;  Called from SCAN+9^OCXOZ01.
    95         ;
    96         Q:$G(OCXOERR)
    97         ;
    98         D R62R1A^OCXOZ0Z   ; Check Relation #1 in Rule #62 'FOOD/DRUG INTERACTION'
    99         Q
    100         ;
    101 EL91    ; Examine every rule that involves Element #91 [PATIENT WITH GLUCOPHAGE MED]
    102         ;  Called from SCAN+9^OCXOZ01.
    103         ;
    104         Q:$G(OCXOERR)
    105         ;
    106         D R63R1A^OCXOZ0Z   ; Check Relation #1 in Rule #63 'GLUCOPHAGE - CONTRAST MEDIA'
    107         Q
    108         ;
    109 EL106   ; Examine every rule that involves Element #106 [RADIOLOGY PROCEDURE CONTAINS NON-BARIUM CONTRAST MEDIA]
    110         ;  Called from SCAN+9^OCXOZ01.
    111         ;
    112         Q:$G(OCXOERR)
    113         ;
    114         D R63R1A^OCXOZ0Z   ; Check Relation #1 in Rule #63 'GLUCOPHAGE - CONTRAST MEDIA'
    115         Q
    116         ;
    117 EL95    ; Examine every rule that involves Element #95 [POLYPHARMACY]
    118         ;  Called from SCAN+9^OCXOZ01.
    119         ;
    120         Q:$G(OCXOERR)
    121         ;
    122         D R65R1A^OCXOZ0Z   ; Check Relation #1 in Rule #65 'POLYPHARMACY'
    123         Q
    124         ;
    125 EL86    ; Examine every rule that involves Element #86 [GLUCOPHAGE ORDER]
    126         ;  Called from SCAN+9^OCXOZ01.
    127         ;
    128         Q:$G(OCXOERR)
    129         ;
    130         D R67R1A^OCXOZ10   ; Check Relation #1 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
    131         D R67R2A^OCXOZ10   ; Check Relation #2 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
    132         Q
    133         ;
    134 EL111   ; Examine every rule that involves Element #111 [GLUCOPHAGE CREATININE > 1.5]
    135         ;  Called from SCAN+9^OCXOZ01.
    136         ;
    137         Q:$G(OCXOERR)
    138         ;
    139         D R67R1A^OCXOZ10   ; Check Relation #1 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
    140         Q
    141         ;
    142 EL112   ; Examine every rule that involves Element #112 [NO GLUCOPHAGE CREATININE]
    143         ;  Called from SCAN+9^OCXOZ01.
    144         ;
    145         Q:$G(OCXOERR)
    146         ;
    147         D R67R2A^OCXOZ10   ; Check Relation #2 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
    148         Q
    149         ;
    150 EL122   ; Examine every rule that involves Element #122 [AMITRIPTYLINE ORDER]
    151         ;  Called from SCAN+9^OCXOZ01.
    152         ;
    153         Q:$G(OCXOERR)
    154         ;
    155         D R68R1A^OCXOZ11   ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
    156         Q
    157         ;
    158 EL125   ; Examine every rule that involves Element #125 [MED ORDER FOR PT > 64]
    159         ;  Called from SCAN+9^OCXOZ01.
    160         ;
    161         Q:$G(OCXOERR)
    162         ;
    163         D R68R1A^OCXOZ11   ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
    164         D R68R2A^OCXOZ11   ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
    165         D R68R3A^OCXOZ11   ; Check Relation #3 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
    166         Q
    167         ;
    168 EL123   ; Examine every rule that involves Element #123 [CHLORPROPAMIDE ORDER]
    169         ;  Called from SCAN+9^OCXOZ01.
    170         ;
    171         Q:$G(OCXOERR)
    172         ;
    173         D R68R2A^OCXOZ11   ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
    174         Q
    175         ;
    176 EL124   ; Examine every rule that involves Element #124 [DIPYRIDAMOLE ORDER]
    177         ;  Called from SCAN+9^OCXOZ01.
    178         ;
    179         Q:$G(OCXOERR)
    180         ;
    181         D R68R3A^OCXOZ11   ; Check Relation #3 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
    182         Q
    183         ;
    184 EL131   ; Examine every rule that involves Element #131 [GREATER THAN LAB THRESHOLD]
    185         ;  Called from SCAN+9^OCXOZ01.
    186         ;
    187         Q:$G(OCXOERR)
    188         ;
    189         D R69R1A^OCXOZ11   ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
    190         Q
    191         ;
    192 EL132   ; Examine every rule that involves Element #132 [LESS THAN LAB THRESHOLD]
    193         ;  Called from SCAN+9^OCXOZ01.
    194         ;
    195         Q:$G(OCXOERR)
    196         ;
    197         D R69R1A^OCXOZ11   ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
    198         Q
    199         ;
    200 EL28    ; Examine every rule that involves Element #28 [RADIOLOGY ORDER]
    201         ;  Called from SCAN+9^OCXOZ01.
    202         ;
    203         Q:$G(OCXOERR)
    204         ;
    205         D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
    206         Q
    207         ;
    208 EL135   ; Examine every rule that involves Element #135 [DIET ORDER]
    209         ;  Called from SCAN+9^OCXOZ01.
    210         ;
    211         Q:$G(OCXOERR)
    212         ;
    213         D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
    214         Q
    215         ;
    216 EL136   ; Examine every rule that involves Element #136 [NO ALLERGY ASSESSMENT]
    217         ;  Called from SCAN+9^OCXOZ01.
    218         ;
    219         Q:$G(OCXOERR)
    220         ;
    221         D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
    222         Q
    223         ;
    224 EL137   ; Examine every rule that involves Element #137 [PHARMACY ORDER]
    225         ;  Called from SCAN+9^OCXOZ01.
    226         ;
    227         Q:$G(OCXOERR)
    228         ;
    229         D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
    230         Q
    231         ;
    232 EL138   ; Examine every rule that involves Element #138 [DUP OPIOID MEDS]
    233         ;  Called from SCAN+9^OCXOZ01.
    234         ;
    235         Q:$G(OCXOERR)
    236         ;
    237         D R71R1A^OCXOZ13   ; Check Relation #1 in Rule #71 'OPIOID MEDICATIONS'
    238         Q
    239         ;
    240 EL139   ; Examine every rule that involves Element #139 [OPIOID MED ORDER]
    241         ;  Called from SCAN+9^OCXOZ01.
    242         ;
    243         Q:$G(OCXOERR)
    244         ;
    245         D R71R1A^OCXOZ13   ; Check Relation #1 in Rule #71 'OPIOID MEDICATIONS'
    246         Q
    247         ;
    248 R3R1A   ; Verify all Event/Elements of  Rule #3 'CRITICAL LAB RESULTS'  Relation #1 'CRITICAL LAB TEST'
    249         ;  Called from EL24+5^OCXOZ0G.
    250         ;
    251         Q:$G(OCXOERR)
    252         ;
    253         ;      Local Extrinsic Functions
    254         ; MCE24( ----------->  Verify Event/Element: 'HL7 LAB TEST RESULTS CRITICAL'
    255         ;
    256         Q:$G(^OCXS(860.2,3,"INACT"))
    257         ;
    258         I $$MCE24 D R3R1B^OCXOZ0J
    259         Q
    260         ;
    261 MCE24() ; Verify Event/Element: HL7 LAB TEST RESULTS CRITICAL
    262         ;
    263         ;
    264         N OCXRES
    265         I $L(OCXDF(37)) S OCXRES(24,37)=OCXDF(37)
    266         Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),24)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),24))
    267         Q 0
    268         ;
     1OCXOZ0I ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
     2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
     3 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
     4 ;
     5 ; ***************************************************************
     6 ; ** Warning: This routine is automatically generated by the   **
     7 ; ** Rule Compiler (^OCXOCMP) and ANY changes to this routine  **
     8 ; ** will be lost the next time the rule compiler executes.    **
     9 ; ***************************************************************
     10 ;
     11 Q
     12 ;
     13EL120 ; Examine every rule that involves Element #120 [CLOZAPINE WBC >= 3.0 & < 3.5]
     14 ;  Called from SCAN+9^OCXOZ01.
     15 ;
     16 Q:$G(OCXOERR)
     17 ;
     18 D R57R3A^OCXOZ0W   ; Check Relation #3 in Rule #57 'CLOZAPINE'
     19 D R57R4A^OCXOZ0W   ; Check Relation #4 in Rule #57 'CLOZAPINE'
     20 Q
     21 ;
     22EL115 ; Examine every rule that involves Element #115 [CLOZAPINE ANC >= 1.5]
     23 ;  Called from SCAN+9^OCXOZ01.
     24 ;
     25 Q:$G(OCXOERR)
     26 ;
     27 D R57R4A^OCXOZ0W   ; Check Relation #4 in Rule #57 'CLOZAPINE'
     28 Q
     29 ;
     30EL121 ; Examine every rule that involves Element #121 [CLOZAPINE WBC >= 3.5]
     31 ;  Called from SCAN+9^OCXOZ01.
     32 ;
     33 Q:$G(OCXOERR)
     34 ;
     35 D R57R5A^OCXOZ0X   ; Check Relation #5 in Rule #57 'CLOZAPINE'
     36 Q
     37 ;
     38EL71 ; Examine every rule that involves Element #71 [AMINOGLYCOSIDE ORDER SESSION]
     39 ;  Called from SCAN+9^OCXOZ01.
     40 ;
     41 Q:$G(OCXOERR)
     42 ;
     43 D R59R1A^OCXOZ0X   ; Check Relation #1 in Rule #59 'AMINOGLYCOSIDE ORDER'
     44 Q
     45 ;
     46EL72 ; Examine every rule that involves Element #72 [PATIENT OVER CT OR MRI DEVICE LIMITATIONS]
     47 ;  Called from SCAN+9^OCXOZ01.
     48 ;
     49 Q:$G(OCXOERR)
     50 ;
     51 D R60R1A^OCXOZ0X   ; Check Relation #1 in Rule #60 'CT OR MRI PHYSICAL LIMIT CHECK'
     52 Q
     53 ;
     54EL73 ; Examine every rule that involves Element #73 [CREATININE CLEARANCE ESTIMATE]
     55 ;  Called from SCAN+9^OCXOZ01.
     56 ;
     57 Q:$G(OCXOERR)
     58 ;
     59 D R61R1A^OCXOZ0Y   ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
     60 Q
     61 ;
     62EL96 ; Examine every rule that involves Element #96 [CREATININE CLEARANCE DATE/TIME]
     63 ;  Called from SCAN+9^OCXOZ01.
     64 ;
     65 Q:$G(OCXOERR)
     66 ;
     67 D R61R1A^OCXOZ0Y   ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
     68 Q
     69 ;
     70EL97 ; Examine every rule that involves Element #97 [RENAL RESULTS]
     71 ;  Called from SCAN+9^OCXOZ01.
     72 ;
     73 Q:$G(OCXOERR)
     74 ;
     75 D R61R1A^OCXOZ0Y   ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
     76 Q
     77 ;
     78EL84 ; Examine every rule that involves Element #84 [INPATIENT FOOD-DRUG REACTION]
     79 ;  Called from SCAN+9^OCXOZ01.
     80 ;
     81 Q:$G(OCXOERR)
     82 ;
     83 D R62R1A^OCXOZ0Z   ; Check Relation #1 in Rule #62 'FOOD/DRUG INTERACTION'
     84 Q
     85 ;
     86EL91 ; Examine every rule that involves Element #91 [PATIENT WITH GLUCOPHAGE MED]
     87 ;  Called from SCAN+9^OCXOZ01.
     88 ;
     89 Q:$G(OCXOERR)
     90 ;
     91 D R63R1A^OCXOZ0Z   ; Check Relation #1 in Rule #63 'GLUCOPHAGE - CONTRAST MEDIA'
     92 Q
     93 ;
     94EL106 ; Examine every rule that involves Element #106 [RADIOLOGY PROCEDURE CONTAINS NON-BARIUM CONTRAST MEDIA]
     95 ;  Called from SCAN+9^OCXOZ01.
     96 ;
     97 Q:$G(OCXOERR)
     98 ;
     99 D R63R1A^OCXOZ0Z   ; Check Relation #1 in Rule #63 'GLUCOPHAGE - CONTRAST MEDIA'
     100 Q
     101 ;
     102EL95 ; Examine every rule that involves Element #95 [POLYPHARMACY]
     103 ;  Called from SCAN+9^OCXOZ01.
     104 ;
     105 Q:$G(OCXOERR)
     106 ;
     107 D R65R1A^OCXOZ0Z   ; Check Relation #1 in Rule #65 'POLYPHARMACY'
     108 Q
     109 ;
     110EL86 ; Examine every rule that involves Element #86 [GLUCOPHAGE ORDER]
     111 ;  Called from SCAN+9^OCXOZ01.
     112 ;
     113 Q:$G(OCXOERR)
     114 ;
     115 D R67R1A^OCXOZ10   ; Check Relation #1 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
     116 D R67R2A^OCXOZ10   ; Check Relation #2 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
     117 Q
     118 ;
     119EL111 ; Examine every rule that involves Element #111 [GLUCOPHAGE CREATININE > 1.5]
     120 ;  Called from SCAN+9^OCXOZ01.
     121 ;
     122 Q:$G(OCXOERR)
     123 ;
     124 D R67R1A^OCXOZ10   ; Check Relation #1 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
     125 Q
     126 ;
     127EL112 ; Examine every rule that involves Element #112 [NO GLUCOPHAGE CREATININE]
     128 ;  Called from SCAN+9^OCXOZ01.
     129 ;
     130 Q:$G(OCXOERR)
     131 ;
     132 D R67R2A^OCXOZ10   ; Check Relation #2 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
     133 Q
     134 ;
     135EL122 ; Examine every rule that involves Element #122 [AMITRIPTYLINE ORDER]
     136 ;  Called from SCAN+9^OCXOZ01.
     137 ;
     138 Q:$G(OCXOERR)
     139 ;
     140 D R68R1A^OCXOZ11   ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
     141 Q
     142 ;
     143EL125 ; Examine every rule that involves Element #125 [MED ORDER FOR PT > 64]
     144 ;  Called from SCAN+9^OCXOZ01.
     145 ;
     146 Q:$G(OCXOERR)
     147 ;
     148 D R68R1A^OCXOZ11   ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
     149 D R68R2A^OCXOZ11   ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
     150 D R68R3A^OCXOZ11   ; Check Relation #3 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
     151 Q
     152 ;
     153EL123 ; Examine every rule that involves Element #123 [CHLORPROPAMIDE ORDER]
     154 ;  Called from SCAN+9^OCXOZ01.
     155 ;
     156 Q:$G(OCXOERR)
     157 ;
     158 D R68R2A^OCXOZ11   ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
     159 Q
     160 ;
     161EL124 ; Examine every rule that involves Element #124 [DIPYRIDAMOLE ORDER]
     162 ;  Called from SCAN+9^OCXOZ01.
     163 ;
     164 Q:$G(OCXOERR)
     165 ;
     166 D R68R3A^OCXOZ11   ; Check Relation #3 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
     167 Q
     168 ;
     169EL131 ; Examine every rule that involves Element #131 [GREATER THAN LAB THRESHOLD]
     170 ;  Called from SCAN+9^OCXOZ01.
     171 ;
     172 Q:$G(OCXOERR)
     173 ;
     174 D R69R1A^OCXOZ11   ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
     175 Q
     176 ;
     177EL132 ; Examine every rule that involves Element #132 [LESS THAN LAB THRESHOLD]
     178 ;  Called from SCAN+9^OCXOZ01.
     179 ;
     180 Q:$G(OCXOERR)
     181 ;
     182 D R69R1A^OCXOZ11   ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
     183 Q
     184 ;
     185EL28 ; Examine every rule that involves Element #28 [RADIOLOGY ORDER]
     186 ;  Called from SCAN+9^OCXOZ01.
     187 ;
     188 Q:$G(OCXOERR)
     189 ;
     190 D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
     191 Q
     192 ;
     193EL135 ; Examine every rule that involves Element #135 [DIET ORDER]
     194 ;  Called from SCAN+9^OCXOZ01.
     195 ;
     196 Q:$G(OCXOERR)
     197 ;
     198 D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
     199 Q
     200 ;
     201EL136 ; Examine every rule that involves Element #136 [NO ALLERGY ASSESSMENT]
     202 ;  Called from SCAN+9^OCXOZ01.
     203 ;
     204 Q:$G(OCXOERR)
     205 ;
     206 D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
     207 Q
     208 ;
     209EL137 ; Examine every rule that involves Element #137 [PHARMACY ORDER]
     210 ;  Called from SCAN+9^OCXOZ01.
     211 ;
     212 Q:$G(OCXOERR)
     213 ;
     214 D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
     215 Q
     216 ;
     217EL138 ; Examine every rule that involves Element #138 [DUP OPIOID MEDS]
     218 ;  Called from SCAN+9^OCXOZ01.
     219 ;
     220 Q:$G(OCXOERR)
     221 ;
     222 D R71R1A^OCXOZ13   ; Check Relation #1 in Rule #71 'OPIOID MEDICATIONS'
     223 Q
     224 ;
     225EL139 ; Examine every rule that involves Element #139 [OPIOID MED ORDER]
     226 ;  Called from SCAN+9^OCXOZ01.
     227 ;
     228 Q:$G(OCXOERR)
     229 ;
     230 D R71R1A^OCXOZ13   ; Check Relation #1 in Rule #71 'OPIOID MEDICATIONS'
     231 Q
     232 ;
     233R3R1A ; Verify all Event/Elements of  Rule #3 'CRITICAL LAB RESULTS'  Relation #1 'CRITICAL LAB TEST'
     234 ;  Called from EL24+5^OCXOZ0G.
     235 ;
     236 Q:$G(OCXOERR)
     237 ;
     238 ;      Local Extrinsic Functions
     239 ; MCE24( ----------->  Verify Event/Element: 'HL7 LAB TEST RESULTS CRITICAL'
     240 ;
     241 Q:$G(^OCXS(860.2,3,"INACT"))
     242 ;
     243 I $$MCE24 D R3R1B^OCXOZ0J
     244 Q
     245 ;
     246MCE24() ; Verify Event/Element: HL7 LAB TEST RESULTS CRITICAL
     247 ;
     248 ;
     249 N OCXRES
     250 I $L(OCXDF(37)) S OCXRES(24,37)=OCXDF(37)
     251 Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),24)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),24))
     252 Q 0
     253 ;
Note: See TracChangeset for help on using the changeset viewer.