Changeset 636 for FOIAVistA/tag/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCE.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCE.m (modified) (3 diffs)

FOIAVistA/tag/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCE.m

@@ -1 +1 @@
 IBCE ;ALB/TMP - 837 EDI TRANSMISSION UTILITIES/NIGHTLY JOB ;22-JAN-96
- ;;2.0;INTEGRATED BILLING;**137,283,296,371**;21-MAR-94;Build 57
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+ ;;2.0;INTEGRATED BILLING;**137,283,296**;21-MAR-94
 EN ; Run all jobs needed for EDI processing nightly
  ; including transmit bills waiting for extract, batches not sent,
@@ -44 +43 @@
  ;
 RESUB(IB364) ; Manually resubmit bill for transmission (ien file 364 = IB364)
- N DIR,X,Y,IBBTCH,DTOUT,DUOUT,IBIFN,NEW364
+ N DIR,X,Y,IBBTCH,DTOUT,DUOUT
  I '$$MGCHK(1) G RESUBQ
- S IBIFN=+$P($G(^IBA(364,+$G(IB364),0)),U,1) I 'IBIFN G RESUBQ
  S IBBTCH=""
  W ! S DIR(0)="SA^I:IMMEDIATE TRANSMIT;L:TRANSMIT LATER WITH REST OF READY FOR EXTRACT BILLS",DIR("A")="TRANSMIT (I)MMEDIATELY OR (L)ATER?: ",DIR("B")="L"
@@ -53 +51 @@
  D ^DIR K DIR
  I $D(DTOUT)!$D(DUOUT) G RESUBQ
- ;
- ; immediate retransmission of claim
- I Y="I" D  G RESUBQ
- . S NEW364=$$ADDTBILL^IBCB1(IBIFN)    ; Add a new transmission record
- . I '$P(NEW364,U,3) D  Q
- .. S DIR("A",1)="FAILED TO ADD A NEW EDI TRANSMISSION",DIR(0)="EA",DIR("A")="PRESS ENTER TO CONTINUE " W ! D ^DIR K DIR
- .. Q
- . ;
+ I Y="I" D  G:'IBBTCH RESUBQ
+ . N Y
  . K ^TMP("IBONE",$J),^TMP("IBSELX",$J),^TMP("IBCE-BATCH",$J)
- . S ^TMP("IBONE",$J,+NEW364)="",^TMP("IBONE",$J)=0,^TMP("IBSELX",$J)=""
+ . S ^TMP("IBONE",$J,IB364)="",^TMP("IBONE",$J)=0,^TMP("IBSELX",$J)=""
  . D ONE^IBCE837
  . S IBBTCH=$O(^TMP("IBCE-BATCH",$J,0))                     ; external batch#
  . I IBBTCH'="" S IBBTCH=+$G(^TMP("IBCE-BATCH",$J,IBBTCH))  ; internal batch#
  . K ^TMP("IBONE",$J),^TMP("IBSELX",$J),^TMP("IBCE-BATCH",$J)
- . ;
  . I 'IBBTCH D
  .. S DIR("A",1)="BILL NOT RESUBMITTED - CHECK ALERTS/MAIL FOR DETAILS"
  . E  D
  .. N DIE,DR,DA
- .. D UPDEDI^IBCEM(IB364,"R")   ; update EDI files for old transmission
+ .. D UPDEDI^IBCEM(IB364,"R")
  .. S DIE="^IBA(364,",DR=".06////"_+IBBTCH,DA=IB364 D ^DIE
- .. S DIR("A",1)="BILL RESUBMITTED IN BATCH #"_$P($G(^IBA(364.1,+IBBTCH,0)),U,1)
- . S DIR(0)="EA",DIR("A")="PRESS ENTER TO CONTINUE " W ! D ^DIR K DIR
- . Q
- ;
- ; Later retransmission of claim
- D UPDEDI^IBCEM(IB364,"R")      ; update EDI files for old transmission record
- S Y=$$ADDTBILL^IBCB1(IBIFN)    ; Add a new transmission record
- S DIR("A",1)="BILL'S TRANSMISSION STATUS RESET TO 'READY TO EXTRACT'"
- S DIR(0)="EA",DIR("A")="PRESS ENTER TO CONTINUE " W ! D ^DIR K DIR
+ .. S DIR("A",1)="BILL RESUBMITTED IN BATCH #"_$P($G(^IBA(364.1,IBBTCH,0)),U)
+ . S DIR(0)="EA",DIR("A")="PRESS ENTER TO CONTINUE " D ^DIR K DIR
+ I Y="L" D
+ . N Y
+ . D UPDEDI^IBCEM(IB364,"R")
+ . ;Add a new transmission record
+ . S Y=$$ADDTBILL^IBCB1($P($G(^IBA(364,+IB364,0)),U),1)
+ . S DIR("A",1)="BILL'S TRANSMISSION STATUS RESET TO 'READY TO EXTRACT'"
+ . S DIR(0)="EA",DIR("A")="PRESS ENTER TO CONTINUE " D ^DIR K DIR
  ;
 RESUBQ Q