| DESCRIPTION OF ENHANCEMENTS |
Defect Tracking System Ticket(s) & Overview:
Resolution:
-----------
The BCMA code (routine PSBVDLU1) was trying to decide if the med should
be given on Tuesday using the 2 letter code TU, the schedule name
SATURDAY contains TU and determines that it should be given on Tuesday,
which was incorrect. The code is modified to prevent this from occurring.
Technical Resolution:
---------------------
Lines OKAY+40 through OKAY+43 is changed from
S PSBDOW=$P("SU^MO^TU^WE^TH^FR^SA",U,%Y+1) ;p145
I $F(PSBSCH,PSBDOW)>0 S PSBOKAY=1 Q PSBOKAY
S PSBOKAY=0
Q PSBOKAY
To
;PSB*3*145 Prevent Saturday schedule from being given on Tuesday
N PSBSCH1 S PSBSCH1=PSBSCH
I PSBSCH1["SATU" S PSBSCH1=$TR(PSBSCH1,"SATU","SATA")
1. INC30190209 - SATURDAY SCHEDULE PROMPT BCMA VDL TO ADMINISTER DRUG SAT
S PSBDOW=$P("SU^MO^TU^WE^TH^FR^SA",U,%Y+1)
;I $F(PSBSCH,PSBDOW)>0 S PSBOKAY=1 Q PSBOKAY
I $F(PSBSCH1,PSBDOW)>0 S PSBOKAY=1 Q PSBOKAY
S PSBOKAY=0
Q PSBOKAY
AND TUESDAY
Problem:
--------
SATURDAY, pharmacy standard schedule prompts BCMA Virtual Due List to
also administer the drug on Tuesday.
|
