PRCAFDCT ;WASH-ISC@ALTOONA/CLH-View Stacker information ;1/12/95 2:58 PM
V ;;4.5;Accounts Receivable;**198**;Mar 20, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
BILL ;View status for bills
N DIC,BILL,X,D,REC,RECN,BILLN,Y,D0
N DPTNOFZY,DPTNOFZK S (DPTNOFZY,DPTNOFZK)=1
S DIC="^PRCA(430,",DIC(0)="AEMNQZ",DIC("A")="Select A/R BILL: "
D ^DIC Q:+Y<0
S BILLN=+Y,X="B"_BILLN
K DIC
S DIC="^RC(347,",DIC(0)="XMN",D="D" D MIX^DIC1
I +Y<0 W !!,"Unable to locate bill in A/R Document file.",!! K BILL,BILLN,REC,RECN G BILL
S RECN=+Y
S D0=RECN D ^PRCATF1
G BILL
;
TRANS ;View status for transactions
N DIC,TN,X,D,Y,D0,REC
N DPTNOFZY,DPTNOFZK S (DPTNOFZY,DPTNOFZK)=1
S DIC="^PRCA(433,",DIC(0)="AEMNQ",DIC("A")="Select A/R TRANSACTION: " D ^DIC K DIC
Q:+Y<0
S TN=+Y,X="T"_TN
S DIC="^RC(347,",DIC(0)="XMN",D="D" D MIX^DIC1
I +Y<0 W !!,"Unable to locate transaction in A/R Document file.",!! K TN G TRANS
S REC=+Y
S D0=REC D ^PRCATF2
G TRANS
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCAFDCT 1010 printed Dec 13, 2024@01:39:30 Page 2
PRCAFDCT ;WASH-ISC@ALTOONA/CLH-View Stacker information ;1/12/95 2:58 PM
V ;;4.5;Accounts Receivable;**198**;Mar 20, 1995
+1 ;;Per VHA Directive 10-93-142, this routine should not be modified.
BILL ;View status for bills
+1 NEW DIC,BILL,X,D,REC,RECN,BILLN,Y,D0
+2 NEW DPTNOFZY,DPTNOFZK
SET (DPTNOFZY,DPTNOFZK)=1
+3 SET DIC="^PRCA(430,"
SET DIC(0)="AEMNQZ"
SET DIC("A")="Select A/R BILL: "
+4 DO ^DIC
if +Y<0
QUIT
+5 SET BILLN=+Y
SET X="B"_BILLN
+6 KILL DIC
+7 SET DIC="^RC(347,"
SET DIC(0)="XMN"
SET D="D"
DO MIX^DIC1
+8 IF +Y<0
WRITE !!,"Unable to locate bill in A/R Document file.",!!
KILL BILL,BILLN,REC,RECN
GOTO BILL
+9 SET RECN=+Y
+10 SET D0=RECN
DO ^PRCATF1
+11 GOTO BILL
+12 ;
TRANS ;View status for transactions
+1 NEW DIC,TN,X,D,Y,D0,REC
+2 NEW DPTNOFZY,DPTNOFZK
SET (DPTNOFZY,DPTNOFZK)=1
+3 SET DIC="^PRCA(433,"
SET DIC(0)="AEMNQ"
SET DIC("A")="Select A/R TRANSACTION: "
DO ^DIC
KILL DIC
+4 if +Y<0
QUIT
+5 SET TN=+Y
SET X="T"_TN
+6 SET DIC="^RC(347,"
SET DIC(0)="XMN"
SET D="D"
DO MIX^DIC1
+7 IF +Y<0
WRITE !!,"Unable to locate transaction in A/R Document file.",!!
KILL TN
GOTO TRANS
+8 SET REC=+Y
+9 SET D0=REC
DO ^PRCATF2
+10 GOTO TRANS
+11 ;
