| 1 | PRCFDA3 ;WISC/CTB-REPROCESS INVOICES WHICH ERRORED IN FMS/CAPPS ;9/26/95 13:02
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | EN(DA) S PRCF("X")="S" D ^PRCFSITE Q:'%
|
|---|
| 5 | ;D DUZ^PRCFSITE Q:'%
|
|---|
| 6 | I $G(PRCFA("ERROR"))'=1,'$G(PRCFA("TRANS")) D
|
|---|
| 7 | . S X=" Cannot find an error indicator for this invoice !*"
|
|---|
| 8 | . D MSG^PRCFQ
|
|---|
| 9 | . Q
|
|---|
| 10 | ;S DIC=421.5,DIC(0)="AEMN",DIC("S")="I $D(^(2)),$P(^(2),U)=20"
|
|---|
| 11 | ;D ^DIC K DIC Q:Y<0
|
|---|
| 12 | S PRCF("CIDA")=+DA Q:'DA
|
|---|
| 13 | S STATUS=$P(^PRCF(421.5,DA,2),"^")
|
|---|
| 14 | S %A="Does this invoice need to be processed by Voucher Audit",%B="",%=2
|
|---|
| 15 | D ^PRCFYN G:%<0 ENX
|
|---|
| 16 | 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
|
|---|
| 17 | S %A="Do you wish to process this invoice at this time",%B="",%=1
|
|---|
| 18 | D ^PRCFYN
|
|---|
| 19 | I %'=1 S X=" <No Further Action Taken>*" D MSG^PRCFQ G ENX
|
|---|
| 20 | S X=15 D STATUS^PRCFDE1
|
|---|
| 21 | W ! S X="Switching to 'Process Invoice in Accounting' Module.*" D MSG^PRCFQ
|
|---|
| 22 | K PRCF("VIEW")
|
|---|
| 23 | S Y=DA,PRCFA("ERROR PROCESSING")="" D EN^PRCFDA K PRCFA("ERROR PROCESSING")
|
|---|
| 24 | W ! S X="Returning to 'Process FMS/CAPPS Error Message' Module.*" D MSG^PRCFQ
|
|---|
| 25 | ENX L:$D(PRCF("CIDA")) -^PRCF(421.5,PRCF("CIDA"))
|
|---|
| 26 | K PRCF("CIDA"),STATUS,X,Y,%,%A,%B
|
|---|
| 27 | Q
|
|---|
| 28 | S %A="Do you need to process another FMS/CAPPS error",%B="",%=1
|
|---|
| 29 | D ^PRCFYN Q:%'=1
|
|---|
| 30 | G V:'$G(PRC("SITE")),EN
|
|---|
| 31 | OUT K DA Q
|
|---|
