Last change
on this file since 1785 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
710 bytes
|
Line | |
---|
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.