source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EAS120P.m@ 1261

Last change on this file since 1261 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1EAS120P ;ALB/AEG - EAS*1*20 POST-INSTALL ;10-1-2002
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**20**;MAR 15,2001
3 ;
4EN ; MAIN ENTRY POINT.
5 N NSPACE,CVER
6 S NSPACE="IVMC"
7 ; check for existence of 'IVMC' namespace in package file (#9.4)
8 S CVER=$$VERSION^XPDUTL("IVMC")
9 I CVER']"" D Q
10 .D BMES^XPDUTL("SITE "_$$GETSITE^DGMTU4(.DUZ)_" IS NOT A DCD PILOT SITE")
11 .D MES^XPDUTL("POST-INSTALLATION COMPLETE")
12 .Q
13 I CVER]"" D Q
14 .I $G(DT)<3021015 D
15 ..D QUEUE
16 ..Q
17 .I $G(DT)>3021014 D
18 ..N IEN
19 ..S IEN=$$GETIEN()
20 ..D:$G(IEN)>0 CLEANIT(IEN)
21 ..D QUIT
22 ..Q
23 .Q
24 Q
25 ;
26QUEUE ; Queue this process to run at 1 minute past midnight on 10/15/02
27 N ZTRTN,ZTSK,ZTKIL,ZTSAVE,ZTDESC,ZTDTH,ZTIO
28 S ZTRTN="EN1^EAS120P",ZTSAVE("*")="",ZTIO=""
29 S ZTDESC="EAS*1*20 POST-INSTALL",ZTDTH=3021015.0001
30 D ^%ZTLOAD
31 I $G(ZTSK)>0 D
32 .D BMES^XPDUTL("EAS*1*20 POST INSTALL TASK #"_ZTSK_" QUEUED TO RUN "_$$FMTE^XLFDT(3021015.0001))
33 D HOME^%ZIS
34 Q
35 ;
36EN1 ; Main Entry Point to queue current version cleanup of "IVMC"
37 ; package file entry.
38 ;
39 N IEN
40 S IEN=$$GETIEN()
41 D:$G(IEN)>0 CLEANIT(IEN)
42 D QUIT
43 Q
44 ;
45GETIEN() ; Get IEN
46 N IEN,NSPACE
47 S NSPACE="IVMC"
48 S IEN=$O(^DIC(9.4,"C",NSPACE,0)) S:IEN'>0 IEN=$O(^DIC(9.4,"B",NSPACE,0))
49 Q IEN
50 ;
51CLEANIT(IEN) ;
52 ; Input : IEN = internal entry number of package file entry (#9.4)
53 ; Output: none.
54 ;
55 N FIELD,FILE
56 S FIELD=13,FILE=9.4
57 S DATA(FIELD)="@"
58 I $$UPD^DGENDBS(FILE,IEN,.DATA)
59 Q
60 ;
61QUIT ;
62 Q
Note: See TracBrowser for help on using the repository browser.