$TXT Created by FISHER,BRADLEY at DNS  (KIDS) on Monday, 10/09/17 at 11:31 =============================================================================
Run Date: OCT 09, 2017                     Designation: PSS*1*212
Package : PSS - PHARMACY DATA MANAGEMENT      Priority: Mandatory
Version : 1                                     Status: Under Development
=============================================================================

Associated patches: (v)PSS*1*159   <<= must be installed BEFORE `PSS*1*212'
                    (u)PSO*7*497   <<= must be installed BEFORE `PSS*1*212'

Subject: ONEVA PHARMACY FLAG UPDATES

Category: 
  - Routine

Description:
============

 PSS*1.0*212 patch addresses the movement of the OneVA pharmacy flag. 
 Patch PSO*7*497 adds a new field (#101) ONEVA PHARMACY FLAG to the  PHARMACY SYSTEM file (#59.7). This patch will edit the functionality of  the [PSS SYS EDIT] option (Pharmacy System Parameters Edit) to include  the ONEVA PHARMACY FLAG as one of the fields the user will be prompted  for.
  
  
 Patch Components:
 -----------------
  
  
 Files & Fields Associated:
  
 File Name (Number)         Field Name (Number)     New/Modified/Deleted
 ------------------         -------------------     --------------------
 N/A
  
 Forms Associated:
 -----------------
 N/A
  
 List Templates Associated:
 --------------------------
 N/A
  
  
 Mail Groups Associated:
 -----------------------
 N/A
  
  
 Options Associated:
 -------------------
 N/A
  
  
 Protocols Associated:
 ---------------------
 Protocol Name               New/Modified/Deleted
 -------------               -------------------- 
 N/A
  
  
 Remote Procedure Calls:
 -----------------------
 N/A
  
  
 Security Keys Associated:
 -------------------------
 N/A
  
 Templates Associated:
 ---------------------
 N/A
  
 Additional Information:
 -----------------------
 N/A
  
 New Service Requests (NSRs):
 ----------------------------
 N/A
  
  
 Patient Safety Issues (PSIs):
 -----------------------------
 N/A
  
 Remedy Ticket(s) & Overview:
 ----------------------------
  
 Problem:
 --------
 It has been requested that the OneVA Pharmacy flag be moved from the  OUTPATIENT SITE file (#59) to the PHARMACY SYSTEM file (#59.7). It has  also been requested That the [PSS SYS EDIT] function be modified to  include the new ONEVA PHARMACY FLAG field in the prompting sequence for  users.
  
 Resolution:
 -----------
 PSSYSP has been modified to include the new field (#101 - ONEVA PHARMACY
 FLAG) in the prompt to the user.
  
 PSSYSP+3 - added ;101 to include the ONEVA PHARMACY FLAG in the prompting
            Sequence presented by the ^DIE call.
  
  W ! S DIE="^PS(59.7,",DR="13;14;16;16.1;16.2;40.16;101",DA=1 D ^DIE
  
 Test Sites:
 ----------
 N/A
  
  
 Documentation Retrieval Instructions
 ====================================
 Updated documentation describing the new functionality introduced by this  patch are available.
  
 The preferred method is to retrieve files from download.DNS      .DNS   .
 This transmits the files from the first available server. Sites may also  elect to retrieve files directly from a specific server. 
  
 Sites may retrieve the documentation directly using Secure File Transfer  Protocol (SFTP) from the ANONYMOUS.SOFTWARE directory at the following OI  Field Offices:
  
    
 Hines:                  DNS     .URL           
 Salt Lake City:               .URL       
  
 Documentation can also be found on the VA Software Documentation Library
 at:
 http://URL            /
  
 Title                         File Name                       FTP Mode
 -----------------------------------------------------------------------
 <Documentation title>       
  
  
 Patch Installation:
  
  
 Pre/Post Installation Overview:
 -------------------------------
 There are no pre-post installation instructions for this patch.
  
  
 Pre-Installation Instructions:
 ------------------------------
 N/A
  
 This patch may be installed with users on the system although it is  recommended that it be installed during non-peak hours to minimize  potential disruption to users.  This patch should take less than 5  minutes to install.
  
 Installation Instructions:
 --------------------------
  
 1.  Choose the PackMan message containing this patch.
  
 2.  Choose the INSTALL/CHECK MESSAGE PackMan option.
  
 3.  From the Kernel Installation and Distribution System Menu, select
     the Installation Menu.  From this menu, you may elect to use the
     following options. When prompted for the INSTALL NAME enter the patch 
     #(ex. PSS*1.0*212):
     a.  Backup a Transport Global - This option will create a backup
         message of any routines exported with this patch. It will not
         backup any other changes such as DDs or templates.
     b.  Compare Transport Global to Current System - This option will
         allow you to view all changes that will be made when this patch
         is installed.  It compares all components of this patch
         (routines, DDs, templates, etc.).
     c.  Verify Checksums in Transport Global - This option will allow
         you to ensure the integrity of the routines that are in the
         transport global.
      
 4.  From the Installation Menu, select the Install Package(s) option and
     choose the patch to install.
  
 5.  When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of
     Install? NO//', answer 'YES'.    
  
 6.  When prompted 'Want KIDS to INHIBIT LOGONs during the install?
     NO//', answer 'NO'.
  
 7.  When prompted 'Want to DISABLE Scheduled Options, Menu Options, 
     and Protocols? NO//', answer 'NO'.
  
 8.  If prompted 'Delay Install (Minutes):  (0 - 60): 0//' respond 0.
  
  
 Post-Installation Instructions:
 -------------------------------
 N/A

Routine Information:
====================
The second line of each of these routines now looks like:
 ;;1.0;PHARMACY DATA MANAGEMENT;**[Patch List]**;9/30/97;Build 6

The checksums below are new checksums, and  can be checked with CHECK1^XTSUMBLD.

Routine Name: PSSYSP
    Before:   B143904   After:   B158704  **20,38,87,120,137,140,159,212**

=============================================================================
User Information:
Entered By  : FISHER,BRADLEY                Date Entered  : AUG 22, 2017
Completed By:                               Date Completed: 
Released By :                               Date Released : 
=============================================================================


Packman Mail Message:
=====================

$END TXT
$KID PSS*1.0*212
**INSTALL NAME**
PSS*1.0*212
"BLD",9862,0)
PSS*1.0*212^PHARMACY DATA MANAGEMENT^0^3171009^y
"BLD",9862,4,0)
^9.64PA^^0
"BLD",9862,6.3)
6
"BLD",9862,"ABPKG")
n
"BLD",9862,"KRN",0)
^9.67PA^779.2^20
"BLD",9862,"KRN",.4,0)
.4
"BLD",9862,"KRN",.401,0)
.401
"BLD",9862,"KRN",.402,0)
.402
"BLD",9862,"KRN",.403,0)
.403
"BLD",9862,"KRN",.5,0)
.5
"BLD",9862,"KRN",.84,0)
.84
"BLD",9862,"KRN",3.6,0)
3.6
"BLD",9862,"KRN",3.8,0)
3.8
"BLD",9862,"KRN",9.2,0)
9.2
"BLD",9862,"KRN",9.8,0)
9.8
"BLD",9862,"KRN",9.8,"NM",0)
^9.68A^1^1
"BLD",9862,"KRN",9.8,"NM",1,0)
PSSYSP^^0^B158704
"BLD",9862,"KRN",9.8,"NM","B","PSSYSP",1)

