source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFDA3.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1PRCFDA3 ;WISC/CTB-REPROCESS INVOICES WHICH ERRORED IN FMS/CAPPS ;9/26/95 13:02
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4EN(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
25ENX 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
31OUT K DA Q
Note: See TracBrowser for help on using the repository browser.