IBCE837B.m

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 ---IBCE837B   1786     printed  Apr 09, 2024@21:15:07                                                                                                                                                                                                    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