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 ---[H[J[2J[HRC45P397 449 printed Oct 16, 2024@17:43:11 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
