Install: PSN*4.0*448

Patch Subject:  ADDITIONAL NDC/UPN APIS
Description:

============
 This patch adds three components to the routine PSNAPIS, supported by
 Integration Control Registration (ICR) #2531, to provide additional
 access to the NDC/UPN file (#50.67).
 1) INTRAN - This entry point provides input transform lookup functionality
    for fields that store NDC codes.
 2) DRGCLS - This entry point returns class and parent class for a
    National Drug Code (NDC).
 3) QLIST - This entry point provides executable help ("?" or "??") for
    fields that store NDC codes.
 Patch Components:
 -----------------
 APIs Associated:
 API                        New/Modified/Deleted
 --------------             --------------------
 INTRAN^PSNAPIS                   New
 DRGCLS^PSNAPIS                   New
 QLIST^PSNAPIS                    New
 Files & Fields Associated:
 File Name (Number)         Field Name (Number)     New/Modified/Deleted
 ------------------         -------------------     --------------------
 N/A
 Forms Associated:
 Form Name                    File #               New/Modified/Deleted
 ---------                    ------               --------------------
 N/A
 Mail Groups Associated:
 Mail Group Name          New/Modified/Deleted
 ---------------          --------------------
 N/A
 Options Associated:
 Option Name            Type               New/Modified/Deleted
 -----------            ----               --------------------
 N/A
 Protocols Associated:
 Protocol Name       New/Modified/Deleted
 -------------       --------------------
 N/A
 Security Keys Associated:
 Security Key Name
 -----------------
 N/A
 Templates Associated:
 Template Name      Type      File Name (Number)  New/Modified/Deleted
 -------------      ----      ------------------  --------------------
 N/A
 Additional Information:
 -----------------------
 N/A
 New Service Requests (NSRs):
 ----------------------------
 N/A
 Patient Safety Issues (PSIs):
 -----------------------------
 N/A
 Defect Tracking System Ticket(s) & Overview:
 --------------------------------------------
 N/A
 Test Sites:
 ----------
 Cleveland, OH
 Heartland-East HCS, MO
 San Antonio, TX
 Software and Documentation Retrieval Instructions:
 ----------------------------------------------------
 Software being released as a host file and/or documentation describing
 the new functionality introduced by this patch are available.
 The preferred method is to retrieve files from download.vista.domain.ext.
 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 software and/or documentation directly using Secure
 File Transfer Protocol (SFTP) from the ANONYMOUS.SOFTWARE directory at the
 following OI Field Offices:
 Albany:                 domain.ext
 Hines:                  domain.ext
 Salt Lake City:         domain.ext
 Documentation can also be found on the VA Software Documentation Library
 at:
 http://www4.domain.ext/vdl/
 Title                             File Name              FTP Mode
 ------------------------------------------------------------------------
 Pharmacy Re-Engineering (PRE)     PHAR_1_API_R1016.PDF   (binary)
    API Manual
 Patch Installation:
 Pre/Post Installation Overview:
 -------------------------------
 N/A

Use default answers for KIDS load/install questions.

Patch-Files: http://code.osehra.org/VistA.git/tree/master/Packages/National+Drug+File/Patches/PSN_4.0_448

Packages/Kernel/Globals/%ZTSCH.zwr

@@ -1,10 +1,10 @@
 OSEHRA ZGO Export: ^%ZTSCH
-24-FEB-2017 12:51:17 ZWR
+24-FEB-2017 13:20:47 ZWR
 ^%ZTSCH("DEVTRY","//./nul")="5311138792"
 ^%ZTSCH("ER")=""
 ^%ZTSCH("HOUR")="5558849294"
-^%ZTSCH("IDLE")="5558849415"
-^%ZTSCH("IO")="5558847609^"
+^%ZTSCH("IDLE")="5558851178"
+^%ZTSCH("IO")="5558851192^"
 ^%ZTSCH("IO","GMRA UPDATE RESOURCE")="RES"
 ^%ZTSCH("LOAD")=""
 ^%ZTSCH("MON","PLA:PLAISCSVR",63928)="2^5^1^5^2^6^1^8^1^7^1^5^1^6^2^6^1^4^1^5^1^4^1^6^"
@@ -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,46224"
-^%ZTSCH("STOP","SUB","VISTA:CACHE")="64338,46224"
+^%ZTSCH("STOP","MGR","VISTA:CACHE")="64338,47993"
+^%ZTSCH("STOP","SUB","VISTA:CACHE")="64338,47993"
 ^%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 12:51:17 ZWR
-^%ZTSK(-1)="1389"
+24-FEB-2017 13:20:47 ZWR
+^%ZTSK(-1)="1392"
 ^%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^^"
@@ -5089,6 +5089,39 @@ OSEHRA ZGO Export: TASKS
 ^%ZTSK(1389,.3,"DUZ(",0)="@"
 ^%ZTSK(1389,.3,"XQSCH")="8"
 ^%ZTSK(1389,.3,"XQY")="9891"
+^%ZTSK(1390,0)="ZTSK^XQ1^.5^VISTA^64338,47917^64338,47917^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1390,.02)="^VISTA^^"
+^%ZTSK(1390,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1390,.04)="5558851117"
+^%ZTSK(1390,.1)="B^64338,47917^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(1390,.2)=""
+^%ZTSK(1390,.21)=""
+^%ZTSK(1390,.25)=""
+^%ZTSK(1390,.3,"DUZ(",0)="@"
+^%ZTSK(1390,.3,"XQSCH")="10"
+^%ZTSK(1390,.3,"XQY")="8853"
+^%ZTSK(1391,0)="ZTSK^XQ1^.5^VISTA^64338,47917^64338,47917^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1391,.02)="^VISTA^^"
+^%ZTSK(1391,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1391,.04)="5558851117"
+^%ZTSK(1391,.1)="B^64338,47919^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(1391,.2)=""
+^%ZTSK(1391,.21)=""
+^%ZTSK(1391,.25)=""
+^%ZTSK(1391,.3,"DUZ(",0)="@"
+^%ZTSK(1391,.3,"XQSCH")="11"
+^%ZTSK(1391,.3,"XQY")="8412"
+^%ZTSK(1392,0)="ZTSK^XQ1^.5^VISTA^64338,47917^64338,47917^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1392,.02)="^VISTA^^"
+^%ZTSK(1392,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1392,.04)="5558851117"
+^%ZTSK(1392,.1)="B^64338,47921^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(1392,.2)=""
+^%ZTSK(1392,.21)=""
+^%ZTSK(1392,.25)=""
+^%ZTSK(1392,.3,"DUZ(",0)="@"
+^%ZTSK(1392,.3,"XQSCH")="8"
+^%ZTSK(1392,.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 12:52:31 ZWR
+24-FEB-2017 13:22:08 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.125023^1^0^3160209"
+^VA(200,1,1.1)="3170224.131953^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.124816^8^0^3160526^"
+^VA(200,17,1.1)="3170224.131738^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 12:51:17 ZWR
+24-FEB-2017 13:20:47 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)="1003"
+^%ZIS(1,10,5)="1004"
 ^%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)="23901"
+^%ZIS(1,22,5)="24122"
 ^%ZIS(1,22,"SUBTYPE")="9"
 ^%ZIS(1,22,"TYPE")="VTRM"
 ^%ZIS(1,23,0)="OR WORKSTATION^ORDEV.DAT^0^0^^^^^^^0"