RC45P401.m

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 ---RC45P401   514     printed  Apr 09, 2024@20:52:12                                                                                                                                                                                                     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