| DESCRIPTION OF ENHANCEMENTS |
This patch addresses the following issue:
display when matching them
Associated NSR(s):
==================
N/A
Participating Test Sites:
=========================
TBD
Defect Tracking System Ticket(s) & Overview:
===========================================
1. INC22708310 eRx - Requesting the formulary status of VistA drugs
display when matching them
Problem:
-------
eRx - Requesting the formulary status of VistA drugs display when
Fayetteville VA Medical Center (AR) s requesting non-Formulary identifier
to show after auto drug match and a previous manual validation. This
could be a patient safety issue and is a cost issue. Non-formulary drugs
are slipping through that probably should not. This would help efficiency
while processing prescriptions from the inbound eRX queue.
Resolution:
----------
In option Complete Orders from eRx [PSO ERX FINISH], on the second screen
of the eRx Holding Queue Display and the second screen of PSO ERX DRUG
matching them
VALIDATION, the non-Formulary identifier (***N/F***) is added to the
right of the Vista Drug. In addition, when validating the drug/sig, the
non-Formulary identifier (***N/F***) will be added in two places; to the
right of the drug on the prompts 'Current Vista Drug:' and 'You have
selected:'.
Technical Resolution:
--------------------
Routine PSOERX1G is modified to display the non-Formulary identifier
(***N/F***) on line DISPRX+4^PSOERX1G
Before patch
.S LINE=LINE+1 D SET^VALM10(LINE,"Vista Drug"_$S(DRMANVAL:"[v]",1:"")_":
"_VADRG_" "_$P($$VADRSCH^PSOERXUT(VADRGIEN),"^",3))
After patch
.S PSONF="" I $G(VADRGIEN) S
PSONF=$S($P(^PSDRUG(VADRGIEN,0),"^",9):"***(N/F)***",1:"") ;p689
.S LINE=LINE+1 D SET^VALM10(LINE,"Vista Drug"_$S(DRMANVAL:"[v]",1:"")_":
"_VADRG_" "_$P($$VADRSCH^PSOERXUT(VADRGIEN),"^",3)_PSONF)
Associated ticket(s):
Routine PSOERXD1 is modified to display the non-Formulary identifier
(***N/F***) on line INIT+109^PSOERXD1
Before the patch
S LINE=LINE+1 D SET^VALM10(LINE," (1) Vista Drug: "_VADRG_"
"_$P($$VADRSCH^PSOERXUT(VADRGIEN),"^",3))
After the patch
S PSONF="" I $G(VADRGIEN) S
PSONF=$S($P(^PSDRUG(VADRGIEN,0),"^",9):"***(N/F)***",1:"") ;p689
S LINE=LINE+1 D SET^VALM10(LINE," (1) Vista Drug: "_VADRG_"
=====================
"_$P($$VADRSCH^PSOERXUT(VADRGIEN),"^",3)_PSONF)
Routine PSOERXD2 is modified to display the non-Formulary identifier
(***N/F***) on lines VDRG1+9^PSOERXD2 & VDRG1+23^PSOERXD2.
VDRG1+9^PSOERXD2
Before the patch:
I VAODRG W !,"Current Vista Drug: "_$$GET1^DIQ(50,VAODRG,.01,"E")_"
"_$P($$VADRSCH^PSOERXUT(VAODRG),"^",3)
After the patch
I VAODRG W !,"Current Vista Drug: "_$$GET1^DIQ(50,VAODRG,.01,"E")_"
"_$P($$VADRSCH^PSOERXUT(VAODRG),"^",3)_$S($P(^PSDRUG(VAODRG,0),"^",9):"
***(N/F)***",1:"")
VDRG1+23^PSOERXD2
Before the patch:
W !!,"You have selected: "_$P(Y,U,2),!,"Would you like to use this
drug/supply?" S DIR(0)="YO" D ^DIR K DIR
After the patch:
W !!,"You have selected: "_$P(Y,U,2)_ )_$S($P(^PSDRUG(+Y,0),"^",9):"
1. INC22708310 eRx - Requesting the formulary status of VistA drugs
***(N/F)***",1:""),!,"Would you like to use this
drug/supply?" S DIR(0)="YO" D ^DIR K DIR
|
