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/OCXOZ0H.m

    r613 r623  
    1 OCXOZ0H ;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 EL56    ; Examine every rule that involves Element #56 [PATIENT DISCHARGE]
    14         ;  Called from SCAN+9^OCXOZ01.
    15         ;
    16         Q:$G(OCXOERR)
    17         ;
    18         D R19R1A^OCXOZ0N   ; Check Relation #1 in Rule #19 'PATIENT DISCHARGE'
    19         Q
    20         ;
    21 EL47    ; Examine every rule that involves Element #47 [ORDER REQUIRES CO-SIGNATURE]
    22         ;  Called from SCAN+9^OCXOZ01.
    23         ;
    24         Q:$G(OCXOERR)
    25         ;
    26         D R22R1A^OCXOZ0O   ; Check Relation #1 in Rule #22 'ORDER REQUIRES CO-SIGNATURE'
    27         Q
    28         ;
    29 EL5     ; Examine every rule that involves Element #5 [HL7 FINAL LAB RESULT]
    30         ;  Called from SCAN+9^OCXOZ01.
    31         ;
    32         Q:$G(OCXOERR)
    33         ;
    34         D R24R1A^OCXOZ0O   ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
    35         D R66R1A^OCXOZ0Z   ; Check Relation #1 in Rule #66 'LAB RESULTS'
    36         D R69R1A^OCXOZ11   ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
    37         Q
    38         ;
    39 EL49    ; Examine every rule that involves Element #49 [ORDER FLAGGED FOR RESULTS]
    40         ;  Called from SCAN+9^OCXOZ01.
    41         ;
    42         Q:$G(OCXOERR)
    43         ;
    44         D R24R1A^OCXOZ0O   ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
    45         Q
    46         ;
    47 EL55    ; Examine every rule that involves Element #55 [CONSULT FINAL RESULTS]
    48         ;  Called from SCAN+9^OCXOZ01.
    49         ;
    50         Q:$G(OCXOERR)
    51         ;
    52         D R24R1A^OCXOZ0O   ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
    53         Q
    54         ;
    55 EL101   ; Examine every rule that involves Element #101 [HL7 FINAL IMAGING RESULT]
    56         ;  Called from SCAN+9^OCXOZ01.
    57         ;
    58         Q:$G(OCXOERR)
    59         ;
    60         D R24R1A^OCXOZ0O   ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
    61         Q
    62         ;
    63 EL60    ; Examine every rule that involves Element #60 [NEW OBR STAT ORDER]
    64         ;  Called from SCAN+9^OCXOZ01.
    65         ;
    66         Q:$G(OCXOERR)
    67         ;
    68         D R28R1A^OCXOZ0P   ; Check Relation #1 in Rule #28 'STAT ORDER PLACED'
    69         Q
    70         ;
    71 EL61    ; Examine every rule that involves Element #61 [NEW ORC STAT ORDER]
    72         ;  Called from SCAN+9^OCXOZ01.
    73         ;
    74         Q:$G(OCXOERR)
    75         ;
    76         D R28R1A^OCXOZ0P   ; Check Relation #1 in Rule #28 'STAT ORDER PLACED'
    77         Q
    78         ;
    79 EL42    ; Examine every rule that involves Element #42 [PATIENT TRANSFERRED FROM PSYCH WARD]
    80         ;  Called from SCAN+9^OCXOZ01.
    81         ;
    82         Q:$G(OCXOERR)
    83         ;
    84         D R32R1A^OCXOZ0P   ; Check Relation #1 in Rule #32 'PATIENT TRANSFERRED FROM PSYCHIATRY TO ANOTHER UNIT'
    85         Q
    86         ;
    87 EL20    ; Examine every rule that involves Element #20 [HL7 LAB ORDER CANCELLED]
    88         ;  Called from SCAN+9^OCXOZ01.
    89         ;
    90         Q:$G(OCXOERR)
    91         ;
    92         D R35R1A^OCXOZ0Q   ; Check Relation #1 in Rule #35 'LAB ORDER CANCELLED'
    93         Q
    94         ;
    95 EL40    ; Examine every rule that involves Element #40 [HL7 LAB REQUEST CANCELLED]
    96         ;  Called from SCAN+9^OCXOZ01.
    97         ;
    98         Q:$G(OCXOERR)
    99         ;
    100         D R35R1A^OCXOZ0Q   ; Check Relation #1 in Rule #35 'LAB ORDER CANCELLED'
    101         Q
    102         ;
    103 EL6     ; Examine every rule that involves Element #6 [HL7 NEW OERR ORDER]
    104         ;  Called from SCAN+9^OCXOZ01.
    105         ;
    106         Q:$G(OCXOERR)
    107         ;
    108         D R38R1A^OCXOZ0Q   ; Check Relation #1 in Rule #38 'NEW ORDER PLACED'
    109         Q
    110         ;
    111 EL126   ; Examine every rule that involves Element #126 [HL7 DCED OERR ORDER]
    112         ;  Called from SCAN+9^OCXOZ01.
    113         ;
    114         Q:$G(OCXOERR)
    115         ;
    116         D R38R2A^OCXOZ0Q   ; Check Relation #2 in Rule #38 'NEW ORDER PLACED'
    117         Q
    118         ;
    119 EL23    ; Examine every rule that involves Element #23 [HL7 LAB ORDER RESULTS ABNORMAL]
    120         ;  Called from SCAN+9^OCXOZ01.
    121         ;
    122         Q:$G(OCXOERR)
    123         ;
    124         D R42R1A^OCXOZ0R   ; Check Relation #1 in Rule #42 'ABNORMAL LAB RESULTS'
    125         Q
    126         ;
    127 EL103   ; Examine every rule that involves Element #103 [HL7 LAB TEST RESULTS ABNORMAL]
    128         ;  Called from SCAN+9^OCXOZ01.
    129         ;
    130         Q:$G(OCXOERR)
    131         ;
    132         D R42R2A^OCXOZ0R   ; Check Relation #2 in Rule #42 'ABNORMAL LAB RESULTS'
    133         Q
    134         ;
    135 EL48    ; Examine every rule that involves Element #48 [ORDER REQUIRES ELECTRONIC SIGNATURE]
    136         ;  Called from SCAN+9^OCXOZ01.
    137         ;
    138         Q:$G(OCXOERR)
    139         ;
    140         D R44R1A^OCXOZ0R   ; Check Relation #1 in Rule #44 'ORDER REQUIRES ELECTRONIC SIGNATURE'
    141         Q
    142         ;
    143 EL58    ; Examine every rule that involves Element #58 [NEW SITE FLAGGED ORDER]
    144         ;  Called from SCAN+9^OCXOZ01.
    145         ;
    146         Q:$G(OCXOERR)
    147         ;
    148         D R48R1A^OCXOZ0S   ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
    149         D R48R2A^OCXOZ0S   ; Check Relation #2 in Rule #48 'SITE FLAGGED ORDER'
    150         Q
    151         ;
    152 EL127   ; Examine every rule that involves Element #127 [INPATIENT]
    153         ;  Called from SCAN+9^OCXOZ01.
    154         ;
    155         Q:$G(OCXOERR)
    156         ;
    157         D R48R1A^OCXOZ0S   ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
    158         D R49R1A^OCXOZ0T   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
    159         Q
    160         ;
    161 EL128   ; Examine every rule that involves Element #128 [OUTPATIENT]
    162         ;  Called from SCAN+9^OCXOZ01.
    163         ;
    164         Q:$G(OCXOERR)
    165         ;
    166         D R48R2A^OCXOZ0S   ; Check Relation #2 in Rule #48 'SITE FLAGGED ORDER'
    167         D R49R2A^OCXOZ0U   ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
    168         Q
    169         ;
    170 EL59    ; Examine every rule that involves Element #59 [SITE FLAGGED FINAL LAB RESULT]
    171         ;  Called from SCAN+9^OCXOZ01.
    172         ;
    173         Q:$G(OCXOERR)
    174         ;
    175         D R49R1A^OCXOZ0T   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
    176         D R49R2A^OCXOZ0U   ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
    177         Q
    178         ;
    179 EL102   ; Examine every rule that involves Element #102 [SITE FLAGGED FINAL IMAGING RESULT]
    180         ;  Called from SCAN+9^OCXOZ01.
    181         ;
    182         Q:$G(OCXOERR)
    183         ;
    184         D R49R1A^OCXOZ0T   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
    185         D R49R2A^OCXOZ0U   ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
    186         Q
    187         ;
    188 EL109   ; Examine every rule that involves Element #109 [SITE FLAGGED FINAL CONSULT RESULT]
    189         ;  Called from SCAN+9^OCXOZ01.
    190         ;
    191         Q:$G(OCXOERR)
    192         ;
    193         D R49R1A^OCXOZ0T   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
    194         D R49R2A^OCXOZ0U   ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
    195         Q
    196         ;
    197 EL129   ; Examine every rule that involves Element #129 [ABNORMAL RENAL RESULTS]
    198         ;  Called from SCAN+9^OCXOZ01.
    199         ;
    200         Q:$G(OCXOERR)
    201         ;
    202         D R50R1A^OCXOZ0U   ; Check Relation #1 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
    203         Q
    204         ;
    205 EL130   ; Examine every rule that involves Element #130 [CONTRAST MEDIA ORDER]
    206         ;  Called from SCAN+9^OCXOZ01.
    207         ;
    208         Q:$G(OCXOERR)
    209         ;
    210         D R50R1A^OCXOZ0U   ; Check Relation #1 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
    211         D R50R2A^OCXOZ0V   ; Check Relation #2 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
    212         Q
    213         ;
    214 EL133   ; Examine every rule that involves Element #133 [NO CREAT RESULTS W/IN X DAYS]
    215         ;  Called from SCAN+9^OCXOZ01.
    216         ;
    217         Q:$G(OCXOERR)
    218         ;
    219         D R50R2A^OCXOZ0V   ; Check Relation #2 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
    220         Q
    221         ;
    222 EL63    ; Examine every rule that involves Element #63 [PATIENT HAS RECENT CHOLECYSTOGRAM]
    223         ;  Called from SCAN+9^OCXOZ01.
    224         ;
    225         Q:$G(OCXOERR)
    226         ;
    227         D R51R1A^OCXOZ0V   ; Check Relation #1 in Rule #51 'RECENT CHOLECYSTOGRAM ORDER'
    228         Q
    229         ;
    230 EL64    ; Examine every rule that involves Element #64 [PHARMACY PATIENT OVER 65]
    231         ;  Called from SCAN+9^OCXOZ01.
    232         ;
    233         Q:$G(OCXOERR)
    234         ;
    235         D R53R1A^OCXOZ0V   ; Check Relation #1 in Rule #53 'RENAL FUNCTIONS OVER AGE 65 CHECK'
    236         Q
    237         ;
    238 EL65    ; Examine every rule that involves Element #65 [SESSION ORDER FOR ANGIOGRAM]
    239         ;  Called from SCAN+9^OCXOZ01.
    240         ;
    241         Q:$G(OCXOERR)
    242         ;
    243         D R54R1A^OCXOZ0V   ; Check Relation #1 in Rule #54 'CONCURRENT LAB ORDERS FOR ANGIOGRAM, CATH - PERIPHERAL'
    244         Q
    245         ;
    246 EL66    ; Examine every rule that involves Element #66 [CONTRAST MEDIA ALLERGY]
    247         ;  Called from SCAN+9^OCXOZ01.
    248         ;
    249         Q:$G(OCXOERR)
    250         ;
    251         D R55R1A^OCXOZ0V   ; Check Relation #1 in Rule #55 'ALLERGY - CONTRAST MEDIA REACTION'
    252         Q
    253         ;
    254 EL67    ; Examine every rule that involves Element #67 [RECENT BARIUM STUDY ORDERED]
    255         ;  Called from SCAN+9^OCXOZ01.
    256         ;
    257         Q:$G(OCXOERR)
    258         ;
    259         D R56R1A^OCXOZ0W   ; Check Relation #1 in Rule #56 'RECENT BARIUM STUDY'
    260         Q
    261         ;
    262 EL116   ; Examine every rule that involves Element #116 [CLOZAPINE DRUG SELECTED]
    263         ;  Called from SCAN+9^OCXOZ01.
    264         ;
    265         Q:$G(OCXOERR)
    266         ;
    267         D R57R1A^OCXOZ0W   ; Check Relation #1 in Rule #57 'CLOZAPINE'
    268         D R57R2A^OCXOZ0W   ; Check Relation #2 in Rule #57 'CLOZAPINE'
    269         D R57R3A^OCXOZ0W   ; Check Relation #3 in Rule #57 'CLOZAPINE'
    270         D R57R4A^OCXOZ0W   ; Check Relation #4 in Rule #57 'CLOZAPINE'
    271         Q
    272         ;
    273 EL117   ; Examine every rule that involves Element #117 [CLOZAPINE NO ANC W/IN 7 DAYS]
    274         ;  Called from SCAN+9^OCXOZ01.
    275         ;
    276         Q:$G(OCXOERR)
    277         ;
    278         D R57R1A^OCXOZ0W   ; Check Relation #1 in Rule #57 'CLOZAPINE'
    279         Q
    280         ;
    281 EL118   ; Examine every rule that involves Element #118 [CLOZAPINE NO WBC W/IN 7 DAYS]
    282         ;  Called from SCAN+9^OCXOZ01.
    283         ;
    284         Q:$G(OCXOERR)
    285         ;
    286         D R57R1A^OCXOZ0W   ; Check Relation #1 in Rule #57 'CLOZAPINE'
    287         Q
    288         ;
     1OCXOZ0H ;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 ;
     13EL5 ; Examine every rule that involves Element #5 [HL7 FINAL LAB RESULT]
     14 ;  Called from SCAN+9^OCXOZ01.
     15 ;
     16 Q:$G(OCXOERR)
     17 ;
     18 D R24R1A^OCXOZ0O   ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
     19 D R66R1A^OCXOZ0Z   ; Check Relation #1 in Rule #66 'LAB RESULTS'
     20 D R69R1A^OCXOZ11   ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
     21 Q
     22 ;
     23EL49 ; Examine every rule that involves Element #49 [ORDER FLAGGED FOR RESULTS]
     24 ;  Called from SCAN+9^OCXOZ01.
     25 ;
     26 Q:$G(OCXOERR)
     27 ;
     28 D R24R1A^OCXOZ0O   ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
     29 Q
     30 ;
     31EL55 ; Examine every rule that involves Element #55 [CONSULT FINAL RESULTS]
     32 ;  Called from SCAN+9^OCXOZ01.
     33 ;
     34 Q:$G(OCXOERR)
     35 ;
     36 D R24R1A^OCXOZ0O   ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
     37 Q
     38 ;
     39EL101 ; Examine every rule that involves Element #101 [HL7 FINAL IMAGING RESULT]
     40 ;  Called from SCAN+9^OCXOZ01.
     41 ;
     42 Q:$G(OCXOERR)
     43 ;
     44 D R24R1A^OCXOZ0O   ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
     45 Q
     46 ;
     47EL60 ; Examine every rule that involves Element #60 [NEW OBR STAT ORDER]
     48 ;  Called from SCAN+9^OCXOZ01.
     49 ;
     50 Q:$G(OCXOERR)
     51 ;
     52 D R28R1A^OCXOZ0P   ; Check Relation #1 in Rule #28 'STAT ORDER PLACED'
     53 Q
     54 ;
     55EL61 ; Examine every rule that involves Element #61 [NEW ORC STAT ORDER]
     56 ;  Called from SCAN+9^OCXOZ01.
     57 ;
     58 Q:$G(OCXOERR)
     59 ;
     60 D R28R1A^OCXOZ0P   ; Check Relation #1 in Rule #28 'STAT ORDER PLACED'
     61 Q
     62 ;
     63EL42 ; Examine every rule that involves Element #42 [PATIENT TRANSFERRED FROM PSYCH WARD]
     64 ;  Called from SCAN+9^OCXOZ01.
     65 ;
     66 Q:$G(OCXOERR)
     67 ;
     68 D R32R1A^OCXOZ0P   ; Check Relation #1 in Rule #32 'PATIENT TRANSFERRED FROM PSYCHIATRY TO ANOTHER UNIT'
     69 Q
     70 ;
     71EL20 ; Examine every rule that involves Element #20 [HL7 LAB ORDER CANCELLED]
     72 ;  Called from SCAN+9^OCXOZ01.
     73 ;
     74 Q:$G(OCXOERR)
     75 ;
     76 D R35R1A^OCXOZ0Q   ; Check Relation #1 in Rule #35 'LAB ORDER CANCELLED'
     77 Q
     78 ;
     79EL40 ; Examine every rule that involves Element #40 [HL7 LAB REQUEST CANCELLED]
     80 ;  Called from SCAN+9^OCXOZ01.
     81 ;
     82 Q:$G(OCXOERR)
     83 ;
     84 D R35R1A^OCXOZ0Q   ; Check Relation #1 in Rule #35 'LAB ORDER CANCELLED'
     85 Q
     86 ;
     87EL6 ; Examine every rule that involves Element #6 [HL7 NEW OERR ORDER]
     88 ;  Called from SCAN+9^OCXOZ01.
     89 ;
     90 Q:$G(OCXOERR)
     91 ;
     92 D R38R1A^OCXOZ0Q   ; Check Relation #1 in Rule #38 'NEW ORDER PLACED'
     93 Q
     94 ;
     95EL126 ; Examine every rule that involves Element #126 [HL7 DCED OERR ORDER]
     96 ;  Called from SCAN+9^OCXOZ01.
     97 ;
     98 Q:$G(OCXOERR)
     99 ;
     100 D R38R2A^OCXOZ0Q   ; Check Relation #2 in Rule #38 'NEW ORDER PLACED'
     101 Q
     102 ;
     103EL23 ; Examine every rule that involves Element #23 [HL7 LAB ORDER RESULTS ABNORMAL]
     104 ;  Called from SCAN+9^OCXOZ01.
     105 ;
     106 Q:$G(OCXOERR)
     107 ;
     108 D R42R1A^OCXOZ0R   ; Check Relation #1 in Rule #42 'ABNORMAL LAB RESULTS'
     109 Q
     110 ;
     111EL103 ; Examine every rule that involves Element #103 [HL7 LAB TEST RESULTS ABNORMAL]
     112 ;  Called from SCAN+9^OCXOZ01.
     113 ;
     114 Q:$G(OCXOERR)
     115 ;
     116 D R42R2A^OCXOZ0R   ; Check Relation #2 in Rule #42 'ABNORMAL LAB RESULTS'
     117 Q
     118 ;
     119EL48 ; Examine every rule that involves Element #48 [ORDER REQUIRES ELECTRONIC SIGNATURE]
     120 ;  Called from SCAN+9^OCXOZ01.
     121 ;
     122 Q:$G(OCXOERR)
     123 ;
     124 D R44R1A^OCXOZ0R   ; Check Relation #1 in Rule #44 'ORDER REQUIRES ELECTRONIC SIGNATURE'
     125 Q
     126 ;
     127EL58 ; Examine every rule that involves Element #58 [NEW SITE FLAGGED ORDER]
     128 ;  Called from SCAN+9^OCXOZ01.
     129 ;
     130 Q:$G(OCXOERR)
     131 ;
     132 D R48R1A^OCXOZ0S   ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
     133 D R48R2A^OCXOZ0S   ; Check Relation #2 in Rule #48 'SITE FLAGGED ORDER'
     134 Q
     135 ;
     136EL127 ; Examine every rule that involves Element #127 [INPATIENT]
     137 ;  Called from SCAN+9^OCXOZ01.
     138 ;
     139 Q:$G(OCXOERR)
     140 ;
     141 D R48R1A^OCXOZ0S   ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
     142 D R49R1A^OCXOZ0T   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
     143 Q
     144 ;
     145EL128 ; Examine every rule that involves Element #128 [OUTPATIENT]
     146 ;  Called from SCAN+9^OCXOZ01.
     147 ;
     148 Q:$G(OCXOERR)
     149 ;
     150 D R48R2A^OCXOZ0S   ; Check Relation #2 in Rule #48 'SITE FLAGGED ORDER'
     151 D R49R2A^OCXOZ0U   ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
     152 Q
     153 ;
     154EL59 ; Examine every rule that involves Element #59 [SITE FLAGGED FINAL LAB RESULT]
     155 ;  Called from SCAN+9^OCXOZ01.
     156 ;
     157 Q:$G(OCXOERR)
     158 ;
     159 D R49R1A^OCXOZ0T   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
     160 D R49R2A^OCXOZ0U   ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
     161 Q
     162 ;
     163EL102 ; Examine every rule that involves Element #102 [SITE FLAGGED FINAL IMAGING RESULT]
     164 ;  Called from SCAN+9^OCXOZ01.
     165 ;
     166 Q:$G(OCXOERR)
     167 ;
     168 D R49R1A^OCXOZ0T   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
     169 D R49R2A^OCXOZ0U   ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
     170 Q
     171 ;
     172EL109 ; Examine every rule that involves Element #109 [SITE FLAGGED FINAL CONSULT RESULT]
     173 ;  Called from SCAN+9^OCXOZ01.
     174 ;
     175 Q:$G(OCXOERR)
     176 ;
     177 D R49R1A^OCXOZ0T   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
     178 D R49R2A^OCXOZ0U   ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
     179 Q
     180 ;
     181EL129 ; Examine every rule that involves Element #129 [ABNORMAL RENAL RESULTS]
     182 ;  Called from SCAN+9^OCXOZ01.
     183 ;
     184 Q:$G(OCXOERR)
     185 ;
     186 D R50R1A^OCXOZ0U   ; Check Relation #1 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
     187 Q
     188 ;
     189EL130 ; Examine every rule that involves Element #130 [CONTRAST MEDIA ORDER]
     190 ;  Called from SCAN+9^OCXOZ01.
     191 ;
     192 Q:$G(OCXOERR)
     193 ;
     194 D R50R1A^OCXOZ0U   ; Check Relation #1 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
     195 D R50R2A^OCXOZ0V   ; Check Relation #2 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
     196 Q
     197 ;
     198EL133 ; Examine every rule that involves Element #133 [NO CREAT RESULTS W/IN X DAYS]
     199 ;  Called from SCAN+9^OCXOZ01.
     200 ;
     201 Q:$G(OCXOERR)
     202 ;
     203 D R50R2A^OCXOZ0V   ; Check Relation #2 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
     204 Q
     205 ;
     206EL63 ; Examine every rule that involves Element #63 [PATIENT HAS RECENT CHOLECYSTOGRAM]
     207 ;  Called from SCAN+9^OCXOZ01.
     208 ;
     209 Q:$G(OCXOERR)
     210 ;
     211 D R51R1A^OCXOZ0V   ; Check Relation #1 in Rule #51 'RECENT CHOLECYSTOGRAM ORDER'
     212 Q
     213 ;
     214EL64 ; Examine every rule that involves Element #64 [PHARMACY PATIENT OVER 65]
     215 ;  Called from SCAN+9^OCXOZ01.
     216 ;
     217 Q:$G(OCXOERR)
     218 ;
     219 D R53R1A^OCXOZ0V   ; Check Relation #1 in Rule #53 'RENAL FUNCTIONS OVER AGE 65 CHECK'
     220 Q
     221 ;
     222EL65 ; Examine every rule that involves Element #65 [SESSION ORDER FOR ANGIOGRAM]
     223 ;  Called from SCAN+9^OCXOZ01.
     224 ;
     225 Q:$G(OCXOERR)
     226 ;
     227 D R54R1A^OCXOZ0V   ; Check Relation #1 in Rule #54 'CONCURRENT LAB ORDERS FOR ANGIOGRAM, CATH - PERIPHERAL'
     228 Q
     229 ;
     230EL66 ; Examine every rule that involves Element #66 [CONTRAST MEDIA ALLERGY]
     231 ;  Called from SCAN+9^OCXOZ01.
     232 ;
     233 Q:$G(OCXOERR)
     234 ;
     235 D R55R1A^OCXOZ0V   ; Check Relation #1 in Rule #55 'ALLERGY - CONTRAST MEDIA REACTION'
     236 Q
     237 ;
     238EL67 ; Examine every rule that involves Element #67 [RECENT BARIUM STUDY ORDERED]
     239 ;  Called from SCAN+9^OCXOZ01.
     240 ;
     241 Q:$G(OCXOERR)
     242 ;
     243 D R56R1A^OCXOZ0W   ; Check Relation #1 in Rule #56 'RECENT BARIUM STUDY'
     244 Q
     245 ;
     246EL114 ; Examine every rule that involves Element #114 [CLOZAPINE ANC < 1.5]
     247 ;  Called from SCAN+9^OCXOZ01.
     248 ;
     249 Q:$G(OCXOERR)
     250 ;
     251 D R57R1A^OCXOZ0W   ; Check Relation #1 in Rule #57 'CLOZAPINE'
     252 Q
     253 ;
     254EL116 ; Examine every rule that involves Element #116 [CLOZAPINE DRUG SELECTED]
     255 ;  Called from SCAN+9^OCXOZ01.
     256 ;
     257 Q:$G(OCXOERR)
     258 ;
     259 D R57R1A^OCXOZ0W   ; Check Relation #1 in Rule #57 'CLOZAPINE'
     260 D R57R2A^OCXOZ0W   ; Check Relation #2 in Rule #57 'CLOZAPINE'
     261 D R57R3A^OCXOZ0W   ; Check Relation #3 in Rule #57 'CLOZAPINE'
     262 D R57R4A^OCXOZ0W   ; Check Relation #4 in Rule #57 'CLOZAPINE'
     263 D R57R5A^OCXOZ0X   ; Check Relation #5 in Rule #57 'CLOZAPINE'
     264 Q
     265 ;
     266EL119 ; Examine every rule that involves Element #119 [CLOZAPINE WBC < 3.0]
     267 ;  Called from SCAN+9^OCXOZ01.
     268 ;
     269 Q:$G(OCXOERR)
     270 ;
     271 D R57R1A^OCXOZ0W   ; Check Relation #1 in Rule #57 'CLOZAPINE'
     272 Q
     273 ;
     274EL118 ; Examine every rule that involves Element #118 [CLOZAPINE NO WBC W/IN 7 DAYS]
     275 ;  Called from SCAN+9^OCXOZ01.
     276 ;
     277 Q:$G(OCXOERR)
     278 ;
     279 D R57R2A^OCXOZ0W   ; Check Relation #2 in Rule #57 'CLOZAPINE'
     280 Q
     281 ;
     282EL117 ; Examine every rule that involves Element #117 [CLOZAPINE NO ANC W/IN 7 DAYS]
     283 ;  Called from SCAN+9^OCXOZ01.
     284 ;
     285 Q:$G(OCXOERR)
     286 ;
     287 D R57R3A^OCXOZ0W   ; Check Relation #3 in Rule #57 'CLOZAPINE'
     288 Q
     289 ;
Note: See TracChangeset for help on using the changeset viewer.