| 1 | IBCECOB3 ;ALB/CXW - COB MANAGEMENT REPORT ;23-JUL-99
|
---|
| 2 | ;;2.0;INTEGRATED BILLING;**137,155**;21-MAR-94
|
---|
| 3 | Q
|
---|
| 4 | EN ; Report of bill awaiting resubmission/cancel
|
---|
| 5 | D FULL^VALM1
|
---|
| 6 | W !!,"You will need a 132 column printer for this report!",!
|
---|
| 7 | ;
|
---|
| 8 | N %ZIS,ZTSAVE,ZTRTN,ZTDESC
|
---|
| 9 | S %ZIS="QM" D ^%ZIS Q:POP
|
---|
| 10 | I $D(IO("Q")) K IO("Q") D Q
|
---|
| 11 | . S ZTRTN="LIST^IBCECOB3"
|
---|
| 12 | . S ZTSAVE("IBSRT")="",ZTSAVE("^TMP(""IBBIL"",$J")="",ZTSAVE("^TMP(""IBCOBST"",$J,")=""
|
---|
| 13 | . S ZTDESC="IB -COB Management Report" D ^%ZTLOAD K ZTSK D HOME^%ZIS
|
---|
| 14 | U IO
|
---|
| 15 | LIST ; display
|
---|
| 16 | N IBSTOP,IBPAGE,IBX,IBIFN,IBUER,IB,IBZ,IBI,IBFST
|
---|
| 17 | W:$E(IOST,1,2)["C-" @IOF ;Only initial form feed for print to screen
|
---|
| 18 | S (IBSTOP,IBPAGE,IBFST)=0
|
---|
| 19 | S IBUER=$S(IBSRT="A":1,1:0)
|
---|
| 20 | I '$D(^TMP("IBCOBST",$J)) D G LISTQ
|
---|
| 21 | . D HDR1 W !,"No entries found for this report"
|
---|
| 22 | S IBX="" F S IBX=$O(^TMP("IBCOBST",$J,IBX)) Q:IBX=""!(IBSTOP) D
|
---|
| 23 | . I 'IBFST D HDR1 S:'IBUER IBFST=1 Q:IBSTOP
|
---|
| 24 | . S IBIFN=0 F S IBIFN=$O(^TMP("IBCOBST",$J,IBX,IBIFN)) Q:'IBIFN!(IBSTOP) D
|
---|
| 25 | .. S IB=$G(^TMP("IBCOBST",$J,IBX,IBIFN))
|
---|
| 26 | .. S IBZ=$P($P(IB,U,11),";",2,99)
|
---|
| 27 | .. I ($Y+5)>IOSL D HDR1 Q:IBSTOP
|
---|
| 28 | .. W !,$$BN1^PRCAFN(IBIFN),?13,$$DAT1^IBOUTL($P(IB,U)),?24,$J($P(IB,U,2),8,2),?36,$J($P(IB,U,3),8,2),?48,$J($P(IB,U,4),8,2),?60,$P($P(IB,U,11),";"),?95,$$DAT1^IBOUTL($P(IB,U,13))
|
---|
| 29 | .. W ?107,$E($$EXTERNAL^DILFD(399,.21,,$TR($P(IB,U,7),"123","PST")),1,10),?119,$P(IB,U,12)
|
---|
| 30 | .. I IBZ'="" F IBI=1:1:$L(IBZ,";") D Q:IBSTOP
|
---|
| 31 | ... I ($Y+5)>IOSL D HDR1 Q:IBSTOP
|
---|
| 32 | ... W !,?60,$P(IBZ,";",IBI)
|
---|
| 33 | .. I ($Y+5)>IOSL D HDR1 Q:IBSTOP
|
---|
| 34 | .. I 'IBUER W !,?3,"Authorizing/requesting biller: "_$P(IB,U,8)
|
---|
| 35 | .. W !,?3,"Insurers on file: "_$P(IB,U,9),!
|
---|
| 36 | G:IBSTOP LISTQ
|
---|
| 37 | I $E(IOST,1,2)["C-" K DIR S DIR(0)="E" D ^DIR K DIR
|
---|
| 38 | LISTQ ;K ^TMP("IBCOBST",$J)
|
---|
| 39 | I $D(ZTQUEUED) S ZTREQ="@" Q
|
---|
| 40 | W ! D ^%ZISC
|
---|
| 41 | Q
|
---|
| 42 | HDR1 ;
|
---|
| 43 | N DIR,Y
|
---|
| 44 | I IBPAGE D Q:IBSTOP
|
---|
| 45 | . I $E(IOST,1,2)["C-" K DIR S DIR(0)="E" D ^DIR K DIR S IBSTOP=('Y) Q:IBSTOP
|
---|
| 46 | . W @IOF
|
---|
| 47 | S IBPAGE=IBPAGE+1
|
---|
| 48 | W !,?48,"COB MANAGEMENT REPORT",?115,"PAGE: ",IBPAGE,!,?45,"RUN DATE: ",$$HTE^XLFDT($H,"2"),!
|
---|
| 49 | W ?42,"SORT BY: "_$S(IBSRT="A":"AUTHORIZING/REQUESTING BILLER","D":"DAYS SINCE TRANSMISSION OF LATEST BILL","B":"BALANCE REMAINING","I":"INSURANCE COMPANY",1:"DATE LAST MRA RECEIVED")
|
---|
| 50 | I IBUER W !!,"AUTHORIZING/REQUESTING BILLER: "_$G(IBX)
|
---|
| 51 | W !,?114,"LAST COB PRODUCED"
|
---|
| 52 | W !,?13,"DATE OF",?24,"BILLED",?36,"AMOUNT",?48,"BALANCE",?60,"MRA",?95,"DATE",?119,"DAYS SINCE"
|
---|
| 53 | W !,"BILL #",?13,"SERVICE",?24,"AMOUNT",?36,"PAID",?48,"REMAINING",?60,"HISTORY",?95,"RECEIVED",?107,"SEQUENCE",?119,"TRANSMIT"
|
---|
| 54 | W !,$TR($J("",132)," ","-"),!
|
---|
| 55 | Q
|
---|
| 56 | ;
|
---|