LROR6 ;SLC/DCM - EDIT LAB ORDERS FOR OE/RR ;8/11/97
Source file <LROR6.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
DC(REQ,STAT) | ;DC reason
|
|
AGAIN | ||
DC1(REASON,TEXT) | ;Set HL7 String for DC Reason
|
|
NEW(REQ) | ;Get Nature of order
|
|
NEW1(NATURE) | ;Set HL7 String for Nature of Order
|
|
EN | ;OE/RR 2.5 Nature of Order processes
|
|
EDIT | ;Edit orders for OE/RR 2.5
|
|
OT | ;OE/RR 2.5 Natuer of Order processing
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(9.4 - [#9.4] | DC+5 |
^LAB(69.9 - [#69.9] | DC+6, NEW+4 |
^ORD(100.02 - [#100.02] | NEW1+4 |
^ORD(100.03 - [#100.03] | DC1+5 |
^XUSEC("LRLAB" | OT+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | AGAIN+5*, AGAIN+6 |
DEF | DC+4~, DC+6*, AGAIN, NEW+3~, NEW+4* |
DIR | OT+11! |
DIR("?" | OT+1*, OT+2*, OT+3*, OT+4*, OT+5*, OT+6*, OT+7* |
DIR("A" | OT+8* |
DIR("B" | OT+9* |
DIR(0 | OT+10* |
DUZ | OT+9 |
>> I | EDIT+1* |
>> LRMSTATI | AGAIN+1* |
>> LRNATURE | AGAIN*, NEW+4* |
LRODT | EDIT+1*, EDIT+4! |
LRSN | EDIT+1*, EDIT+4! |
LRSX | EDIT+4! |
NATURE | NEW1~, NEW1+3, NEW1+4 |
OK | DC+4~, AGAIN+1*, AGAIN+5* |
ORACTION | EDIT+3~ |
>> OREND | EN+2* |
>> ORGY | EN+2 |
>> ORNATR | OT+11* |
>> ORNDO | EDIT+3* |
ORPARAM | EDIT+3~ |
>> ORPK | EDIT+1 |
>> ORSTS | EN+1, EDIT+2 |
PKG | DC+4~, DC+5*, AGAIN |
R | DC+4~ |
REASON | DC1~, DC1+4, DC1+5 |
REQ | DC~, AGAIN, NEW~, NEW+4 |
STAT | DC~, AGAIN+1 |
TEXT | DC1~, DC1+5 |
X | DC+4~, AGAIN*, AGAIN+1, DC1+5~*, DC1+6, NEW+3~, NEW+4*, NEW1+4~*, NEW1+5, EDIT+2* |
>> Y | OT+11, OT+12 |