Install: PSJ*5.0*329

Patch Subject:  IV TYPE/INCORRECT ORDERABLE ITEM/VISTA MAIL AUTO-DC
Description:

============
 This patch will resolve the following issues:
 1) Invalid IV type allowed
 2) Incorrect orderable item displayed after edit
 3) Vista mail shows "D" and should be "DA" for Auto Discontinue
 Associated Ticket(s):
 =====================
 1) I9856071FY16 - Invalid IV type allowed
    I9855745FY16(d)
 2) I9856969FY16 - Incorrect orderable item displayed after edit
 3) I9856592FY16 - Vista mail shows "D" and should be "DA" for
                   Auto Discontinue
 Associated NSR(s):
 ==================
 N/A
 Participating Test Sites:
 =========================
 Upstate New York HCS
 Orlando VAMC
 Ticket Overview:
 ================
 1) I9856071FY16 - Invalid IV type allowed
 Problem:
 ========
 When entering an IV drug order through VistA, the user can jump (enter
 "^schedule") to another field, leaving the IV type blank.
 Resolution:
 ===========
 Modifications were made to the PSIVORE routine to ensure that an IV type is
 entered for an order.
 2) I9856969FY16 - Incorrect Orderable Item displayed after editing.
 Problem:
 ========
 When a user edits the orderable item for an IV drug order in VistA, by
 adding a new Additive and Orderable item, when the orders gets to the
 point of verification, the Orderable Item reverts back to the original
 Orderable Item.
 Resolution:
 ===========
 A modification was made to routine PSIVORE2 to ensure that the new
 Orderable Item is retrieved from the NON-VERIFIED ORDERS FILE (#53.1).
 3) 9856592FY16 - Vista mail shows "D" and should be "DA" for Auto
                  Discontinue
 Problem:
 ========
 VistA mail is only showing a "D" for 'Discontinued' for orders that were
 Auto Discontinued.  This value should be "DA".
 Resolution:
 ===========
 A modification was made to routine PSJLMUT1 in tags DSPLORDU, DSPLORDV &
 PIV1 to ensure the full value is displayed in the mail message.

Use default answers for KIDS load/install questions.

Patch-Files: http://code.osehra.org/VistA.git/tree/master/Packages/Inpatient+Medications/Patches/PSJ_5.0_329

Packages/Inpatient Medications/Routines/PSIVORE.m

@@ -1,5 +1,5 @@
-PSIVORE ;BIR/PR,MLM-ORDER ENTRY ;1 APR 08 / 2:37 PM
- ;;5.0;INPATIENT MEDICATIONS;**18,29,50,56,58,81,110,127,133,157,203,213,181,252,305,281**;16 DEC 97;Build 113
+PSIVORE ;BIR/PR,MLM - ORDER ENTRY ;1 APR 08 / 2:37 PM
+ ;;5.0;INPATIENT MEDICATIONS;**18,29,50,56,58,81,110,127,133,157,203,213,181,252,305,281,329**;16 DEC 97;Build 4
  ;
  ; Reference to ^PS(55 is supported by DBIA 2191
  ; Reference to ^ORX2 is supported by DBIA #867
@@ -118,6 +118,8 @@ N PSJOUT S (DONE,FLAG)=0,PSIVAC="PN"
  K P,PSIVCHG,PSJCOM,^TMP("PSODAOC",$J)
  S PSJOE=1,DIR(0)="55.01,.04O",DIR("A")="Select IV TYPE" D ^DIR
  I X]"",X'="^",$P("^PROFILE",X)="" S PSJOEPF=X Q
