PRCAP393 ;EDE/SAB - PRCA*4.5*393 POST INSTALL;02/11/21
;;4.5;Accounts Receivable;**393**;Mar 20, 1995;Build 9
;Per VA Directive 6402, this routine should not be modified.
Q
;
EN ; entry point
D BMES^XPDUTL(" >> Start of the Post-Installation routine for PRCA*4.5*393")
D REINDEX
D BMES^XPDUTL(" >> End of the Post-Installation routine for PRCA*4.5*393")
Q
;
REINDEX ;Update the Auto Add Field to set all active plans to Yes
;
N DA,DIK,X,Y ; ^DIE variables
D MES^XPDUTL("Re-indexing the Description field in the AR SUSPEND REASON file ... ")
;
S DIK="^PRCA(433.001,",DIK(1)=".02^C" D ENALL^DIK
;
D MES^XPDUTL(" ... Done. ")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCAP393 682 printed Dec 13, 2024@01:40:54 Page 2
PRCAP393 ;EDE/SAB - PRCA*4.5*393 POST INSTALL;02/11/21
+1 ;;4.5;Accounts Receivable;**393**;Mar 20, 1995;Build 9
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
EN ; entry point
+1 DO BMES^XPDUTL(" >> Start of the Post-Installation routine for PRCA*4.5*393")
+2 DO REINDEX
+3 DO BMES^XPDUTL(" >> End of the Post-Installation routine for PRCA*4.5*393")
+4 QUIT
+5 ;
REINDEX ;Update the Auto Add Field to set all active plans to Yes
+1 ;
+2 ; ^DIE variables
NEW DA,DIK,X,Y
+3 DO MES^XPDUTL("Re-indexing the Description field in the AR SUSPEND REASON file ... ")
+4 ;
+5 SET DIK="^PRCA(433.001,"
SET DIK(1)=".02^C"
DO ENALL^DIK
+6 ;
+7 DO MES^XPDUTL(" ... Done. ")
+8 QUIT
+9 ;
