source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCASVC1.m@ 1710

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

initial load of WorldVistAEHR

File size: 710 bytes
RevLine 
[613]1PRCASVC1 ;SF-ISC/YJK-ACCEPT, AMMEND AND CANCEL AR BILL ;5/1/95 3:05 PM
2 ;;4.5;Accounts Receivable;**1,68,48,84,157**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5 ;
6 ;
7AMEND ; amend the bill in AR
8 D CANCEL
9 Q
10 ;
11 ;
12CANCEL ; cancel the bill in AR
13 N X
14 S X=$$CANCEL^RCBEIB($G(PRCASV("ARREC")),$G(PRCASV("DATE")),$G(PRCASV("BY")),$G(PRCASV("AMT")),$G(PRCASV("COMMENT")))
15 Q
16 ;
17 ;
18STATUS ;Change the current status of a bill
19 S DIE="^PRCA(430,",DA=PRCASV("ARREC"),DR="[PRCASV STATUS]" D ^DIE K DR,DIE
20 I $D(^PRCA(430,+DA,0)),("^27^31^"[("^"_$P(^(0),"^",2)_"^")) D EN^PRCACPV(+DA)
21 I $D(^PRCA(430,+DA,0)),($P(^(0),"^",2)=30),'$$AUD^IBRFN(+DA) D EN^PRCACPV(+DA)
22 K DA
23 Q
Note: See TracBrowser for help on using the repository browser.