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

RCCPCT.m

Go to the documentation of this file.
  1. RCCPCT ;WASH-ISC@ALTOONA,PA/LDB - CCPC Statements totals ;11/7/96 10:53 AM
  1. V ;;4.5;Accounts Receivable;**34**;Mar 20, 1995;
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;;
  1. EN ;Ask for device
  1. D HOME^%ZIS S %ZIS="AEQ" D ^%ZIS Q:POP
  1. I $D(IO("Q")) D Q
  1. .S ZTRTN="START^RCCPCT",ZTDESC="CCPC PATIENT STATEMENT TOTAL REPORT"
  1. .;S ZTIO=ION_";"_IOST_";"_IOM_";"_IOSL_";"_$G(IO("DOC"))
  1. .D ^%ZTLOAD,^%ZISC
  1. .K ZTRTN,ZTDESC
  1. ;
  1. START ;find all transmission record totals
  1. N DATE,PTOT,TTOT,X
  1. 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
  1. S (PTOT,X)=0 F S X=$O(^RCPS(349.2,X)) Q:'X I $G(^(X,6)) S PTOT=PTOT+1
  1. S DATE=$O(^RCT(349,0)) S:DATE DATE=$G(^(DATE,0))
  1. I DATE]"" S DATE=$P(DATE,"^",9),DATE=$E(DATE,1,2)_"/"_$E(DATE,3,4)_"/"_$E(DATE,5,8)
  1. E S DATE="N/A (NO TRANSMISSIONS)"
  1. I IOST?1"C".E W @IOF
  1. W !,?25,"CCPC Message Totals for ",DATE,!!
  1. W "Transmission Statement Total : ",$J(TTOT,9)
  1. W !,"CCPC Statements Printed Total : ",$J(PTOT,9)
  1. W !!,"Total Not Printed : ",$J(TTOT-PTOT,9)
  1. D ^%ZISC Q