Install: DG*5.3*919

Patch Subject:  MASTER VETERAN INDEX VISTA ENHANCEMENTS - ITERATION 15
Description:

============
 *************************************************************************
 * This patch may be installed with users on the system, however because *
 * the patient lookup routines are being exported with this patch, we    *
 * strongly advise that it be installed after business hours.            *
 *************************************************************************
 DG*5.3*915 is the only required build for patch DG*5.3*919.
 NOTE: Master Patient Index (MPI) enhancements are being distributed in
       three VistA namespaces: DG, RG and MPIF.
       The enhancements related to this patch are only being distributed in
       the DG and MPIF VistA namespaces. MPIF*1.0*62 should be installed
       before DG*5.3*919 for non-legacy sites (do NOT install MPIF*1.0*62
       on legacy sites), as the new Swipe/Scan process being exported in
       this patch will not work without MPIF*1.0*62.
       Therefore it is recommended that these patches be installed in the
       following order on non-legacy sites:
              MPIF*1.0*62 and then DG*5.3*919.
       DG*5.3*919 should be installed immediately after installing
       MPIF*1.0*62.
 NOTE: Legacy sites can install just the DG*5.3*919 patch, as legacy sites
       won't use the data capture process.
       MPIF*1.0*62 should NOT be installed on legacy sites.
 Enhancement
 The enhancement exported in this patch updates the routine DPTLK so that
 anytime a Veteran Health Information Card (VHIC) or the Department of
 Defense's (DoD) Common Access Card (CAC) is presented and swiped or
 scanned at the facility, the activity is captured and stored locally at
 the site in the ^XTMP("MPIFCARD") global location. This stored activity
 data which consists of the card's ID, type of Card (VHIC or CAC) and the
 event type (swipe or scan) will be downloaded nightly by the Master
 Patient Index (MPI) for use by the Healthcare Identity Management (HC IdM)
 team for reporting purposes.
 Issue WorldVistA#1
 Routines DPTLK4 and DPTLK7 were updated so that the WHO ENTERED
 PATIENT field (#.096) in the PATIENT file (WorldVistA#2) is populated for new
 patients registered with the REGISTER A PATIENT [DG REGISTER PATIENT]
 menu option.
 Issue WorldVistA#2
 Finally, routines DPTLK4 and DPTLK7 were also updated to ensure that the
 'NEW PATIENT ADDED TO SYSTEM' MailMan messages are generated when a new
 patient is registered at the Veterans Affairs Medical Center (VAMC)
 through the REGISTER A PATIENT [DG REGISTER PATIENT] menu option.
 Patch Components
 ================
 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:
 New Service Requests (NSRs)
 ----------------------------
 N/A
 Patient Safety Issues (PSIs)
 -----------------------------
 N/A
 CA Ticket(s) & Overview
 ---------------------------
 1. I7264886FY16 - WHO ENTERED PATIENT field (#.096) in the PATIENT
                   file (WorldVistA#2) no longer populated
 Problem:
 --------
 After the release of patch DG*5.3*915 it was determined that the
 WHO ENTERED PATIENT field (#.096) of the PATIENT file (WorldVistA#2) was not
 being populated after a new patient was registered with the REGISTER
 A PATIENT [DG REGISTER PATIENT] menu option. After further
 investigation, this issue was found to be a long standing problem,
 but only when a patient was registered with either a legacy Veterans
 Identification Card (VIC) or the newer VHIC cards. This issue went
 unnoticed until now due to the limited use of these cards.
 Resolution:
 -----------
 Updates were made to the patient registration software, specifically
 routines DPTLK4 and DPTLK7, to populate the WHO ENTERED PATIENT field
 (#.096) in the PATIENT file (WorldVistA#2) when a patient registration is
 performed with a legacy VIC or newer VHIC cards or through the
 REGISTER A PATIENT [DG REGISTER PATIENT] menu option.
 Note: This field is historically populated directly by the
       REGISTATION (DG) software and not a FileMan (FM) trigger.
 Test Sites:
 ----------
 C.W. Bill Young (Bay Pines) VAMC
 Robley Rex (Louisville) VAMC
 VA Connecticut HCS
 Patch Installation:
 Pre/Post Installation Overview
 ------------------------------
 There are no Pre/Post installation routine processes.

Use default answers for KIDS load/install questions.

Patch-Files: http://code.osehra.org/VistA.git/tree/b0ced814/Packages/Registration/Patches/DG_5.3_919

Packages/Health Level Seven/Globals/773+HL7 MESSAGE ADMINISTRATION.zwr

@@ -488,7 +488,7 @@ ZWR
 ^HLMA(4089,0)="4098^504089^O^I^M^^3^4144^^4087^173^172^43^65^^^3"
 ^HLMA(4089,"MSH",0)="^773.01^1^1"
 ^HLMA(4089,"MSH",1,0)="MSH^~|\&^XUMF MD5^999PLT^VETS MD5^200V^20160705122134-0400^^MFR~M01^504089^P^2.4^^^AL^NE^USA"
-^HLMA(4089,"P")="1.5^3160705.122138^^^^26"
+^HLMA(4089,"P")="1.5^3160705.122138^^^^6"
 ^HLMA("AC","O",3,4089)=""
 ^HLMA("AD",3141001.095258,2335)=""
 ^HLMA("AD",3141001.095258,2336)=""

Packages/Health Level Seven/Globals/869.3+HL COMMUNICATION SERVER PARAMETERS.zwr

@@ -5,7 +5,7 @@ ZWR
 ^HLCS(869.3,1,1)="1^1"
 ^HLCS(869.3,1,2,0)="^869.32^^0"
 ^HLCS(869.3,1,3,0)="^869.33^^0"
-^HLCS(869.3,1,5)="^^^64240,58316"
+^HLCS(869.3,1,5)="^^^64240,59905"
 ^HLCS(869.3,1,6,0)="^869.31^^"
 ^HLCS(869.3,1,8,0)="^869.35^1^1"
 ^HLCS(869.3,1,8,1,0)="DOMAIN.EXT"

Packages/Kernel/Globals/%ZTSCH.zwr

@@ -1,16 +1,15 @@
 ^%ZTSCH
 ZWR
 ^%ZTSCH=""
-^%ZTSCH(5550394308,1207)=""
-^%ZTSCH(5550394323,1208)=""
+^%ZTSCH(5550395912,1222)=""
 ^%ZTSCH(5550396732,1154)=""
 ^%ZTSCH(5550396733,1157)=""
 ^%ZTSCH("C","VISTA:CACHE")="0"
 ^%ZTSCH("DEVTRY","//./nul")="5311138792"
 ^%ZTSCH("ER")=""
 ^%ZTSCH("HOUR")="5550392663"
 ^%ZTSCH("IDLE")="0"
-^%ZTSCH("IO")="5550394315^"
+^%ZTSCH("IO")="5550395908^"
 ^%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^"
@@ -136,22 +135,16 @@ ZWR
 ^%ZTSCH("STARTUP","VISTA,VISTA","24Q7901")="64104,44312^^"
 ^%ZTSCH("STARTUP","VISTA,VISTA","25Q8102")="64104,44312^^"
 ^%ZTSCH("STARTUP","VISTA,VISTA","8Q9891")="59494,69903^^"
-^%ZTSCH("STOP","MGR","VISTA:CACHE")="64240,58317"
-^%ZTSCH("STOP","SUB","VISTA:CACHE")="64240,58317"
+^%ZTSCH("STOP","MGR","VISTA:CACHE")="64240,59909"
+^%ZTSCH("STOP","SUB","VISTA:CACHE")="64240,59909"
 ^%ZTSCH("SUB","VISTA:CACHE")="0"
 ^%ZTSCH("SUB","VISTA:CACHE",0)="0"
-^%ZTSCH("TASK",1194)="^HLCSLSM^8853^HL AUTOSTART LINK MANAGER^64240,56729^^VISTA,VISTA^64240,56729^POSTMASTER^8768^^VISTA:CACHE^64240,58305"
-^%ZTSCH("TASK",1194,2)="VISTA,VISTA^^^1194^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1201)="STARTIN^HLCSIN^8412^HL TASK RESTART^64240,58307^^VISTA,VISTA^64240,58307^POSTMASTER^4888^^VISTA:CACHE^64240,58311"
-^%ZTSCH("TASK",1201,1)="64240,58311"
-^%ZTSCH("TASK",1201,2)="VISTA,VISTA^^^1201^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1202)="STARTOUT^HLCSOUT^8412^HL TASK RESTART^64240,58307^^VISTA,VISTA^64240,58307^POSTMASTER^7768^^VISTA:CACHE^64240,58312"
-^%ZTSCH("TASK",1202,1)="64240,58312"
-^%ZTSCH("TASK",1202,2)="VISTA,VISTA^^^1202^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1204)="^HLCSMM1^8412^HL TASK RESTART^64240,58307^^VISTA,VISTA^64240,58307^POSTMASTER^6280^^VISTA:CACHE^64240,58314"
-^%ZTSCH("TASK",1204,2)="VISTA,VISTA^^^1204^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1205)="^HLCSMM1^8412^HL TASK RESTART^64240,58307^^VISTA,VISTA^64240,58307^POSTMASTER^5308^^VISTA:CACHE^64240,58315"
-^%ZTSCH("TASK",1205,2)="VISTA,VISTA^^^1205^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1206)="^HLCSMM1^8412^HL TASK RESTART^64240,58307^^VISTA,VISTA^64240,58307^POSTMASTER^9056^^VISTA:CACHE^64240,58316"
-^%ZTSCH("TASK",1206,2)="VISTA,VISTA^^^1206^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
+^%ZTSCH("TASK",1217)="^HLCSMM1^8412^HL TASK RESTART^64240,59896^^VISTA,VISTA^64240,59896^POSTMASTER^5180^^VISTA:CACHE^64240,59903"
+^%ZTSCH("TASK",1217,2)="VISTA,VISTA^^^1217^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
+^%ZTSCH("TASK",1218)="^HLCSMM1^8412^HL TASK RESTART^64240,59896^^VISTA,VISTA^64240,59896^POSTMASTER^7900^^VISTA:CACHE^64240,59904"
+^%ZTSCH("TASK",1218,2)="VISTA,VISTA^^^1218^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
+^%ZTSCH("TASK",1219)="^HLCSMM1^8412^HL TASK RESTART^64240,59896^^VISTA,VISTA^64240,59896^POSTMASTER^8240^^VISTA:CACHE^64240,59905"
+^%ZTSCH("TASK",1219,2)="VISTA,VISTA^^^1219^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
+^%ZTSCH("TASK",1221)="^HLCSLSM^8853^HL AUTOSTART LINK MANAGER^64240,59900^^VISTA,VISTA^64240,59900^POSTMASTER^7352^^VISTA:CACHE^64240,59907"
+^%ZTSCH("TASK",1221,2)="VISTA,VISTA^^^1221^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
 ^%ZTSCH("WAIT")="58035,64592"

Packages/Kernel/Globals/14.4+TASKS.zwr

@@ -1,6 +1,6 @@
 TASKS
 ZWR
-^%ZTSK(-1)="1208"
+^%ZTSK(-1)="1222"
 ^%ZTSK(0)="TASKS^14.4^1061"
 ^%ZTSK(1001,0)="TASK^XMXBULL^16^^64047,54207^64047,54207^R^^^PATCH,USER^PLA^PLA^ZTDESC^^"
 ^%ZTSK(1001,.02)="^PLA^^"
@@ -2419,7 +2419,7 @@ ZWR
 ^%ZTSK(1194,.02)="VISTA^VISTA^^"
 ^%ZTSK(1194,.03)="XUMF ACK Low Level Protocol"
 ^%ZTSK(1194,.04)="5550392729"
-^%ZTSK(1194,.1)="5^64240,58305^Started Running^8768^^^^^^1"
+^%ZTSK(1194,.1)="E^64240,59833^Interrupted While Running^8768^^^^^^1"
 ^%ZTSK(1194,.2)=""
 ^%ZTSK(1194,.21)=""
 ^%ZTSK(1194,.25)=""
@@ -2499,7 +2499,7 @@ ZWR
 ^%ZTSK(1201,.02)="VISTA^VISTA^^"
 ^%ZTSK(1201,.03)="HL7 Incoming Filer"
 ^%ZTSK(1201,.04)="5550394307"
-^%ZTSK(1201,.1)="5^64240,58311^Started Running^4888^^^^^^1"
+^%ZTSK(1201,.1)="D^64240,58371^Job asked to stop^4888^^^^^^1"
 ^%ZTSK(1201,.2)=""
 ^%ZTSK(1201,.21)=""
 ^%ZTSK(1201,.25)=""
@@ -2514,7 +2514,7 @@ ZWR
 ^%ZTSK(1202,.02)="VISTA^VISTA^^"
 ^%ZTSK(1202,.03)="HL7 Outgoing Filer"
 ^%ZTSK(1202,.04)="5550394307"
-^%ZTSK(1202,.1)="5^64240,58312^Started Running^7768^^^^^^1"
+^%ZTSK(1202,.1)="D^64240,58372^Job asked to stop^7768^^^^^^1"
 ^%ZTSK(1202,.2)=""
 ^%ZTSK(1202,.21)=""
 ^%ZTSK(1202,.25)=""
@@ -2529,7 +2529,7 @@ ZWR
 ^%ZTSK(1204,.02)="VISTA^VISTA^^"
 ^%ZTSK(1204,.03)="YS GAF-SND Low Level Protocol"
 ^%ZTSK(1204,.04)="5550394307"
-^%ZTSK(1204,.1)="5^64240,58314^Started Running^6280^^^^^^1"
+^%ZTSK(1204,.1)="E^64240,59833^Interrupted While Running^6280^^^^^^1"
 ^%ZTSK(1204,.2)=""
 ^%ZTSK(1204,.21)=""
 ^%ZTSK(1204,.25)=""
@@ -2545,7 +2545,7 @@ ZWR
 ^%ZTSK(1205,.02)="VISTA^VISTA^^"
 ^%ZTSK(1205,.03)="RMIM LINK Low Level Protocol"
 ^%ZTSK(1205,.04)="5550394307"
-^%ZTSK(1205,.1)="5^64240,58315^Started Running^5308^^^^^^1"
+^%ZTSK(1205,.1)="E^64240,59833^Interrupted While Running^5308^^^^^^1"
 ^%ZTSK(1205,.2)=""
 ^%ZTSK(1205,.21)=""
 ^%ZTSK(1205,.25)=""
@@ -2561,7 +2561,7 @@ ZWR
 ^%ZTSK(1206,.02)="VISTA^VISTA^^"
 ^%ZTSK(1206,.03)="SPN Low Level Protocol"
 ^%ZTSK(1206,.04)="5550394307"
-^%ZTSK(1206,.1)="5^64240,58316^Started Running^9056^^^^^^1"
+^%ZTSK(1206,.1)="E^64240,59833^Interrupted While Running^9056^^^^^^1"
 ^%ZTSK(1206,.2)=""
 ^%ZTSK(1206,.21)=""
 ^%ZTSK(1206,.25)=""
@@ -2574,10 +2574,13 @@ ZWR
 ^%ZTSK(1206,.3,"XQY")="8412"
 ^%ZTSK(1206,.3,"XQY0")="HL TASK RESTART^Restart/Start All Links and Filers^^R^1^^^^^^^33"
 ^%ZTSK(1207,0)="STOP^XWBTCP(9210)^.5^VISTA^64240,58308^64240,58308^R^7901^XWB LISTENER STARTER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA:CACHE^"
+^%ZTSK(1207,.02)="VISTA^VISTA^CACHE^"
 ^%ZTSK(1207,.03)="RPC Broker Listener STOP on VISTA-VISTA:CACHE, port 9210"
 ^%ZTSK(1207,.04)="5550394308"
-^%ZTSK(1207,.1)="1^64240,58308^^^^^^"
-^%ZTSK(1207,.2)="^^^^Q^"
+^%ZTSK(1207,.1)="6^64240,59894^Finished^8808^^^^^"
+^%ZTSK(1207,.2)=""
+^%ZTSK(1207,.21)=""
+^%ZTSK(1207,.25)=""
 ^%ZTSK(1207,.3,"DUZ(",0)="@"
 ^%ZTSK(1207,.3,"DUZ(",2)="0"
 ^%ZTSK(1207,.3,"DUZ(","AG")="V"
@@ -2586,17 +2589,190 @@ ZWR
 ^%ZTSK(1207,.3,"XQY")="7901"
 ^%ZTSK(1207,.3,"XQY0")="XWB LISTENER STARTER^Start All RPC Broker Listeners^^R^1^^^^^^^70^y"
 ^%ZTSK(1208,0)="ZISTCP^XWBTCPM1(9210)^.5^VISTA^64240,58323^64240,58323^R^7901^XWB LISTENER STARTER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA:CACHE^"
+^%ZTSK(1208,.02)="VISTA^VISTA^CACHE^"
 ^%ZTSK(1208,.03)="RPC Broker Listener START on VISTA-VISTA:CACHE, port 9210"
 ^%ZTSK(1208,.04)="5550394323"
-^%ZTSK(1208,.1)="1^64240,58323^^^^^^"
-^%ZTSK(1208,.2)="^^^^Q^"
+^%ZTSK(1208,.1)="6^64240,59924^Finished^8808^^^^^^1"
+^%ZTSK(1208,.2)=""
+^%ZTSK(1208,.21)=""
+^%ZTSK(1208,.25)=""
 ^%ZTSK(1208,.3,"DUZ(",0)="@"
 ^%ZTSK(1208,.3,"DUZ(",2)="0"
 ^%ZTSK(1208,.3,"DUZ(","AG")="V"
 ^%ZTSK(1208,.3,"DUZ(","AUTO")="1"
 ^%ZTSK(1208,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
 ^%ZTSK(1208,.3,"XQY")="7901"
 ^%ZTSK(1208,.3,"XQY0")="XWB LISTENER STARTER^Start All RPC Broker Listeners^^R^1^^^^^^^70^y"
+^%ZTSK(1209,0)="ZTSK^XQ1^.5^VISTA^64240,59893^64240,59893^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1209,.02)="VISTA^VISTA^^"
+^%ZTSK(1209,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1209,.04)="5550395893"
+^%ZTSK(1209,.1)="6^64240,59910^Finished^8372^^^^^^1"
+^%ZTSK(1209,.11)="Run Task"
+^%ZTSK(1209,.2)=""
+^%ZTSK(1209,.21)=""
+^%ZTSK(1209,.25)=""
+^%ZTSK(1209,.3,"DUZ(",0)="@"
+^%ZTSK(1209,.3,"XQSCH")="10"
+^%ZTSK(1209,.3,"XQY")="8853"
+^%ZTSK(1210,0)="ZTSK^XQ1^.5^VISTA^64240,59893^64240,59893^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1210,.02)="VISTA^VISTA^^"
+^%ZTSK(1210,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1210,.04)="5550395893"
+^%ZTSK(1210,.1)="6^64240,59896^Finished^8600^^^^^"
+^%ZTSK(1210,.11)="Run Task"
+^%ZTSK(1210,.2)=""
+^%ZTSK(1210,.21)=""
+^%ZTSK(1210,.25)=""
+^%ZTSK(1210,.3,"DUZ(",0)="@"
+^%ZTSK(1210,.3,"XQSCH")="11"
+^%ZTSK(1210,.3,"XQY")="8412"
+^%ZTSK(1212,0)="ZTSK^XQ1^.5^VISTA^64240,59893^64240,59893^O^8102^XMRONT^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1212,.02)="VISTA^VISTA^^"
+^%ZTSK(1212,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1212,.04)="5550395893"
+^%ZTSK(1212,.1)="6^64240,59928^Finished^3108^^^^^^1"
+^%ZTSK(1212,.11)="Run Task"
+^%ZTSK(1212,.2)=""
+^%ZTSK(1212,.21)=""
+^%ZTSK(1212,.25)=""
+^%ZTSK(1212,.3,"DUZ(",0)="@"
+^%ZTSK(1212,.3,"XQSCH")="25"
+^%ZTSK(1212,.3,"XQY")="8102"
+^%ZTSK(1213,0)="ZTSK^XQ1^.5^VISTA^64240,59893^64240,59893^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1213,.02)="VISTA^VISTA^^"
+^%ZTSK(1213,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1213,.04)="5550395893"
+^%ZTSK(1213,.1)="6^64240,59899^Finished^7568^^^^^"
+^%ZTSK(1213,.11)="Run Task"
+^%ZTSK(1213,.2)=""
+^%ZTSK(1213,.21)=""
+^%ZTSK(1213,.25)=""
+^%ZTSK(1213,.3,"DUZ(",0)="@"
+^%ZTSK(1213,.3,"XQSCH")="8"
+^%ZTSK(1213,.3,"XQY")="9891"
+^%ZTSK(1214,0)="STARTIN^HLCSIN^.5^^64240,59896^64240,59896^R^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(1214,.02)="VISTA^VISTA^^"
+^%ZTSK(1214,.03)="HL7 Incoming Filer"
+^%ZTSK(1214,.04)="5550395896"
+^%ZTSK(1214,.1)="D^64240,59960^Job asked to stop^3516^^^^^^1"
+^%ZTSK(1214,.2)=""
+^%ZTSK(1214,.21)=""
+^%ZTSK(1214,.25)=""
+^%ZTSK(1214,.3,"DUZ(",0)="@"
+^%ZTSK(1214,.3,"DUZ(",2)="0"
+^%ZTSK(1214,.3,"DUZ(","AG")="V"
+^%ZTSK(1214,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1214,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1214,.3,"XQY")="8412"
+^%ZTSK(1214,.3,"XQY0")="HL TASK RESTART^Restart/Start All Links and Filers^^R^1^^^^^^^33"
+^%ZTSK(1215,0)="STARTOUT^HLCSOUT^.5^^64240,59896^64240,59896^R^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(1215,.02)="VISTA^VISTA^^"
+^%ZTSK(1215,.03)="HL7 Outgoing Filer"
+^%ZTSK(1215,.04)="5550395896"
+^%ZTSK(1215,.1)="D^64240,59961^Job asked to stop^1616^^^^^^1"
+^%ZTSK(1215,.2)=""
+^%ZTSK(1215,.21)=""
+^%ZTSK(1215,.25)=""
+^%ZTSK(1215,.3,"DUZ(",0)="@"
+^%ZTSK(1215,.3,"DUZ(",2)="0"
+^%ZTSK(1215,.3,"DUZ(","AG")="V"
+^%ZTSK(1215,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1215,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1215,.3,"XQY")="8412"
+^%ZTSK(1215,.3,"XQY0")="HL TASK RESTART^Restart/Start All Links and Filers^^R^1^^^^^^^33"
+^%ZTSK(1217,0)="^HLCSMM1^.5^^64240,59896^64240,59896^R^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(1217,.02)="VISTA^VISTA^^"
+^%ZTSK(1217,.03)="YS GAF-SND Low Level Protocol"
+^%ZTSK(1217,.04)="5550395896"
+^%ZTSK(1217,.1)="5^64240,59903^Started Running^5180^^^^^^1"
+^%ZTSK(1217,.2)=""
+^%ZTSK(1217,.21)=""
+^%ZTSK(1217,.25)=""
+^%ZTSK(1217,.3,"DUZ(",0)="@"
+^%ZTSK(1217,.3,"DUZ(",2)="0"
+^%ZTSK(1217,.3,"DUZ(","AG")="V"
+^%ZTSK(1217,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1217,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1217,.3,"HLDP")="38"
+^%ZTSK(1217,.3,"XQY")="8412"
+^%ZTSK(1217,.3,"XQY0")="HL TASK RESTART^Restart/Start All Links and Filers^^R^1^^^^^^^33"
+^%ZTSK(1218,0)="^HLCSMM1^.5^^64240,59896^64240,59896^R^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(1218,.02)="VISTA^VISTA^^"
+^%ZTSK(1218,.03)="RMIM LINK Low Level Protocol"
+^%ZTSK(1218,.04)="5550395896"
+^%ZTSK(1218,.1)="5^64240,59904^Started Running^7900^^^^^^1"
+^%ZTSK(1218,.2)=""
+^%ZTSK(1218,.21)=""
+^%ZTSK(1218,.25)=""
+^%ZTSK(1218,.3,"DUZ(",0)="@"
+^%ZTSK(1218,.3,"DUZ(",2)="0"
+^%ZTSK(1218,.3,"DUZ(","AG")="V"
+^%ZTSK(1218,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1218,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1218,.3,"HLDP")="58"
+^%ZTSK(1218,.3,"XQY")="8412"
+^%ZTSK(1218,.3,"XQY0")="HL TASK RESTART^Restart/Start All Links and Filers^^R^1^^^^^^^33"
+^%ZTSK(1219,0)="^HLCSMM1^.5^^64240,59896^64240,59896^R^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(1219,.02)="VISTA^VISTA^^"
+^%ZTSK(1219,.03)="SPN Low Level Protocol"
+^%ZTSK(1219,.04)="5550395896"
+^%ZTSK(1219,.1)="5^64240,59905^Started Running^8240^^^^^^1"
+^%ZTSK(1219,.2)=""
+^%ZTSK(1219,.21)=""
+^%ZTSK(1219,.25)=""
+^%ZTSK(1219,.3,"DUZ(",0)="@"
+^%ZTSK(1219,.3,"DUZ(",2)="0"
+^%ZTSK(1219,.3,"DUZ(","AG")="V"
+^%ZTSK(1219,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1219,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1219,.3,"HLDP")="59"
+^%ZTSK(1219,.3,"XQY")="8412"
+^%ZTSK(1219,.3,"XQY0")="HL TASK RESTART^Restart/Start All Links and Filers^^R^1^^^^^^^33"
+^%ZTSK(1220,0)="STOP^XWBTCP(9210)^.5^VISTA^64240,59897^64240,59897^R^7901^XWB LISTENER STARTER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA:CACHE^"
+^%ZTSK(1220,.02)="VISTA^VISTA^CACHE^"
+^%ZTSK(1220,.03)="RPC Broker Listener STOP on VISTA-VISTA:CACHE, port 9210"
+^%ZTSK(1220,.04)="5550395897"
+^%ZTSK(1220,.1)="6^64240,59907^Finished^7352^^^^^"
+^%ZTSK(1220,.2)=""
+^%ZTSK(1220,.21)=""
+^%ZTSK(1220,.25)=""
+^%ZTSK(1220,.3,"DUZ(",0)="@"
+^%ZTSK(1220,.3,"DUZ(",2)="0"
+^%ZTSK(1220,.3,"DUZ(","AG")="V"
+^%ZTSK(1220,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1220,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1220,.3,"XQY")="7901"
+^%ZTSK(1220,.3,"XQY0")="XWB LISTENER STARTER^Start All RPC Broker Listeners^^R^1^^^^^^^70^y"
+^%ZTSK(1221,0)="^HLCSLSM^.5^^64240,59900^64240,59900^R^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(1221,.02)="VISTA^VISTA^^"
+^%ZTSK(1221,.03)="XUMF ACK Low Level Protocol"
+^%ZTSK(1221,.04)="5550395900"
+^%ZTSK(1221,.1)="5^64240,59907^Started Running^7352^^^^^^1"
+^%ZTSK(1221,.2)=""
+^%ZTSK(1221,.21)=""
+^%ZTSK(1221,.25)=""
+^%ZTSK(1221,.3,"DUZ(",0)="@"
+^%ZTSK(1221,.3,"DUZ(",2)="0"
+^%ZTSK(1221,.3,"DUZ(","AG")="V"
+^%ZTSK(1221,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1221,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1221,.3,"HLBGR")="^HLCSTCP"
+^%ZTSK(1221,.3,"HLDP")="3"
+^%ZTSK(1221,.3,"XQY")="8853"
+^%ZTSK(1221,.3,"XQY0")="HL AUTOSTART LINK MANAGER^Autostart Link Manager^^R^1^^^^^^^33^n"
+^%ZTSK(1222,0)="ZISTCP^XWBTCPM1(9210)^.5^VISTA^64240,59912^64240,59912^R^7901^XWB LISTENER STARTER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA:CACHE^"
+^%ZTSK(1222,.03)="RPC Broker Listener START on VISTA-VISTA:CACHE, port 9210"
+^%ZTSK(1222,.04)="5550395912"
+^%ZTSK(1222,.1)="1^64240,59912^^^^^^"
+^%ZTSK(1222,.2)="^^^^Q^"
+^%ZTSK(1222,.3,"DUZ(",0)="@"
+^%ZTSK(1222,.3,"DUZ(",2)="0"
+^%ZTSK(1222,.3,"DUZ(","AG")="V"
+^%ZTSK(1222,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1222,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1222,.3,"XQY")="7901"
+^%ZTSK(1222,.3,"XQY0")="XWB LISTENER STARTER^Start All RPC Broker Listeners^^R^1^^^^^^^70^y"
 ^%ZTSK(1090097,.1)="I^64104,44484^^5824"
 ^%ZTSK(1090155,.1)="I^64104,44486^^5824"
 ^%ZTSK(1090706,.1)="I^64104,44374^^5824"

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

@@ -26,7 +26,7 @@ ZWR
 ^VA(200,1,0)="USER,ONE^DBA^^^^^1^^^^^^User Inactive for too long^^^1"
 ^VA(200,1,.1)="^^^^^^^^^^"
 ^VA(200,1,1)="^^^^1^^3160509^16"
-^VA(200,1,1.1)="3161118.161156^1^0^3160509"
+^VA(200,1,1.1)="3161118.163828^1^0^3160509"
 ^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 @@ ZWR
 ^VA(200,17,.1)="61472,60766^^^"
 ^VA(200,17,.15)=""
 ^VA(200,17,1)="^^^^1^^3160509^16"
-^VA(200,17,1.1)="3161118.161046^8^0^3090420^"
+^VA(200,17,1.1)="3161118.163714^8^0^3090420^"
 ^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

@@ -33,7 +33,7 @@ ZWR
 ^%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)="837"
+^%ZIS(1,10,5)="838"
 ^%ZIS(1,10,"IOPAR")="""WNS"""
 ^%ZIS(1,10,"SUBTYPE")="16"
 ^%ZIS(1,10,"TYPE")="HFS"
@@ -107,7 +107,7 @@ ZWR
 ^%ZIS(1,21,"TYPE")="RES"
 ^%ZIS(1,22,0)="TELNET^|TNT|^1^1^^^^^^^1"
 ^%ZIS(1,22,1)="TELNET"
-^%ZIS(1,22,5)="8009"
+^%ZIS(1,22,5)="8215"
 ^%ZIS(1,22,"SUBTYPE")="9"
 ^%ZIS(1,22,"TYPE")="VTRM"
 ^%ZIS(1,23,0)="OR WORKSTATION^ORDEV.DAT^0^0^^^^^^^0"