| [613] | 1 | PRCAUT3 ;SF-ISC/YJK-AR UTILITY ROUTINE ;11/19/96 10:28 AM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**34,63,173**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | CTNEW ;count new bills. called by AR clerk's main menu.
|
|---|
| 5 | I $P(^RC(342,1,0),"^",10)<DT W *7,!!,"WARNING!! The AR Package was last updated on: ",$$SLH^RCFN01($P(^RC(342,1,0),"^",10)),!,"*** Contact IRM Service!" H 5
|
|---|
| 6 | D ^RCCPCBAK
|
|---|
| 7 | I $O(^PRCA(430,"AC",+$O(^PRCA(430.3,"AC",104,0)),0)) W *7,!!,"*** You have NEW BILL(s) that need to be audited ***"
|
|---|
| 8 | I $O(^PRCA(430,"AC",+$O(^PRCA(430.3,"AC",110,0)),0)) W *7,!!,"*** You have AMENDED BILL(s) that need to be audited ***"
|
|---|
| 9 | I $O(^PRCA(430,"AC",+$O(^PRCA(430.3,"AC",113,0)),0)) W !!,*7,"*** You have PREPAYMENT BILL(s) that need to be reviewed for refund ***"
|
|---|
| 10 | D ECHK^RCRCUTL
|
|---|
| 11 | Q
|
|---|
| 12 | COMMENTS ;put comments in the 430.
|
|---|
| 13 | Q:'$D(PRCABN)
|
|---|
| 14 | ;
|
|---|
| 15 | I $G(PRAUTOA) D Q
|
|---|
| 16 | . N PRCATEXT ; Stuff comment if auto-audit
|
|---|
| 17 | . I $O(^PRCA(430,PRCABN,10,0)) S PRCATEXT(1)=" "
|
|---|
| 18 | . S PRCATEXT($O(PRCATEXT(""),-1)+1)="*** AUTO-AUDITED BY ELECTRONIC RETURN MESSAGE RECEIPT "_$$FMTE^XLFDT($$NOW^XLFDT(),2)
|
|---|
| 19 | . D WP^DIE(430,PRCABN_",",10,"A","PRCATEXT")
|
|---|
| 20 | ;
|
|---|
| 21 | S %=2 W !,"Do you want to write any comments for this bill " D YN^DICN I %<0 S PRCA("EXIT")="" Q
|
|---|
| 22 | Q:%=2 I %=0 W !," You may add/edit comments to this word processing field for the bill." G COMMENTS
|
|---|
| 23 | S DIE="^PRCA(430,",DR="98",DA=PRCABN D ^DIE K DR,DA,DIE,% Q
|
|---|
| 24 | PRCOMM ;print the comments.
|
|---|
| 25 | Q:('$D(D0))&('$D(PRCABN)) S PRCAD0=$S($D(PRCABN):PRCABN,1:D0) I '$D(^PRCA(430,PRCAD0,10)) G CANCL
|
|---|
| 26 | W !,"COMMENTS:" S PRCAKN=0
|
|---|
| 27 | F PRCAI=0:0 S PRCAKN=$O(^PRCA(430,PRCAD0,10,PRCAKN)) Q:'PRCAKN W !,?3,^(PRCAKN,0)
|
|---|
| 28 | CANCL ;W ! S PRCAKSTA=$P(^PRCA(430,PRCAD0,0),U,8)
|
|---|
| 29 | ;I PRCAKSTA=$O(^PRCA(430.3,"AC",111,0)) W !,"CANCELLATION REMARKS: ",?13,$P(^PRCA(430,PRCAD0,0),U,15)
|
|---|
| 30 | W ! K PRCAKN,PRCAI,PRCAD0,PRCAKSTA Q
|
|---|
| 31 | CKSTAT ;Input transform for 430,8 (AR Current Status) - DA=Bill#
|
|---|
| 32 | N Z1,Z2
|
|---|
| 33 | S Z1=100,Z2=199 S:$D(PRCASV("STATUS")) Z1=199,Z2=300 S DIC("S")="I $P(^PRCA(430.3,Y,0),U,3)>Z1,$P(^(0),U,3)<Z2" S:$D(PRCAOLD) DIC("S")="I $P(^(0),U,5)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X Q:'$D(X)
|
|---|
| 34 | I $D(^PRCA(430.3,X,0)),$P(^(0),"^",3)'=102 Q
|
|---|
| 35 | Q:",22,23,26,18,"[(","_$P(^PRCA(430,DA,0),U,2)_",") ;RX/MEANS NO PAT
|
|---|
| 36 | ;F Y=0:0 S Y=$O(^PRCA(430,DA,2,Y)) Q:'Y I $P(^(Y,0),"^",3)="" W *7,!!,"Fiscal Year ",+^(0)," for bill #",$P(^PRCA(430,DA,0),"^")," has no PAT ref #!",!,"A PAT ref # must be assigned to this FY before the bill",!,"can be made active.",! K X
|
|---|
| 37 | Q
|
|---|
