Install: PSS*1.0*232

Patch Subject:  CLOZAPINE SETTINGS ISSUE WITH DRUG ENTER/EDIT
Description:

============
 This patch will resolve the following issue:
 The drug file entry will not let you add the labs associated with the drug
 Clozapine that needs labs attached so that drug checks can be performed.
 Associated Defect Ticket(s):
 ============================
 1) INC2574335 - Our drug file entry will not let me add the labs
                 associated with the drug Clozapine that needs labs
                 attached so that drug checks can be performed.
 Associated NSR(s):
 ==================
 N/A
 Patient Safety Issues:
 ======================
 Health I.T. Patient Safety#: HITPS-6411.
 TICKET OVERVIEW:
 ================
 1) INC2574335
 Problem:
 --------
 North Texas VAMC reported a problem when trying to use the Drug Enter/Edit
 [PSS DRUG ENTER/EDIT] option to mark a dispense drug as a 'Clozapine'
 drug. After entering the lab test (WBC) and Specimen Type (BLOOD) they
 would get a double question mark (??) after answering 'YES' at the 'Is
 this Correct?' prompt.
 Resolution:
 -----------
 The problem was a result of an internal call to VA FileMan to save the lab
 test data. VA FileMan was getting lost because it found more than one
 match to the Internal Entry Number (IEN) for 'BLOOD' in the TOPOGRAPHY
 FIELD (#61) file because it did not restrict the lookup to IEN only and
 other entries in that file had the ABBREVIATION (#6) field set with a
 value that matched the IEN for 'BLOOD'.
 Technical Resolution:
 ---------------------
 Changed the routine PSSCLOZ at CLOZAD2+2 to use 4 slashes (////) instead of
 3 slashes (///) when saving SPECIMEN TYPE (#2) field, as shown below:
  S DIC("DR")="2////"_PSSPTYN_";3///"_PSSTUFF
 Test Sites:
 -----------
 Atlanta VA Health Care System
 VA North Texas Health Care System
 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/Pharmacy+Data+Management/Patches/PSS_1.0_232

Packages/Kernel/Globals/14.4+TASKS.zwr

@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: TASKS
-22-MAY-2019 16:06:39 ZWR
-^%ZTSK(-1)=4902
+22-MAY-2019 17:25:20 ZWR
+^%ZTSK(-1)=4906
 ^%ZTSK(0)="TASKS^14.4^4344"
 ^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^"
 ^%ZTSK(1001,.02)="^PLA^^"
@@ -46433,6 +46433,47 @@ OSEHRA ZGO Export: TASKS
 ^%ZTSK(4902,.3,"DUZ(",0)="@"
 ^%ZTSK(4902,.3,"XQSCH")=8
 ^%ZTSK(4902,.3,"XQY")=9891
+^%ZTSK(4903,0)="HOUR^XUTMHR^.5^^65155,62433^65155,62433^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(4903,.02)="^VISTA^^"
+^%ZTSK(4903,.03)="Taskman Hourly Job"
+^%ZTSK(4903,.04)=5629454433
+^%ZTSK(4903,.1)="B^65155,62493^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4903,.2)=""
+^%ZTSK(4903,.21)=""
+^%ZTSK(4903,.25)=""
+^%ZTSK(4904,0)="ZTSK^XQ1^.5^VISTA^65155,62493^65155,62493^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4904,.02)="^VISTA^^"
+^%ZTSK(4904,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4904,.04)=5629454493
+^%ZTSK(4904,.1)="B^65155,62495^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4904,.2)=""
+^%ZTSK(4904,.21)=""
+^%ZTSK(4904,.25)=""
+^%ZTSK(4904,.3,"DUZ(",0)="@"
+^%ZTSK(4904,.3,"XQSCH")=10
+^%ZTSK(4904,.3,"XQY")=8853
+^%ZTSK(4905,0)="ZTSK^XQ1^.5^VISTA^65155,62493^65155,62493^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4905,.02)="^VISTA^^"
+^%ZTSK(4905,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4905,.04)=5629454493
+^%ZTSK(4905,.1)="B^65155,62497^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4905,.2)=""
+^%ZTSK(4905,.21)=""
+^%ZTSK(4905,.25)=""
+^%ZTSK(4905,.3,"DUZ(",0)="@"
+^%ZTSK(4905,.3,"XQSCH")=11
+^%ZTSK(4905,.3,"XQY")=8412
+^%ZTSK(4906,0)="ZTSK^XQ1^.5^VISTA^65155,62493^65155,62493^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4906,.02)="^VISTA^^"
+^%ZTSK(4906,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4906,.04)=5629454493
+^%ZTSK(4906,.1)="B^65155,62499^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4906,.2)=""
+^%ZTSK(4906,.21)=""
+^%ZTSK(4906,.25)=""
+^%ZTSK(4906,.3,"DUZ(",0)="@"
+^%ZTSK(4906,.3,"XQSCH")=8
+^%ZTSK(4906,.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"