| DESCRIPTION OF ENHANCEMENTS |
This patch addresses the following issue:
Problem:
--------
When copying a titration order, at the duration prompt, which was 2W
(2weeks). It did not honor the defaults. It kept on repeating no more
than 2 days. And the user is stuck on the Limited Duration prompt.
The problem was found to be due to code from patch PSO*7*457, which was
part of a clozapine enhancement that is no longer valid and was only
meant for a clozapine order. Patch PSO*7*574 added logic that skips the
logic added by PSO*7*457, unfortunately, it causes problems when copying
an order defined with a limited duration.
Resolution:
-----------
The resolution is to comment out the logic from PSO*7*457 in DUR^PSOORED5.
Technical Resolution:
---------------------
ISSUE WITH COPYING A LIMITED DURATION ORDER
The code found at line DUR+8^PSOORED5 through line DUR+17^PSOORED5 is
commented out.
The code is changed from:
;/RBN Begin modification for #326 ;/MZR Added a message and correct
checking for Hours/Minutes
I $G(DIR("B"))!$G(PSORXED("DURATION",ENT)) N Z,MAX D I Z>MAX S
PSORXED("DURATION",$G(PSORXED("ENT")))=MAX G DUR
.I X=+X S Z=X
.E S
Z=$E(X,$L(X)),Z=$S(Z="L":30*X,Z="W":7*X,Z="H":X/24,Z="M":X/1440,1:+X)
.S MAX=$S($G(DIR("B")):+DIR("B"),1:$G(PSORXED("DURATION",ENT)))
.I Z>MAX D
..W "
("_$S(X["L":"MONTHS",X["W":"WEEKS",X["H":"HOURS",X["M":"MINUTES",1:"DAYS")
_")"
..W !,"NOT MORE THAN ",MAX," DAYS"
;; END NCC REMEDIATION << 457*RJS
To:
;PSO*7*754 comment out code added with PSO*7*457
;; START NCC REMEDIATION >> 457*RJS - ADJUST FOR 4 DAY SUPPLY
;/RBN Begin modification for #326 ;/MZR Added a message and correct
checking for Hours/Minutes
;I $G(DIR("B"))!$G(PSORXED("DURATION",ENT)) N Z,MAX D I Z>MAX S
PSORXED("DURATION",$G(PSORXED("ENT")))=MAX G DUR
;.I X=+X S Z=X
Defect Tracking System Ticket(s) & Overview:
;.E S
Z=$E(X,$L(X)),Z=$S(Z="L":30*X,Z="W":7*X,Z="H":X/24,Z="M":X/1440,1:+X)
;.S MAX=$S($G(DIR("B")):+DIR("B"),1:$G(PSORXED("DURATION",ENT)))
;.I Z>MAX D
;..W "
("_$S(X["L":"MONTHS",X["W":"WEEKS",X["H":"HOURS",X["M":"MINUTES",1:"DAYS")
_")"
;..W !,"NOT MORE THAN ",MAX," DAYS"
;; END NCC REMEDIATION << 457*RJS
1. INC31444921 - ISSUE WITH COPYING A LIMITED DURATION ORDER
|
