| 1 | IBCERP6A ;ALB/JEH - READY FOR EXTRACT LIST MANAGER REPORT ;27-OCT-99
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**137**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | EN ; - Ask device
|
|---|
| 6 | N %ZIS,ZTRTN,ZTSAVE,ZTDESC
|
|---|
| 7 | S %ZIS="QM" D ^%ZIS G:POP ENQ1
|
|---|
| 8 | I $D(IO("Q")) D G ENQ1
|
|---|
| 9 | .S ZTRTN="LIST^IBCERP6A",ZTDESC="IB - EDI/MRA Claims in Rescue Process"
|
|---|
| 10 | .S ZTSAVE("IBPARAM")="",ZTSAVE("^TMP(""IBCERP6"",$J,")=""
|
|---|
| 11 | .D ^%ZTLOAD
|
|---|
| 12 | .W !!,$S($D(ZTSK):"Your task number"_ZTSK_" has been queued.",1:"Unable to queue this job.")
|
|---|
| 13 | .K ZTSK,IO("Q") D HOME^%ZIS
|
|---|
| 14 | U IO
|
|---|
| 15 | ;
|
|---|
| 16 | LIST ; - Tasked entry point
|
|---|
| 17 | ;
|
|---|
| 18 | ;
|
|---|
| 19 | S (IBQUIT,IBPG)=0 D HDR
|
|---|
| 20 | I '$D(^TMP("IBCERP6",$J)) W !!,"There are no records to print" G ENQ1
|
|---|
| 21 | S IBSTAT="" F S IBSTAT=$O(^TMP("IBCERP6",$J,IBSTAT)) Q:IBSTAT=""!(IBQUIT) D
|
|---|
| 22 | .S IBILL="" F S IBILL=$O(^TMP("IBCERP6",$J,IBSTAT,IBILL)) Q:IBILL=""!(IBQUIT) S IBREC=^(IBILL) D
|
|---|
| 23 | ..I ($Y+5)>IOSL D I IBQUIT Q
|
|---|
| 24 | ...D ASK I IBQUIT Q
|
|---|
| 25 | ...D HDR
|
|---|
| 26 | ..;
|
|---|
| 27 | ..W !,?2,$P(IBREC,U,2),?15,$P(IBREC,U,3),?22,$P(IBREC,U,4)
|
|---|
| 28 | ..W ?28,$E($P(IBREC,U,5),1,4),?35,$P(IBREC,U,6),?40,$E($P(IBREC,U,7),6,7)_"/"_$E($P(IBREC,U,7),4,5)_"/"_$E($P(IBREC,U,7),2,3)
|
|---|
| 29 | ..W ?50,$P(IBREC,U,8),?55,$E($P(IBREC,U,9),1,13),?70,$E($P(IBREC,U,10),1,9)
|
|---|
| 30 | I $D(ZTQUEUED) S ZTREQ="@"
|
|---|
| 31 | ;
|
|---|
| 32 | I '$D(ZTQUEUED) D ^%ZISC
|
|---|
| 33 | ENQ1 K IBSTAT,IBILL,IBREC,IBPG,IBQUIT
|
|---|
| 34 | Q
|
|---|
| 35 | HDR ;Prints report heading
|
|---|
| 36 | I $E(IOST,1,2)="C-" W @IOF,*13
|
|---|
| 37 | S IBPG=IBPG+1
|
|---|
| 38 | W !!,?25,"Claims in Rescue Process",?55,$$FMTE^XLFDT(DT),?70,"Page: ",IBPG
|
|---|
| 39 | W !!,?15,"Inpt/",?22,"Inst/",!,?4,"Bill #",?15,"Opt",?22,"Prof",?28,"Name"
|
|---|
| 40 | W ?35,"SSN",?40,"Stmt Date",?50,"Type",?55,"Ins Co.",?70,"Status"
|
|---|
| 41 | W !,$TR($J("",IOM)," ","=")
|
|---|
| 42 | Q
|
|---|
| 43 | ;
|
|---|
| 44 | ASK ;
|
|---|
| 45 | I $E(IOST,1,2)'["C-" Q
|
|---|
| 46 | N DIR,DIROUT,DIRUT,DTOUT,DUOUT
|
|---|
| 47 | S DIR(0)="E" D ^DIR
|
|---|
| 48 | I ($D(DIRUT))!($D(DUOUT)) S IBQUIT=1 Q
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
