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

RCCPCBJ.m

Go to the documentation of this file.
  1. RCCPCBJ ;WASH-ISC@ALTOONA,PA/NYB-Background Driver for CCPC ;1/7/97 9:42 AM
  1. ;;4.5;Accounts Receivable;**34,76,130,153,166,195,217,237**;Mar 20, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. EN ;Starts the background job for CCPC 5 days before statement day
  1. N X,X1,X2,X3,ZTRTN,ZTIO,ZTDTH,ZTSK,ZTDESC
  1. D ACK
  1. S X1=$$STD^RCCPCFN,X2=-2 D C^%DTC
  1. ;10-process end time/18-ccpc file built
  1. I X=DT D Q
  1. . S X3=$O(^RCPS(349.2,0)) Q:'X3
  1. . Q:'$P($P($G(^RCPS(349.2,X3,0)),"^",10),".")
  1. . Q:'$P($G(^RCPS(349.2,X3,0)),"^",18)
  1. . D EN^RCCPCML
  1. ;quit if date created is yesterday's date
  1. S X1=$$STD^RCCPCFN,X2=-1 D C^%DTC
  1. I X=DT D Q
  1. . S X3=+$O(^RCT(349,0))
  1. . S X3=$P($P($G(^RCT(349,X3,0)),"^",11),".")
  1. . S X1=DT,X2=-1 D C^%DTC
  1. . I X=X3 Q
  1. . D EN^RCCPCML
  1. ;
  1. S X1=$$STD^RCCPCFN,X2=-3 D C^%DTC
  1. I X'=DT Q
  1. I DT'<$P($G(^RC(342,1,30)),"^",1)&(DT'>$P($G(^RC(342,1,30)),"^",2)) D ^RCEXINAD
  1. S ZTIO="",ZTRTN="OPEN^RCCPCBJ",ZTDESC="CCPC PATIENT STATEMENT"
  1. S ZTDTH=$H D ^%ZTLOAD
  1. Q
  1. OPEN ;Update Open status bills to Active or Cancellation status
  1. N DAY,BN,DEBTOR,DA,DIE,DR,P,AMT
  1. N ZTSAVE,ZTRTN,ZTDESC,ZTASK,%ZIS,ZTDTH
  1. S DATE=$$STD^RCCPCFN,DAY=+$$STDY^RCCPCFN,DEBTOR=0 F S DEBTOR=$O(^RCD(340,"AC",DAY,DEBTOR)) Q:'DEBTOR D
  1. .S BN=0 F S BN=$O(^PRCA(430,"AS",DEBTOR,$O(^PRCA(430.3,"AC",112,0)),BN)) Q:'BN D
  1. ..S AMT=0 F P=1:1:5 S AMT=$P($G(^PRCA(430,+BN,7)),"^",P)+AMT
  1. ..I $P($G(^PRCA(430,+BN,0)),"^",2)=$O(^PRCA(430.2,"AC",33,0)),AMT Q
  1. ..S DIE="^PRCA(430,",DA=+BN,DR="8////^S X="_$S(AMT:$O(^PRCA(430.3,"AC",102,0)),1:$O(^PRCA(430.3,"AC",111,0))) D ^DIE K DA,DIE,DR
  1. ..Q
  1. .Q
  1. ;
  1. ; update patient accounts with interest and admin
  1. N RCLASDAT
  1. S RCLASDAT=DATE
  1. I DT>3010101 D FIRSTPTY^RCBECHGS
  1. D ^RCCPCPS
  1. D REFUND
  1. Q
  1. ;
  1. ;
  1. REFUND ;Update Open status PREPAYMENT bills to REFUND REVIEW
  1. S DEBTOR=0,DAY=+$$STDY^RCCPCFN
  1. F S DEBTOR=$O(^RCD(340,"AC",DAY,DEBTOR)) Q:'DEBTOR D
  1. .S BN=0 F S BN=$O(^PRCA(430,"AS",DEBTOR,$O(^PRCA(430.3,"AC",112,0)),BN)) Q:'BN D
  1. ..I $P($G(^PRCA(430,+BN,0)),"^",2)=$O(^PRCA(430.2,"AC",33,0)) S X=$$EN^PRCARFU(+BN)
  1. ..Q
  1. .Q
  1. Q
  1. ;
  1. ACK ;CHECK FOR ACKNOWLEDGEMENTS
  1. N DEB,MSG,NO,RCX,X,X1,X2
  1. S X1=$$STD^RCCPCFN,X2=DT D ^%DTC I X>3 D
  1. .D TRANCHK^RCCPCSV1
  1. Q