IBCE837B ;ALB/TMP - OUTPUT FOR 837 TRANSMISSION (cont) ;24-APR-01
;;2.0;INTEGRATED BILLING;**137,191,197,320,608**;21-MAR-94;Build 90
;;Per VA Directive 6402, this routine should not be modified.
;
QTXMT(IBSITE8) ; Run now or queue EDI bill transmit (part of nightly job)
; IBSITE8 = the '8' node of the site parameters file (350.9)
I $P(IBSITE8,U,6)="" D
. D EN1("",1)
E D
. N Z,Z0
. F Z=1:1:4 S Z0=$P($P(IBSITE8,U,6),";",Z) Q:Z0="" D
.. 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
.. D EN1("",1,+IBQDT)
Q
;
EN1(IBZTSK,IBNOASK,IBQDT,IBABORT,IBRSBTST) ;Txmit 837's for bills waiting transmission
; Pass IBZTSK by ref to get task # if job is tasked
; IBNOASK = flag: 0 = ask to queue, 1 = no ask to queue
; IBQDT = if IBNOASK=1, this can be the date/time to queue the job
; Pass IBABORT by reference to determine if user aborted process
;
; IBRSBTST = 1 /IB*2*608 (vd) Instituted this variable for US2486 to indicate
; a claim is being resubmitted and should be handled special
; concerning the COB, OFFSET, PRIOR PAYMENTS calculation by the
; OUTPUT FORMATTER. This is for "TEST" only.
;
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)
I Z D
. ;/IB*2*608 (vd) - US2486 added the parameter IBRSBTST to the following 2 lines.
. 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
. D FORM^IBCEFG7(Z,$P($G(^IBE(350.9,1,8)),U),+$G(IBNOASK),$S($G(IBNOASK):$G(IBQDT),1:""),"",.IBABORT,$G(IBRSBTST))
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCE837B 1786 printed Oct 16, 2024@18:10:08 Page 2
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
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
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)
+2 IF $PIECE(IBSITE8,U,6)=""
Begin DoDot:1
+3 DO EN1("",1)
End DoDot:1
+4 IF '$TEST
Begin DoDot:1
+5 NEW Z,Z0
+6 FOR Z=1:1:4
SET Z0=$PIECE($PIECE(IBSITE8,U,6),";",Z)
if Z0=""
QUIT
Begin DoDot:2
+7 ; If time to queue is after the current time, queue for the next day
SET IBQDT=$SELECT($EXTRACT(($$NOW^XLFDT()#1*10000\1)_"0000",1,4)>Z0:$$FMADD^XLFDT(DT,1),1:DT)_"."_Z0
+8 DO EN1("",1,+IBQDT)
End DoDot:2
End DoDot:1
+9 QUIT
+10 ;
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
+2 ; IBNOASK = flag: 0 = ask to queue, 1 = no ask to queue
+3 ; IBQDT = if IBNOASK=1, this can be the date/time to queue the job
+4 ; Pass IBABORT by reference to determine if user aborted process
+5 ;
+6 ; IBRSBTST = 1 /IB*2*608 (vd) Instituted this variable for US2486 to indicate
+7 ; a claim is being resubmitted and should be handled special
+8 ; concerning the COB, OFFSET, PRIOR PAYMENTS calculation by the
+9 ; OUTPUT FORMATTER. This is for "TEST" only.
+10 ;
+11 NEW Z
SET Z=$ORDER(^IBE(353,"B","IB 837 TRANSMISSION",0))
SET Z=$SELECT($PIECE($GET(^IBE(353,+Z,2)),U,8):$PIECE(^(2),U,8),1:Z)
+12 IF Z
Begin DoDot:1
+13 ;/IB*2*608 (vd) - US2486 added the parameter IBRSBTST to the following 2 lines.
+14 IF $DATA(^TMP("IBRESUBMIT",$JOB))!($GET(IBNOASK))
DO FORM^IBCEFG7(Z,$PIECE($GET(^IBE(350.9,1,8)),U),+$GET(IBNOASK),$SELECT($GET(IBNOASK):$GET(IBQDT),1:""),.IBZTSK,.IBABORT,$GET(IBRSBTST))
QUIT
+15 DO FORM^IBCEFG7(Z,$PIECE($GET(^IBE(350.9,1,8)),U),+$GET(IBNOASK),$SELECT($GET(IBNOASK):$GET(IBQDT),1:""),"",.IBABORT,$GET(IBRSBTST))
End DoDot:1
+16 QUIT
