Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.4 KB
|
Rev | Line | |
---|
[613] | 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.