Install: IB*2.0*579

Patch Subject: MCCF EINSURANCE FY15 549 WARRANTY Description: ============ *** Note: This patch has a mandatory 3 day installation compliance. The purpose of this patch is to meet the requirements of the Medical Care Collection Fund (MCCF) eInsurance Compliance Phase 3 project related to Integrated Billing (IB). eInsurance provides Insurance identification and verification which is vital to the success of the Department of Veterans Affairs (VA) revenue collection process. Accurate insurance information is needed to effectively submit claims and collect payments from third-party payers for medical care and services provided to Veterans by the Veterans Health Administration (VHA). The following feature of the IB software will be affected by this project: The VistA software has been updated to re-evaluate the patient's current insurance coverage when they are identified in VistA as being deceased. Note, that if the date of death entered is TODAY or NOW or TODAY-1 then the 'COVERED BY HEALTH INSURANCE' field (#2,.3192) will remain at "Y" if they have an active policy on file, as the automated process associated with the 'DATE OF DEATH' field (#2,.351) would term that policy with the date of death+1. A term date of TODAY or NOW or TODAY+1 is considered an active policy when it is evaluated. Patch Components ================ Files & Fields Associated: File Name (#) New/Modified/ Sub-file Name (#) Field Name (Number) Deleted ------------------- --------------------------------- ------------- N/A Bulletins Associated: New/Modified/ Bulletin Name Deleted ------------- ------------- N/A Dialogs Associated: New/Modified/ Dialog Name Deleted ----------- ------------- N/A Forms Associated: New/Modified/ Form Name File Name (Number) Deleted --------- ------------------ ------------- N/A Functions Associated: New/Modified/ Function Name Deleted ------------- ------------- N/A HL Logical Link: New/Modified/ HL Logical Name Deleted --------------- ------------- N/A HL7 Application Parameters: New/Modified/ HL7 Parameter Name Deleted ------------------ ------------- N/A HLO Application Registry: New/Modified/ HLO Registry Name Deleted ----------------- ------------- N/A Help Frames Associated: New/Modified/ Help Frame Name Deleted --------------- ------------- N/A Mail Groups Associated: New/Modified/ Mail Group Name Deleted --------------- ------------- N/A Options Associated: New/Modified/ Option Name Type Deleted ----------- ---- ------------- N/A Parameter Definitions: New/Modified/ Parameter Name Deleted -------------- ------------- N/A Parameter Template: New/Modified/ Template Name Deleted ------------- ------------- N/A Protocols Associated: New/Modified/ Protocol Name Deleted ------------- ------------- N/A Remote Procedures Associated: New/Modified/ Remote Procedure Name Deleted --------------------- ------------- N/A Security Keys Associated: New/Modified/ Security Key Name Deleted ----------------- ------------- N/A Templates, Input Associated: New/Modified/ Template Name Type File Name (Number) Deleted ------------- ---- ------------------ ------------- N/A Templates, List Associated: New/Modified/ Template Name Type Deleted ------------- ---- ------------- N/A Templates, Print Associated: New/Modified/ Template Name Type File Name (Number) Deleted ------------- ---- ------------------ ------------- N/A Templates, Sort Associated: New/Modified/ Template Name Type File Name (Number) Deleted ------------- ---- ------------------ ------------- N/A Additional Information: ---------------------- N/A New Service Requests (NSRs) ---------------------------- N/A Patient Safety Issues (PSIs) ----------------------------- N/A Remedy Ticket(s) & Overview --------------------------- 1. Ticket #R11229286FY17 Inconsistent Data Elements report Problem: ------- As a result of automated processes in IB*2.0*549, when a patient is identified as deceased in VistA the patient's active policies are termed. However, the field 'COVERED BY HEALTH INSURANCE' (#2,.3192) is not updated to accurately reflect the proper status of the patient's insurance coverage. Resolution: ---------- The VistA software has been updated to re-evaluate the patient's current insurance coverage when they are identified in VistA as being deceased. Note, that if the date of death entered is TODAY or NOW or TODAY-1 then the 'COVERED BY HEALTH INSURANCE' field (#2,.3192) will remain at "Y" if they have an active policy on file, as the automated process associated with the 'DATE OF DEATH' field (#2,.351) would term that policy with the date of death+1. A term date of TODAY or NOW or TODAY+1 is considered an active policy when it is evaluated. Patient Safety Issues (PSIs) --------------------------------- N/A Defect Tracking System Ticket(s) & Overview --------------------------------------------------------- N/A Test Sites: ------------- VA Nebraska Western Iowa Health Care System Chillicothe VA Medical Center Documentation Retrieval Instructions --------------------------------------------- Updated documentation describing the new functionality introduced by this patch is available. The preferred method is to SFTP the files from download.vista.domain.ext. This transmits the files from the first available server. Sites may also elect to retrieve software 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: 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 ------ --------- -------- Release Notes/Installation Guide ib_2_0_p579_rn.pdf Binary Patch Installation: Pre/Post Installation Overview ------------------------------------- The installation of this patch may be QUEUED. To avoid disruptions, this patch should be installed during non-peak hours when there is minimal activity on the system and there are no Integrated Billing users on the system. Do not delete the post install routine "IBY579PO" after the install has been completed, as a task has been queued to run in the background and it needs this routine to complete. ******************************************************************** * You may want to rebuild the 'INCONSISTENT DATA' file (#38.5) * * 24 hours after IB*2.0*579 is installed. One may run/queue the * * option that is described below in the post installation * * instructions. * ******************************************************************** Use default answers for KIDS load/install questions. Patch-Files: http://code.osehra.org/VistA.git/tree/master/Packages/Integrated+Billing/Patches/IB_2.0_579
shabiel · Feb 25, 2017 · 02512dd · 02512dd
1 parent 1c4d34b
commit 02512dd
Show file tree

Hide file tree

Showing 11 changed files with 477 additions and 94 deletions.
diff --git a/Packages/Health Level Seven/Globals/870+HL LOGICAL LINK.zwr b/Packages/Health Level Seven/Globals/870+HL LOGICAL LINK.zwr
diff --git a/Packages/Integrated Billing/Routines/IBCNEUT7.m b/Packages/Integrated Billing/Routines/IBCNEUT7.m
@@ -1,5 +1,5 @@
 IBCNEUT7 ;DAOU/ALA - IIV MISC. UTILITIES ;14-OCT-2015
- ;;2.0;INTEGRATED BILLING;**184,549**;21-MAR-94;Build 54
+ ;;2.0;INTEGRATED BILLING;**184,549,579**;21-MAR-94;Build 2
  ;;Per VA Directive 6402, this routine should not be modified.
  ;
  ;**Program Description**
@@ -29,9 +29,12 @@ S ZTSAVE("DFN")="",ZTSAVE("DOD")=""
  ; IB*2.0*549 added method
  ; Sets the INSURANCE EXPIRATION DATE (file 2.3121, field ) for all active
  ; insurances of the selected patient to be the date of death +1
+ ; IB*2.0*579 - Also sets the 'COVERED BY HEALTH INSURANCE' to 'N' (file 2, field .3192)
+ ;              if it's not already set to 'N'
  ; Input:   DFN     - IEN of the patient to term insurances for
  ;          DOD     - Internal date of death (file 2, field .351) of the patient
- N EXPDT,DA,DODX,FDA,IBIEN
+ N EXPDT,DA,DEACT,DODX,FDA,HCOV,IBIEN                ; IB*2.0*579 - added DEACT,HCOV
+ S DEACT=0                                           ; IB*2.0*579 - added line
  S DODX=$P($$FMADD^XLFDT(DOD,1),".",1)               ; Date of Death +1
  S IBIEN=0
  F  S IBIEN=$O(^DPT(DFN,.312,IBIEN)) Q:+IBIEN=0  D
@@ -51,13 +54,24 @@ S ZTSAVE("DFN")="",ZTSAVE("DOD")=""
  . . D MSG^IBCNEUT5(MLGRP,SUBJECT,"MSG(",,.XMY)
  . ;
  . ; Set Policy expiration date to be date of death +1
+ . S DEACT=1                                        ; IB*2.0*579 - added line
  . K DA,FDA
  . S DA=IBIEN,DA(1)=DFN
  . S FDA(2.312,DA_","_DA(1)_",",1.05)=$$NOW^XLFDT() ; Date Last Edited
  . S FDA(2.312,DA_","_DA(1)_",",1.06)=.5            ; Last Edited By
  . S FDA(2.312,DA_","_DA(1)_",",3)=DODX             ; Date of Death +1
  . D FILE^DIE("","FDA")
  . L -^DPT(DFN,.312,IBIEN)
+ ;
+ ; IB*2.0*579 - added if statement below
+ ; If any policies were expired and the Covered by Health Insurance flag is set to 'Y'.
+ ; change it to 'N'
+ I DEACT D
+ . S HCOV=$$GET1^DIQ(2,DFN_",",.3192,"I")
+ . Q:HCOV'="Y"                              ; Already set to 'N'
+ . N IBSUPRES
+ . S IBSUPRES=1
+ . D COVERED^IBCNSM31(DFN,HCOV)             ; Set the Health Coverage flag to 'N'
  Q
  ;
 GETPER(SECKEY,XMY) ;EP

diff --git a/Packages/Integrated Billing/Routines/IBY579PO.m b/Packages/Integrated Billing/Routines/IBY579PO.m
@@ -0,0 +1,178 @@
+IBY579PO ;ALB/FA - IB*2.0*579 POST-INSTALL ;27-OCT-2016
+ ;;2.0;INTEGRATED BILLING;**579**;21-MAR-94;Build 2
+ ;;Per VA Directive 6402, this routine should not be modified.
+ ;
+EN ;Entry point
+ N IBXPD,XPDIDTOT
+ S XPDIDTOT=1
+ ;
+ ; Update Covered by Health Insurance field (file 2, field .3192) for deceased patients
+ S IBXPD=1
+ D HCOV(IBXPD,XPDIDTOT)
+ D DONE
+ Q
+ ;
+HCOV(IBXPD,XPDIDTOT) ; Update Covered by Health Insurance field for deceased patients
+ ; Input:   XBXPD       - Post Installation Step
+ ;          XPDIDTOT    - Total # of Post Installation steps
+ D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
+ D MES^XPDUTL("-------------")
+ D MES^XPDUTL("Update Covered By Health Insurance field for deceased patients.")
+ ; 1 - For every patient in the patient file check if the patient is deceased field
+ ;    (file 2, field .351)
+ ; 2 - Quit if the patient is not deceased
+ ; 3 - Quit if the Covered By Health Insurance field is already set to 'N'
+ ; 3 - Quit if all of the patient's policies are not expired
+ ; 4 - Change the Covered By Health Insurance field to 'N'
+ ; 5 - Add this patient to a list of patients being modified
+ ; 6 - Email the list of patients modified to xxx
+ ;
+ N MTIME,ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTUCI,ZTCPU,ZTPRI,ZTSAVE,ZTKIL,ZTSYNC,ZTSK
+ S MTIME=$$NOW^XLFDT()                      ; Fileman date/time
+ S MTIME=$$FMADD^XLFDT(MTIME,0,4)           ; Set to queue 4 hours later
+ S ZTDTH=$$FMTH^XLFDT(MTIME)                ; Convert to $H format
+ ;
+ ; Set up the other TaskManager variables
+ S ZTRTN="HCOV2^IBY579PO"
+ S ZTDESC="IB*2.0*579 Change 'Covered By Health Insurance' field for deceased patients"
+ S ZTIO=""
+ D ^%ZTLOAD ; Call TaskManager
+ Q
+ ;
+HCOV2 ;EP
+ ; Called from Task Manager
+ N CURSIZE,DFN,DOD,EMAIL,EXPDT,HCOV,HCOVN,IIEN,LNCTR,MAXSIZE,MLGRP,MSG,NPAT,NOTEXP
+ N PNM,SSN,SUBJECT,XMY,XX,YY
+ K ^TMP($J,"PATLIST"),^TMP($J,"ERRLIST")
+ S DFN=0
+ F  D  Q:'+DFN
+ . S DFN=$O(^DPT(DFN))
+ . Q:'+DFN
+ . S DOD=$$GET1^DIQ(2,DFN_",",.351,"I")     ; Date of Death
+ . Q:DOD=""                                 ; Patient is not Deceased
+ . S HCOV=$$GET1^DIQ(2,DFN_",",.3192,"I")   ; Covered By Health Insurance flag
+ . Q:HCOV=""!(HCOV="N")!(HCOV="U")          ; Covered By Health Insurance already 'N' or "U"
+ . S IIEN=0,NOTEXP=0
+ . F  D  Q:'+IIEN  Q:NOTEXP
+ . . S IIEN=$O(^DPT(DFN,.312,IIEN))
+ . . Q:'+IIEN
+ . . S EXPDT=$$GET1^DIQ(2.312,IIEN_","_DFN_",",3,"I")   ; Policy Expiration Date
+ . . Q:EXPDT'=""                                        ; Policy has an expiration date
+ . . S NOTEXP=1
+ . Q:NOTEXP                                 ; Not all plans are expired
+ . D CHGCOV(DFN,HCOV)                       ; Set the Health Coverage flag to 'N'
+ . Q:$D(^TMP($J,"ERRLIST",DFN))             ; On error list
+ . S HCOVN=$$GET1^DIQ(2,DFN_",",.3192,"I")  ; New Covered By Health Insurance flag
+ . Q:HCOVN="Y"                              ; Deceased patient with coverage, skip
+ . S ^TMP($J,"PATLIST",DFN)=""              ; Add Patient to list
+ ;
+ I '$D(^TMP($J,"PATLIST")),'$D(^TMP($J,"ERRLIST")) Q  ; No patients to update
+ ;
+ ; Get array of users with the 'IB SUPERVISOR' security key
+ D GETPER^IBCNEUT7("IB SUPERVISOR",.XMY)
+ ;
+ ; Begin email set up
+ S MAXSIZE=300000,CURSIZE=0,LNCTR=0
+ S MLGRP=$$MGRP^IBCNEUT5
+ S SUBJECT="eIV: Change Covered By Health Insurance field for deceased patient - Post Install Task"
+ ;
+ ; First add any patients that had filing errors
+ I $D(^TMP($J,"ERRLIST")) D
+ . S LNCTR=LNCTR+1
+ . S XX(1)="The following patients will need to be manually updated by removing and "
+ . S XX(2)="re-entering the policy expiration date for one of the patient's policies "
+ . S XX(3)="so that the 'Covered By Health Insurance' field will be corrected:"
+ . S YY=$L(XX(1))+$L(XX(2))+$L(XX(3))
+ . ;
+ . ; Is the mail message getting too big?
+ . I (CURSIZE+YY)>MAXSIZE D
+ . . D MSG^IBCNEUT5(MLGRP,SUBJECT,"MSG(",,.XMY)
+ . . K MSG
+ . . S CURSIZE=0,LNCTR=1
+ . ;
+ . S MSG(LNCTR)=XX(1),CURSIZE=CURSIZE+$L(XX(1)),LNCTR=LNCTR+1
+ . S MSG(LNCTR)=XX(2),CURSIZE=CURSIZE+$L(XX(2)),LNCTR=LNCTR+1
+ . S MSG(LNCTR)=XX(3),CURSIZE=CURSIZE+$L(XX(3))
+ . S DFN=""
+ . F  D  Q:DFN=""
+ . . S DFN=$O(^TMP($J,"ERRLIST",DFN))
+ . . Q:DFN=""
+ . . S PNM=$$GET1^DIQ(2,DFN,.01)
+ . . S SSN=$$GET1^DIQ(2,DFN,.09),SSN=$E(SSN,6,9)
+ . . S NPAT="      "_PNM_"  "_SSN
+ . . ;
+ . . ; Is the mail message getting too big?
+ . . I CURSIZE+$L(NPAT)>MAXSIZE D
+ . . . D MSG^IBCNEUT5(MLGRP,SUBJECT,"MSG(",,.XMY)
+ . . . K MSG
+ . . . S LNCTR=3,MSG(1)=XX(1),MSG(2)=XX(2),MSG(3)=XX(3),CURSIZE=YY
+ . . S LNCTR=LNCTR+1
+ . . S MSG(LNCTR)=NPAT
+ . . S CURSIZE=CURSIZE+$L(NPAT)
+ . S LNCTR=LNCTR+1,MSG(LNCTR)="",LNCTR=LNCTR+1,MSG(LNCTR)=""
+ ;
+ ; Next add the patients whose Covered By Health Insurance flag was set to 'N'
+ S LNCTR=LNCTR+1
+ S MSG(LNCTR)="The 'Covered By Health Insurance' field for the following deceased"
+ S CURSIZE=CURSIZE+$L(MSG(LNCTR))
+ S LNCTR=LNCTR+1
+ S MSG(LNCTR)="patients was automatically set to 'NO':"
+ S CURSIZE=CURSIZE+$L(MSG(LNCTR))
+ S DFN=""
+ F  D  Q:DFN=""
+ . S DFN=$O(^TMP($J,"PATLIST",DFN))
+ . Q:DFN=""
+ . S PNM=$$GET1^DIQ(2,DFN,.01)
+ . S SSN=$$GET1^DIQ(2,DFN,.09),SSN=$E(SSN,6,9)
+ . S NPAT="      "_PNM_"  "_SSN
+ . ;
+ . ; Is the mail message getting too big?
+ . I CURSIZE+$L(NPAT)>MAXSIZE D
+ . . D MSG^IBCNEUT5(MLGRP,SUBJECT,"MSG(",,.XMY)
+ . . K MSG
+ . . S CURSIZE=0,LNCTR=2
+ . . S MSG(1)="The Covered By Health Insurance field for the following deceased"
+ . . S CURSIZE=CURSIZE+$L(MSG(1))
+ . . S MSG(2)="was automatically set to 'N'"
+ . . S CURSIZE=CURSIZE+$L(MSG(2))
+ . S LNCTR=LNCTR+1
+ . S MSG(LNCTR)=NPAT
+ . S CURSIZE=CURSIZE+$L(NPAT)
+ ;
+ D MSG^IBCNEUT5(MLGRP,SUBJECT,"MSG(",,.XMY)
+ K ^TMP($J,"PATLIST"),^TMP($J,"ERRLIST")
+ Q
+ ;
+CHGCOV(DFN,HCOV) ; Update the Covered By Health Insurance field
+ ; Input:   DFN                 - IEN of the patient being updated
+ ;          HCOV                - Current value of Covered By Health Insurance field
+ ;          ^TMP($J,"ERRLIST")  - Current array of update errors
+ ; Output:  ^TMP($J,"ERRLIST")  - Updated array of update errors
+ N DA,FDA,IBERR,IBSUPRES
+ N $ESTACK,$ETRAP
+ S $ETRAP="D COVERR^IBY579PO"
+ S IBSUPRES=1
+ D COVERED^IBCNSM31(DFN,HCOV)             ; Set the Health Coverage flag to 'N'
+ Q
+ ;
+COVERR ; Called when an error occurs changing the Covered By Health Insurance field
+ ; deceased patients.  Note:  This usually occurs because of a known FileMan error and a
+ ; collision of a post-filing routine updating file 2.312 with a nightly KPAS
+ ; extract doing inquiries into the 2.312 file at the same time.
+ ;
+ ; If an error occurs, this method will add the patient where the error occurred
+ ; onto the error list for manual processing and move on to the next patient.
+ ; Input:   DFN                 - IIEN of the patient that was being worked 
+ ;                                when the error occurred
+ ;          ^TMP($J,"ERRLIST")  - Current array of patients that had filing 
+ ;                                errors
+ ; Output:  ^TMP($J,"ERRLIST") - Updated array of patients that had filing errors
+ S ^TMP($J,"ERRLIST",DFN)=""                ; Log collision error
+ S $ECODE=""                                ; Ignore error and continue
+ Q
+ ;
+DONE ; Displays the 'Done' message and finishes the progress bar
+ ; Input: IBXPD - Post-Installation step being performed
+ D MES^XPDUTL(" Done.")
+ Q
+ ;
diff --git a/Packages/Kernel/Globals/%ZTSCH.zwr b/Packages/Kernel/Globals/%ZTSCH.zwr
@@ -1,9 +1,10 @@
 OSEHRA ZGO Export: ^%ZTSCH
-25-FEB-2017 02:38:35 ZWR
+25-FEB-2017 03:13:45 ZWR
+^%ZTSCH(5558915439,1477)=""
 ^%ZTSCH("DEVTRY","//./nul")="5311138792"
 ^%ZTSCH("ER")=""
 ^%ZTSCH("HOUR")="5558898912"
-^%ZTSCH("IDLE")="5558899033"
+^%ZTSCH("IDLE")="5558901152"
 ^%ZTSCH("IO")="5558892276^"
 ^%ZTSCH("IO","GMRA UPDATE RESOURCE")="RES"
 ^%ZTSCH("LOAD")=""
@@ -37,8 +38,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")="64339,9462"
-^%ZTSCH("STOP","SUB","VISTA:CACHE")="64339,9462"
+^%ZTSCH("STOP","MGR","VISTA:CACHE")="64339,11572"
+^%ZTSCH("STOP","SUB","VISTA:CACHE")="64339,11572"
 ^%ZTSCH("SUB","VISTA:CACHE")="0"
 ^%ZTSCH("SUB","VISTA:CACHE",0)="0"
 ^%ZTSCH("WAIT")="58035,64592"
diff --git a/Packages/Kernel/Globals/14.4+TASKS.zwr b/Packages/Kernel/Globals/14.4+TASKS.zwr
@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: TASKS
-25-FEB-2017 02:38:35 ZWR
-^%ZTSK(-1)="1476"
+25-FEB-2017 03:13:45 ZWR
+^%ZTSK(-1)="1480"
 ^%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^^"
@@ -6010,6 +6010,56 @@ OSEHRA ZGO Export: TASKS
 ^%ZTSK(1476,.3,"DUZ(",0)="@"
 ^%ZTSK(1476,.3,"XQSCH")="8"
 ^%ZTSK(1476,.3,"XQY")="9891"
+^%ZTSK(1477,0)="HCOV2^IBY579PO^17^^64339,11439^64339,25839^R^245^XPD INSTALL BUILD^USER,SEVENTEEN^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(1477,.03)="IB*2.0*579 Change 'Covered By Health Insurance' field for deceased patients"
+^%ZTSK(1477,.04)="5558915439"
+^%ZTSK(1477,.1)="1^64339,11439^^^^^^"
+^%ZTSK(1477,.2)="^^^^Q^"
+^%ZTSK(1477,.3,"DUZ(",0)="@"
+^%ZTSK(1477,.3,"DUZ(",1)=""
+^%ZTSK(1477,.3,"DUZ(",2)="1"
+^%ZTSK(1477,.3,"DUZ(","AG")="V"
+^%ZTSK(1477,.3,"DUZ(","AUTHENTICATION")="XUP"
+^%ZTSK(1477,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1477,.3,"DUZ(","BUF")="1"
+^%ZTSK(1477,.3,"DUZ(","LANG")=""
+^%ZTSK(1477,.3,"DUZ(","LOA")="2"
+^%ZTSK(1477,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1477,.3,"XQY")="245"
+^%ZTSK(1477,.3,"XQY0")="XPD INSTALL BUILD^Install Package(s)^^R^^^^^^^^2"
+^%ZTSK(1478,0)="ZTSK^XQ1^.5^VISTA^64339,11491^64339,11491^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1478,.02)="^VISTA^^"
+^%ZTSK(1478,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1478,.04)="5558901091"
+^%ZTSK(1478,.1)="B^64339,11491^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(1478,.2)=""
+^%ZTSK(1478,.21)=""
+^%ZTSK(1478,.25)=""
+^%ZTSK(1478,.3,"DUZ(",0)="@"
+^%ZTSK(1478,.3,"XQSCH")="10"
+^%ZTSK(1478,.3,"XQY")="8853"
+^%ZTSK(1479,0)="ZTSK^XQ1^.5^VISTA^64339,11491^64339,11491^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1479,.02)="^VISTA^^"
+^%ZTSK(1479,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1479,.04)="5558901091"
+^%ZTSK(1479,.1)="B^64339,11493^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(1479,.2)=""
+^%ZTSK(1479,.21)=""
+^%ZTSK(1479,.25)=""
+^%ZTSK(1479,.3,"DUZ(",0)="@"
+^%ZTSK(1479,.3,"XQSCH")="11"
+^%ZTSK(1479,.3,"XQY")="8412"
+^%ZTSK(1480,0)="ZTSK^XQ1^.5^VISTA^64339,11491^64339,11491^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1480,.02)="^VISTA^^"
+^%ZTSK(1480,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1480,.04)="5558901091"
+^%ZTSK(1480,.1)="B^64339,11495^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(1480,.2)=""
+^%ZTSK(1480,.21)=""
+^%ZTSK(1480,.25)=""
+^%ZTSK(1480,.3,"DUZ(",0)="@"
+^%ZTSK(1480,.3,"XQSCH")="8"
+^%ZTSK(1480,.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"

diff --git a/Packages/Kernel/Globals/200+NEW PERSON.zwr b/Packages/Kernel/Globals/200+NEW PERSON.zwr
@@ -1,5 +1,5 @@
 OSEHRA ZGO Export: NEW PERSON
-25-FEB-2017 02:39:51 ZWR
+25-FEB-2017 03:15:01 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)="3170225.023741^1^0^3160209"
+^VA(200,1,1.1)="3170225.031252^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)="3170225.023514^8^0^3160526^"
+^VA(200,17,1.1)="3170225.031033^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"

diff --git a/Packages/Kernel/Globals/3.5+DEVICE.zwr b/Packages/Kernel/Globals/3.5+DEVICE.zwr
@@ -1,5 +1,5 @@
 OSEHRA ZGO Export: DEVICE
-25-FEB-2017 02:38:35 ZWR
+25-FEB-2017 03:13:45 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)="1028"
+^%ZIS(1,10,5)="1029"
 ^%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)="29445"
+^%ZIS(1,22,5)="29666"
 ^%ZIS(1,22,"SUBTYPE")="9"
 ^%ZIS(1,22,"TYPE")="VTRM"
 ^%ZIS(1,23,0)="OR WORKSTATION^ORDEV.DAT^0^0^^^^^^^0"