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