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 ---[H[J[2J[HEAS120P 1482 printed Apr 09, 2024@21:00:18 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
