Install: PSJ*5.0*387

Patch Subject:  CRCL AND CREATININE DISPLAY ERROR
Description:

============
 This patch will resolve the following issue.
 INC2529214 - Code failure during display of CrCL and Creatinine lab
 results in the patient profile
 Defect Tracking System Ticket(s) & Overview:
 --------------------------------------------
 INC2529214 - Code failure or missing data during display of CrCL and
 Creatinine lab results in the patient profile
 Problem:
 --------
 Inpatient pharmacists at the Pensacola Joint Ambulatory Care Center
 reported an error in VistA had occurred during display of the patient
 profile.
 When a user accesses the following Inpatient menu options;
 Inpatient Profile [PSJ PR]
 Order Entry [PSJU NE]
 Action Profile #2 [PSJU AP-2]
 A hard stop will occur or data will not be displayed to the user in VistA
 due to an undefined variable ZDSPL. This is caused by code that was
 written in such a way as to not handle all possible combinations of data
 that could be present. The code specifically would not set ZDSPL if the
 CrCL value is equal to "Not Found" and the Creatinine value was equal to
 .01 or if the CrCL was less than 1. The four Inpatient routines involved
 are PSJHEAD, PSJLMHED, PSJCLOR2 and PSGCAPP0 having the same code so the
 same fix could be applied to all four routines.
 Resolution:
 -----------
 The resolution for the undefined variable ZDSPL is to update the code to
 handle all possible data combinations that could exist for CrCL and
 Creatinine results.
 Technical Resolution:
 ---------------------
 Changed routines PSJHEAD, PSJLMHED, PSJCLOR2 and PSJCAPP0 to format and
 display the CrCL and Creatine lab results in the patient profile and
 correct the undefined variable or un-displayed results.
 Patient Safety Issues (PSIs):
 -----------------------------
 N/A
 Test Sites:
 -----------
 Northport VAMC
 Biloxi VAMC
 Pre/Post Installation Overview:
 -------------------------------
 It is not necessary to disable any options.

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_387

Packages/Inpatient Medications/Routines/PSGCAPP0.m

@@ -1,5 +1,5 @@
 PSGCAPP0 ;BIR/CML3-PRINT DATA FOR ACTION PROFILE CONT. ; 4/1/08 3:05pm
- ;;5.0;INPATIENT MEDICATIONS;**8,20,85,169,203,256**;16 DEC 97;Build 34
+ ;;5.0;INPATIENT MEDICATIONS;**8,20,85,169,203,256,387**;16 DEC 97;Build 1
  ; Reference to BSA^PSSDSAPI supported by DBIA #5425
 H1 ; first header for patient
  I $E(IOST,1)="C" K DIR S DIR(0)="E" D ^DIR K DIR S:$D(DTOUT)!$D(DUOUT) PSJDLW=1 I $D(DTOUT)!$D(DUOUT) Q
