| GENERAL DESCRIPTION |
Background: DBIA #867 is not usable. The existing
process of protecting orders in OE/RR by using a system of locks on the order
file is not usable due to the limited capacity of the lock tables and the
number of prescriptions that are in CONSOLIDATED MAIL OUTPATIENT PHARMACY
(CMOP) transmissions.
CMOP is given direct write and read permission of the ^XTMP("ORLK-"_ORDER)
global.
CMOP will set for each prescription RXIEN:
where ORDER=+$P($G(^PSRX(RXIEN,"OR1")),"^",2)
1. S NOW=$$NOW^XLFDT,NOW1=$$FMADD^XLFDT(NOW,1) 2. S
^XTMP("ORLK-"_+ORDER,0)=NOW1_U_NOW_"^CPRS/CMOP Order Lock",^(1)=DUZ_U_$J
^XTMP("ORLK-14913",0) = 3030328.104006^3030327.104006^CPRS/CMOP Order Lock
^XTMP("ORLK-14913",1) = 11872^541086169
CMOP will delete ^XTMP("ORLK-"_+ORDER) when each transmission completes. CMOP
recovery will include clearing entries from ^XTMP("ORLK"_+ORDER) if
^(0)["CPRS/CMOP"
CPRS/OERR will include in calls to $$LOCK1^ORX2(order ien), the test of
existence of ^XTMP("ORLK-"_+ORDER,0) and if it exists with (^0) containing
"CPRS/CMOP", will return "0^CMOP Transmission".
|
