PRCAFDCT.m

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 ---PRCAFDCT   1010     printed  Apr 09, 2024@20:49:05                                                                                                                                                                                                    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      ;