EAS120P.m

EAS120P ;ALB/AEG - EAS*1*20 POST-INSTALL ;10-1-2002

 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**20**;MAR 15,2001

 ;

EN ; MAIN ENTRY POINT.

 N NSPACE,CVER

 S NSPACE="IVMC"

 ; check for existence of 'IVMC' namespace in package file (#9.4)

 S CVER=$$VERSION^XPDUTL("IVMC")

 I CVER']"" D  Q

 .D BMES^XPDUTL("SITE "_$$GETSITE^DGMTU4(.DUZ)_" IS NOT A DCD PILOT SITE")

 .D MES^XPDUTL("POST-INSTALLATION COMPLETE")

 .Q

 I CVER]"" D  Q

 .I $G(DT)<3021015 D

 ..D QUEUE

 ..Q

 .I $G(DT)>3021014 D

 ..N IEN

 ..S IEN=$$GETIEN()

 ..D:$G(IEN)>0 CLEANIT(IEN)

 ..D QUIT

 ..Q

 .Q

 Q

 ;

QUEUE ; Queue this process to run at 1 minute past midnight on 10/15/02

 N ZTRTN,ZTSK,ZTKIL,ZTSAVE,ZTDESC,ZTDTH,ZTIO

 S ZTRTN="EN1^EAS120P",ZTSAVE("*")="",ZTIO=""

 S ZTDESC="EAS*1*20 POST-INSTALL",ZTDTH=3021015.0001

 D ^%ZTLOAD

 I $G(ZTSK)>0 D

 .D BMES^XPDUTL("EAS*1*20 POST INSTALL TASK #"_ZTSK_" QUEUED TO RUN "_$$FMTE^XLFDT(3021015.0001))

 D HOME^%ZIS

 Q

 ;

EN1 ; Main Entry Point to queue current version cleanup of "IVMC"

 ; package file entry.

 ;

 N IEN

 S IEN=$$GETIEN()

 D:$G(IEN)>0 CLEANIT(IEN)

 D QUIT

 Q

 ;

GETIEN() ; Get IEN

 N IEN,NSPACE

 S NSPACE="IVMC"

 S IEN=$O(^DIC(9.4,"C",NSPACE,0)) S:IEN'>0 IEN=$O(^DIC(9.4,"B",NSPACE,0))

 Q IEN

 ;

CLEANIT(IEN) ;

 ; Input : IEN = internal entry number of package file entry (#9.4)

 ; Output: none.

 ;

 N FIELD,FILE

 S FIELD=13,FILE=9.4

 S DATA(FIELD)="@"

 I $$UPD^DGENDBS(FILE,IEN,.DATA)

 Q

 ;

QUIT ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EAS120P   1482     printed  Feb 18, 2025@23:19:44                                                                                                                                                                                                     Page 2

EAS120P   ;ALB/AEG - EAS*1*20 POST-INSTALL ;10-1-2002

 +1       ;;1.0;ENROLLMENT APPLICATION SYSTEM;**20**;MAR 15,2001

 +2       ;

EN        ; MAIN ENTRY POINT.

 +1        NEW NSPACE,CVER

 +2        SET NSPACE="IVMC"

 +3       ; check for existence of 'IVMC' namespace in package file (#9.4)

 +4        SET CVER=$$VERSION^XPDUTL("IVMC")

 +5        IF CVER']""

               Begin DoDot:1

 +6                DO BMES^XPDUTL("SITE "_$$GETSITE^DGMTU4(.DUZ)_" IS NOT A DCD PILOT SITE")

 +7                DO MES^XPDUTL("POST-INSTALLATION COMPLETE")

 +8                QUIT 

               End DoDot:1

               QUIT 

 +9        IF CVER]""

               Begin DoDot:1

 +10               IF $GET(DT)<3021015

                       Begin DoDot:2

 +11                       DO QUEUE

 +12                       QUIT 

                       End DoDot:2

 +13               IF $GET(DT)>3021014

                       Begin DoDot:2

 +14                       NEW IEN

 +15                       SET IEN=$$GETIEN()

 +16                       if $GET(IEN)>0

                               DO CLEANIT(IEN)

 +17                       DO QUIT

 +18                       QUIT 

                       End DoDot:2

 +19               QUIT 

               End DoDot:1

               QUIT 

 +20       QUIT 

 +21      ;

QUEUE     ; Queue this process to run at 1 minute past midnight on 10/15/02

 +1        NEW ZTRTN,ZTSK,ZTKIL,ZTSAVE,ZTDESC,ZTDTH,ZTIO

 +2        SET ZTRTN="EN1^EAS120P"

           SET ZTSAVE("*")=""

           SET ZTIO=""

 +3        SET ZTDESC="EAS*1*20 POST-INSTALL"

           SET ZTDTH=3021015.0001

 +4        DO ^%ZTLOAD

 +5        IF $GET(ZTSK)>0

               Begin DoDot:1

 +6                DO BMES^XPDUTL("EAS*1*20 POST INSTALL TASK #"_ZTSK_" QUEUED TO RUN "_$$FMTE^XLFDT(3021015.0001))

               End DoDot:1

 +7        DO HOME^%ZIS

 +8        QUIT 

 +9       ;

EN1       ; Main Entry Point to queue current version cleanup of "IVMC"

 +1       ; package file entry.

 +2       ;

 +3        NEW IEN

 +4        SET IEN=$$GETIEN()

 +5        if $GET(IEN)>0

               DO CLEANIT(IEN)

 +6        DO QUIT

 +7        QUIT 

 +8       ;

GETIEN()  ; Get IEN

 +1        NEW IEN,NSPACE

 +2        SET NSPACE="IVMC"

 +3        SET IEN=$ORDER(^DIC(9.4,"C",NSPACE,0))

           if IEN'>0

               SET IEN=$ORDER(^DIC(9.4,"B",NSPACE,0))

 +4        QUIT IEN

 +5       ;

CLEANIT(IEN) ;

 +1       ; Input : IEN = internal entry number of package file entry (#9.4)

 +2       ; Output: none.

 +3       ;

 +4        NEW FIELD,FILE

 +5        SET FIELD=13

           SET FILE=9.4

 +6        SET DATA(FIELD)="@"

 +7        IF $$UPD^DGENDBS(FILE,IEN,.DATA)

 +8        QUIT 

 +9       ;

QUIT      ;

 +1        QUIT