source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCMSFN01.m@ 1261

Last change on this file since 1261 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1RCMSFN01 ;WASH-ISC@ALTOONA,PA/RGY-Miscellaneous Site Functions ;7/3/96 11:16 AM
2V ;;4.5;Accounts Receivable;**47**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4INT(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:"")
9ADM(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:"")
14PEN(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:"")
19LIT(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:"")
Note: See TracBrowser for help on using the repository browser.