source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCCPCT.m@ 1261

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1RCCPCT ;WASH-ISC@ALTOONA,PA/LDB - CCPC Statements totals ;11/7/96 10:53 AM
2V ;;4.5;Accounts Receivable;**34**;Mar 20, 1995;
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;;
5EN ;Ask for device
6 D HOME^%ZIS S %ZIS="AEQ" D ^%ZIS Q:POP
7 I $D(IO("Q")) D Q
8 .S ZTRTN="START^RCCPCT",ZTDESC="CCPC PATIENT STATEMENT TOTAL REPORT"
9 .;S ZTIO=ION_";"_IOST_";"_IOM_";"_IOSL_";"_$G(IO("DOC"))
10 .D ^%ZTLOAD,^%ZISC
11 .K ZTRTN,ZTDESC
12 ;
13START ;find all transmission record totals
14 N DATE,PTOT,TTOT,X
15 U IO S (TTOT,X)=0 F S X=$O(^RCT(349,X)) Q:'X I $D(^(X,0)) S TTOT=$P(^(0),"^",7)+TTOT
16 S (PTOT,X)=0 F S X=$O(^RCPS(349.2,X)) Q:'X I $G(^(X,6)) S PTOT=PTOT+1
17 S DATE=$O(^RCT(349,0)) S:DATE DATE=$G(^(DATE,0))
18 I DATE]"" S DATE=$P(DATE,"^",9),DATE=$E(DATE,1,2)_"/"_$E(DATE,3,4)_"/"_$E(DATE,5,8)
19 E S DATE="N/A (NO TRANSMISSIONS)"
20 I IOST?1"C".E W @IOF
21 W !,?25,"CCPC Message Totals for ",DATE,!!
22 W "Transmission Statement Total : ",$J(TTOT,9)
23 W !,"CCPC Statements Printed Total : ",$J(PTOT,9)
24 W !!,"Total Not Printed : ",$J(TTOT-PTOT,9)
25 D ^%ZISC Q
Note: See TracBrowser for help on using the repository browser.