| [613] | 1 | RCCPCT ;WASH-ISC@ALTOONA,PA/LDB - CCPC Statements totals ;11/7/96 10:53 AM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**34**;Mar 20, 1995;
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;;
|
|---|
| 5 | EN ;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 | ;
|
|---|
| 13 | START ;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
|
|---|
