DG53P803.m

DG53P803 ;ALB/DLF Set Enrollment group threshold to 'd' ; 6/8/09 5:51pm

 ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20

 Q

EN ;Post install entry point

 D MES^XPDUTL("Updating Enrollment Group Threshold file (#27.16)")

 N EGTIEN,DGENFDA,ERR,DIE

 S DGENFDA(27.16,"+1,",.01)=3090615

 S DGENFDA(27.16,"+1,",.02)=8

 S DGENFDA(27.16,"+1,",.03)=4

 S DGENFDA(27.16,"+1,",.04)=4

 S DGENFDA(27.16,"+1,",.06)=$$DT^XLFDT

 S DGENFDA(27.16,"+1,",25)="EGT set to 8d by patch DG*5.3*803"

 D UPDATE^DIE("","DGENFDA","","ERR")

 I $D(ERR) D MES^XPDUTL("   Could not set EGT entry in file #27.16")

 Q

DG53P803  ;ALB/DLF Set Enrollment group threshold to 'd' ; 6/8/09 5:51pm

 +1       ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20

 +2        QUIT 

EN        ;Post install entry point

 +1        DO MES^XPDUTL("Updating Enrollment Group Threshold file (#27.16)")

 +2        NEW EGTIEN,DGENFDA,ERR,DIE

 +3        SET DGENFDA(27.16,"+1,",.01)=3090615

 +4        SET DGENFDA(27.16,"+1,",.02)=8

 +5        SET DGENFDA(27.16,"+1,",.03)=4

 +6        SET DGENFDA(27.16,"+1,",.04)=4

 +7        SET DGENFDA(27.16,"+1,",.06)=$$DT^XLFDT

 +8        SET DGENFDA(27.16,"+1,",25)="EGT set to 8d by patch DG*5.3*803"

 +9        DO UPDATE^DIE("","DGENFDA","","ERR")

 +10       IF $DATA(ERR)

               DO MES^XPDUTL("   Could not set EGT entry in file #27.16")

 +11       QUIT