PRCFFU4.m

PRCFFU4 ;WISC/SJG-FMS DOCUMENT GENERATION CONT ;6/30/93  10:34

V ;;5.1;IFCAP;;Oct 20, 2000

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

 QUIT

 ; No Top Level Entry

FISC ; Post to Fiscal Status of Funds Tracker;

 W ! S %A(1)="Do you wish to post this information to the Fiscal Status of Funds",%A(2)="Tracker",%B="If you answer 'YES', you will be asked the information necessary to post"

 S %B(1)="the code sheet to the Fiscal Status of Funds.  A 'NO' or an '^' will",%B(2)="skip the bypass the posting.",%=2

 D ^PRCFYN G:%'=1 OUT D EN5^PRCFFU41 W ! G OUT

 Q

 ;

OUT K A,B,D,D0,D1,DG,DIC,DIE,DIG,DIH,DIU,DIV,DIW,DLAYGO,DR,I,J,K,N,O,PRCFA("ARCS"),Q,Q1,S,X,X1,XL1,Y,DI,DQ,PRCFCS Q

 Q

SIG ; E-sig asker for Obligation Processing

 I '$D(PRC("PER")) D DUZ^PRCFSITE Q:'%

 I $D(PRCFA("PODA")),+PRCFA("PODA")>0 S POESIG=1

 N MESSAGE S MESSAGE=""

 D ESIG^PRCUESIG(DUZ,.MESSAGE)

 S ESIGMSG=MESSAGE

 G:(MESSAGE=0)!(MESSAGE=-3) FAIL

 I (MESSAGE=-1)!(MESSAGE=-2) S PRCFA("SIGFAIL")="" Q

 Q

FAIL W !!,$C(7),"SIGNATURE CODE FAILURE " S PRCFA("SIGFAIL")="" Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCFFU4   1091     printed  Feb 18, 2025@23:30:11                                                                                                                                                                                                     Page 2

PRCFFU4   ;WISC/SJG-FMS DOCUMENT GENERATION CONT ;6/30/93  10:34

V         ;;5.1;IFCAP;;Oct 20, 2000

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

 +2        QUIT 

 +3       ; No Top Level Entry

FISC      ; Post to Fiscal Status of Funds Tracker;

 +1        WRITE !

           SET %A(1)="Do you wish to post this information to the Fiscal Status of Funds"

           SET %A(2)="Tracker"

           SET %B="If you answer 'YES', you will be asked the information necessary to post"

 +2        SET %B(1)="the code sheet to the Fiscal Status of Funds.  A 'NO' or an '^' will"

           SET %B(2)="skip the bypass the posting."

           SET %=2

 +3        DO ^PRCFYN

           if %'=1

               GOTO OUT

           DO EN5^PRCFFU41

           WRITE !

           GOTO OUT

 +4        QUIT 

 +5       ;

OUT        KILL A,B,D,D0,D1,DG,DIC,DIE,DIG,DIH,DIU,DIV,DIW,DLAYGO,DR,I,J,K,N,O,PRCFA("ARCS"),Q,Q1,S,X,X1,XL1,Y,DI,DQ,PRCFCS

           QUIT 

 +1        QUIT 

SIG       ; E-sig asker for Obligation Processing

 +1        IF '$DATA(PRC("PER"))

               DO DUZ^PRCFSITE

               if '%

                   QUIT 

 +2        IF $DATA(PRCFA("PODA"))

               IF +PRCFA("PODA")>0

                   SET POESIG=1

 +3        NEW MESSAGE

           SET MESSAGE=""

 +4        DO ESIG^PRCUESIG(DUZ,.MESSAGE)

 +5        SET ESIGMSG=MESSAGE

 +6        if (MESSAGE=0)!(MESSAGE=-3)

               GOTO FAIL

 +7        IF (MESSAGE=-1)!(MESSAGE=-2)

               SET PRCFA("SIGFAIL")=""

               QUIT 

 +8        QUIT 

FAIL       WRITE !!,$CHAR(7),"SIGNATURE CODE FAILURE "

           SET PRCFA("SIGFAIL")=""

           QUIT 

 +1        QUIT