PRCARPM ;ALB/DRF-CREATE MULTIPLE ACCOUNT REPAYMENT DATE SCHEDULE ;08/09/2016 4:40 PM
;;4.5;Accounts Receivable;**315,340**;Mar 20, 1995;Build 9
;;Per VA Directive 6402, this routine should not be modified.
;
BEGIN ;Start here
N ACT,ADD,ALL,D0,DEL,DIC,DIR,LIST,LSTDATE,MULTI,NON,PAYDATE,PLN,PLNAMT,PLNDAY,PLNDT
N PLNFRST,PLNLST,PLNNXT,PLNRMN,PLNTDUE,PRCA,PRCADAY,PRCADT,PRCAFP,PRCAFPD,PRCAMT
N PRCANPAY,PRCAPB,PRCAREM,QUIT,SUCCESS,SURE,T,TOTAL,TOTDUE,X,Y
S QUIT=0
I $G(DEBTOR)]"" L -^RCD(340,+DEBTOR) ;Release previous debtor lock
S DEBTOR=$$DEBTOR^PRCARPU()
I $G(DEBTOR)="" K DEBTOR Q
W " ",$$NAM^RCFN01(+DEBTOR)
L +^RCD(340,+DEBTOR):1 I '$T W !,"Another user is editing this record",!! D PAUSE^PRCARPU G BEGIN
D ACCOUNTS^PRCARPU(+DEBTOR,.ALL,.PLN,.NON,.ACT)
I ACT=0 W !,"No active bills for this debtor",!! D PAUSE^PRCARPU G BEGIN
I PLN=0 G NOPLAN ;No current plan
S MULTI=$$MULTI^PRCARPU(.PLN) I MULTI G MULTPLN ;Multiple existing plans
I PLN G PLAN ;Single existing plan
G BEGIN
;
PLAN ;There is an existing Repayment Plan
S DIR(0)="SA^E:EDIT;D:DELETE;V:VIEW^",DIR("B")="V"
S DIR("A")="This Debtor has a Repayment Plan - (D)elete, (E)dit or (V)iew it? "
D ^DIR
I Y="V" G VIEW
I Y="D" G DELETE
I Y="E",NON G EDITADD
I Y="E",NON=0 G EDIT
G BEGIN
;
MULTPLN ;There is more than one existing Repayment Plan
S DIR(0)="Y"
S DIR("A")="This Debtor has multiple plans - view them"
S DIR("?")="Enter Y to view multiple Repayment Plans"
D ^DIR I $D(DUOUT)!($D(DTOUT)) G BEGIN
I 'Y G BEGIN
D DSMPLNS^PRCARPU(DEBTOR,.PLN)
I QUIT G BEGIN
S DIR(0)="Y"
S DIR("A")="This Debtor has multiple plans - consolidate them"
S DIR("?")="Enter Y to consolidate multiple Repayment Plans into one"
D ^DIR I $D(DUOUT)!($D(DTOUT)) G BEGIN
I 'Y G MLTDEL
S TOTDUE=$$DUEARR^PRCARPU(.PLN) ;New total amount due
S SUCCESS=$$INQPLAN^PRCARPU(TOTDUE,PLNDT)
I 'SUCCESS W !! G BEGIN
D RPDEL^PRCARPU(.PLN,0)
D ADDPLAN^PRCARPU(.PLN,PRCAMT,PRCADAY,PRCAFPD,PRCADT,0)
W !,"The Repayment Plan has been consolidated.",!
D SCRNCHK^PRCARPU I QUIT G BEGIN
D ACCOUNTS^PRCARPU(+DEBTOR,.ALL,.PLN,.NON,.ACT) ;Reload accounts after change is filed
I NON G EDITADD
D RPDIS^PRCARPU(DEBTOR,.PLN)
S T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT) I QUIT G BEGIN
D SCRNCHK^PRCARPU I QUIT G BEGIN
D PAYDISP^PRCARPU(+DEBTOR,PLNDT,.QUIT) I QUIT G BEGIN
D CMTENTR^PRCARPU(+DEBTOR)
D PAUSE^PRCARPU
G BEGIN
;
DELETE ;Delete a Repayment Plan
D RPDIS^PRCARPU(DEBTOR,.PLN)
S T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT) I QUIT G BEGIN
S SURE=$$CORRECT^PRCARPU()
I '+SURE G BEGIN
D RPDEL^PRCARPU(.PLN,1)
W !!,"The Repayment Plan for "_$P(DEBTOR,U,2)_" has been Deleted.",!
D SCRNCHK^PRCARPU I QUIT G BEGIN
D CMTENTR^PRCARPU(+DEBTOR)
D PAUSE^PRCARPU
G BEGIN
;
EDITADD ;Edit a Repayment Plan with new bills
D RPDIS^PRCARPU(DEBTOR,.PLN)
S T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT) I QUIT G BEGIN
K DEL M DEL=PLN ;PRCA*4.5*340/DRF Always kill previous plan from bills
D PAYDISP^PRCARPU(+DEBTOR,PLNDT,.QUIT) I QUIT G BEGIN
D SCRNCHK^PRCARPU I QUIT G BEGIN
W !,"Bills not in Repayment Plan:",!
D SCRNCHK^PRCARPU I QUIT G BEGIN
S TOTAL=$$DISPLAY^PRCARPU(.NON,1,.QUIT) I QUIT G BEGIN
I TOTAL=0 G NOBILLS
K ADD
D SCRNCHK^PRCARPU I QUIT G BEGIN
S LIST=$$SELECT^PRCARPU(.NON)
I LIST="" W !," No Bills selected",! D PAUSE^PRCARPU G:QUIT BEGIN G NOBILLS
D SUMM^PRCARPU(.NON,LIST,.ADD)
S TOTDUE=$$DUEARR^PRCARPU(.ADD) ;Amount being added
W !!,"Total amount chosen is $",$J(TOTDUE,8,2),!
D SCRNCHK^PRCARPU I QUIT G BEGIN
S SURE=$$CORRECT^PRCARPU()
I 'SURE W !! G BEGIN
D MERGE^PRCARPU(.PLN,.ADD)
NOBILLS ;No new bill were chosen
S TOTDUE=$$DUEARR^PRCARPU(.PLN) ;New total amount due
D SCRNCHK^PRCARPU I QUIT G BEGIN
S SUCCESS=$$INQPLAN^PRCARPU(TOTDUE,PLNDT)
I 'SUCCESS W !! G BEGIN
D RPDEL^PRCARPU(.DEL,0)
K DEL
D ADDPLAN^PRCARPU(.PLN,PRCAMT,PRCADAY,PRCAFPD,PRCADT,0)
I $G(ADD) D ADDTRAN^PRCARPU(.ADD) ;Add a 433 transaction entry to the new bills being added to the plan
W !!,"The Repayment Plan has been updated.",!
D SCRNCHK^PRCARPU I QUIT G BEGIN
K ADD
D ACCOUNTS^PRCARPU(+DEBTOR,.ALL,.PLN,.NON,.ACT) ;Reload accounts after change is filed
D RPDIS^PRCARPU(DEBTOR,.PLN)
S T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT) I QUIT G BEGIN
D SCRNCHK^PRCARPU I QUIT G BEGIN
D CMTENTR^PRCARPU(+DEBTOR)
D PAUSE^PRCARPU
G BEGIN
;
EDIT ;Edit a Repayment Plan, no new bills
D RPDIS^PRCARPU(DEBTOR,.PLN)
S T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT) I QUIT G BEGIN
D SCRNCHK^PRCARPU I QUIT G BEGIN
W !,"There are no new bills to be added.",!
D SCRNCHK^PRCARPU I QUIT G BEGIN
D PAYDISP^PRCARPU(+DEBTOR,PLNDT,.QUIT) I QUIT G BEGIN
D SCRNCHK^PRCARPU I QUIT G BEGIN
S SUCCESS=$$INQPLAN^PRCARPU(PLNTDUE,PLNDT)
I 'SUCCESS W ! G BEGIN
D RPDEL^PRCARPU(.PLN,0)
D ADDPLAN^PRCARPU(.PLN,PRCAMT,PRCADAY,PRCAFPD,PRCADT,0)
D SCRNCHK^PRCARPU I QUIT G BEGIN
W !,"The Repayment Plan has been updated.",!
D SCRNCHK^PRCARPU I QUIT G BEGIN
D ACCOUNTS^PRCARPU(+DEBTOR,.ALL,.PLN,.NON,.ACT) ;Reload accounts after change is filed
D RPDIS^PRCARPU(DEBTOR,.PLN)
D SCRNCHK^PRCARPU I QUIT G BEGIN
S T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT) I QUIT G BEGIN
D SCRNCHK^PRCARPU I QUIT G BEGIN
D CMTENTR^PRCARPU(+DEBTOR)
D PAUSE^PRCARPU
G BEGIN
;
NOPLAN ;Debtor has no Repayment Plan
W !,"This Debtor does not have a Repayment Plan",!!,"List of Active Bills:",!!
S TOTAL=$$DISPLAY^PRCARPU(.NON,1,.QUIT) I QUIT G BEGIN
S LIST=$$SELECT^PRCARPU(.NON)
I LIST="" W !! G BEGIN
D SUMM^PRCARPU(.NON,LIST,.ADD)
S TOTDUE=$$DUEARR^PRCARPU(.ADD)
W !!,"Total amount chosen is $",$J(TOTDUE,8,2),!
S SURE=$$CORRECT^PRCARPU()
I 'SURE W !! G BEGIN
S SUCCESS=$$INQPLAN^PRCARPU(TOTDUE)
I 'SUCCESS W !! G BEGIN
D ADDPLAN^PRCARPU(.ADD,PRCAMT,PRCADAY,PRCAFPD,PRCADT,1)
W !,"The Repayment Plan has been established.",!
D SCRNCHK^PRCARPU I QUIT G BEGIN
D ACCOUNTS^PRCARPU(+DEBTOR,.ALL,.PLN,.NON,.ACT) ;Reload accounts after change is filed
D RPDIS^PRCARPU(DEBTOR,.PLN)
S T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT) I QUIT G BEGIN
D SCRNCHK^PRCARPU I QUIT G BEGIN
D CMTENTR^PRCARPU(+DEBTOR)
D PAUSE^PRCARPU
G BEGIN
;
MLTDEL ;Delete all multiple plans
S DIR(0)="Y"
S DIR("A")="Delete ALL current Repayment Plans for this Debtor"
S DIR("?")="Enter Y to delete ALL current Repayment Plans"
D ^DIR I $D(DUOUT)!($D(DTOUT)) G BEGIN
I 'Y G BEGIN
D RPDEL^PRCARPU(.PLN,1)
W !,"All Repayment Plans have been deleted.",!
D PAUSE^PRCARPU
G BEGIN
;
VIEW ;View a Repayment Plan
D RPDIS^PRCARPU(DEBTOR,.PLN)
S T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT) I QUIT G BEGIN
D SCRNCHK^PRCARPU I QUIT G BEGIN
D PAYDISP^PRCARPU(+DEBTOR,PLNDT,.QUIT) I QUIT G BEGIN
D SCRNCHK^PRCARPU I QUIT G BEGIN
W !,"Bills not in Repayment Plan:",!
S TOTAL=$$DISPLAY^PRCARPU(.NON,1,.QUIT) I QUIT G BEGIN
D PAUSE^PRCARPU
G BEGIN
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCARPM 6912 printed Sep 23, 2025@19:17:16 Page 2
PRCARPM ;ALB/DRF-CREATE MULTIPLE ACCOUNT REPAYMENT DATE SCHEDULE ;08/09/2016 4:40 PM
+1 ;;4.5;Accounts Receivable;**315,340**;Mar 20, 1995;Build 9
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
BEGIN ;Start here
+1 NEW ACT,ADD,ALL,D0,DEL,DIC,DIR,LIST,LSTDATE,MULTI,NON,PAYDATE,PLN,PLNAMT,PLNDAY,PLNDT
+2 NEW PLNFRST,PLNLST,PLNNXT,PLNRMN,PLNTDUE,PRCA,PRCADAY,PRCADT,PRCAFP,PRCAFPD,PRCAMT
+3 NEW PRCANPAY,PRCAPB,PRCAREM,QUIT,SUCCESS,SURE,T,TOTAL,TOTDUE,X,Y
+4 SET QUIT=0
+5 ;Release previous debtor lock
IF $GET(DEBTOR)]""
LOCK -^RCD(340,+DEBTOR)
+6 SET DEBTOR=$$DEBTOR^PRCARPU()
+7 IF $GET(DEBTOR)=""
KILL DEBTOR
QUIT
+8 WRITE " ",$$NAM^RCFN01(+DEBTOR)
+9 LOCK +^RCD(340,+DEBTOR):1
IF '$TEST
WRITE !,"Another user is editing this record",!!
DO PAUSE^PRCARPU
GOTO BEGIN
+10 DO ACCOUNTS^PRCARPU(+DEBTOR,.ALL,.PLN,.NON,.ACT)
+11 IF ACT=0
WRITE !,"No active bills for this debtor",!!
DO PAUSE^PRCARPU
GOTO BEGIN
+12 ;No current plan
IF PLN=0
GOTO NOPLAN
+13 ;Multiple existing plans
SET MULTI=$$MULTI^PRCARPU(.PLN)
IF MULTI
GOTO MULTPLN
+14 ;Single existing plan
IF PLN
GOTO PLAN
+15 GOTO BEGIN
+16 ;
PLAN ;There is an existing Repayment Plan
+1 SET DIR(0)="SA^E:EDIT;D:DELETE;V:VIEW^"
SET DIR("B")="V"
+2 SET DIR("A")="This Debtor has a Repayment Plan - (D)elete, (E)dit or (V)iew it? "
+3 DO ^DIR
+4 IF Y="V"
GOTO VIEW
+5 IF Y="D"
GOTO DELETE
+6 IF Y="E"
IF NON
GOTO EDITADD
+7 IF Y="E"
IF NON=0
GOTO EDIT
+8 GOTO BEGIN
+9 ;
MULTPLN ;There is more than one existing Repayment Plan
+1 SET DIR(0)="Y"
+2 SET DIR("A")="This Debtor has multiple plans - view them"
+3 SET DIR("?")="Enter Y to view multiple Repayment Plans"
+4 DO ^DIR
IF $DATA(DUOUT)!($DATA(DTOUT))
GOTO BEGIN
+5 IF 'Y
GOTO BEGIN
+6 DO DSMPLNS^PRCARPU(DEBTOR,.PLN)
+7 IF QUIT
GOTO BEGIN
+8 SET DIR(0)="Y"
+9 SET DIR("A")="This Debtor has multiple plans - consolidate them"
+10 SET DIR("?")="Enter Y to consolidate multiple Repayment Plans into one"
+11 DO ^DIR
IF $DATA(DUOUT)!($DATA(DTOUT))
GOTO BEGIN
+12 IF 'Y
GOTO MLTDEL
+13 ;New total amount due
SET TOTDUE=$$DUEARR^PRCARPU(.PLN)
+14 SET SUCCESS=$$INQPLAN^PRCARPU(TOTDUE,PLNDT)
+15 IF 'SUCCESS
WRITE !!
GOTO BEGIN
+16 DO RPDEL^PRCARPU(.PLN,0)
+17 DO ADDPLAN^PRCARPU(.PLN,PRCAMT,PRCADAY,PRCAFPD,PRCADT,0)
+18 WRITE !,"The Repayment Plan has been consolidated.",!
+19 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+20 ;Reload accounts after change is filed
DO ACCOUNTS^PRCARPU(+DEBTOR,.ALL,.PLN,.NON,.ACT)
+21 IF NON
GOTO EDITADD
+22 DO RPDIS^PRCARPU(DEBTOR,.PLN)
+23 SET T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT)
IF QUIT
GOTO BEGIN
+24 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+25 DO PAYDISP^PRCARPU(+DEBTOR,PLNDT,.QUIT)
IF QUIT
GOTO BEGIN
+26 DO CMTENTR^PRCARPU(+DEBTOR)
+27 DO PAUSE^PRCARPU
+28 GOTO BEGIN
+29 ;
DELETE ;Delete a Repayment Plan
+1 DO RPDIS^PRCARPU(DEBTOR,.PLN)
+2 SET T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT)
IF QUIT
GOTO BEGIN
+3 SET SURE=$$CORRECT^PRCARPU()
+4 IF '+SURE
GOTO BEGIN
+5 DO RPDEL^PRCARPU(.PLN,1)
+6 WRITE !!,"The Repayment Plan for "_$PIECE(DEBTOR,U,2)_" has been Deleted.",!
+7 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+8 DO CMTENTR^PRCARPU(+DEBTOR)
+9 DO PAUSE^PRCARPU
+10 GOTO BEGIN
+11 ;
EDITADD ;Edit a Repayment Plan with new bills
+1 DO RPDIS^PRCARPU(DEBTOR,.PLN)
+2 SET T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT)
IF QUIT
GOTO BEGIN
+3 ;PRCA*4.5*340/DRF Always kill previous plan from bills
KILL DEL
MERGE DEL=PLN
+4 DO PAYDISP^PRCARPU(+DEBTOR,PLNDT,.QUIT)
IF QUIT
GOTO BEGIN
+5 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+6 WRITE !,"Bills not in Repayment Plan:",!
+7 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+8 SET TOTAL=$$DISPLAY^PRCARPU(.NON,1,.QUIT)
IF QUIT
GOTO BEGIN
+9 IF TOTAL=0
GOTO NOBILLS
+10 KILL ADD
+11 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+12 SET LIST=$$SELECT^PRCARPU(.NON)
+13 IF LIST=""
WRITE !," No Bills selected",!
DO PAUSE^PRCARPU
if QUIT
GOTO BEGIN
GOTO NOBILLS
+14 DO SUMM^PRCARPU(.NON,LIST,.ADD)
+15 ;Amount being added
SET TOTDUE=$$DUEARR^PRCARPU(.ADD)
+16 WRITE !!,"Total amount chosen is $",$JUSTIFY(TOTDUE,8,2),!
+17 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+18 SET SURE=$$CORRECT^PRCARPU()
+19 IF 'SURE
WRITE !!
GOTO BEGIN
+20 DO MERGE^PRCARPU(.PLN,.ADD)
NOBILLS ;No new bill were chosen
+1 ;New total amount due
SET TOTDUE=$$DUEARR^PRCARPU(.PLN)
+2 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+3 SET SUCCESS=$$INQPLAN^PRCARPU(TOTDUE,PLNDT)
+4 IF 'SUCCESS
WRITE !!
GOTO BEGIN
+5 DO RPDEL^PRCARPU(.DEL,0)
+6 KILL DEL
+7 DO ADDPLAN^PRCARPU(.PLN,PRCAMT,PRCADAY,PRCAFPD,PRCADT,0)
+8 ;Add a 433 transaction entry to the new bills being added to the plan
IF $GET(ADD)
DO ADDTRAN^PRCARPU(.ADD)
+9 WRITE !!,"The Repayment Plan has been updated.",!
+10 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+11 KILL ADD
+12 ;Reload accounts after change is filed
DO ACCOUNTS^PRCARPU(+DEBTOR,.ALL,.PLN,.NON,.ACT)
+13 DO RPDIS^PRCARPU(DEBTOR,.PLN)
+14 SET T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT)
IF QUIT
GOTO BEGIN
+15 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+16 DO CMTENTR^PRCARPU(+DEBTOR)
+17 DO PAUSE^PRCARPU
+18 GOTO BEGIN
+19 ;
EDIT ;Edit a Repayment Plan, no new bills
+1 DO RPDIS^PRCARPU(DEBTOR,.PLN)
+2 SET T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT)
IF QUIT
GOTO BEGIN
+3 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+4 WRITE !,"There are no new bills to be added.",!
+5 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+6 DO PAYDISP^PRCARPU(+DEBTOR,PLNDT,.QUIT)
IF QUIT
GOTO BEGIN
+7 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+8 SET SUCCESS=$$INQPLAN^PRCARPU(PLNTDUE,PLNDT)
+9 IF 'SUCCESS
WRITE !
GOTO BEGIN
+10 DO RPDEL^PRCARPU(.PLN,0)
+11 DO ADDPLAN^PRCARPU(.PLN,PRCAMT,PRCADAY,PRCAFPD,PRCADT,0)
+12 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+13 WRITE !,"The Repayment Plan has been updated.",!
+14 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+15 ;Reload accounts after change is filed
DO ACCOUNTS^PRCARPU(+DEBTOR,.ALL,.PLN,.NON,.ACT)
+16 DO RPDIS^PRCARPU(DEBTOR,.PLN)
+17 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+18 SET T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT)
IF QUIT
GOTO BEGIN
+19 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+20 DO CMTENTR^PRCARPU(+DEBTOR)
+21 DO PAUSE^PRCARPU
+22 GOTO BEGIN
+23 ;
NOPLAN ;Debtor has no Repayment Plan
+1 WRITE !,"This Debtor does not have a Repayment Plan",!!,"List of Active Bills:",!!
+2 SET TOTAL=$$DISPLAY^PRCARPU(.NON,1,.QUIT)
IF QUIT
GOTO BEGIN
+3 SET LIST=$$SELECT^PRCARPU(.NON)
+4 IF LIST=""
WRITE !!
GOTO BEGIN
+5 DO SUMM^PRCARPU(.NON,LIST,.ADD)
+6 SET TOTDUE=$$DUEARR^PRCARPU(.ADD)
+7 WRITE !!,"Total amount chosen is $",$JUSTIFY(TOTDUE,8,2),!
+8 SET SURE=$$CORRECT^PRCARPU()
+9 IF 'SURE
WRITE !!
GOTO BEGIN
+10 SET SUCCESS=$$INQPLAN^PRCARPU(TOTDUE)
+11 IF 'SUCCESS
WRITE !!
GOTO BEGIN
+12 DO ADDPLAN^PRCARPU(.ADD,PRCAMT,PRCADAY,PRCAFPD,PRCADT,1)
+13 WRITE !,"The Repayment Plan has been established.",!
+14 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+15 ;Reload accounts after change is filed
DO ACCOUNTS^PRCARPU(+DEBTOR,.ALL,.PLN,.NON,.ACT)
+16 DO RPDIS^PRCARPU(DEBTOR,.PLN)
+17 SET T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT)
IF QUIT
GOTO BEGIN
+18 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+19 DO CMTENTR^PRCARPU(+DEBTOR)
+20 DO PAUSE^PRCARPU
+21 GOTO BEGIN
+22 ;
MLTDEL ;Delete all multiple plans
+1 SET DIR(0)="Y"
+2 SET DIR("A")="Delete ALL current Repayment Plans for this Debtor"
+3 SET DIR("?")="Enter Y to delete ALL current Repayment Plans"
+4 DO ^DIR
IF $DATA(DUOUT)!($DATA(DTOUT))
GOTO BEGIN
+5 IF 'Y
GOTO BEGIN
+6 DO RPDEL^PRCARPU(.PLN,1)
+7 WRITE !,"All Repayment Plans have been deleted.",!
+8 DO PAUSE^PRCARPU
+9 GOTO BEGIN
+10 ;
VIEW ;View a Repayment Plan
+1 DO RPDIS^PRCARPU(DEBTOR,.PLN)
+2 SET T=$$DISPLAY^PRCARPU(.PLN,0,.QUIT)
IF QUIT
GOTO BEGIN
+3 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+4 DO PAYDISP^PRCARPU(+DEBTOR,PLNDT,.QUIT)
IF QUIT
GOTO BEGIN
+5 DO SCRNCHK^PRCARPU
IF QUIT
GOTO BEGIN
+6 WRITE !,"Bills not in Repayment Plan:",!
+7 SET TOTAL=$$DISPLAY^PRCARPU(.NON,1,.QUIT)
IF QUIT
GOTO BEGIN
+8 DO PAUSE^PRCARPU
+9 GOTO BEGIN
