source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFDRET.m@ 1582

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

initial load of WorldVistAEHR

File size: 572 bytes
Line 
1PRCFDRET ;WISC@ALTOONA/CTB-RETURN INVOICE FROM ACCOUNTING TO VOUCHER AUDIT ;2/5/93 3:18 PM
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 I '$D(PRC("SITE")) S PRCF("X")="AS" D ^PRCFSITE Q:'%
5 S DIC("S")="I $D(^(2)),$P(^(2),U)=15",DIC=421.5,DIC(0)="AEMNZQ" D ^DIC K DIC Q:Y<0
6 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
7 S X=0 D STATUS^PRCFDE1
8 S %A="Return another Invoice",%B="",%=2 I %=1 G V
9OUT K PRCF Q
Note: See TracBrowser for help on using the repository browser.