| [613] | 1 | IBCE837B ;ALB/TMP - OUTPUT FOR 837 TRANSMISSION (cont) ;24-APR-01
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**137,191,197,320**;21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | QTXMT(IBSITE8) ; Run now or queue EDI bill transmit (part of nightly job)
|
|---|
| 5 | ; IBSITE8 = the '8' node of the site parameters file (350.9)
|
|---|
| 6 | I $P(IBSITE8,U,6)="" D
|
|---|
| 7 | . D EN1("",1)
|
|---|
| 8 | E D
|
|---|
| 9 | . N Z,Z0
|
|---|
| 10 | . F Z=1:1:4 S Z0=$P($P(IBSITE8,U,6),";",Z) Q:Z0="" D
|
|---|
| 11 | .. 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
|
|---|
| 12 | .. D EN1("",1,+IBQDT)
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | EN1(IBZTSK,IBNOASK,IBQDT,IBABORT) ;Txmit 837's for bills waiting transmission
|
|---|
| 16 | ; Pass IBZTSK by ref to get task # if job is tasked
|
|---|
| 17 | ; IBNOASK = flag: 0 = ask to queue, 1 = no ask to queue
|
|---|
| 18 | ; IBQDT = if IBNOASK=1, this can be the date/time to queue the job
|
|---|
| 19 | ; Pass IBABORT by reference to determine if user aborted process
|
|---|
| 20 | 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)
|
|---|
| 21 | I Z D
|
|---|
| 22 | . 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) Q
|
|---|
| 23 | . D FORM^IBCEFG7(Z,$P($G(^IBE(350.9,1,8)),U),+$G(IBNOASK),$S($G(IBNOASK):$G(IBQDT),1:""),"",.IBABORT)
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
