| [613] | 1 | RCMSFN01 ;WASH-ISC@ALTOONA,PA/RGY-Miscellaneous Site Functions ;7/3/96 11:16 AM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**47**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | INT(Y) ;Input: Date
|
|---|
| 5 | ;Return: Effective Interest Rate^Effective date
|
|---|
| 6 | NEW X
|
|---|
| 7 | S X=+$O(^RC(342,1,4,"AC",9999999-$S($G(Y):Y,1:DT)))
|
|---|
| 8 | Q +$P($G(^RC(342,1,4,+$O(^RC(342,1,4,"AC",X,0)),0)),"^",2)_"^"_$S(X:9999999-X,1:"")
|
|---|
| 9 | ADM(Y) ;Input: Date
|
|---|
| 10 | ;Return: Effective Admin. charge^Effective date
|
|---|
| 11 | NEW X
|
|---|
| 12 | S X=+$O(^RC(342,1,4,"AC",9999999-$S($G(Y):Y,1:DT)))
|
|---|
| 13 | Q +$P($G(^RC(342,1,4,+$O(^RC(342,1,4,"AC",X,0)),0)),"^",3)_"^"_$S(X:9999999-X,1:"")
|
|---|
| 14 | PEN(Y) ;Input: Date
|
|---|
| 15 | ;Return: Effective Penalty Rate^Effect date
|
|---|
| 16 | NEW X
|
|---|
| 17 | S X=+$O(^RC(342,1,4,"AC",9999999-$S($G(Y):Y,1:DT)))
|
|---|
| 18 | Q +$P($G(^RC(342,1,4,+$O(^RC(342,1,4,"AC",X,0)),0)),"^",4)_"^"_$S(X:9999999-X,1:"")
|
|---|
| 19 | LIT(Y) ;Input: Date
|
|---|
| 20 | ;Return: Effective Penalty^Effective Date
|
|---|
| 21 | NEW X
|
|---|
| 22 | S X=+$O(^RC(342,1,4,"AC",9999999-$S($G(Y):Y,1:DT)))
|
|---|
| 23 | Q +$P($G(^RC(342,1,4,+$O(^RC(342,1,4,"AC",X,0)),0)),"^",5)_"^"_$S(X:9999999-X,1:"")
|
|---|
