source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCARFD2.m@ 1141

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

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1PRCARFD2 ;WASH-ISC@ALTOONA,PA/LDB-GENERATE FMS DOC ;10/19/94 3:36 PM
2V ;;4.5;Accounts Receivable;**204,198**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;;
5TRANS ;TRANSMIT A REFUND (OVERCOLLECTION) DOC
6 N DIC,PRCABN,PRCABN0,REF,U,REFMS
7 N DPTNOFZY,DPTNOFZK S (DPTNOFZY,DPTNOFZK)=1
8 S U="^",REF=$O(^PRCA(430.3,"AC",120,0))
9 S D0=+$O(^PRCA(430.2,"AC",33,0)),D0(1)=$P(^PRCA(430.2,+D0,0),U)
10 S DIC="^PRCA(430,",DIC("S")="I $P(^(0),U,2)="_D0_",$P(^(0),U,8)="_REF,DIC(0)="AEQMZ" D ^DIC Q:Y<0 S PRCABN=+Y
11 I $P(^PRCA(430,PRCABN,9),U,2)="" W !,"THIS BILL HAS NOT BEEN APPROVED!" Q
12 I '$D(^PRCA(430,+$G(PRCABN),0)) W !,"THIS BILL NUMBER ENTRY IN FILE 430 IS CORRUPTED",!,"NO PROCESSING CAN CONTINUE - SEE IRM" Q
13 S PRCABN0=^(0),PRCANM=$P($G(^PRCA(430,+PRCABN,0)),U)
14 S STAT=$$GSTAT^RCFMFN02("B"_PRCABN)
15 I STAT<0 W !,"THIS DOCUMENT IS EITHER NOT READY FOR FMS OR HAS ALREADY BEEN ACCEPTED." Q
16 I STAT'=3 W !!,*7,"THIS DOCUMENT SEEMS TO HAVE ALREADY BEEN SENT TO FMS-",!,"IT CANNOT BE RESENT UNLESS FMS REJECTS IT." Q
17 D DEL^RCFMFN02("B"_PRCABN) S REFMS=1 D FMS^PRCARFD1
18 Q
Note: See TracBrowser for help on using the repository browser.