DG53232P.m

DG53232P ;ALB/KCL - DG*5.3*232 Post-Install Driver ; 20-MAY-1999

 ;;5.3;Registration;**232**;Aug 13, 1993

 ;

 ;

EN ; Description: This entry point will be used as a driver for

 ;  post-installation updates.

 ;

 N ERROR

 ;

 ; - Inactivate CATASTROPHICALLY DISABLED Eligibility Code

 S ERROR=$$INACT^DG53232A

 I ERROR'="",ERROR'=0 D BMES^XPDUTL("**** ERROR: "_ERROR_" ****")

 ;

 ; - Load contents of #27.17 CATASTROPHIC DISABILITY REASONS

 S ERROR=$$LOAD2717^DG53232A

 I ERROR'="",ERROR'=0 D BMES^XPDUTL("**** ERROR: "_ERROR_" ****")

 ;

 ; - Send HEC a notification msg that patch was installed

 D NOTIFY^DG53232A

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53232P   639     printed  Apr 09, 2024@21:39:29                                                                                                                                                                                                     Page 2

DG53232P  ;ALB/KCL - DG*5.3*232 Post-Install Driver ; 20-MAY-1999

 +1       ;;5.3;Registration;**232**;Aug 13, 1993

 +2       ;

 +3       ;

EN        ; Description: This entry point will be used as a driver for

 +1       ;  post-installation updates.

 +2       ;

 +3        NEW ERROR

 +4       ;

 +5       ; - Inactivate CATASTROPHICALLY DISABLED Eligibility Code

 +6        SET ERROR=$$INACT^DG53232A

 +7        IF ERROR'=""

               IF ERROR'=0

                   DO BMES^XPDUTL("**** ERROR: "_ERROR_" ****")

 +8       ;

 +9       ; - Load contents of #27.17 CATASTROPHIC DISABILITY REASONS

 +10       SET ERROR=$$LOAD2717^DG53232A

 +11       IF ERROR'=""

               IF ERROR'=0

                   DO BMES^XPDUTL("**** ERROR: "_ERROR_" ****")

 +12      ;

 +13      ; - Send HEC a notification msg that patch was installed

 +14       DO NOTIFY^DG53232A

 +15      ;

 +16       QUIT