+ I X="^" S PSJOEPF=X Q
+ G:X["^" ENIN1
  S:$D(DTOUT) X="^" I "^"[X S PSJORQF=PSJORQF+$S(X="^":2,$G(FLAG):0,1:1),X="." Q
  S FLAG=1,PSIVTYPE=Y,(P(5),P(23))="" I "SC"[Y D @(Y_"^PSIVORC1") S $P(PSIVTYPE,U,2)=P(23)
  D INMED G:'$D(PSJOUT) ENIN S:$D(PSJOUT) PSJORQF=2

Packages/Inpatient Medications/Routines/PSIVORE2.m

@@ -1,5 +1,5 @@
-PSIVORE2 ;BIR/RGY,PR,MLM-ACT, NEW ORDER (CONT. OF PSIVORE1) ; 8/8/08 10:57am
- ;;5.0;INPATIENT MEDICATIONS;**21,58,101,244,290**;16 DEC 97;Build 16
+PSIVORE2 ;BIR/RGY,PR,MLM - ACT, NEW ORDER (CONT. OF PSIVORE1) ; 8/8/08 10:57am
+ ;;5.0;INPATIENT MEDICATIONS;**21,58,101,244,290,329**;16 DEC 97;Build 4
  ;
  ; References to ^PS(55 supported by DBIA #2191.
  ;
@@ -62,7 +62,7 @@ S P(17)="A",P(4)=$E($G(PSIVTYPE)) S:"CS"[P(4) P(23)=$P($G(PSIVTYPE),U,2)
  Q
  ;
 GTPD ; Find Orderable Item/dosage ordered for IM.
- S P("PD")="" F DRGT="AD","SOL" Q:P("PD")  F DRGI=0:0 S DRGI=$O(DRG(DRGT,DRGI)) Q:'DRGI!P("PD")  D
+ S P("PD")="" F DRGT="AD","SOL" Q:P("PD")  F DRGI=0:0 S DRGI=$O(DRG(DRGT,DRGI)) Q:'DRGI  D
  . S X=DRG(DRGT,DRGI) S:$P(X,U,6) P("PD")=$P(X,U,6)_U_$$OIDF^PSJLMUT1(+$P(X,U,6))
  . S P("DO")=$P(X,U,3)
  . ;S:$G(P("DO"))="" P("DO")=$P(X,U,3)

Packages/Inpatient Medications/Routines/PSJLMUT1.m

@@ -1,5 +1,5 @@
 PSJLMUT1 ;BIR/MLM - DRUG NAME DISPLAY ;05 Feb 98  1:39 PM
- ;;5.0;INPATIENT MEDICATIONS;**4,27,29,49,58,107,110,146,175,201,181,281**;16 DEC 97;Build 113
+ ;;5.0;INPATIENT MEDICATIONS;**4,27,29,49,58,107,110,146,175,201,181,281,329**;16 DEC 97;Build 4
  ;
  ; Reference to ^PS(55 is supported by DBIA# 2191.
  ; Reference to ^PS(50.7 is supported by DBIA# 2180.
@@ -57,10 +57,11 @@
  I ON["P",$P(NODE0,U,4)="F" D DSPLORDV(PSGP,ON) Q
  S SCH=$P(NODE0,U,7)
  S STAT=$P(NODE0,U,9) I STAT="A",$P(NODE0,U,27)="R" S STAT="R"
+ I STAT="D" S STAT=$P(NODE0,U,28)
  I STAT'="P" S PSJID=$E($$ENDTC^PSGMI($P(NODE2,U,2)),1,5),SD=$E($$ENDTC^PSGMI($P(NODE2,U,4)),1,5)
  I STAT="P" S (PSJID,SD)="*****",SCH="?"
  F PSJX=0:0 S PSJX=$O(DRUGNAME(PSJX)) Q:'PSJX  D
- . S:PSJX=1 X=SCH_"  "_PSJID_"  "_SD_"  "_$E(STAT,1)
+ . S:PSJX=1 X=SCH_"  "_PSJID_"  "_SD_"  "_$E(STAT,1,2)
  . S:PSJX=1 DRUGNAME(1)=$$SETSTR^VALM1(X,$E(DRUGNAME(1),1,40),42,20)
  . S PSJOC(ON,PSJLINE)="        "_DRUGNAME(PSJX)
  . S PSJLINE=PSJLINE+1
@@ -69,6 +70,7 @@
  N DRG,DRGI,DRGT,DRGX,FIL,ND,ON55,P,PSJIVFLG,PSJORIFN,TYP,X,Y,COMPDRG
  S TYP="?" I ON["V" D
  .S Y=$G(^PS(55,DFN,"IV",+ON,0)) F X=2,3,4,5,8,9,17,23 S P(X)=$P(Y,U,X)
+ .S:P(17)="D" P(17)=$P(Y,U,25)
  .S TYP=$$ONE^PSJBCMA(DFN,ON,P(9),P(2),P(3)) I TYP'="O" S TYP="C"
  .S ON55=ON,P("OT")=$S(P(4)="A":"F",P(4)="H":"H",1:"I") D GTDRG^PSIVORFB,GTOT^PSIVUTL(P(4))
  S PSJCT=0,PSJL=""
@@ -98,8 +100,8 @@
 PIV1 ; Print Sched type, start/stop dates, and status.
  K PSJIVFLG
  F X=2,3 S P(X)=$E($$ENDTC^PSGMI(P(X)),1,$S($D(PSJEXTP):8,1:5))
- I '$D(PSJEXTP) S PSJL=$$SETSTR^VALM1(TYP,PSJL,50,1),PSJL=$$SETSTR^VALM1(P(2),PSJL,53,7),PSJL=$$SETSTR^VALM1(P(3),PSJL,60,7),PSJL=$$SETSTR^VALM1(P(17),PSJL,67,1)
- E  S PSJL=$$SETSTR^VALM1(TYP,PSJL,50,1),PSJL=$$SETSTR^VALM1(P(2),53,7),PSJL=$$SETSTR^VALM1(P(3),PSJL,63,7),PSJL=$$SETSTR^VALM1(P(17),PSJL,73,1)
+ I '$D(PSJEXTP) S PSJL=$$SETSTR^VALM1(TYP,PSJL,50,1),PSJL=$$SETSTR^VALM1(P(2),PSJL,53,7),PSJL=$$SETSTR^VALM1(P(3),PSJL,60,7),PSJL=$$SETSTR^VALM1(P(17),PSJL,67,2)
+ E  S PSJL=$$SETSTR^VALM1(TYP,PSJL,50,1),PSJL=$$SETSTR^VALM1(P(2),53,7),PSJL=$$SETSTR^VALM1(P(3),PSJL,63,7),PSJL=$$SETSTR^VALM1(P(17),PSJL,73,2)
  Q
 SETTMP ;
  S PSJOC(ON,PSJLINE)=PSJL,PSJLINE=PSJLINE+1

Packages/Kernel/Globals/%ZTSCH.zwr

@@ -1,9 +1,9 @@
 OSEHRA ZGO Export: ^%ZTSCH
-24-FEB-2017 17:31:06 ZWR
+24-FEB-2017 18:03:27 ZWR
 ^%ZTSCH("DEVTRY","//./nul")="5311138792"
 ^%ZTSCH("ER")=""
 ^%ZTSCH("HOUR")="5558866064"
-^%ZTSCH("IDLE")="5558866184"
+^%ZTSCH("IDLE")="5558868133"
 ^%ZTSCH("IO")="5558858637^"
 ^%ZTSCH("IO","GMRA UPDATE RESOURCE")="RES"
 ^%ZTSCH("LOAD")=""
@@ -37,8 +37,8 @@ OSEHRA ZGO Export: ^%ZTSCH
 ^%ZTSCH("STARTUP","VISTA,VISTA","10Q8853")="60297,52041^^"
 ^%ZTSCH("STARTUP","VISTA,VISTA","11Q8412")="60297,52056^^"
 ^%ZTSCH("STARTUP","VISTA,VISTA","8Q9891")="59494,69903^^"
-^%ZTSCH("STOP","MGR","VISTA:CACHE")="64338,63011"
-^%ZTSCH("STOP","SUB","VISTA:CACHE")="64338,63011"
+^%ZTSCH("STOP","MGR","VISTA:CACHE")="64338,64953"
+^%ZTSCH("STOP","SUB","VISTA:CACHE")="64338,64953"
 ^%ZTSCH("SUB","VISTA:CACHE")="0"
 ^%ZTSCH("SUB","VISTA:CACHE",0)="0"
 ^%ZTSCH("WAIT")="58035,64592"

Packages/Kernel/Globals/14.4+TASKS.zwr

@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: TASKS
-24-FEB-2017 17:31:06 ZWR
-^%ZTSK(-1)="1420"
+24-FEB-2017 18:03:27 ZWR
+^%ZTSK(-1)="1423"
 ^%ZTSK(0)="TASKS^14.4^1375"
 ^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^"
 ^%ZTSK(1001,.02)="^PLA^^"
@@ -5418,6 +5418,39 @@ OSEHRA ZGO Export: TASKS
 ^%ZTSK(1420,.3,"DUZ(",0)="@"
 ^%ZTSK(1420,.3,"XQSCH")="8"
 ^%ZTSK(1420,.3,"XQY")="9891"
+^%ZTSK(1421,0)="ZTSK^XQ1^.5^VISTA^64338,64872^64338,64872^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1421,.02)="^VISTA^^"
+^%ZTSK(1421,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1421,.04)="5558868072"
+^%ZTSK(1421,.1)="B^64338,64872^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(1421,.2)=""
+^%ZTSK(1421,.21)=""
+^%ZTSK(1421,.25)=""
+^%ZTSK(1421,.3,"DUZ(",0)="@"
+^%ZTSK(1421,.3,"XQSCH")="10"
+^%ZTSK(1421,.3,"XQY")="8853"
+^%ZTSK(1422,0)="ZTSK^XQ1^.5^VISTA^64338,64872^64338,64872^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1422,.02)="^VISTA^^"
+^%ZTSK(1422,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1422,.04)="5558868072"
+^%ZTSK(1422,.1)="B^64338,64874^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(1422,.2)=""
+^%ZTSK(1422,.21)=""
+^%ZTSK(1422,.25)=""
+^%ZTSK(1422,.3,"DUZ(",0)="@"
+^%ZTSK(1422,.3,"XQSCH")="11"
+^%ZTSK(1422,.3,"XQY")="8412"
+^%ZTSK(1423,0)="ZTSK^XQ1^.5^VISTA^64338,64872^64338,64872^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1423,.02)="^VISTA^^"
+^%ZTSK(1423,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1423,.04)="5558868072"
+^%ZTSK(1423,.1)="B^64338,64877^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(1423,.2)=""
+^%ZTSK(1423,.21)=""
+^%ZTSK(1423,.25)=""
+^%ZTSK(1423,.3,"DUZ(",0)="@"
+^%ZTSK(1423,.3,"XQSCH")="8"
+^%ZTSK(1423,.3,"XQY")="9891"
 ^%ZTSK(1082462,.1)="E^64013,39495^Interrupted While Running"
 ^%ZTSK(1082463,.1)="E^64013,39495^Interrupted While Running"
 ^%ZTSK(1082464,.1)="E^64013,39495^Interrupted While Running"

Packages/Kernel/Globals/200+NEW PERSON.zwr

@@ -1,5 +1,5 @@
 OSEHRA ZGO Export: NEW PERSON
-24-FEB-2017 17:32:28 ZWR
+24-FEB-2017 18:04:53 ZWR
 ^VA(200,0)="NEW PERSON^200Is^60^62"
 ^VA(200,.5,0)="POSTMASTER^^;^^^^^^^^^^^^^.5"
 ^VA(200,.5,1)="^^^^^^2960604^.5"
@@ -26,7 +26,7 @@ OSEHRA ZGO Export: NEW PERSON
 ^VA(200,1,0)="USER,ONE^DBA^^^^^1^^^^^^User Inactive for too long^^^1"
 ^VA(200,1,.1)="^^^^^^^^^^"
 ^VA(200,1,1)="^^^^1^^3160209^16"
-^VA(200,1,1.1)="3170224.173011^1^0^3160209"
+^VA(200,1,1.1)="3170224.180233^1^0^3160209"
 ^VA(200,1,1.2)="91"
 ^VA(200,1,2,0)="^200.02P^1^1"
 ^VA(200,1,2,1,0)="1"
@@ -284,7 +284,7 @@ OSEHRA ZGO Export: NEW PERSON
 ^VA(200,17,.1)="61472,60766^^^"
 ^VA(200,17,.15)=""
 ^VA(200,17,1)="^^^^1^^3160209^16"
-^VA(200,17,1.1)="3170224.172746^8^0^3160526^"
+^VA(200,17,1.1)="3170224.180014^8^0^3160526^"
 ^VA(200,17,1.2)="9"
 ^VA(200,17,2,0)="^200.02P^1214^1"
 ^VA(200,17,2,1214,0)="1214"

Packages/Kernel/Globals/3.5+DEVICE.zwr

@@ -1,5 +1,5 @@
 OSEHRA ZGO Export: DEVICE
-24-FEB-2017 17:31:06 ZWR
+24-FEB-2017 18:03:27 ZWR
 ^%ZIS(1,0)="DEVICE^3.5Is^53^53"
 ^%ZIS(1,1,0)="TIS51^51^1^1^^^^^TIS^^1"
 ^%ZIS(1,1,"SUBTYPE")="9"
@@ -33,7 +33,7 @@ OSEHRA ZGO Export: DEVICE
 ^%ZIS(1,9,"TYPE")="TRM"
 ^%ZIS(1,10,0)="HFS^USER$:[TEMP]TMP.DAT^1^1^^^^^"
 ^%ZIS(1,10,1)="Host File Server^^^^1^1"
-^%ZIS(1,10,5)="1012"
+^%ZIS(1,10,5)="1013"
 ^%ZIS(1,10,"IOPAR")="""WNS"""
 ^%ZIS(1,10,"SUBTYPE")="16"
 ^%ZIS(1,10,"TYPE")="HFS"
@@ -107,7 +107,7 @@ OSEHRA ZGO Export: DEVICE
 ^%ZIS(1,21,"TYPE")="RES"
 ^%ZIS(1,22,0)="TELNET^|TNT|^1^1^^^^^^^1"
 ^%ZIS(1,22,1)="TELNET"
-^%ZIS(1,22,5)="25893"
+^%ZIS(1,22,5)="26114"
 ^%ZIS(1,22,"SUBTYPE")="9"
 ^%ZIS(1,22,"TYPE")="VTRM"
 ^%ZIS(1,23,0)="OR WORKSTATION^ORDEV.DAT^0^0^^^^^^^0"