Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.4 KB
|
Line | |
---|
1 | EAS120P ;ALB/AEG - EAS*1*20 POST-INSTALL ;10-1-2002
|
---|
2 | ;;1.0;ENROLLMENT APPLICATION SYSTEM;**20**;MAR 15,2001
|
---|
3 | ;
|
---|
4 | EN ; 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 | ;
|
---|
26 | QUEUE ; 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 | ;
|
---|
36 | EN1 ; 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 | ;
|
---|
45 | GETIEN() ; 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 | ;
|
---|
51 | CLEANIT(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 | ;
|
---|
61 | QUIT ;
|
---|
62 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.