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
|
Rev | Line | |
---|
[613] | 1 | PRCASVC1 ;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 | ;
|
---|
| 7 | AMEND ; amend the bill in AR
|
---|
| 8 | D CANCEL
|
---|
| 9 | Q
|
---|
| 10 | ;
|
---|
| 11 | ;
|
---|
| 12 | CANCEL ; 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 | ;
|
---|
| 18 | STATUS ;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.