| 1 | PRCFFU4 ;WISC/SJG-FMS DOCUMENT GENERATION CONT ;6/30/93 10:34
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | QUIT
|
|---|
| 5 | ; No Top Level Entry
|
|---|
| 6 | FISC ; Post to Fiscal Status of Funds Tracker;
|
|---|
| 7 | 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"
|
|---|
| 8 | 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
|
|---|
| 9 | D ^PRCFYN G:%'=1 OUT D EN5^PRCFFU41 W ! G OUT
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | 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
|
|---|
| 13 | Q
|
|---|
| 14 | SIG ; E-sig asker for Obligation Processing
|
|---|
| 15 | I '$D(PRC("PER")) D DUZ^PRCFSITE Q:'%
|
|---|
| 16 | I $D(PRCFA("PODA")),+PRCFA("PODA")>0 S POESIG=1
|
|---|
| 17 | N MESSAGE S MESSAGE=""
|
|---|
| 18 | D ESIG^PRCUESIG(DUZ,.MESSAGE)
|
|---|
| 19 | S ESIGMSG=MESSAGE
|
|---|
| 20 | G:(MESSAGE=0)!(MESSAGE=-3) FAIL
|
|---|
| 21 | I (MESSAGE=-1)!(MESSAGE=-2) S PRCFA("SIGFAIL")="" Q
|
|---|
| 22 | Q
|
|---|
| 23 | FAIL W !!,$C(7),"SIGNATURE CODE FAILURE " S PRCFA("SIGFAIL")="" Q
|
|---|
| 24 | Q
|
|---|
