Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBCECOB3

IBCECOB3.m

Go to the documentation of this file.
  1. IBCECOB3 ;ALB/CXW - COB MANAGEMENT REPORT ;23-JUL-99
  1. ;;2.0;INTEGRATED BILLING;**137,155**;21-MAR-94
  1. Q
  1. EN ; Report of bill awaiting resubmission/cancel
  1. D FULL^VALM1
  1. W !!,"You will need a 132 column printer for this report!",!
  1. ;
  1. N %ZIS,ZTSAVE,ZTRTN,ZTDESC
  1. S %ZIS="QM" D ^%ZIS Q:POP
  1. I $D(IO("Q")) K IO("Q") D Q
  1. . S ZTRTN="LIST^IBCECOB3"
  1. . S ZTSAVE("IBSRT")="",ZTSAVE("^TMP(""IBBIL"",$J")="",ZTSAVE("^TMP(""IBCOBST"",$J,")=""
  1. . S ZTDESC="IB -COB Management Report" D ^%ZTLOAD K ZTSK D HOME^%ZIS
  1. U IO
  1. LIST ; display
  1. N IBSTOP,IBPAGE,IBX,IBIFN,IBUER,IB,IBZ,IBI,IBFST
  1. W:$E(IOST,1,2)["C-" @IOF ;Only initial form feed for print to screen
  1. S (IBSTOP,IBPAGE,IBFST)=0
  1. S IBUER=$S(IBSRT="A":1,1:0)
  1. I '$D(^TMP("IBCOBST",$J)) D G LISTQ
  1. . D HDR1 W !,"No entries found for this report"
  1. S IBX="" F S IBX=$O(^TMP("IBCOBST",$J,IBX)) Q:IBX=""!(IBSTOP) D
  1. . I 'IBFST D HDR1 S:'IBUER IBFST=1 Q:IBSTOP
  1. . S IBIFN=0 F S IBIFN=$O(^TMP("IBCOBST",$J,IBX,IBIFN)) Q:'IBIFN!(IBSTOP) D
  1. .. S IB=$G(^TMP("IBCOBST",$J,IBX,IBIFN))
  1. .. S IBZ=$P($P(IB,U,11),";",2,99)
  1. .. I ($Y+5)>IOSL D HDR1 Q:IBSTOP
  1. .. 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))
  1. .. W ?107,$E($$EXTERNAL^DILFD(399,.21,,$TR($P(IB,U,7),"123","PST")),1,10),?119,$P(IB,U,12)
  1. .. I IBZ'="" F IBI=1:1:$L(IBZ,";") D Q:IBSTOP
  1. ... I ($Y+5)>IOSL D HDR1 Q:IBSTOP
  1. ... W !,?60,$P(IBZ,";",IBI)
  1. .. I ($Y+5)>IOSL D HDR1 Q:IBSTOP
  1. .. I 'IBUER W !,?3,"Authorizing/requesting biller: "_$P(IB,U,8)
  1. .. W !,?3,"Insurers on file: "_$P(IB,U,9),!
  1. G:IBSTOP LISTQ
  1. I $E(IOST,1,2)["C-" K DIR S DIR(0)="E" D ^DIR K DIR
  1. LISTQ ;K ^TMP("IBCOBST",$J)
  1. I $D(ZTQUEUED) S ZTREQ="@" Q
  1. W ! D ^%ZISC
  1. Q
  1. HDR1 ;
  1. N DIR,Y
  1. I IBPAGE D Q:IBSTOP
  1. . I $E(IOST,1,2)["C-" K DIR S DIR(0)="E" D ^DIR K DIR S IBSTOP=('Y) Q:IBSTOP
  1. . W @IOF
  1. S IBPAGE=IBPAGE+1
  1. W !,?48,"COB MANAGEMENT REPORT",?115,"PAGE: ",IBPAGE,!,?45,"RUN DATE: ",$$HTE^XLFDT($H,"2"),!
  1. 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")
  1. I IBUER W !!,"AUTHORIZING/REQUESTING BILLER: "_$G(IBX)
  1. W !,?114,"LAST COB PRODUCED"
  1. W !,?13,"DATE OF",?24,"BILLED",?36,"AMOUNT",?48,"BALANCE",?60,"MRA",?95,"DATE",?119,"DAYS SINCE"
  1. W !,"BILL #",?13,"SERVICE",?24,"AMOUNT",?36,"PAID",?48,"REMAINING",?60,"HISTORY",?95,"RECEIVED",?107,"SEQUENCE",?119,"TRANSMIT"
  1. W !,$TR($J("",132)," ","-"),!
  1. Q
  1. ;