PRCFDRET ;WISC@ALTOONA/CTB-RETURN INVOICE FROM ACCOUNTING TO VOUCHER AUDIT ;2/5/93 3:18 PM
V ;;5.1;IFCAP;;Oct 20, 2000
;Per VHA Directive 10-93-142, this routine should not be modified.
I '$D(PRC("SITE")) S PRCF("X")="AS" D ^PRCFSITE Q:'%
S DIC("S")="I $D(^(2)),$P(^(2),U)=15",DIC=421.5,DIC(0)="AEMNZQ" D ^DIC K DIC Q:Y<0
S PRCF("CIDA")=+Y,%A="Are you sure you want to return this Invoice to Voucher Audit",%B="",%=2 D ^PRCFYN I %'=1 S X=" <No Action Taken>*" D MSG^PRCFQ G OUT
S X=0 D STATUS^PRCFDE1
S %A="Return another Invoice",%B="",%=2 I %=1 G V
OUT K PRCF Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCFDRET 581 printed Dec 13, 2024@02:03:12 Page 2
PRCFDRET ;WISC@ALTOONA/CTB-RETURN INVOICE FROM ACCOUNTING TO VOUCHER AUDIT ;2/5/93 3:18 PM
V ;;5.1;IFCAP;;Oct 20, 2000
+1 ;Per VHA Directive 10-93-142, this routine should not be modified.
+2 IF '$DATA(PRC("SITE"))
SET PRCF("X")="AS"
DO ^PRCFSITE
if '%
QUIT
+3 SET DIC("S")="I $D(^(2)),$P(^(2),U)=15"
SET DIC=421.5
SET DIC(0)="AEMNZQ"
DO ^DIC
KILL DIC
if Y<0
QUIT
+4 SET PRCF("CIDA")=+Y
SET %A="Are you sure you want to return this Invoice to Voucher Audit"
SET %B=""
SET %=2
DO ^PRCFYN
IF %'=1
SET X=" <No Action Taken>*"
DO MSG^PRCFQ
GOTO OUT
+5 SET X=0
DO STATUS^PRCFDE1
+6 SET %A="Return another Invoice"
SET %B=""
SET %=2
IF %=1
GOTO V
OUT KILL PRCF
QUIT
