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

RCCPCBAK.m

Go to the documentation of this file.
  1. RCCPCBAK ;WASHISC/ALTOONA-AR UTILITY ROUTINE ;11/19/96 10:26 AM
  1. ;;4.5;Accounts Receivable;**34**;Mar 20, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;check background job
  1. N L,X,XMSUB,XMTEXT,XMY
  1. I $P(^RC(342,1,0),"^",10)<DT D
  1. .S XMSUB="WARNING!! AR PACKAGE NOT UPDATED -PRCA NIGHTLY PROCESS PROBLEM"
  1. .S XMY("G.PRCA ERROR")=""
  1. .S XMY("G.RCCPC STATEMENTS")=""
  1. .S XMDUZ="AR PACKAGE"
  1. .S XMTEXT="L("
  1. .S L(1)=" "
  1. .S L(2)="WARNING!! The AR Package was last updated on: "_$$SLH^RCFN01($P(^RC(342,1,0),"^",10))
  1. .S L(3)=" "
  1. .S L(4)=" "
  1. .S X=$G(^RC("PRCABJ")) S L(6)="The PRCA NIGHTLY PROCESS seems to have stopped while processing: "
  1. .S L(7)=" "
  1. .S L(8)=" "_$S(X:$P($T(@X),";;",2),1:"No processes started.")
  1. .S L(9)=" "
  1. .I X<20 S L(10)="This will also affect the following processes: " D
  1. ..S L(11)=" "
  1. ..F X=X+1:1:20 S L(X+11)=" "_$P($T(@X),";;",2)_" - NOT COMPLETED"
  1. .S L(X+30)=" "
  1. .S L(X+31)="If any process is trying to use a printer, please check the printer."
  1. .S L(X+32)=" "
  1. .S L(X+33)="Please start the PRCA NIGHTLY PROCESS"
  1. .S L(X+34)="with the 'One-time Option Queue' taskmanager option."
  1. .D ^XMD
  1. Q
  1. ;
  1. 1 ;;Interest and admin charges being assessed
  1. 2 ;;CCPC STATEMENTS build or transmission
  1. 3 ;;NON-PATIENT statement dates for billing cycle
  1. 4 ;;RECEIPT CHECK for fiscal integrity of deposits
  1. 5 ;;IRS MASTER CODE SHEETS (IF APPLICABLE)
  1. 6 ;;IRS WEEKLY CODE SHEETS (IF DAY OF THE WEEK)
  1. 7 ;;PRE-IRS CHECK (IF APPLICABLE)
  1. 8 ;;Purging of event file
  1. 9 ;;Validation of bill numbering
  1. 10 ;;Validation of event numbers
  1. 11 ;;Deposit Management validation
  1. 12 ;;FMS document maintenance
  1. 13 ;;OBR scheduled
  1. 14 ;;National database totals compilation (if applicable)
  1. 15 ;;Printing of UB or HCFA forms
  1. 16 ;;Printing of non-patient follow-up letters
  1. 17 ;;Printing IRS letters (if applicable)
  1. 18 ;;Printing of Unprocessed Document List for AR FMS documents
  1. 19 ;;Follow-up list
  1. 20 ;;Comment log list