RC45301P.m

RC45301P ;ALB/BDB - CROSS-SERVICING PROJECT POST-INSTALL;3/31/15

 ;;4.5;Accounts Receivable;**301**;Mar 20, 1995;Build 144

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

 ; 1) This routine sets the Cross-Servicing Start Date into the

 ;       AR SITE PARAMETER file (#342)

 ; 2) Runs the Due Process Notification initialization process

 ;

ENTER ; Entry point for post-install

 D CS

 D DPNINIT

 Q

 ;

CS ; Set the Cross-Servicing Start Date equal to DT

 D BMES^XPDUTL(">>>Cross-Servicing Start Date set to "_DT_".")

 S ^RC(342,1,"CS")=DT

 Q

 ;

DPNINIT ;

 D BMES^XPDUTL(">>>Begin the Due Process Initialization.")

 D BMES^XPDUTL(">>>The Initialization may take up to 8 hours.")

 D ENTER^RCTCSP3

 D BMES^XPDUTL(">>>Due Process Initialization is complete.")

 K DPNINIT

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RC45301P   811     printed  Mar 13, 2025@20:46:56                                                                                                                                                                                                     Page 2

RC45301P  ;ALB/BDB - CROSS-SERVICING PROJECT POST-INSTALL;3/31/15

 +1       ;;4.5;Accounts Receivable;**301**;Mar 20, 1995;Build 144

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

 +3       ; 1) This routine sets the Cross-Servicing Start Date into the

 +4       ;       AR SITE PARAMETER file (#342)

 +5       ; 2) Runs the Due Process Notification initialization process

 +6       ;

ENTER     ; Entry point for post-install

 +1        DO CS

 +2        DO DPNINIT

 +3        QUIT 

 +4       ;

CS        ; Set the Cross-Servicing Start Date equal to DT

 +1        DO BMES^XPDUTL(">>>Cross-Servicing Start Date set to "_DT_".")

 +2        SET ^RC(342,1,"CS")=DT

 +3        QUIT 

 +4       ;

DPNINIT   ;

 +1        DO BMES^XPDUTL(">>>Begin the Due Process Initialization.")

 +2        DO BMES^XPDUTL(">>>The Initialization may take up to 8 hours.")

 +3        DO ENTER^RCTCSP3

 +4        DO BMES^XPDUTL(">>>Due Process Initialization is complete.")

 +5        KILL DPNINIT

 +6        QUIT 

 +7       ;