RC45P397.m

RC45P397 ;EDE/LLB - POST-INSTALL FOR PRCA*4.5*397 ;29-FEB-2022

 ;;4.5;Accounts Receivable;**397**;Mar 20,1995;Build 7

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

 ;

 Q

 ;

SETPARAM ; set default value for IB site parameter 350.9/71.01

 N DA,DIE,DR,X,Y

 D MES^XPDUTL("Setting default statement size limit AR SITE PARAMETER file...")

 S DA=1,DIE=342,DR="101///^S X=646" D ^DIE

 D MES^XPDUTL("Done.")

 K DA,DIE,DR,X,Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RC45P397   449     printed  Dec 13, 2024@01:42:20                                                                                                                                                                                                     Page 2

RC45P397  ;EDE/LLB - POST-INSTALL FOR PRCA*4.5*397 ;29-FEB-2022

 +1       ;;4.5;Accounts Receivable;**397**;Mar 20,1995;Build 7

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

 +3       ;

 +4        QUIT 

 +5       ;

SETPARAM  ; set default value for IB site parameter 350.9/71.01

 +1        NEW DA,DIE,DR,X,Y

 +2        DO MES^XPDUTL("Setting default statement size limit AR SITE PARAMETER file...")

 +3        SET DA=1

           SET DIE=342

           SET DR="101///^S X=646"

           DO ^DIE

 +4        DO MES^XPDUTL("Done.")

 +5        KILL DA,DIE,DR,X,Y

 +6        QUIT