RCRPWLUT ;EDE/YMG - REPAYMENT PLAN WORKLIST UTILITIES; 03/14/2022
;;4.5;Accounts Receivable;**389**;Mar 20, 1995;Build 36
;;Per VA Directive 6402, this routine should not be modified.
;
; Utilities for RCRP APPROVAL WORKLIST option
;
Q
;
GET36(RPIEN) ; get 36 months review flag for a given repayment plan
;
; RPIEN - file 340.5 ien
;
; returns internal value of field 340.5/1.06
;
N IENS
I RPIEN'>0 Q 0
S IENS=RPIEN_","
Q +$$GET1^DIQ(340.5,IENS,1.06,"I")
;
MSGREV ; send Mailman notification for repayment plan that needs 36 months approval
N XMDUZ,XMMG,XMSUB,XMTEXT,XMY
N MSGTXT,SITE
S SITE=+$$SITE^VASITE()
S MSGTXT(1)="Site "_SITE_": Repayment plans with term length > 36 months"
S MSGTXT(2)="need supervisor's approval."
S MSGTXT(3)="Please use Repayment Plan Worklist option [PRCAC RPP WORKLIST]"
S MSGTXT(4)="to review those repayment plans."
S XMSUB="SITE "_SITE_": AR REPAYMENT PLAN NEEDS 36 MONTHS APPROVAL",XMDUZ="AR PACKAGE"
S XMY("G.RC REPAY SUP")="",XMTEXT="MSGTXT("
D ^XMD
Q
;
MSGDEN(RPIEN) ; send Mailman notification for repayment plan that had 36 months approval denied
N XMDUZ,XMMG,XMSUB,XMTEXT,XMY
N MSGTXT,N0,RPPID,SITE
I RPIEN'>0 Q
S N0=$G(^RCRP(340.5,RPIEN,0)) I N0="" Q
S RPPID=$P(N0,U),SITE=+$$SITE^VASITE()
S MSGTXT(1)="Site "_SITE_": Supervisor's approval for repayment plan"
S MSGTXT(2)="with term length > 36 months was denied:"
S MSGTXT(3)="Repayment plan ID: "_RPPID
S XMSUB="SITE "_SITE_": 36 MONTHS APPROVAL FOR AR REPAYMENT PLAN WAS DENIED",XMDUZ="AR PACKAGE"
S XMY("G.RC REPAY TECH")="",XMTEXT="MSGTXT("
D ^XMD
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCRPWLUT 1634 printed Dec 13, 2024@01:48:34 Page 2
RCRPWLUT ;EDE/YMG - REPAYMENT PLAN WORKLIST UTILITIES; 03/14/2022
+1 ;;4.5;Accounts Receivable;**389**;Mar 20, 1995;Build 36
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; Utilities for RCRP APPROVAL WORKLIST option
+5 ;
+6 QUIT
+7 ;
GET36(RPIEN) ; get 36 months review flag for a given repayment plan
+1 ;
+2 ; RPIEN - file 340.5 ien
+3 ;
+4 ; returns internal value of field 340.5/1.06
+5 ;
+6 NEW IENS
+7 IF RPIEN'>0
QUIT 0
+8 SET IENS=RPIEN_","
+9 QUIT +$$GET1^DIQ(340.5,IENS,1.06,"I")
+10 ;
MSGREV ; send Mailman notification for repayment plan that needs 36 months approval
+1 NEW XMDUZ,XMMG,XMSUB,XMTEXT,XMY
+2 NEW MSGTXT,SITE
+3 SET SITE=+$$SITE^VASITE()
+4 SET MSGTXT(1)="Site "_SITE_": Repayment plans with term length > 36 months"
+5 SET MSGTXT(2)="need supervisor's approval."
+6 SET MSGTXT(3)="Please use Repayment Plan Worklist option [PRCAC RPP WORKLIST]"
+7 SET MSGTXT(4)="to review those repayment plans."
+8 SET XMSUB="SITE "_SITE_": AR REPAYMENT PLAN NEEDS 36 MONTHS APPROVAL"
SET XMDUZ="AR PACKAGE"
+9 SET XMY("G.RC REPAY SUP")=""
SET XMTEXT="MSGTXT("
+10 DO ^XMD
+11 QUIT
+12 ;
MSGDEN(RPIEN) ; send Mailman notification for repayment plan that had 36 months approval denied
+1 NEW XMDUZ,XMMG,XMSUB,XMTEXT,XMY
+2 NEW MSGTXT,N0,RPPID,SITE
+3 IF RPIEN'>0
QUIT
+4 SET N0=$GET(^RCRP(340.5,RPIEN,0))
IF N0=""
QUIT
+5 SET RPPID=$PIECE(N0,U)
SET SITE=+$$SITE^VASITE()
+6 SET MSGTXT(1)="Site "_SITE_": Supervisor's approval for repayment plan"
+7 SET MSGTXT(2)="with term length > 36 months was denied:"
+8 SET MSGTXT(3)="Repayment plan ID: "_RPPID
+9 SET XMSUB="SITE "_SITE_": 36 MONTHS APPROVAL FOR AR REPAYMENT PLAN WAS DENIED"
SET XMDUZ="AR PACKAGE"
+10 SET XMY("G.RC REPAY TECH")=""
SET XMTEXT="MSGTXT("
+11 DO ^XMD
+12 QUIT
