source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCE837B.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1IBCE837B ;ALB/TMP - OUTPUT FOR 837 TRANSMISSION (cont) ;24-APR-01
2 ;;2.0;INTEGRATED BILLING;**137,191,197,320**;21-MAR-94
3 ;
4QTXMT(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 ;
15EN1(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 ;
Note: See TracBrowser for help on using the repository browser.