| 1 | PRCAFDCT ;WASH-ISC@ALTOONA/CLH-View Stacker information ;1/12/95 2:58 PM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**198**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | BILL ;View status for bills
|
|---|
| 5 | N DIC,BILL,X,D,REC,RECN,BILLN,Y,D0
|
|---|
| 6 | N DPTNOFZY,DPTNOFZK S (DPTNOFZY,DPTNOFZK)=1
|
|---|
| 7 | S DIC="^PRCA(430,",DIC(0)="AEMNQZ",DIC("A")="Select A/R BILL: "
|
|---|
| 8 | D ^DIC Q:+Y<0
|
|---|
| 9 | S BILLN=+Y,X="B"_BILLN
|
|---|
| 10 | K DIC
|
|---|
| 11 | S DIC="^RC(347,",DIC(0)="XMN",D="D" D MIX^DIC1
|
|---|
| 12 | I +Y<0 W !!,"Unable to locate bill in A/R Document file.",!! K BILL,BILLN,REC,RECN G BILL
|
|---|
| 13 | S RECN=+Y
|
|---|
| 14 | S D0=RECN D ^PRCATF1
|
|---|
| 15 | G BILL
|
|---|
| 16 | ;
|
|---|
| 17 | TRANS ;View status for transactions
|
|---|
| 18 | N DIC,TN,X,D,Y,D0,REC
|
|---|
| 19 | N DPTNOFZY,DPTNOFZK S (DPTNOFZY,DPTNOFZK)=1
|
|---|
| 20 | S DIC="^PRCA(433,",DIC(0)="AEMNQ",DIC("A")="Select A/R TRANSACTION: " D ^DIC K DIC
|
|---|
| 21 | Q:+Y<0
|
|---|
| 22 | S TN=+Y,X="T"_TN
|
|---|
| 23 | S DIC="^RC(347,",DIC(0)="XMN",D="D" D MIX^DIC1
|
|---|
| 24 | I +Y<0 W !!,"Unable to locate transaction in A/R Document file.",!! K TN G TRANS
|
|---|
| 25 | S REC=+Y
|
|---|
| 26 | S D0=REC D ^PRCATF2
|
|---|
| 27 | G TRANS
|
|---|
| 28 | ;
|
|---|
