source: FOIAVistA/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAGDT.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: 3.1 KB
Line 
1PRCAGDT ;WASH-ISC@ALTOONA,PA/CMS - BALANCE DISCREPANCY REPORT TEXT ;12/3/93 10:36 AM
2V ;;4.5;Accounts Receivable;;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5OK ;Statement should print
6 N X,Y
7 W !!,"Everything is Okay! This patient's statement will print."
8 S CHK=1
9 I $D(ZTQUEUED) W !!! D ^PRCAGST1
10 Q
111(DEB,BBAL,TBAL,PBAL,BEG) ;;balance discrepancy
12 N X,Y
13 W !!,"The balance of the outstanding AR bills is: ",?50,"$",$J(BBAL,10,2)
14 W !,"The Patient Statement balance (*amount due) is: ",?50,"$",$J((TBAL+PBAL),10,2)
15 W !,"The difference between these two balances is: ",?50,"$",$J((BBAL-(TBAL+PBAL)),10,2)
16 W !!,"The *amount due balance on the Patient Statement contains:"
17 S Y=BEG X ^DD("DD")
18 W !,"Previous Statement balance of $",$J(PBAL,0,2),$S(Y'=0:" (all activity through "_Y_")",1:"")
19 W !,?23,"+ New activity $",$J(TBAL,0,2)
20 W !!,"Please create the appropriate transactions to get the overall account balance",!,"to equal the Patient Statement balance. Then review all bills to ensure the",!,"patient is being billed accurately."
21 G OUT
222 ;Total amount due is in an unprocessed status
23 W !!,"This patient's statement will not print at this time because the total",!,"outstanding amount of this account is in an unprocessed status.",!,"The unprocessed status may be Refund Review or Pending Calm Code."
24 W !!,"You should process all unprocessed bills!"
25 G OUT
263 ;outstanding bills and unprocessed Prepay bills
27 W !!,"This patient's statement will not print at this time because it has an Open",!,"or Active bill and an unprocessed Prepayment bill. The unprocessed status",!,"may be Refund Review or Pending Calm Code."
28 W !!,"You should process all unprocessed bills!"
29 G OUT
304 ;Site parameter says not to print zero balance statements
31 W !!,"This patient's statement will not print at this time because it has a zero",!,"balance and the site parameter 'Suppress Zero Balance' field is set to Yes."
32 G OUT
335 ;no amt due and no activity, might have prepay with no activity
34 W !!,"This patient's statement will not print at this time because either there is",!,"no amount due and no new activity or this account has a credit balance with",!,"no new activity."
35 G OUT
366 ;refund amount is less than $1.00
37 W !!,"This patient's statement will not print because it has a refund balance",!,"less than a dollar."
38 G OUT
397 ;no new activity (something other than int/admin charges) since the last three statement dates
40 W !!,"This patient's statement will not print because it has no new activity",!,"for the past three statement dates other than int/admin charges."
41 W !!,"If you want to force a statement to print you can create a comment",!,"transaction and mark it so that it will appear on the statement."
42 G OUT
438(BEG) ;statement print on or after this date
44 N Y
45 W !!,"This patient's statement will not print at this time because it printed",!
46 S Y=BEG X ^DD("DD") W "on ",Y," and will not print until the next statement date."
47 G OUT
489 ;statement date is unknown
49 W !!,"Patient Statement Day is UNKNOWN!"
50 G OUT
51OUT ;Exit here if account will not print statement
52 S CHK=0
53 I STD,$D(PDAT),$D(ZTQUEUED) W !!! D ^PRCAGST1
54 Q
Note: See TracBrowser for help on using the repository browser.