"BLD",9862,"KRN",19,0)
19
"BLD",9862,"KRN",19.1,0)
19.1
"BLD",9862,"KRN",101,0)
101
"BLD",9862,"KRN",409.61,0)
409.61
"BLD",9862,"KRN",771,0)
771
"BLD",9862,"KRN",779.2,0)
779.2
"BLD",9862,"KRN",870,0)
870
"BLD",9862,"KRN",8989.51,0)
8989.51
"BLD",9862,"KRN",8989.52,0)
8989.52
"BLD",9862,"KRN",8994,0)
8994
"BLD",9862,"KRN","B",.4,.4)

"BLD",9862,"KRN","B",.401,.401)

"BLD",9862,"KRN","B",.402,.402)

"BLD",9862,"KRN","B",.403,.403)

"BLD",9862,"KRN","B",.5,.5)

"BLD",9862,"KRN","B",.84,.84)

"BLD",9862,"KRN","B",3.6,3.6)

"BLD",9862,"KRN","B",3.8,3.8)

"BLD",9862,"KRN","B",9.2,9.2)

"BLD",9862,"KRN","B",9.8,9.8)

"BLD",9862,"KRN","B",19,19)

"BLD",9862,"KRN","B",19.1,19.1)

"BLD",9862,"KRN","B",101,101)

"BLD",9862,"KRN","B",409.61,409.61)

"BLD",9862,"KRN","B",771,771)

"BLD",9862,"KRN","B",779.2,779.2)

"BLD",9862,"KRN","B",870,870)

"BLD",9862,"KRN","B",8989.51,8989.51)

"BLD",9862,"KRN","B",8989.52,8989.52)

"BLD",9862,"KRN","B",8994,8994)

"BLD",9862,"QDEF")
^^^^NO^^^^NO^^NO
"BLD",9862,"QUES",0)
^9.62^^
"BLD",9862,"REQB",0)
^9.611^2^2
"BLD",9862,"REQB",1,0)
PSO*7.0*497^2
"BLD",9862,"REQB",2,0)
PSS*1.0*159^2
"BLD",9862,"REQB","B","PSO*7.0*497",1)

"BLD",9862,"REQB","B","PSS*1.0*159",2)

"MBREQ")
0
"PKG",586,-1)
1^1
"PKG",586,0)
PHARMACY DATA MANAGEMENT^PSS^Maintenance of Pharmacy files.
"PKG",586,20,0)
^9.402P^^
"PKG",586,22,0)
^9.49I^1^1
"PKG",586,22,1,0)
1.0^2970930^2971128^1
"PKG",586,22,1,"PAH",1,0)
212^3171009
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
NO
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")

"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
NO
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
NO
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
1
"RTN","PSSYSP")
0^1^B158704^B143904
"RTN","PSSYSP",1,0)
PSSYSP ;BIR/WRT-Pharmacy system site parameters routine ;8/22/17 10:45am
"RTN","PSSYSP",2,0)
 ;;1.0;PHARMACY DATA MANAGEMENT;**20,38,87,120,137,140,159,212**;9/30/97;Build 6
"RTN","PSSYSP",3,0)
 ; CHANGE TYPE OF ORDER (FINISH) FROM OERR
"RTN","PSSYSP",4,0)
 W ! S DIE="^PS(59.7,",DR="13;14;16;16.1;16.2;40.16;101",DA=1 D ^DIE
"RTN","PSSYSP",5,0)
 K DIE,DA,DR W !
"RTN","PSSYSP",6,0)
 Q
"VER")
8.0^22.2
"BLD",9862,6)
1^
$END KID PSS*1.0*212
