Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RCRPWL1

RCRPWL1.m

Go to the documentation of this file.
  1. RCRPWL1 ;EDE/YMG - REPAYMENT PLAN WORKLIST ACTIONS; 07/15/2021
  1. ;;4.5;Accounts Receivable;**389,423**;Mar 20, 1995;Build 8
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; List Manager actions for RCRP APPROVAL WORKLIST option
  1. ;
  1. Q
  1. ;
  1. AB ; add bills
  1. N RPIEN,SEL,Z
  1. D FULL^VALM1
  1. D EN^VALM2($G(XQORNOD(0)),"S")
  1. S SEL=$O(VALMY("")) I SEL,$D(@VALMAR@("IDX",SEL,SEL)) D
  1. .S RPIEN=+$G(@VALMAR@("IDX",SEL,SEL)) I 'RPIEN W !!,"Invalid selection." Q
  1. .I $$GET36^RCRPWLUT(RPIEN)'=1 W !!,"You can only add bills to an approved repayment plan." Q
  1. .D EN1^RCRPADD(RPIEN)
  1. .Q
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. AP ; account profile
  1. N DBTR,RPIEN,SEL
  1. D FULL^VALM1
  1. D EN^VALM2($G(XQORNOD(0)),"S")
  1. S SEL=$O(VALMY("")) I SEL,$D(@VALMAR@("IDX",SEL,SEL)) D
  1. .S RPIEN=+$G(@VALMAR@("IDX",SEL,SEL)) I 'RPIEN W !!,"Invalid selection." Q
  1. .S DBTR=$P(^RCRP(340.5,RPIEN,0),U,2)
  1. .D EN1^PRCAAPR(DBTR)
  1. .Q
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. CV ; change view
  1. N X,Y,DTOUT,DUOUT,DIR,DIROUT,DIRUT
  1. S VALMBCK="R"
  1. D CLEAR^VALM1
  1. I SUPER D
  1. .S DIR("A")="Select (A)pproved plans, (D)enied plans, or plans that (R)equire review: "
  1. .S DIR(0)="SA^A:Approved plans;D:Denied plans;R:Plans that require review"
  1. .Q
  1. I 'SUPER D
  1. .S DIR("A")="Select (A)pproved plans or (D)enied plans: "
  1. .S DIR(0)="SA^A:Approved plans;D:Denied plans"
  1. .Q
  1. D ^DIR
  1. I $D(DTOUT)!$D(DUOUT) Q
  1. S VIEW=$S(Y="R":0,Y="A":1,1:2)
  1. S VALMBG=1 D HDR^RCRPWL,BLD^RCRPWL
  1. Q
  1. ;
  1. ED ; edit terms
  1. N RPIEN,SEL
  1. D FULL^VALM1
  1. D EN^VALM2($G(XQORNOD(0)),"S")
  1. S SEL=$O(VALMY("")) I SEL,$D(@VALMAR@("IDX",SEL,SEL)) D
  1. .S RPIEN=+$G(@VALMAR@("IDX",SEL,SEL)) I 'RPIEN W !!,"Invalid selection." Q
  1. .I $$GET36^RCRPWLUT(RPIEN)'=2 W !!,"You can only edit terms of a denied repayment plan." Q
  1. .D EDITPLAN^RCRPENTR(RPIEN)
  1. .Q
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. EX ; export to Excel
  1. N POP,ZTDESC,ZTRTN,ZTSAVE,ZTSK,%ZIS
  1. S VALMBCK="R"
  1. D FULL^VALM1
  1. K IOP,IO("Q")
  1. S %ZIS="MQ",%ZIS("B")="",POP=0 D ^%ZIS Q:POP
  1. I $D(IO("Q")) D Q ; queued output
  1. .S ZTDESC="Repayment Plan Worklist Export",ZTRTN="EXPORT^RCRPWL1"
  1. .S ZTSAVE("VIEW")="",ZTSAVE("ZTREQ")="@"
  1. .D ^%ZTLOAD,HOME^%ZIS
  1. .I $G(ZTSK) W !!,"Export has started with task# ",ZTSK,".",! D PAUSE^RCRPRPU
  1. .Q
  1. D EXPORT
  1. D HOME^%ZIS
  1. Q
  1. ;
  1. EXPORT ; actual Excel export, called from tag EX
  1. N AMNT,BAL,EXTDT,LN,N0,RPIEN,TERM
  1. S EXTDT=$$FMTE^XLFDT(DT)
  1. U IO
  1. W !,"Repayment Plan Worklist Export",U,EXTDT,U,$S('VIEW:"Plans that require review",VIEW=1:"Approved plans",1:"Denied plans")
  1. W !,"RPP ID^Debtor^Term Length^Monthly Payment^Current Balance"
  1. I '$D(@VALMAR@("IDX")) W !,"No repayment plans found." G EXPORTX
  1. S LN=0 F S LN=$O(@VALMAR@("IDX",LN)) Q:'LN D
  1. .S RPIEN=@VALMAR@("IDX",LN,LN)
  1. .S N0=$G(^RCRP(340.5,RPIEN,0))
  1. .S AMNT=+$P(N0,U,6),BAL=$$CBAL^RCRPU3(RPIEN,$P(N0,U,11)),TERM=$$REMPMNTS^RCRPU3(RPIEN,AMNT) ; PRCA*4.5*423
  1. .W !,$P(N0,U),U,$$EXTERNAL^DILFD(340.5,.02,,$P(N0,U,2)),U,TERM,U,$FN(AMNT,"",2),U,$FN(BAL,"",2) ; PRCA*4.5*423
  1. .Q
  1. EXPORTX ; exit point
  1. U 0 I '$D(ZTQUEUED) D GOON^VALM1
  1. Q
  1. ;
  1. IN ; RPP inquiry
  1. N RPIEN,SEL
  1. D FULL^VALM1
  1. D EN^VALM2($G(XQORNOD(0)),"S")
  1. S SEL=$O(VALMY("")) I SEL,$D(@VALMAR@("IDX",SEL,SEL)) D
  1. .S RPIEN=+$G(@VALMAR@("IDX",SEL,SEL)) I 'RPIEN W !!,"Invalid selection." Q
  1. .D EN1^RCRPINQ(RPIEN)
  1. .Q
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. RV ; review plan
  1. N X,Y,DTOUT,DUOUT,DIR,DIROUT,DIRUT
  1. N CURFLG,FLG,RPIEN,SEL
  1. D FULL^VALM1
  1. D EN^VALM2($G(XQORNOD(0)),"S")
  1. S SEL=$O(VALMY("")) I SEL,$D(@VALMAR@("IDX",SEL,SEL)) D
  1. .S RPIEN=+$G(@VALMAR@("IDX",SEL,SEL)) I 'RPIEN W !!,"Invalid selection." Q
  1. .S DIR("A")="Please (A)pprove or (D)eny this repayment plan: "
  1. .S DIR(0)="SA^A:Approve;D:Deny"
  1. .D ^DIR
  1. .I $D(DTOUT)!$D(DUOUT) Q
  1. .S FLG=$S(Y="A":1,Y="D":2,1:"")
  1. .S CURFLG=$$GET36^RCRPWLUT(RPIEN)
  1. .I FLG>0 D
  1. ..I FLG=CURFLG W !!,"This plan has already been ",$S(CURFLG=1:"approved",1:"denied"),"." D GOON^VALM1 Q
  1. ..I CURFLG>0 Q:'$$RVCONF(FLG)
  1. ..D UPDFLG36^RCRPU1(RPIEN,FLG)
  1. ..D UPDAUDIT^RCRPU2(RPIEN,DT,"E",$S(FLG=1:"SM",1:"SD"),"")
  1. ..D:FLG=2 MSGDEN^RCRPWLUT(RPIEN)
  1. ..D CLEAR^VALM1,BLD^RCRPWL
  1. ..Q
  1. .Q
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. RVCONF(RVFLG) ; prompt to confirm supervisor approval/denial
  1. ;
  1. ; RVFLG - 1 for approval, 2 for denial
  1. ;
  1. ; returns 1 if user confirms, 0 otherwise
  1. ;
  1. N DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
  1. I RVFLG'>0 Q
  1. S DIR(0)="Y"
  1. S DIR("A")="This plan has been "_$S(RVFLG=1:"denied",1:"approved")_". Do you wish to continue with "_$S(RVFLG=2:"denial",1:"approval")_"? (Y/N)"
  1. D ^DIR
  1. Q $S(+Y<1:0,1:1)