| DESCRIPTION OF ENHANCEMENTS |
Defect Tracking System Ticket(s) & Overview:
When processing telephone refills using the option Process Telephone
Refills [PSO PROCESS TELEPHONE REFILLS] and answering, 'Process telephone
refills for all divisions?' with YES, any refills that are not for the
division selected at the start of the Process Telephone Refills option
and has a drug setup in the DRUG file (#50) with CMOP DISPENSE field
(#213) not set to Yes, the drug will be refilled with the wrong division
in the refill record of the PRESCRIPTION file (#52). It will mark the
refill for the division selected in the option instead of the division
for which the original RX was created.
The problem is due to variable PSOSITE being set to the IEN of the
===========================================
OUTPATIENT SITE (#59) selected at the Division: prompt when running the
Process Telephone Refills [PSO PROCESS TELEPHONE REFILLS] option.
This variable is then used during processing and creation of the refill
which results in the incorrect division to be filed into the DIVISION
field (#8) in the REFILL sub record (#52.1D) of the PRESCRIPTION file
(#52) when Process telephone refills for all divisions? // is answered
Yes and a refill is encountered for a division not matching the division
selected.
Resolution:
----------
Variable PSOSITE is used extensively in PSO code, so this patch is only
making a change to PSOSITE's value within routine PSOVEXRX.
When a RX is being processed in Process Telephone Refills and the
original fill is for a division that is different than the division
selected at the Division: prompt, the variable is newed and reset to the
IEN for the division and variable PSOBBC("PSOVEXRX") is also set before
REFILL^PSOBBC is called to process the fill for that RX, the variable is
reset to original value afterwards. PSOBBC("PSOVEXRX") is used
1. INC21810787 - TELEPHONE REFILLS - Processing all divisions
conditionally to determine to display the message 'RX # 1234567 is for
(XXXXXXXXXXX) division.' On the output at the end of running Process
Telephone Refills.
Technical Resolution:
--------------------
Routine PSOVEXRX
Line PSO6+13^PSOVEXRX is commented out and replaced with:
potential error in routine
;p677 handle multi division
;S PSOBBC("DONE")=PSOBBC("IRXN")_"," D REFILL^PSOBBC
I '$P($G(PSOSYS),"^",2) D REFILL^PSOBBC I 1
E D
. I PSOSITE'=$P(^PSRX(PSORXIEN,2),U,9) S PSOBBC("PSOVEXRX")=PSOSITE N
PSOSITE S PSOSITE=$P(^PSRX(PSORXIEN,2),U,9)
. D REFILL^PSOBBC
. K PSOBBC("PSOVEXRX")
S PSOBBC("DONE")=PSOBBC("IRXN")_","
Routine PSOREF0
CHKDIV^PSOREF0 is changed to:
CHKDIV G:$P(PSOREF("RX2"),"^",9)=+PSOSITE&'$G(PSOBBC("PSOVEXRX")) CHKDIVX
;p677 multi division update for telephone refill process
Problem:
-------
|
