RCP371.m

RCP371 ;AITC/DOM - Patch PRCA*4.5*371 Post Installation Processing ;20 Feb 2020 14:00:00

 ;;4.5;Accounts Receivable;**371**;Feb 20, 2020;Build 29

 ;Per VA Directive 6402, this routine should not be modified.

 Q

 ;

POST ;

 D CMPTMP ;

 D BMES^XPDUTL("PRCA*4.5*371 post-installation finished "_$$HTE^XLFDT($H))

 Q

 ;

CMPTMP ; Recompile ACCOUNTS RECEIVABLE (#430) input templates due to the new AMCCF index

 N X,Y,DMAX

 D MES^XPDUTL(">> Recompile Input Templates for Accounts Receivable (#430) screens...")

 ;

 S DMAX=$$ROUSIZE^DILF

 S X="PRCATA",Y=$$FIND1^DIC(.402,,"X","PRCA OLD SET","B")

 I Y D EN^DIEZ

 ;

 S DMAX=$$ROUSIZE^DILF

 S X="PRCATE",Y=$$FIND1^DIC(.402,,"X","PRCA SET","B")

 I Y D EN^DIEZ

 ;

 S DMAX=$$ROUSIZE^DILF

 S X="PRCATSE",Y=$$FIND1^DIC(.402,,"X","PRCASV REL","B")

 I Y D EN^DIEZ

 Q

 ;

IXCHK ; Check for new MCCF Index creation

 I $D(^RCY(344.31,"MCCF")),$D(^RCY(344.4,"MCCF")) D  Q

 . D BMES^XPDUTL("MCCF Indices created.")

 D BMES^XPDUTL("MCCF Indices not created.")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RCP371   1023     printed  Mar 13, 2025@20:52:01                                                                                                                                                                                                      Page 2

RCP371    ;AITC/DOM - Patch PRCA*4.5*371 Post Installation Processing ;20 Feb 2020 14:00:00

 +1       ;;4.5;Accounts Receivable;**371**;Feb 20, 2020;Build 29

 +2       ;Per VA Directive 6402, this routine should not be modified.

 +3        QUIT 

 +4       ;

POST      ;

 +1       ;

           DO CMPTMP

 +2        DO BMES^XPDUTL("PRCA*4.5*371 post-installation finished "_$$HTE^XLFDT($HOROLOG))

 +3        QUIT 

 +4       ;

CMPTMP    ; Recompile ACCOUNTS RECEIVABLE (#430) input templates due to the new AMCCF index

 +1        NEW X,Y,DMAX

 +2        DO MES^XPDUTL(">> Recompile Input Templates for Accounts Receivable (#430) screens...")

 +3       ;

 +4        SET DMAX=$$ROUSIZE^DILF

 +5        SET X="PRCATA"

           SET Y=$$FIND1^DIC(.402,,"X","PRCA OLD SET","B")

 +6        IF Y

               DO EN^DIEZ

 +7       ;

 +8        SET DMAX=$$ROUSIZE^DILF

 +9        SET X="PRCATE"

           SET Y=$$FIND1^DIC(.402,,"X","PRCA SET","B")

 +10       IF Y

               DO EN^DIEZ

 +11      ;

 +12       SET DMAX=$$ROUSIZE^DILF

 +13       SET X="PRCATSE"

           SET Y=$$FIND1^DIC(.402,,"X","PRCASV REL","B")

 +14       IF Y

               DO EN^DIEZ

 +15       QUIT 

 +16      ;

IXCHK     ; Check for new MCCF Index creation

 +1        IF $DATA(^RCY(344.31,"MCCF"))

               IF $DATA(^RCY(344.4,"MCCF"))

                   Begin DoDot:1

 +2                    DO BMES^XPDUTL("MCCF Indices created.")

                   End DoDot:1

                   QUIT 

 +3        DO BMES^XPDUTL("MCCF Indices not created.")

 +4        QUIT 

 +5       ;