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 ---[H[J[2J[HRC45301P 811 printed Dec 13, 2024@01:42:15 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 ;
