RCCPCBAK.m

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 ---RCCPCBAK   1991     printed  Apr 09, 2024@20:48:50                                                                                                                                                                                                    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