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 ---[H[J[2J[HRCP371 1023 printed Oct 16, 2024@17:48:11 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 ;
