RC45P401 ;EDE/LLB - POST-INSTALL FOR PRCA*4.5*401 ;01-JUL-2022
;;4.5;Accounts Receivable;**401**;Mar 20,1995;Build 28
;;Per VA Directive 6402, this routine should not be modified.
;
Q
;
SETPARAM ; set default value for AR SITE PARAMETER 342/2.01
N DA,DIE,DR,X,Y
D MES^XPDUTL("Setting AR PARAMETER file (#342) Comment 1 (field 2.01) to default value")
S DA=1,DIE=342,DR="2.01///^S X=""To pay your statement online, go to www.pay.gov or call 1-888-827-4817."""
D ^DIE
D MES^XPDUTL("Done.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRC45P401 514 printed Dec 13, 2024@01:42:21 Page 2
RC45P401 ;EDE/LLB - POST-INSTALL FOR PRCA*4.5*401 ;01-JUL-2022
+1 ;;4.5;Accounts Receivable;**401**;Mar 20,1995;Build 28
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 QUIT
+5 ;
SETPARAM ; set default value for AR SITE PARAMETER 342/2.01
+1 NEW DA,DIE,DR,X,Y
+2 DO MES^XPDUTL("Setting AR PARAMETER file (#342) Comment 1 (field 2.01) to default value")
+3 SET DA=1
SET DIE=342
SET DR="2.01///^S X=""To pay your statement online, go to www.pay.gov or call 1-888-827-4817."""
+4 DO ^DIE
+5 DO MES^XPDUTL("Done.")
+6 QUIT
