PRCAFUT1.m

PRCAFUT1 ;WASH-ISC@ALTOONA/CLH-FMS Utilities ;10/8/96  11:35 AM

V ;;4.5;Accounts Receivable;**39,78**;Mar 20, 1995

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ;Determine beginning/ending budget fiscal year

FY N DIR,X,Y

 S DIR(0)="F^2:2",DIR("B")=$$FY^RCFN01

BEGFY S DIR("A")="Budget FISCAL YEAR"

 D ^DIR

 I $D(DIRUT) S FYERROR=1 G FYOUT

 I Y'?2N W !!,"Enter 2 DIGIT Fiscal Year. i.e. Enter 96 for 1996.",!,*7 G BEGFY

 S BGFY=Y

FYOUT K DIRUT,DIROUT,DTOUT,DUOUT

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCAFUT1   506     printed  Dec 13, 2024@01:39:35                                                                                                                                                                                                     Page 2

PRCAFUT1  ;WASH-ISC@ALTOONA/CLH-FMS Utilities ;10/8/96  11:35 AM

V         ;;4.5;Accounts Receivable;**39,78**;Mar 20, 1995

 +1       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +2       ;Determine beginning/ending budget fiscal year

FY         NEW DIR,X,Y

 +1        SET DIR(0)="F^2:2"

           SET DIR("B")=$$FY^RCFN01

BEGFY      SET DIR("A")="Budget FISCAL YEAR"

 +1        DO ^DIR

 +2        IF $DATA(DIRUT)

               SET FYERROR=1

               GOTO FYOUT

 +3        IF Y'?2N

               WRITE !!,"Enter 2 DIGIT Fiscal Year. i.e. Enter 96 for 1996.",!,*7

               GOTO BEGFY

 +4        SET BGFY=Y

FYOUT      KILL DIRUT,DIROUT,DTOUT,DUOUT

 +1        QUIT 

 +2       ;