| 1 | RCCPCBAK ;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 | ;
|
|---|
| 31 | 1 ;;Interest and admin charges being assessed
|
|---|
| 32 | 2 ;;CCPC STATEMENTS build or transmission
|
|---|
| 33 | 3 ;;NON-PATIENT statement dates for billing cycle
|
|---|
| 34 | 4 ;;RECEIPT CHECK for fiscal integrity of deposits
|
|---|
| 35 | 5 ;;IRS MASTER CODE SHEETS (IF APPLICABLE)
|
|---|
| 36 | 6 ;;IRS WEEKLY CODE SHEETS (IF DAY OF THE WEEK)
|
|---|
| 37 | 7 ;;PRE-IRS CHECK (IF APPLICABLE)
|
|---|
| 38 | 8 ;;Purging of event file
|
|---|
| 39 | 9 ;;Validation of bill numbering
|
|---|
| 40 | 10 ;;Validation of event numbers
|
|---|
| 41 | 11 ;;Deposit Management validation
|
|---|
| 42 | 12 ;;FMS document maintenance
|
|---|
| 43 | 13 ;;OBR scheduled
|
|---|
| 44 | 14 ;;National database totals compilation (if applicable)
|
|---|
| 45 | 15 ;;Printing of UB or HCFA forms
|
|---|
| 46 | 16 ;;Printing of non-patient follow-up letters
|
|---|
| 47 | 17 ;;Printing IRS letters (if applicable)
|
|---|
| 48 | 18 ;;Printing of Unprocessed Document List for AR FMS documents
|
|---|
| 49 | 19 ;;Follow-up list
|
|---|
| 50 | 20 ;;Comment log list
|
|---|
