Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RC45P397

RC45P397.m

Go to the documentation of this file.
  1. RC45P397 ;EDE/LLB - POST-INSTALL FOR PRCA*4.5*397 ;29-FEB-2022
  1. ;;4.5;Accounts Receivable;**397**;Mar 20,1995;Build 7
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. SETPARAM ; set default value for IB site parameter 350.9/71.01
  1. N DA,DIE,DR,X,Y
  1. D MES^XPDUTL("Setting default statement size limit AR SITE PARAMETER file...")
  1. S DA=1,DIE=342,DR="101///^S X=646" D ^DIE
  1. D MES^XPDUTL("Done.")
  1. K DA,DIE,DR,X,Y
  1. Q