Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBCE837B

IBCE837B.m

Go to the documentation of this file.
  1. IBCE837B ;ALB/TMP - OUTPUT FOR 837 TRANSMISSION (cont) ;24-APR-01
  1. ;;2.0;INTEGRATED BILLING;**137,191,197,320,608**;21-MAR-94;Build 90
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. QTXMT(IBSITE8) ; Run now or queue EDI bill transmit (part of nightly job)
  1. ; IBSITE8 = the '8' node of the site parameters file (350.9)
  1. I $P(IBSITE8,U,6)="" D
  1. . D EN1("",1)
  1. E D
  1. . N Z,Z0
  1. . F Z=1:1:4 S Z0=$P($P(IBSITE8,U,6),";",Z) Q:Z0="" D
  1. .. S IBQDT=$S($E(($$NOW^XLFDT()#1*10000\1)_"0000",1,4)>Z0:$$FMADD^XLFDT(DT,1),1:DT)_"."_Z0 ; If time to queue is after the current time, queue for the next day
  1. .. D EN1("",1,+IBQDT)
  1. Q
  1. ;
  1. EN1(IBZTSK,IBNOASK,IBQDT,IBABORT,IBRSBTST) ;Txmit 837's for bills waiting transmission
  1. ; Pass IBZTSK by ref to get task # if job is tasked
  1. ; IBNOASK = flag: 0 = ask to queue, 1 = no ask to queue
  1. ; IBQDT = if IBNOASK=1, this can be the date/time to queue the job
  1. ; Pass IBABORT by reference to determine if user aborted process
  1. ;
  1. ; IBRSBTST = 1 /IB*2*608 (vd) Instituted this variable for US2486 to indicate
  1. ; a claim is being resubmitted and should be handled special
  1. ; concerning the COB, OFFSET, PRIOR PAYMENTS calculation by the
  1. ; OUTPUT FORMATTER. This is for "TEST" only.
  1. ;
  1. N Z S Z=$O(^IBE(353,"B","IB 837 TRANSMISSION",0)),Z=$S($P($G(^IBE(353,+Z,2)),U,8):$P(^(2),U,8),1:Z)
  1. I Z D
  1. . ;/IB*2*608 (vd) - US2486 added the parameter IBRSBTST to the following 2 lines.
  1. . I $D(^TMP("IBRESUBMIT",$J))!($G(IBNOASK)) D FORM^IBCEFG7(Z,$P($G(^IBE(350.9,1,8)),U),+$G(IBNOASK),$S($G(IBNOASK):$G(IBQDT),1:""),.IBZTSK,.IBABORT,$G(IBRSBTST)) Q
  1. . D FORM^IBCEFG7(Z,$P($G(^IBE(350.9,1,8)),U),+$G(IBNOASK),$S($G(IBNOASK):$G(IBQDT),1:""),"",.IBABORT,$G(IBRSBTST))
  1. Q