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 ---[H[J[2J[HDG53232P 639 printed Dec 13, 2024@02:36:48 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
