|
Last change
on this file since 634 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
492 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | PRCAFUT1 ;WASH-ISC@ALTOONA/CLH-FMS Utilities ;10/8/96 11:35 AM
|
|---|
| 2 | V ;;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
|
|---|
| 5 | FY N DIR,X,Y
|
|---|
| 6 | S DIR(0)="F^2:2",DIR("B")=$$FY^RCFN01
|
|---|
| 7 | BEGFY 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
|
|---|
| 12 | FYOUT K DIRUT,DIROUT,DTOUT,DUOUT
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
