DG306 ;ALB/LBD - Post-Install Routine for DG*5.3*306 ; 10-AUGUST-2000
;;5.3;Registration;**306**;Aug 13, 1993
;
;
Q
POST ; Entry point for post-installation process.
;
D POST1
D POST2
;
Q
;
POST1 ; KILL the "LAYGO" node that is on the #.01 field of the
; ENROLLMENT GROUP THRESHOLD file (#27.16). This node prevents any
; records from being added to the file. Reference DBIA 3180.
;
K ^DD(27.16,.01,"LAYGO")
Q
;
POST2 ;
D MES^XPDUTL("Updating Enrollment Group Threshold file (#27.16)")
N EGTIEN,DGENFDA,ERR
; if EGT entry already exists, delete it before setting new one
S EGTIEN=$$FINDCUR^DGENEGT()
I EGTIEN I $$DELETE^DGENEGT(EGTIEN)
S DGENFDA(27.16,"+1,",.01)=3001001
S DGENFDA(27.16,"+1,",.02)=7
S DGENFDA(27.16,"+1,",.03)=3
S DGENFDA(27.16,"+1,",.04)=1
S DGENFDA(27.16,"+1,",.06)=$$DT^XLFDT
S DGENFDA(27.16,"+1,",25)="EGT set to 7c by patch DG*5.3*306"
D UPDATE^DIE("","DGENFDA","","ERR")
I $D(ERR) D MES^XPDUTL(" Could not set EGT entry in file #27.16")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG306 1030 printed Nov 22, 2024@17:45:24 Page 2
DG306 ;ALB/LBD - Post-Install Routine for DG*5.3*306 ; 10-AUGUST-2000
+1 ;;5.3;Registration;**306**;Aug 13, 1993
+2 ;
+3 ;
+4 QUIT
POST ; Entry point for post-installation process.
+1 ;
+2 DO POST1
+3 DO POST2
+4 ;
+5 QUIT
+6 ;
POST1 ; KILL the "LAYGO" node that is on the #.01 field of the
+1 ; ENROLLMENT GROUP THRESHOLD file (#27.16). This node prevents any
+2 ; records from being added to the file. Reference DBIA 3180.
+3 ;
+4 KILL ^DD(27.16,.01,"LAYGO")
+5 QUIT
+6 ;
POST2 ;
+1 DO MES^XPDUTL("Updating Enrollment Group Threshold file (#27.16)")
+2 NEW EGTIEN,DGENFDA,ERR
+3 ; if EGT entry already exists, delete it before setting new one
+4 SET EGTIEN=$$FINDCUR^DGENEGT()
+5 IF EGTIEN
IF $$DELETE^DGENEGT(EGTIEN)
+6 SET DGENFDA(27.16,"+1,",.01)=3001001
+7 SET DGENFDA(27.16,"+1,",.02)=7
+8 SET DGENFDA(27.16,"+1,",.03)=3
+9 SET DGENFDA(27.16,"+1,",.04)=1
+10 SET DGENFDA(27.16,"+1,",.06)=$$DT^XLFDT
+11 SET DGENFDA(27.16,"+1,",25)="EGT set to 7c by patch DG*5.3*306"
+12 DO UPDATE^DIE("","DGENFDA","","ERR")
+13 IF $DATA(ERR)
DO MES^XPDUTL(" Could not set EGT entry in file #27.16")
+14 QUIT
