Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
572 bytes
|
Rev | Line | |
---|
[613] | 1 | PRCFDRET ;WISC@ALTOONA/CTB-RETURN INVOICE FROM ACCOUNTING TO VOUCHER AUDIT ;2/5/93 3:18 PM
|
---|
| 2 | V ;;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
|
---|
| 9 | OUT K PRCF Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.