SD5374PT.m

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 ---SD5374PT   552     printed  Apr 09, 2024@22:02:57                                                                                                                                                                                                     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