RCRCRT2 ;ALB-ISC/CMS - RC AND DOJ TRANSACTION ROU 2 ;8/15/97
V ;;4.5;Accounts Receivable;**63**;Mar 20, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
CAN ;Called from RCRCRT1 ask to Cancel
N DA,DIC,DIE,DR,PRCAEN,D0,X,Y,%
W !!
S %=2 W !,"Do you want to CANCEL this referral to RC/DOJ " D YN^DICN
I %'=1 W !,"NOTHING CHANGED !",! G CANQ
S DA=PRCABN,DIE="^PRCA(430,"
S DR="64///@;65///@;66///@" D ^DIE
W !,"Bill is no longer Referred! ",!
S %=2 W !,"Do you want to add a Bill Comment Log entry " D YN^DICN
I %'=1 W !,"No Bill Comment Log entry added !",! G CANQ
;
D SETTR^PRCAUTL,PATTR^PRCAUTL S DIC="^PRCA(433," K PRCAMT,PRCAD("DELETE")
S DA=PRCAEN,DR="[PRCA COMMENT]",DIE="^PRCA(433," D ^DIE
S DR="4////^S X=2" D ^DIE
W !,"Bill Comment Added!",!
;
CANQ Q
;
WRDATA ;display the input data in 433 from RCRCRT1
W !!," Transaction Information for AR Bill No. ",$P(PRCABN0,U,1)," Tran.No: ",PRCAEN
W !!," Type: ",PRCAKTY," Date: ",PRCAKDT," Amount: ",$J(PRCATOT,0,2)
W !!,"PRIN.BAL.",?13,"INT.BAL.",?27,"ADMIN.BAL.",?42,"MARSHAL FEE",?57,"COURT COST"
W !,$J(PRCAPB,0,2),?15,$J(PRCAIB,0,2),?28,$J(PRCAAB,0,2),?43,$J(PRCAMF,0,2),?58,$J(PRCACC,0,2),!
I $P($G(^PRCA(433,PRCAEN,7,0)),U,4)="" G WRDATAQ
W !,"Transaction Comment: "
S X=0 F S X=$O(^PRCA(433,PRCAEN,7,X)) Q:'X D
. W !,$G(^PRCA(433,PRCAEN,7,X,0))
W !
WRDATAQ Q
;
WRREF ;Display the current Bill Referral Information called from RCRCRT1
N REF,REREF,RET,X,Y,%
W !!,"Current Bill Referral Information:"
S Y=+PRCADT D D^DIQ S REF=Y
S Y=+$P(PRCABN6,U,10) D D^DIQ S REREF=Y
S Y=+$P(PRCABN6,U,11) D D^DIQ S RET=Y
I REF=0,REREF=0,RET=0 W " <No Bill Referral Information>",! G WRREFA
W !!,"Referred to: ",PRCACODE," Referral Date: ",$S(REF=0:"",1:REF)," Referral Amount: $",PRCARAMT
I REREF'=0 W !," Bill was Re-Referred on: ",REREF
I RET'=0 W !," Bill was Returned from RC/DOJ on: ",RET
WRREFA ;
S %=1 W !!,"Do you want to Continue " D YN^DICN
I %=2 S RCOUT=1
WRREFQ Q
;RCRCRT2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCRCRT2 2062 printed Dec 13, 2024@01:47:47 Page 2
RCRCRT2 ;ALB-ISC/CMS - RC AND DOJ TRANSACTION ROU 2 ;8/15/97
V ;;4.5;Accounts Receivable;**63**;Mar 20, 1995
+1 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+2 ;
CAN ;Called from RCRCRT1 ask to Cancel
+1 NEW DA,DIC,DIE,DR,PRCAEN,D0,X,Y,%
+2 WRITE !!
+3 SET %=2
WRITE !,"Do you want to CANCEL this referral to RC/DOJ "
DO YN^DICN
+4 IF %'=1
WRITE !,"NOTHING CHANGED !",!
GOTO CANQ
+5 SET DA=PRCABN
SET DIE="^PRCA(430,"
+6 SET DR="64///@;65///@;66///@"
DO ^DIE
+7 WRITE !,"Bill is no longer Referred! ",!
+8 SET %=2
WRITE !,"Do you want to add a Bill Comment Log entry "
DO YN^DICN
+9 IF %'=1
WRITE !,"No Bill Comment Log entry added !",!
GOTO CANQ
+10 ;
+11 DO SETTR^PRCAUTL
DO PATTR^PRCAUTL
SET DIC="^PRCA(433,"
KILL PRCAMT,PRCAD("DELETE")
+12 SET DA=PRCAEN
SET DR="[PRCA COMMENT]"
SET DIE="^PRCA(433,"
DO ^DIE
+13 SET DR="4////^S X=2"
DO ^DIE
+14 WRITE !,"Bill Comment Added!",!
+15 ;
CANQ QUIT
+1 ;
WRDATA ;display the input data in 433 from RCRCRT1
+1 WRITE !!," Transaction Information for AR Bill No. ",$PIECE(PRCABN0,U,1)," Tran.No: ",PRCAEN
+2 WRITE !!," Type: ",PRCAKTY," Date: ",PRCAKDT," Amount: ",$JUSTIFY(PRCATOT,0,2)
+3 WRITE !!,"PRIN.BAL.",?13,"INT.BAL.",?27,"ADMIN.BAL.",?42,"MARSHAL FEE",?57,"COURT COST"
+4 WRITE !,$JUSTIFY(PRCAPB,0,2),?15,$JUSTIFY(PRCAIB,0,2),?28,$JUSTIFY(PRCAAB,0,2),?43,$JUSTIFY(PRCAMF,0,2),?58,$JUSTIFY(PRCACC,0,2),!
+5 IF $PIECE($GET(^PRCA(433,PRCAEN,7,0)),U,4)=""
GOTO WRDATAQ
+6 WRITE !,"Transaction Comment: "
+7 SET X=0
FOR
SET X=$ORDER(^PRCA(433,PRCAEN,7,X))
if 'X
QUIT
Begin DoDot:1
+8 WRITE !,$GET(^PRCA(433,PRCAEN,7,X,0))
End DoDot:1
+9 WRITE !
WRDATAQ QUIT
+1 ;
WRREF ;Display the current Bill Referral Information called from RCRCRT1
+1 NEW REF,REREF,RET,X,Y,%
+2 WRITE !!,"Current Bill Referral Information:"
+3 SET Y=+PRCADT
DO D^DIQ
SET REF=Y
+4 SET Y=+$PIECE(PRCABN6,U,10)
DO D^DIQ
SET REREF=Y
+5 SET Y=+$PIECE(PRCABN6,U,11)
DO D^DIQ
SET RET=Y
+6 IF REF=0
IF REREF=0
IF RET=0
WRITE " <No Bill Referral Information>",!
GOTO WRREFA
+7 WRITE !!,"Referred to: ",PRCACODE," Referral Date: ",$SELECT(REF=0:"",1:REF)," Referral Amount: $",PRCARAMT
+8 IF REREF'=0
WRITE !," Bill was Re-Referred on: ",REREF
+9 IF RET'=0
WRITE !," Bill was Returned from RC/DOJ on: ",RET
WRREFA ;
+1 SET %=1
WRITE !!,"Do you want to Continue "
DO YN^DICN
+2 IF %=2
SET RCOUT=1
WRREFQ QUIT
+1 ;RCRCRT2
