Skip to content

Commit

Permalink
Install: IB*2.0*644
Browse files Browse the repository at this point in the history 
Patch Subject:  MULTIPLE LINE ITEMS WITH 1ST SERVICE DATE; BILLING FACILITY NAME DISCREPANCY
Description:

============
 This patch addresses the following issues:
 -Insurance claims with multiple service line items/dates on the bill are
  not electronically transmitted properly.
 -The BILLING FACILITY NAME (#200) field in the INSTITUTION (#4) file is
  not correctly populated on the uniform billing form UB-04 FL-1.
 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
 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:
 --------------------------------------------
 1. INC3318511 - Insurance claims with multiple line items/dates on a
                 single bill are not transmitting electronically properly.
    Problem:
    --------
    Insurance claims on the bill in the Electronic Data Interchange (EDI)
    Transmission, displays only the first date of service listed on all
    service line items instead of an individual date of service for each
    service line item.
    Resolution:
    ------------
    Routine IBCEFG1 was modified to pull the procedure date to the 'Service
    Date From' field for each service line item for the EDI transmission if
    it can be determined by the associated procedure, otherwise it will use
    the start date of the statement on the bill.
 2. INC3333745 -  Billing Facility Naming discrepancy resulting in denied
                  claims for NCCPAC.
    Problem:
    --------
    The BILLING FACILITY NAME (#200) field in the INSTITUTION (#4) file
    does not display to the correct uniform billing form,
    UB-04 FL-1, resulting in claims being denied by payers.
    Resolution:
    -----------
    Post-init routine IB20P644, was created to modify the
    FORMAT CODE (#1) field in the IB FORM FIELD CONTENT (#364.7) file
    for the BILLING PROVIDER NAME (FL-1/1) form field. If the
    BILLING FACILITY NAME (#200) field of the INSTITUTION (#4) file
    exists, the Facility Name will be used. If not, the NAME (#.01) field
    of the INSTITUTION (#4) file will be used for the UB-04 FL-1 uniform
    billing form.
 TEST SITES:
 -----------
 MARTINSBURG VAMC
 VA MARYLAND HCS
 Software and Documentation Retrieval Instructions:
 --------------------------------------------------
 N/A
 Pre/Post Installation Overview:

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_644
  • Loading branch information
@josephsnyder
josephsnyder committed Aug 27, 2019
1 parent 2ed25b6 commit 6e70573
Show file tree
Hide file tree
Showing 7 changed files with 239 additions and 14 deletions.
41 changes: 41 additions & 0 deletions Packages/Integrated Billing/Routines/IB20P644.m
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,41 @@
IB20P644 ;ALB/CXW - POST INIT ROUTINE FOR IB*2.0*644 ;04/01/2019
;;2.0;INTEGRATED BILLING;**644**;21-MAR-94;Build 4
;;Per VA Directive 6402, this routine should not be modified.
Q
;
POST ; post init to update Format Code for Billing Provider Name (FL-1/1) in the #364.7 file
N IBZ,U S U="^"
D MSG(" IB*2.0*644 Post-Install starts .....")
D MSG(""),UPDATE,MSG("")
D MSG(" IB*2.0*644 Post-Install is complete.")
Q
;
UPDATE ; Format Code updates based on output formatter files
N IBCODE,IBX,IB353,IB353EN,IB3645,IB3645EN,IB3646,IB3646EN,IB3647EN,DA,DIE,DR,X,Y
S (IB353EN,IB3645EN,IB3646EN,IB3647EN)=0
S IB353="UB-04"
S IBX=0 F S IBX=$O(^IBE(353,"B",IB353,IBX)) Q:'IBX I $P($G(^IBE(353,IBX,2)),U,4) S IB353EN=IBX Q
I 'IB353EN D MSG(" >> ERROR: cannot find National "_IB353_" bill form in the #353 file") Q
S IB3646="BILLING PROVIDER NAME (FL-1/1)"
S IBX=0 F S IBX=$O(^IBA(364.6,"C",IB3646,IBX)) Q:'IBX I $P($G(^IBA(364.6,IBX,0)),U,1,2)=(IB353EN_"^N") S IB3646EN=IBX Q
I 'IB3646EN D MSG(" >> ERROR: cannot find National "_IB3646_" field in the #364.6 file") Q
S IB3645="N-BILLING PROVIDER"
S IBX=0 F S IBX=$O(^IBA(364.5,"B",IB3645,IBX)) Q:'IBX I $P($G(^IBA(364.5,IBX,0)),U,2)="N" S IB3645EN=IBX Q
I 'IB3645EN D MSG(" >> ERROR: cannot find National "_IB3645_" field in the #364.5 file") Q
S IBX=0 F S IBX=$O(^IBA(364.7,"B",IB3646EN,IBX)) Q:'IBX I $P($G(^IBA(364.7,IBX,0)),U,2,3)="N^"_IB3645EN S IB3647EN=IBX Q
I 'IB3647EN D MSG(" >> ERROR: cannot find National "_IB3646_" field in the #364.7 file") Q
S IBCODE=$P($T(CODE+1),";",3)
I $G(^IBA(364.7,IB3647EN,1))=IBCODE D MSG(" Format code has already been updated for National "_IB3646_" in the #364.7 file!") Q
;
; set in format code
S DA=IB3647EN,DIE="^IBA(364.7,",DR="1///"_IBCODE D ^DIE
;
D MSG(" Format code updated for National "_IB3646_" in the #364.7 file!")
Q
;
MSG(IBZ) ;
D MES^XPDUTL(IBZ) Q
;
CODE ; format code - IA#2171 $$BNIEN^XUAF4
;;S IBXSAVE("BPDATA")=IBXDATA,IBXDATA=$$BNIEN^XUAF4(+IBXSAVE("BPDATA")) S:IBXDATA="" IBXDATA=$$GETFAC^IBCEP8(+IBXSAVE("BPDATA"),0,0)
;;
7 changes: 4 additions & 3 deletions Packages/Integrated Billing/Routines/IBCEFG1.m
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
IBCEFG1 ;ALB/TMP - OUTPUT FORMATTER DATA DEFINITION UTILITIES ;18-JAN-96
;;2.0;INTEGRATED BILLING;**52,51,137,181,197,232,288,349,371,377**;21-MAR-94;Build 23
;;Per VHA Directive 2004-038, this routine should not be modified.
;;2.0;INTEGRATED BILLING;**52,51,137,181,197,232,288,349,371,377,644**;21-MAR-94;Build 4
;;Per VA Directive 6402, this routine should not be modified.
;
EDIBILL(IBXFORM,IBXDA,IBINS,IBTYP) ; Find element associated with form fld
; IBXFORM = (REQUIRED) actual form being extracted (in file 353)
Expand Down Expand Up @@ -123,6 +123,7 @@
;IBXSAVE = array containing the extracted service line data for the UB format bill
;IBXDATA = array returned with service line dates formatted in YYYYMMDD format
;IBDT = the default date for the revenue codes on the bill
; *644 - replace 1st date with multiple dates
N Q,W
S Q=0 F S Q=$O(IBXSAVE("INPT",Q)) Q:'Q S W=$$DT($P(IBXSAVE("INPT",1),U,10),,"D8"),IBXDATA(Q)=$S(W:W,1:IBDT)
S Q=0 F S Q=$O(IBXSAVE("INPT",Q)) Q:'Q S W=$$DT($P(IBXSAVE("INPT",Q),U,10),,"D8"),IBXDATA(Q)=$S(W:W,1:IBDT)
Q
45 changes: 43 additions & 2 deletions Packages/Kernel/Globals/14.4+TASKS.zwr
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
OSEHRA ZGO Export: TASKS
27-AUG-2019 03:37:59 ZWR
^%ZTSK(-1)=5074
27-AUG-2019 04:25:02 ZWR
^%ZTSK(-1)=5078
^%ZTSK(0)="TASKS^14.4^5020"
^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^"
^%ZTSK(1001,.02)="^PLA^^"
Expand Down Expand Up @@ -48225,6 +48225,47 @@ OSEHRA ZGO Export: TASKS
^%ZTSK(5074,.3,"DUZ(",0)="@"
^%ZTSK(5074,.3,"XQSCH")=8
^%ZTSK(5074,.3,"XQY")=9891
^%ZTSK(5075,0)="HOUR^XUTMHR^.5^^65252,15601^65252,15601^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^"
^%ZTSK(5075,.02)="^VISTA^^"
^%ZTSK(5075,.03)="Taskman Hourly Job"
^%ZTSK(5075,.04)=5637788401
^%ZTSK(5075,.1)="B^65252,15661^Task's volume set not listed in index.^^^^^^"
^%ZTSK(5075,.2)=""
^%ZTSK(5075,.21)=""
^%ZTSK(5075,.25)=""
^%ZTSK(5076,0)="ZTSK^XQ1^.5^VISTA^65252,15661^65252,15661^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
^%ZTSK(5076,.02)="^VISTA^^"
^%ZTSK(5076,.03)="No Description (%ZTLOAD)"
^%ZTSK(5076,.04)=5637788461
^%ZTSK(5076,.1)="B^65252,15663^Task's volume set not listed in index.^^^^^^"
^%ZTSK(5076,.2)=""
^%ZTSK(5076,.21)=""
^%ZTSK(5076,.25)=""
^%ZTSK(5076,.3,"DUZ(",0)="@"
^%ZTSK(5076,.3,"XQSCH")=10
^%ZTSK(5076,.3,"XQY")=8853
^%ZTSK(5077,0)="ZTSK^XQ1^.5^VISTA^65252,15661^65252,15661^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
^%ZTSK(5077,.02)="^VISTA^^"
^%ZTSK(5077,.03)="No Description (%ZTLOAD)"
^%ZTSK(5077,.04)=5637788461
^%ZTSK(5077,.1)="B^65252,15665^Task's volume set not listed in index.^^^^^^"
^%ZTSK(5077,.2)=""
^%ZTSK(5077,.21)=""
^%ZTSK(5077,.25)=""
^%ZTSK(5077,.3,"DUZ(",0)="@"
^%ZTSK(5077,.3,"XQSCH")=11
^%ZTSK(5077,.3,"XQY")=8412
^%ZTSK(5078,0)="ZTSK^XQ1^.5^VISTA^65252,15661^65252,15661^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
^%ZTSK(5078,.02)="^VISTA^^"
^%ZTSK(5078,.03)="No Description (%ZTLOAD)"
^%ZTSK(5078,.04)=5637788461
^%ZTSK(5078,.1)="B^65252,15667^Task's volume set not listed in index.^^^^^^"
^%ZTSK(5078,.2)=""
^%ZTSK(5078,.21)=""
^%ZTSK(5078,.25)=""
^%ZTSK(5078,.3,"DUZ(",0)="@"
^%ZTSK(5078,.3,"XQSCH")=8
^%ZTSK(5078,.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"
Expand Down
Loading

0 comments on commit 6e70573

Please sign in to comment.