source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCDPRTP2.m@ 1714

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

initial load of WorldVistAEHR

File size: 2.6 KB
Line 
1RCDPRTP2 ;ALB/LDB - CLAIMS MATCHING REPORT ;1/26/01 3:16 PM
2 ;;4.5;Accounts Receivable;**151**;Mar 20, 1995
3 ;
4PRINT1 ;
5 I $Y>(IOSL-2) D PAUSE Q:$G(RCQ) D HDR^RCDPRTP1,HDR1
6 W !,$S(RCTP=RCBILL:"*",$D(RCTP(RCTP)):"*",1:" "),$P(RCIBDAT,"^",4),?14,$P(RCIBDAT,"^",5),?20
7 W $$STAT(RCTP),?26,$$DATE(+RCIBDAT),?35,$$DATE($P(RCIBDAT,"^",2))
8 S Y=$S($G(RCTP(RCTP)):RCTP(RCTP),$G(^TMP("RCDPRTPB",$J,RCNAM,RCBILL)):^(RCBILL),1:"") I RCTP=RCBILL!($D(RCTP(RCTP))) W ?46,$$DATE(Y)
9 S RCAMT=$P($G(^PRCA(430,+RCTP,0)),"^",3),RCAMT1=$P($G(^PRCA(430,+RCTP,7)),"^",7) W ?57,$J(RCAMT,9,2)
10 W ?68,$J(RCAMT1,9,2) S RCAMT(0)=RCAMT(0)+RCAMT,RCAMT(1)=RCAMT(1)+RCAMT1
11 W ?83,$E($P(RCIBDAT,"^",7),1,25)
12 K RCTP(RCTP)
13 Q
14 ;
15PRINT2 ; Print the detail line for a first party bill.
16 I $Y>(IOSL-2) D PAUSE Q:$G(RCQ) D HDR^RCDPRTP1,HDR2
17 W !," ",$P(RCIBDAT,"^",4),?14,$P(RCIBDAT,"^",6)
18 S RCIBFN=$P(RCIBDAT,"^",4) I RCIBFN S RCIBFN=$O(^PRCA(430,"B",RCIBFN,0))
19 W ?30,$$STAT(RCIBFN),?35,$$DATE(+RCIBDAT),?47,$$DATE($P(RCIBDAT,"^",2))
20 W ?56,$J($P(RCIBDAT,"^",5),9,2),?69,$P(RCIBDAT,"^",7)
21 W ?77,$J($S($G(^PRCA(430,+RCIBFN,7)):+($P(^(7),"^")+$P(^(7),"^",2)+$P(^(7),"^",3)+$P(^(7),"^",4)+$P(^(7),"^",4)),1:0),9,2)
22 Q
23 ;
24 ;
25PRINT3 ; Print patient detail information.
26 I $Y>(IOSL-5) D PAUSE Q:$G(RCQ) D HDR^RCDPRTP1
27 S RCNAM1=^TMP("RCDPRTPB",$J,RCNAM)
28 W !!,RCLINE
29 W !,"NAME: ",$P(RCNAM,"^")," (",$E($P(RCNAM1,"^",3),6,9)_")"
30 W !,"Prim. Elig: ",$P(RCNAM1,"^",2)
31 W ?44,"DOB: ",$P(RCNAM1,"^")
32 W ?61,"RX COVERAGE: ",$S('$G(^TMP("IBRBT",$J,RCBILL)):"NO",1:"YES")
33 W !,RCLINE
34 Q
35 ;
36HDR1 ;
37 W !!,"Third Party Bills: * -> bill for which payment was posted"
38 W !,"============================="
39 W !!," Bill #",?12,"P/S/T",?19,"Status",?26,"Bill From",?36,"Bill To",?46,"Posted",?57,"Amt Billed",?69,"Amt Paid",?83,"Payor"
40 W !,"-------",?12,"-----",?19,"------",?26,"---------",?36,"-------",?46,"------",?57,"---------",?69,"--------",?83,"-----"
41 Q
42 ;
43HDR2 ;
44 W !!,"Associated First Party Charges:"
45 W !,"==============================="
46 W !," Bill #",?14,"Charge Type",?28,"Status",?35,"From/Fill",?47,"To/Rel",?56,"Amt Billed",?69,"On Hold",?77," Balance"
47 W !,"------",?14,"-----------",?28,"------",?35,"---------",?47,"-------",?56,"----------",?69,"-------",?77,"-----------"
48 Q
49 ;
50STAT(RCIBFN) ;AR Status
51 I '$G(RCIBFN) Q ""
52 N RCSTAT
53 S RCSTAT=$P($G(^PRCA(430,+RCIBFN,0)),"^",8),RCSTAT=$P($G(^PRCA(430.3,+RCSTAT,0)),"^",2)
54 Q RCSTAT
55 ;
56DATE(X) ; Convert FileMan date to mm/dd/yy
57 Q $S($G(X):$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3),1:"")
58 ;
59 ;
60PAUSE ; Page break.
61 I $E(IOST,1,2)'="C-" Q
62 N RCX,DIR,DIRUT,DUOUT,DTOUT,DIROUT,X,Y
63 I IOSL<100 F RCX=$Y:1:(IOSL-3) W !
64 S DIR(0)="E" D ^DIR I $D(DIRUT)!($D(DUOUT)) S RCQ=1
65 Q
Note: See TracBrowser for help on using the repository browser.