source: FOIAVistA/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCCPCBAK.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

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