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 ---[H[J[2J[HPRCFDA3 1382 printed Nov 22, 2024@17:12:54 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
