source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAFUT1.m@ 691

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

initial load of WorldVistAEHR

File size: 492 bytes
RevLine 
[613]1PRCAFUT1 ;WASH-ISC@ALTOONA/CLH-FMS Utilities ;10/8/96 11:35 AM
2V ;;4.5;Accounts Receivable;**39,78**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;Determine beginning/ending budget fiscal year
5FY N DIR,X,Y
6 S DIR(0)="F^2:2",DIR("B")=$$FY^RCFN01
7BEGFY S DIR("A")="Budget FISCAL YEAR"
8 D ^DIR
9 I $D(DIRUT) S FYERROR=1 G FYOUT
10 I Y'?2N W !!,"Enter 2 DIGIT Fiscal Year. i.e. Enter 96 for 1996.",!,*7 G BEGFY
11 S BGFY=Y
12FYOUT K DIRUT,DIROUT,DTOUT,DUOUT
13 Q
14 ;
Note: See TracBrowser for help on using the repository browser.