PRCFDA3.m

PRCFDA3 ;WISC/CTB-REPROCESS INVOICES WHICH ERRORED IN FMS/CAPPS ;9/26/95  13:02

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

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

EN(DA) S PRCF("X")="S" D ^PRCFSITE Q:'%

 ;D DUZ^PRCFSITE Q:'%

 I $G(PRCFA("ERROR"))'=1,'$G(PRCFA("TRANS")) D

 . S X="  Cannot find an error indicator for this invoice !*"

 . D MSG^PRCFQ

 . Q

 ;S DIC=421.5,DIC(0)="AEMN",DIC("S")="I $D(^(2)),$P(^(2),U)=20"

 ;D ^DIC K DIC Q:Y<0

 S PRCF("CIDA")=+DA Q:'DA

 S STATUS=$P(^PRCF(421.5,DA,2),"^")

 S %A="Does this invoice need to be processed by Voucher Audit",%B="",%=2

 D ^PRCFYN G:%<0 ENX

 I %=1 S %A="ARE YOU SURE",%B="",%=1 D ^PRCFYN S X=$S(%=1:10,$L(STATUS):STATUS,1:0) D STATUS^PRCFDE1,PAUSE^PRCFDPVU G ENX

 S %A="Do you wish to process this invoice at this time",%B="",%=1

 D ^PRCFYN

 I %'=1 S X="  <No Further Action Taken>*" D MSG^PRCFQ G ENX

 S X=15 D STATUS^PRCFDE1

 W ! S X="Switching to 'Process Invoice in Accounting' Module.*" D MSG^PRCFQ

 K PRCF("VIEW")

 S Y=DA,PRCFA("ERROR PROCESSING")="" D EN^PRCFDA K PRCFA("ERROR PROCESSING")

 W ! S X="Returning to 'Process FMS/CAPPS Error Message' Module.*" D MSG^PRCFQ

ENX L:$D(PRCF("CIDA")) -^PRCF(421.5,PRCF("CIDA"))

 K PRCF("CIDA"),STATUS,X,Y,%,%A,%B

 Q

 S %A="Do you need to process another FMS/CAPPS error",%B="",%=1

 D ^PRCFYN Q:%'=1

 G V:'$G(PRC("SITE")),EN

OUT K DA Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCFDA3   1382     printed  Mar 13, 2025@21:07:36                                                                                                                                                                                                     Page 2

PRCFDA3   ;WISC/CTB-REPROCESS INVOICES WHICH ERRORED IN FMS/CAPPS ;9/26/95  13:02

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

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

EN(DA)     SET PRCF("X")="S"

           DO ^PRCFSITE

           if '%

               QUIT 

 +1       ;D DUZ^PRCFSITE Q:'%

 +2        IF $GET(PRCFA("ERROR"))'=1

               IF '$GET(PRCFA("TRANS"))

                   Begin DoDot:1

 +3                    SET X="  Cannot find an error indicator for this invoice !*"

 +4                    DO MSG^PRCFQ

 +5                    QUIT 

                   End DoDot:1

 +6       ;S DIC=421.5,DIC(0)="AEMN",DIC("S")="I $D(^(2)),$P(^(2),U)=20"

 +7       ;D ^DIC K DIC Q:Y<0

 +8        SET PRCF("CIDA")=+DA

           if 'DA

               QUIT 

 +9        SET STATUS=$PIECE(^PRCF(421.5,DA,2),"^")

 +10       SET %A="Does this invoice need to be processed by Voucher Audit"

           SET %B=""

           SET %=2

 +11       DO ^PRCFYN

           if %<0

               GOTO ENX

 +12       IF %=1

               SET %A="ARE YOU SURE"

               SET %B=""

               SET %=1

               DO ^PRCFYN

               SET X=$SELECT(%=1:10,$LENGTH(STATUS):STATUS,1:0)

               DO STATUS^PRCFDE1

               DO PAUSE^PRCFDPVU

               GOTO ENX

 +13       SET %A="Do you wish to process this invoice at this time"

           SET %B=""

           SET %=1

 +14       DO ^PRCFYN

 +15       IF %'=1

               SET X="  <No Further Action Taken>*"

               DO MSG^PRCFQ

               GOTO ENX

 +16       SET X=15

           DO STATUS^PRCFDE1

 +17       WRITE !

           SET X="Switching to 'Process Invoice in Accounting' Module.*"

           DO MSG^PRCFQ

 +18       KILL PRCF("VIEW")

 +19       SET Y=DA

           SET PRCFA("ERROR PROCESSING")=""

           DO EN^PRCFDA

           KILL PRCFA("ERROR PROCESSING")

 +20       WRITE !

           SET X="Returning to 'Process FMS/CAPPS Error Message' Module.*"

           DO MSG^PRCFQ

ENX        if $DATA(PRCF("CIDA"))

               LOCK -^PRCF(421.5,PRCF("CIDA"))

 +1        KILL PRCF("CIDA"),STATUS,X,Y,%,%A,%B

 +2        QUIT 

 +3        SET %A="Do you need to process another FMS/CAPPS error"

           SET %B=""

           SET %=1

 +4        DO ^PRCFYN

           if %'=1

               QUIT 

 +5        if '$GET(PRC("SITE"))

               GOTO V

           GOTO EN

OUT        KILL DA

           QUIT