PRCAP393.m

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 ---PRCAP393   682     printed  Mar 13, 2025@20:45:35                                                                                                                                                                                                     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       ;