- 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 Mar 13, 2025@20:45:55 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