| 1 | PRCARFD2 ;WASH-ISC@ALTOONA,PA/LDB-GENERATE FMS DOC ;10/19/94 3:36 PM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**204,198**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;;
|
|---|
| 5 | TRANS ;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
|
|---|
