| DESCRIPTION OF ENHANCEMENTS |
Defect Tracking System Ticket(s) & Overview:
prescriptions with a status of DISCONTINUED BY PROVIDER. Renewing a
prescription with this status is not allowed when renewing for a single
RX selected from the Medication Profile or when doing Barcode Batch
Prescription Entry.
Resolution:
----------
Routine PSORENW4 is modified to check if any RXs selected
for speed renew are discontinued. If any are they are removed from list
of RXs to renew and the message 'Cannot renew Rx # #######, Rx is in
===========================================
DISCONTINUED BY PROVIDER status.' is displayed.
Technical Resolution:
--------------------
;PSO 683 skip discontinued by provider RXs
S (ORD,PSOLCNT)=0
I $G(LST)]"" D
. ; count remaining orders in LST
. F ORD=1:1:$L(LST,",")-1 D
.. Q:$P(LST,",",ORD)'>0
.. S PSOLCNT=PSOLCNT+1,ORN=$P(LST,",",ORD)
.. I (+PSOLST(ORN)=52&(^PSRX($P(PSOLST(ORN),U,2),"STA")=14)) D
... S
PSOSKIP($P(PSOLST(ORN),U,2))="",$P(LST,",",ORD)=0,PSOLCNT=PSOLCNT-1 ;
order removed from LST
.I $O(PSOSKIP(0)) D
.. W !
.. S ORD=0 F S ORD=$O(PSOSKIP(ORD)) Q:'ORD D
... S PSOSTA=$$GET1^DIQ(52,ORD,100)
... W $C(7),!," Cannot renew Rx # "_$$GET1^DIQ(52,ORD,.01)_", Rx is in
1. INC21813625 - OUTPATIENT PHARMACY SPEED RENEW OF RX STATUS
"_PSOSTA_" status."
.. D PAUSE^VALM1
;END PSO 683
DISCONTINUED BY PROVIDER
Problem:
-------
Speed renew allows an outpatient prescription to be renewed for
|
