RCRPWLUT.m

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 ---RCRPWLUT   1634     printed  Apr 09, 2024@20:53:46                                                                                                                                                                                                    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