@@ -15,10 +15,12 @@
  ;   Display serum creatinine if CrCl can't be calculated
  S PSJBSA=$$BSA^PSSDSAPI(DFN),PSJBSA=$P(PSJBSA,"^",3),PSJBSA=$S(PSJBSA'>0:"_________",1:$J(PSJBSA,4,2))
  S RSLT=$$CRCL^PSJLMHED(DFN)
+ ; Display format of CrCL and Creatinine results updated - PSJ*5.0*387
  I ($P($G(RSLT),"^",2)["Not Found")&($P($G(RSLT),"^",3)<.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_" (CREAT: Not Found)"
- I ($P($G(RSLT),"^",2)["Not Found")&($P($G(RSLT),"^",3)>.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"  (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
- I ($P($G(RSLT),"^",2)>0)&($P($G(RSLT),"^",3)>.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"(est.)"_" (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
- W !?2,ZDSPL,?51,"BSA (m2): ",$G(PSJBSA) K ZDSPL,RSLT,PSJBSA
+ I ($P($G(RSLT),"^",2)["Not Found")&($P($G(RSLT),"^",3)>=.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"  (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
+ I ($P($G(RSLT),"^",2)'["Not Found")&($P($G(RSLT),"^",3)<.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_" (CREAT: Not Found)"
+ I ($P($G(RSLT),"^",2)'["Not Found")&($P($G(RSLT),"^",3)>=.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"(est.)"_" (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
+ W !?2,$G(ZDSPL),?51,"BSA (m2): ",$G(PSJBSA) K ZDSPL,RSLT,PSJBSA
  ;  
  S PSGP=$P(PN,U,2) S:PSGP=$G(PSGPTMP) PPAGE=PPAGE+1 I PSGP'=$G(PSGPTMP) S PSGPTMP=PSGP,PPAGE=1
  S ALFLG=0 D ATS^PSJMUTL(68,68,2)

Packages/Inpatient Medications/Routines/PSJCLOR2.m

@@ -1,5 +1,5 @@
 PSJCLOR2 ;BIR/JCH - BUILD CLINIC ORDER LM HEADERS ; 2/28/12 9:11am
- ;;5.0;INPATIENT MEDICATIONS;**275,279,315,256**;16 DEC 97;Build 34
+ ;;5.0;INPATIENT MEDICATIONS;**275,279,315,256,387**;16 DEC 97;Build 1
  ;;Per VHA Directive 2004-038, this routine should not be modified.
  ; Reference to ^PS(55 is supported by DBIA 2191
  ; Reference to CWAD^ORQPT2 is supported by DBIA 2831
@@ -24,9 +24,11 @@ D HDRO(DFN)
  S PSJBSA=$$BSA^PSSDSAPI(DFN),PSJBSA=$P(PSJBSA,"^",3),PSJBSA=$S(PSJBSA'>0:"__________",1:$J(PSJBSA,4,2))
  ; RSLT -- DATE^CRCL^Serum Creatinine -- Ex.  11/25/11^68.7^1.1
  S RSLT=$$CRCL^PSJLMHED(DFN)
+ ; Display format of CrCL and Creatinine results updated - PSJ*5.0*387
  I ($P($G(RSLT),"^",2)["Not Found")&($P($G(RSLT),"^",3)<.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_" (CREAT: Not Found)"
- I ($P($G(RSLT),"^",2)["Not Found")&($P($G(RSLT),"^",3)>.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"  (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
- I ($P($G(RSLT),"^",2)>0)&($P($G(RSLT),"^",3)>.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"(est.)"_" (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
+ I ($P($G(RSLT),"^",2)["Not Found")&($P($G(RSLT),"^",3)>=.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"  (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
+ I ($P($G(RSLT),"^",2)'["Not Found")&($P($G(RSLT),"^",3)<.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_" (CREAT: Not Found)"
+ I ($P($G(RSLT),"^",2)'["Not Found")&($P($G(RSLT),"^",3)>=.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"(est.)"_" (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
  S PSJDB=$G(ZDSPL),VALMHDR(6)=$$SETSTR^VALM1("BSA (m2): "_$G(PSJBSA),PSJDB,50,23) K PSJBSA,ZDSPL,RSLT
  Q
  ;

Packages/Inpatient Medications/Routines/PSJHEAD.m

@@ -1,5 +1,5 @@
 PSJHEAD ;BIR/KKA-PROFILE HEADER ; 4/1/08 4:29pm
- ;;5.0;INPATIENT MEDICATIONS;**8,20,85,95,203,260,256**;16 DEC 97;Build 34
+ ;;5.0;INPATIENT MEDICATIONS;**8,20,85,95,203,260,256,387**;16 DEC 97;Build 1
  ;
  ; Reference to ^PS(55 supported by DBIA #2191.
  ;External reference to $$BSA^PSSDSAPI supported by DBIA 5425.
@@ -48,10 +48,12 @@ S PSGP(0)=VADM(1),PSJPDOB=+VADM(3),PSJPAGE=VADM(4),PSJPSEX=$S(VADM(5)]"":VADM(5)
  ; Display CrCl/BSA - show serum creatinine if CrCl can't be calculated
  S PSJBSA=$$BSA^PSSDSAPI(DFN),PSJBSA=$P(PSJBSA,"^",3),PSJBSA=$S(PSJBSA'>0:"_________",1:$J(PSJBSA,4,2))
  S RSLT=$$CRCL^PSJLMHED(DFN)
+ ; Display format of CrCL and Creatinine results updated - PSJ*5.0*387
  I ($P($G(RSLT),"^",2)["Not Found")&($P($G(RSLT),"^",3)<.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_" (CREAT: Not Found)"
- I ($P($G(RSLT),"^",2)["Not Found")&($P($G(RSLT),"^",3)>.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"  (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
- I ($P($G(RSLT),"^",2)>0)&($P($G(RSLT),"^",3)>.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"(est.)"_" (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
- W !?2,ZDSPL,?51,"BSA (m2): ",$G(PSJBSA) K ZDSPL,RSLT,PSJBSA
+ I ($P($G(RSLT),"^",2)["Not Found")&($P($G(RSLT),"^",3)>=.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"  (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
+ I ($P($G(RSLT),"^",2)'["Not Found")&($P($G(RSLT),"^",3)<.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_" (CREAT: Not Found)"
+ I ($P($G(RSLT),"^",2)'["Not Found")&($P($G(RSLT),"^",3)>=.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"(est.)"_" (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
+ W !?2,$G(ZDSPL),?51,"BSA (m2): ",$G(PSJBSA) K ZDSPL,RSLT,PSJBSA
  ;
  I PSJNARC=1 W !?1,"Pharmacy Narrative: " S WCNT=1,SI=$G(^PS(55,DFN,1)) W:SI=""&($E(IOST)="P") " ____________________" I SI]"" D
  .S LENCHK=0,LEN=$L(SI)

Packages/Inpatient Medications/Routines/PSJLMHED.m

@@ -1,5 +1,5 @@
 PSJLMHED ;BIR/MLM - BUILD LM HEADERS ; 8/6/14 11:00am
- ;;5.0;INPATIENT MEDICATIONS;**4,58,85,110,148,181,260,275,331,256,353**;16 DEC 97;Build 49
+ ;;5.0;INPATIENT MEDICATIONS;**4,58,85,110,148,181,260,275,331,256,353,387**;16 DEC 97;Build 1
  ;
  ; Reference to ^PS(55 is supported by DBIA 2191.
  ; Reference to $$CWAD^ORQPT2 is supported by DBIA 2831.
@@ -26,9 +26,11 @@ D HDRO(DFN)
  S PSJBSA=$$BSA^PSSDSAPI(DFN),PSJBSA=$P(PSJBSA,"^",3),PSJBSA=$S(PSJBSA'>0:"__________",1:$J(PSJBSA,4,2))
  ; RSLT -- DATE^CRCL^Serum Creatinine -- Ex.  11/25/11^68.7^1.1
  S RSLT=$$CRCL(DFN)
+ ; Display format of CrCL and Creatinine results updated - PSJ*5.0*387
  I ($P($G(RSLT),"^",2)["Not Found")&($P($G(RSLT),"^",3)<.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_" (CREAT: Not Found)"
- I ($P($G(RSLT),"^",2)["Not Found")&($P($G(RSLT),"^",3)>.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"  (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
- I ($P($G(RSLT),"^",2)>0)&($P($G(RSLT),"^",3)>.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"(est.)"_" (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
+ I ($P($G(RSLT),"^",2)["Not Found")&($P($G(RSLT),"^",3)>=.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"  (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
+ I ($P($G(RSLT),"^",2)'["Not Found")&($P($G(RSLT),"^",3)<.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_" (CREAT: Not Found)"
+ I ($P($G(RSLT),"^",2)'["Not Found")&($P($G(RSLT),"^",3)>=.01) S ZDSPL="  CrCL: "_$P(RSLT,"^",2)_"(est.)"_" (CREAT: "_$P($G(RSLT),"^",3)_"mg/dL "_$P($G(RSLT),"^")_")"
  S PSJDB=$G(ZDSPL),VALMHDR(6)=$$SETSTR^VALM1("BSA (m2): "_$G(PSJBSA),PSJDB,50,23) K PSJBSA,RSLT,ZDSPL
  Q
  ; 

Packages/Kernel/Globals/14.4+TASKS.zwr

@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: TASKS
-29-AUG-2019 16:24:23 ZWR
-^%ZTSK(-1)=5159
+29-AUG-2019 17:10:11 ZWR
+^%ZTSK(-1)=5162
 ^%ZTSK(0)="TASKS^14.4^5020"
 ^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^"
 ^%ZTSK(1001,.02)="^PLA^^"
@@ -49182,6 +49182,39 @@ OSEHRA ZGO Export: TASKS
 ^%ZTSK(5159,.3,"DUZ(",0)="@"
 ^%ZTSK(5159,.3,"XQSCH")=8
 ^%ZTSK(5159,.3,"XQY")=9891
+^%ZTSK(5160,0)="ZTSK^XQ1^.5^VISTA^65254,61531^65254,61531^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(5160,.02)="^VISTA^^"
+^%ZTSK(5160,.03)="No Description (%ZTLOAD)"
+^%ZTSK(5160,.04)=5638007131
+^%ZTSK(5160,.1)="B^65254,61531^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(5160,.2)=""
+^%ZTSK(5160,.21)=""
+^%ZTSK(5160,.25)=""
+^%ZTSK(5160,.3,"DUZ(",0)="@"
+^%ZTSK(5160,.3,"XQSCH")=10
+^%ZTSK(5160,.3,"XQY")=8853
+^%ZTSK(5161,0)="ZTSK^XQ1^.5^VISTA^65254,61531^65254,61531^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(5161,.02)="^VISTA^^"
+^%ZTSK(5161,.03)="No Description (%ZTLOAD)"
+^%ZTSK(5161,.04)=5638007131
+^%ZTSK(5161,.1)="B^65254,61533^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(5161,.2)=""
+^%ZTSK(5161,.21)=""
+^%ZTSK(5161,.25)=""
+^%ZTSK(5161,.3,"DUZ(",0)="@"
+^%ZTSK(5161,.3,"XQSCH")=11
+^%ZTSK(5161,.3,"XQY")=8412
+^%ZTSK(5162,0)="ZTSK^XQ1^.5^VISTA^65254,61531^65254,61531^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(5162,.02)="^VISTA^^"
+^%ZTSK(5162,.03)="No Description (%ZTLOAD)"
+^%ZTSK(5162,.04)=5638007131
+^%ZTSK(5162,.1)="B^65254,61535^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(5162,.2)=""
+^%ZTSK(5162,.21)=""
+^%ZTSK(5162,.25)=""
+^%ZTSK(5162,.3,"DUZ(",0)="@"
+^%ZTSK(5162,.3,"XQSCH")=8
+^%ZTSK(5162,.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"