DG306.m

DG306 ;ALB/LBD - Post-Install Routine for DG*5.3*306 ; 10-AUGUST-2000

 ;;5.3;Registration;**306,1015**;Aug 13, 1993;Build 21

 ;

 ;

 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

DG306     ;ALB/LBD - Post-Install Routine for DG*5.3*306 ; 10-AUGUST-2000

 +1       ;;5.3;Registration;**306,1015**;Aug 13, 1993;Build 21

 +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