source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAFDCT.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 982 bytes
Line 
1PRCAFDCT ;WASH-ISC@ALTOONA/CLH-View Stacker information ;1/12/95 2:58 PM
2V ;;4.5;Accounts Receivable;**198**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4BILL ;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 ;
17TRANS ;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 ;
Note: See TracBrowser for help on using the repository browser.