| 1 | PRCAUT2 ;SF-ISC/YJK-CALCULATE ADMIN. INTEREST AND CHECK NEW BILLS ;4/8/94 1:43 PM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**68**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | UPSTATS ;update current status
|
|---|
| 5 | Q:('$D(PRCABN))!('$D(PRCA("STATUS")))
|
|---|
| 6 | S $P(^PRCA(430,PRCABN,9),U,6)=$S($P(^PRCA(430,PRCABN,0),U,8)]"":$P(^(0),U,8),1:"")
|
|---|
| 7 | S DIE="^PRCA(430,",DA=PRCABN,DR="8////"_PRCA("STATUS")_";17////"_$G(DUZ) D ^DIE K DIE,DR
|
|---|
| 8 | Q
|
|---|
| 9 | COUNT ;count the number of returned bill to the service
|
|---|
| 10 | Q:'$D(DUZ) D SVC^PRCABIL Q:'$D(PRCAP("S"))
|
|---|
| 11 | S (PRCAK0,PRCAK)=0,PRCAKST=$O(^PRCA(430.3,"AC",205,"")),PRCAKM=" bill(s) pending approval." D CT1
|
|---|
| 12 | S (PRCAK0,PRCAK)=0,PRCAKST=$O(^PRCA(430.3,"AC",220,"")),PRCAKM=" bill(s) returned from Fiscal (New Bill)." D CT1
|
|---|
| 13 | S PRCAK=0,PRCAK0=0,PRCAKST=$O(^PRCA(430.3,"AC",230,"")),PRCAKM=" bill(s) returned from Fiscal for amendment." D CT1
|
|---|
| 14 | K PRCAK0,PRCAP,PRCAKST,PRCAKM Q
|
|---|
| 15 | CT1 F Z=0:0 S PRCAK=$O(^PRCA(430,"AC",PRCAKST,PRCAK)) Q:PRCAK'>0 I $D(^PRCA(430,PRCAK,100)),$P(^(100),U,2)=PRCAP("S") S PRCAK0=PRCAK0+1
|
|---|
| 16 | K PRCAK D:PRCAK0>0 CT2 K Z Q
|
|---|
| 17 | CT2 I PRCAK0=1 W !,*7,?5,"You have 1 ",PRCAKM Q
|
|---|
| 18 | I PRCAK0>1 W !,?5,"You have ",PRCAK0,PRCAKM Q
|
|---|
| 19 | Q
|
|---|
