Skip to content

Commit

Permalink
Install: IB*2.0*574
Browse files Browse the repository at this point in the history
Patch Subject:  MCCF EBILLING FY15 547 WARRANTY
Description:

============
 *** Note:  This patch has a mandatory 3 day installation compliance.
 MCCF (Medical Care Collection Fund) warranty fix for the FY15 eBilling
 Compliance Phase 3 project.
 This patch contains a fix for the installed patch IB*2.0*547.  When
 testing with FSC, customer reported that they are not able to enter a
 professional alternate payer ID on Bill Screen 10 when the charge type is
 institutional and the form type is a CMS-1500.  The version of routine
 IBCSC10 released in IB*2.0*547 does not handle this scenario correctly.
 This warranty patch corrects this defect in routine IBCSC10.
 In addition, requirements defects were also discovered.  There were
 several changes made in patch 547 to remove the printing and transmission
 of admission dates on all outpatient claims.  During the warranty period
 it was discovered that Outpatient Home Health and Outpatient Hospice
 claims still require the admission date and time or they will be rejected.
 A function ($$HHLTH) was added to routine IBCEF1 to determine if a claim is
 Home Health or Hospice.  This function was inserted into entries #77, #98
 and #1305 of the IB FORM FIELD CONTENT file (# 364.7) to output the date for
 all inpatient claims AND all Outpatient home health and hospice claims.
 The purpose of this patch is to meet the requirements for the MCCF
 eBilling Compliance Phase 3 project related to Integrated Billing (IB).
 Integrated Billing is a software module within Veterans Health Information
 Systems and Technology Architecture (VistA) that provides the ability for
 billing personnel to submit claims in either a paper or electronic format
 to third-party payers.
 Patch Components
 ================
 Files & Fields Associated:
 File Name (#)                                             New/Modified/
   Sub-file Name (#)   Field Name (Number)                   Deleted
 -------------------   ---------------------------------   -------------
 IB FORM FIELD CONTENT (#364.7)
      Screen: I $$INCLUDE^IBY574PR(7,Y)
 Forms Associated:
                                                            New/Modified/
 Form Name                    File Name (Number)             Deleted
 ---------                    ------------------           -------------
 N/A
 Mail Groups Associated:
                                                           New/Modified/
 Mail Group Name                                             Deleted
 ---------------                                           -------------
 Options Associated:
                                                           New/Modified/
 Option Name                                  Type            Deleted
 -----------                                  ----         -------------
 N/A
 Protocols Associated:
                                                           New/Modified/
 Protocol Name                                               Deleted
 -------------                                             -------------
 N/A
 Security Keys Associated:
                                                           New/Modified/
 Security Key Name                                           Deleted
 -----------------                                         -------------
 N/A
 Templates Associated:
                                                           New/Modified/
 Template Name      Type      File Name (Number)             Deleted
 -------------      ----      ------------------           -------------
 N/A
 Additional Information:
 N/A
 New Service Requests (NSRs)
 ----------------------------
 NSR 20140414 - Medical Care Collection Fund (MCCF) eBilling Compliance
 Phase 3
 Patient Safety Issues (PSIs)
 -----------------------------
 N/A
 Defect Tracking System Ticket(s) & Overview
 ---------------------------
 NSD Ticket# I10841525FY16
 Problem:
 -------
 When testing with FSC, customer reported that they are not able to enter a
 professional alternate payer ID on Bill Screen 10 when the charge type is
 institutional and the form type is a CMS-1500.
 Resolution:
 ----------
 Modified screen 10 screening logic to be consistent.
 Screen 10 will now use form-type instead of charge type.
 NSD Ticket# I11035267FY17
 Problem:
 -------
 A requirements defect was found during the warranty for patch IB*2.0*547.
 There were several IB changes made to remove the printing & transmission of
 admission dates on all outpatient claims. During the warranty period it was
 discovered that Outpatient Home Health and Outpatient Hospice claims still
 require the admission date or they will be rejected.
 Resolution:
 ----------
 Added $$HHLTH^IBCEF1 to determine if a claim is Home Health or Hospice.
 Test Sites:
 ----------
 Pittsburgh
 South Texas
 Northern Indiana
 Documentation Retrieval Instructions
 ------------------------------------
 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 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://www.domain.ext/vdl/
 Title                                 File Name            Transfer Mode
 --------------------------------------------------------------------------
 Release Notes/Installation Guide      ib_2_0_p574_rn.pdf   Binary
 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/Integrated+Billing/Patches/IB_2.0_574
josephsnyder committed Feb 25, 2017
1 parent 1faee48 commit 1c4d34b
Showing 13 changed files with 795 additions and 105 deletions.
142 changes: 71 additions & 71 deletions Packages/Health Level Seven/Globals/870+HL LOGICAL LINK.zwr

Large diffs are not rendered by default.

Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
OSEHRA ZGO Export: IB FORM FIELD CONTENT
14-DEC-2016 04:08:21 ZWR
^IBA(364.7,0)="IB FORM FIELD CONTENT^364.7IP^1955^1532"
25-FEB-2017 02:39:21 ZWR
^IBA(364.7,0)="IB FORM FIELD CONTENT^364.7IP^1305^1532"
^IBA(364.7,1,0)="1^N^54^^^^N"
^IBA(364.7,1,3,0)="^364.73^2^2^3071129^^"
^IBA(364.7,1,3,1,0)="This is CI2-2."
@@ -335,10 +335,11 @@ OSEHRA ZGO Export: IB FORM FIELD CONTENT
^IBA(364.7,76,3,1,0)="Format data element so it is numeric including cents, without the decimal."
^IBA(364.7,76,3,2,0)="If data element's value is null, do not output."
^IBA(364.7,77,0)="54^N^5^^^^N"
^IBA(364.7,77,1)="S IBXDATA=$G(IBXSAVE(""ADMDT"")) S:$L(IBXDATA)=6 IBXDATA=$$DATE^IBCEU($E(IBXDATA,5,6)_$E(IBXDATA,1,4)) I IBXDATA S IBXDATA=$$DT^IBCEFG1(IBXDATA,"""",""D8"")"
^IBA(364.7,77,3,0)="^^2^2^3151012^"
^IBA(364.7,77,1)="S IBXDATA=$G(IBXSAVE(""ADMDT"")) S:$L(IBXDATA)=6 IBXDATA=$$DATE^IBCEU($E(IBXDATA,5,6)_$E(IBXDATA,1,4)) D:$S(IBXDATA="""":$$HHLTH^IBCEF1(IBXIEN,1),1:0) F^IBCEF(""N-STATEMENT COVERS FROM DATE"",,,IBXIEN) I IBXDATA S IBXDATA=$$DT^IBCEFG1(IBXDATA,"""",""D8"")"
^IBA(364.7,77,3,0)="^364.73^3^3^3161005^^^^"
^IBA(364.7,77,3,1,0)="If data exists from the previous extract of IBXSAVE(""ADMDT""), output it."
^IBA(364.7,77,3,2,0)="Format date in CCYYMMDD format. IB*2.0*547 removed the Outpatient date."
^IBA(364.7,77,3,3,0)="IB*2.0*574 add Outpatient date for Hospice and Home Health Claims."
^IBA(364.7,78,0)="159^N^100^^^^N"
^IBA(364.7,78,1)="K IBXSAVE"
^IBA(364.7,78,3,0)="^^1^1^2990218^^^^"
@@ -413,10 +414,11 @@ OSEHRA ZGO Export: IB FORM FIELD CONTENT
^IBA(364.7,97,3,1,0)="If IBXDATA does not have a value that is greater than 0, no output. If"
^IBA(364.7,97,3,2,0)="data element > 0, output as 'OA'."
^IBA(364.7,98,0)="142^N^78^^^^N"
^IBA(364.7,98,1)="N A,IBZ,%DT,Y,X S IBZ=$S($$INPAT^IBCEF(IBXIEN,1):IBXDATA,1:""""),A=$S(IBZ?6N:IBZ,1:"""") K IBXDATA S:A="""" Y=IBZ S X=A,%DT=""PX"" D:A'="""" ^%DT S IBXSAVE(""ADMDT"")=$S(Y>0:Y,1:"""")"
^IBA(364.7,98,3,0)="^^2^2^3160108^"
^IBA(364.7,98,1)="N A,IBZ,%DT,Y,X S IBZ=$S($$HHLTH^IBCEF1(IBXIEN,1):IBXDATA,1:""""),A=$S(IBZ?6N:IBZ,1:"""") K IBXDATA S:A="""" Y=IBZ S X=A,%DT=""PX"" D:A'="""" ^%DT S IBXSAVE(""ADMDT"")=$S(Y>0:Y,1:"""")"
^IBA(364.7,98,3,0)="^364.73^3^3^3161005^^^^"
^IBA(364.7,98,3,1,0)="Save off data element's value in IBXSAVE array. No output. IB*547 "
^IBA(364.7,98,3,2,0)="requirement to use only Inpatient Admission Date/Time."
^IBA(364.7,98,3,3,0)="IB*574 - added date for Outpatient Home health and hospice"
^IBA(364.7,99,0)="55^N^5^^^^N"
^IBA(364.7,99,1)="K IBXDATA S IBXDATA=$$ADMHR^IBCEU(IBXIEN,$G(IBXSAVE(""ADMDT"")))"
^IBA(364.7,99,3,0)="^^3^3^2991007^^^^"
@@ -5300,11 +5302,13 @@ OSEHRA ZGO Export: IB FORM FIELD CONTENT
^IBA(364.7,1304,3,0)="^364.73^1^1^3061109^^^^"
^IBA(364.7,1304,3,1,0)="If the data element's value is null, set it equal to 'U'."
^IBA(364.7,1305,0)="1605^N^78^^^^N"
^IBA(364.7,1305,1)="S:'$$INPAT^IBCEF(IBXIEN) IBXDATA="""" I $$INPAT^IBCEF(IBXIEN) S IBXSAVE(""ADTM"")=$$TIME^IBCF3(IBXDATA),IBXDATA=$$DATE^IBCF2($P(IBXDATA,"".""),,1)"
^IBA(364.7,1305,3,0)="^^3^3^3160122^"
^IBA(364.7,1305,1)="S:'$$HHLTH^IBCEF1(IBXIEN,1) IBXDATA="""" I $$HHLTH^IBCEF1(IBXIEN,1) S IBXSAVE(""ADTM"")=$$TIME^IBCF3(IBXDATA),IBXDATA=$$DATE^IBCF2($P(IBXDATA,"".""),,1)"
^IBA(364.7,1305,3,0)="^364.73^5^5^3161005^^^^"
^IBA(364.7,1305,3,1,0)="Save the admission time in IBXSAVE array for later use. Format date"
^IBA(364.7,1305,3,2,0)="without the time as MMDDYY. IB*2.0*547 removed the STATEMENT FROM date on "
^IBA(364.7,1305,3,3,0)="inpatient professional claims."
^IBA(364.7,1305,3,4,0)="IB*2.0*574 added STATEMENT FROM date for Outpatient Home Health and Hospice"
^IBA(364.7,1305,3,5,0)="claims."
^IBA(364.7,1306,0)="1606^N^5^^^^N"
^IBA(364.7,1306,1)="S IBXDATA=$S('$$INPAT^IBCEF(IBXIEN,1):"""",$G(IBXSAVE(""ADTM""))'="""":$E(IBXSAVE(""ADTM""),1,2),1:""00"")"
^IBA(364.7,1306,3,0)="^364.73^1^1^3070328^^"
27 changes: 26 additions & 1 deletion Packages/Integrated Billing/Routines/IBCEF1.m
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
IBCEF1 ;ALB/TMP - FORMATTER SPECIFIC BILL FUNCTIONS - CONT ;30-JAN-96
;;2.0;INTEGRATED BILLING;**52,124,51,137,210,155,349,371,447,547**;21-MAR-94;Build 119
;;2.0;INTEGRATED BILLING;**52,124,51,137,210,155,349,371,447,547,574**;21-MAR-94;Build 12
;;Per VA Directive 6402, this routine should not be modified.
;
OCC(IBIFN,REL,TEXT) ;Sets up an arrays of occurrence codes for various cks
@@ -228,3 +228,28 @@
;
Q
;
HHLTH(IBIFN,OUT) ; determine if claim is hospice/home health and needs episode of care date **574**
; per NUBC, date the episode of care began is needed for all outpatient CMS-1500 Home Health and Hospice claims and
; UB-04: 012x,022x,032x,034x,081x & 082x claims
; this string is zero + the Bill Type field from screens 6&7 of enter/edit Bill: 0_field#.24(LOC OF CARE)_.25(BILL CLASS)_.26(TIMEFRAME)
; required - IBIFN = internal claim#
; optional - OUT = optional flag to pass to INPAT^IBCEF
; returns a 1 if date should be included on bill and a 0 if it should NOT be included on bill
;
N IB0,IBL,IBC,IBT
Q:$G(IBIFN)="" 0
; all inpatient claims include date
I $$INPAT^IBCEF(IBIFN,+$G(OUT))'=0 Q 1
S IB0=$G(^DGCR(399,IBIFN,0)),IBL=$P(IB0,U,24)
; Per Lisa Duncan, all Home health must have date, not just 032x & 034x
Q:IBL=3 1
; not home health or hospice if LOC OF CARE = 7
Q:IBL=7 0
S IBC=$P($G(^DGCR(399.1,+$P(IB0,U,25),0)),U,2)
; not home health or hospice if BILL CLASS is 3 or a number greater than 4
Q:IBC>4 0
Q:IBC=3 0
S IBT=IBL_IBC
; any claim where the location of care_bill classification combo is 12,22,32,34,81 or 82 must have date
Q:"^12^22^32^34^81^82^"[IBT 1
Q 0
6 changes: 4 additions & 2 deletions Packages/Integrated Billing/Routines/IBCSC10.m
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
IBCSC10 ;ALB/MJB - MCCR SCREEN 10 (UB-82 BILL SPECIFIC INFO) ;27 MAY 88 10:20
;;2.0;INTEGRATED BILLING;**432,547**;21-MAR-94;Build 119
;;2.0;INTEGRATED BILLING;**432,547,574**;21-MAR-94;Build 12
;;Per VA Directive 6402, this routine should not be modified.
;
;MAP TO DGCRSC8
@@ -37,7 +37,9 @@
I IBEPT="" Q IBNEXT
I IBEPT="MX" Q:'$D(^IBE(350.9,1,81,"B")) IBNEXT ; no medicare set up in site parameters
I IBEPT'="MX" Q:'$D(^IBE(350.9,1,82,"B")) IBNEXT ; no commercial set up in site parameters
S IBINSPRF=$$INSPRF^IBCEF(IBIFN)
; Use form type not charge type 09/07/2016
;S IBINSPRF=$$INSPRF^IBCEF(IBIFN)
S IBINSPRF=$$FT^IBCEF(+IBIFN)=3 ; set IBINST flag=1 if it is institutional,0 for professional.
;
; Institutional
I IBINSPRF=1 Q:'$D(^DIC(36,+IBINSDAT,15,"B")) IBNEXT ; this insurance company has no institutional set up
60 changes: 60 additions & 0 deletions Packages/Integrated Billing/Routines/IBY574PR.m
Original file line number Diff line number Diff line change
@@ -0,0 +1,60 @@
IBY574PR ;ALB/GEF - Pre-Installation for IB patch 574 ; 10/7/16 5:38pm
;;2.0;INTEGRATED BILLING;**574**;21-MAR-94;Build 12
;;Per VA Directive 6402, this routine should not be modified.
;
; delete all output formatter (O.F.) data elements included in build
D DELOF
Q
;
INCLUDE(FILE,Y) ; function to determine if O.F. entry should be included in the build
; FILE=5,6,7 indicating file 364.x
; Y=ien to file
NEW OK,LN,TAG,DATA
S OK=0
F LN=2:1 S TAG="ENT"_FILE_"+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" I $F(DATA,U_Y_U) S OK=1 Q
Q OK
;
;Delete edited entries to insure clean install of new entries
;Delete obsolete entries.
DELOF ; Delete included OF entries
NEW FILE,DIK,LN,TAG,TAGLN,DATA,PCE,DA,Y
F FILE=5,6,7 S DIK="^IBA(364."_FILE_"," D
. F TAG="ENT"_FILE,"DEL"_FILE D
.. F LN=2:1 S TAGLN=TAG_"+"_LN,DATA=$P($T(@TAGLN),";;",2) Q:DATA="" D
... F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA I $D(^IBA("364."_FILE,DA,0)) D ^DIK
Q
;
; Example for ENT5, ENT6, ENT7, DEL5, DEL6, and DEL7:
;;^195^254^259^269^324^325^
; Note: Must have beginning and ending up-carat
;
; 364.5 entries modified:
;
ENT5 ; OF entries in file 364.5 to be included
;
;
;-----------------------------------------------------------------------
;
ENT6 ; O.F. entries in file 364.6 to be included
;
;
ENT7 ; O.F. entries in file 364.7 to be included
;
;;^77^98^1305^
;
;-----------------------------------------------------------------------
; 364.5 entries deleted:
;
DEL5 ; remove O.F. entries in file 364.5 (not re-added)
;
;;
;
;
DEL6 ; remove O.F. entries in file 364.6 (not re-added)
;
;
DEL7 ; remove O.F. entries in file 364.7 (not re-added)
;
;
;-----------------------------------------------------------------------
;
10 changes: 5 additions & 5 deletions Packages/Kernel/Globals/%ZTSCH.zwr
Original file line number Diff line number Diff line change
@@ -1,9 +1,9 @@
OSEHRA ZGO Export: ^%ZTSCH
25-FEB-2017 02:00:08 ZWR
25-FEB-2017 02:38:35 ZWR
^%ZTSCH("DEVTRY","//./nul")="5311138792"
^%ZTSCH("ER")=""
^%ZTSCH("HOUR")="5558894492"
^%ZTSCH("IDLE")="5558896721"
^%ZTSCH("HOUR")="5558898912"
^%ZTSCH("IDLE")="5558899033"
^%ZTSCH("IO")="5558892276^"
^%ZTSCH("IO","GMRA UPDATE RESOURCE")="RES"
^%ZTSCH("LOAD")=""
@@ -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")="64339,7155"
^%ZTSCH("STOP","SUB","VISTA:CACHE")="64339,7155"
^%ZTSCH("STOP","MGR","VISTA:CACHE")="64339,9462"
^%ZTSCH("STOP","SUB","VISTA:CACHE")="64339,9462"
^%ZTSCH("SUB","VISTA:CACHE")="0"
^%ZTSCH("SUB","VISTA:CACHE",0)="0"
^%ZTSCH("WAIT")="58035,64592"
45 changes: 43 additions & 2 deletions Packages/Kernel/Globals/14.4+TASKS.zwr
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
OSEHRA ZGO Export: TASKS
25-FEB-2017 02:00:08 ZWR
^%ZTSK(-1)="1472"
25-FEB-2017 02:38:35 ZWR
^%ZTSK(-1)="1476"
^%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^^"
@@ -5969,6 +5969,47 @@ OSEHRA ZGO Export: TASKS
^%ZTSK(1472,.3,"DUZ(",0)="@"
^%ZTSK(1472,.3,"XQSCH")="8"
^%ZTSK(1472,.3,"XQY")="9891"
^%ZTSK(1473,0)="HOUR^XUTMHR^.5^^64339,9313^64339,9313^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^"
^%ZTSK(1473,.02)="^VISTA^^"
^%ZTSK(1473,.03)="Taskman Hourly Job"
^%ZTSK(1473,.04)="5558898913"
^%ZTSK(1473,.1)="B^64339,9373^Task's volume set not listed in index.^^^^^^"
^%ZTSK(1473,.2)=""
^%ZTSK(1473,.21)=""
^%ZTSK(1473,.25)=""
^%ZTSK(1474,0)="ZTSK^XQ1^.5^VISTA^64339,9373^64339,9373^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
^%ZTSK(1474,.02)="^VISTA^^"
^%ZTSK(1474,.03)="No Description (%ZTLOAD)"
^%ZTSK(1474,.04)="5558898973"
^%ZTSK(1474,.1)="B^64339,9375^Task's volume set not listed in index.^^^^^^"
^%ZTSK(1474,.2)=""
^%ZTSK(1474,.21)=""
^%ZTSK(1474,.25)=""
^%ZTSK(1474,.3,"DUZ(",0)="@"
^%ZTSK(1474,.3,"XQSCH")="10"
^%ZTSK(1474,.3,"XQY")="8853"
^%ZTSK(1475,0)="ZTSK^XQ1^.5^VISTA^64339,9373^64339,9373^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
^%ZTSK(1475,.02)="^VISTA^^"
^%ZTSK(1475,.03)="No Description (%ZTLOAD)"
^%ZTSK(1475,.04)="5558898973"
^%ZTSK(1475,.1)="B^64339,9377^Task's volume set not listed in index.^^^^^^"
^%ZTSK(1475,.2)=""
^%ZTSK(1475,.21)=""
^%ZTSK(1475,.25)=""
^%ZTSK(1475,.3,"DUZ(",0)="@"
^%ZTSK(1475,.3,"XQSCH")="11"
^%ZTSK(1475,.3,"XQY")="8412"
^%ZTSK(1476,0)="ZTSK^XQ1^.5^VISTA^64339,9373^64339,9373^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
^%ZTSK(1476,.02)="^VISTA^^"
^%ZTSK(1476,.03)="No Description (%ZTLOAD)"
^%ZTSK(1476,.04)="5558898973"
^%ZTSK(1476,.1)="B^64339,9379^Task's volume set not listed in index.^^^^^^"
^%ZTSK(1476,.2)=""
^%ZTSK(1476,.21)=""
^%ZTSK(1476,.25)=""
^%ZTSK(1476,.3,"DUZ(",0)="@"
^%ZTSK(1476,.3,"XQSCH")="8"
^%ZTSK(1476,.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"
6 changes: 3 additions & 3 deletions Packages/Kernel/Globals/200+NEW PERSON.zwr
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
OSEHRA ZGO Export: NEW PERSON
25-FEB-2017 02:01:39 ZWR
25-FEB-2017 02:39:51 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.015914^1^0^3160209"
^VA(200,1,1.1)="3170225.023741^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.015643^8^0^3160526^"
^VA(200,17,1.1)="3170225.023514^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"
6 changes: 3 additions & 3 deletions Packages/Kernel/Globals/3.5+DEVICE.zwr
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
OSEHRA ZGO Export: DEVICE
25-FEB-2017 02:00:08 ZWR
25-FEB-2017 02:38:35 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)="1027"
^%ZIS(1,10,5)="1028"
^%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)="29224"
^%ZIS(1,22,5)="29445"
^%ZIS(1,22,"SUBTYPE")="9"
^%ZIS(1,22,"TYPE")="VTRM"
^%ZIS(1,23,0)="OR WORKSTATION^ORDEV.DAT^0^0^^^^^^^0"
Loading

0 comments on commit 1c4d34b

Please sign in to comment.