SD5374PT ;ALB/SEK - POST-INSTALL FOR PATCH SD*5.3*74 ; 31 Oct 1996
;;5.3;Scheduling;**74**;SEP 25, 1993
EN ; This routine will be executed upon installation of the KIDS build.
;
; This routine will change the AMB CAR CLOSE OUT field (#703) in the
; SCHEDULING PARAMETER file (#404.91) to November 15, 1996.
;
N DIE,DR,DA,X
D BMES^XPDUTL("The AMB CARE CLOSE OUT field (#703) in the SCHEDULING")
D MES^XPDUTL("PARAMETER file (#404.91) is being changed to November 15, 1996.")
S DIE="^SD(404.91,",DR="703////2961115",DA=1
D ^DIE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD5374PT 552 printed Dec 13, 2024@02:45:28 Page 2
SD5374PT ;ALB/SEK - POST-INSTALL FOR PATCH SD*5.3*74 ; 31 Oct 1996
+1 ;;5.3;Scheduling;**74**;SEP 25, 1993
EN ; This routine will be executed upon installation of the KIDS build.
+1 ;
+2 ; This routine will change the AMB CAR CLOSE OUT field (#703) in the
+3 ; SCHEDULING PARAMETER file (#404.91) to November 15, 1996.
+4 ;
+5 NEW DIE,DR,DA,X
+6 DO BMES^XPDUTL("The AMB CARE CLOSE OUT field (#703) in the SCHEDULING")
+7 DO MES^XPDUTL("PARAMETER file (#404.91) is being changed to November 15, 1996.")
+8 SET DIE="^SD(404.91,"
SET DR="703////2961115"
SET DA=1
+9 DO ^DIE
+10 QUIT
