source: FOIAVistA/trunk/r/INCOMPLETE_RECORDS_TRACKING-DGJ/DGJ1INIT.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1DGJ1INIT ;ALB/MRY - Env/Pre/Post-install of DGJ v1.0 ;[ 06/25/01 15:51 pm]
2 ;;1.0;Incomplete Records Tracking;;Jun 25, 2001
3 ;
4EN ;
5 S XPDABORT=""
6 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D G ABRT
7 . D BMES^XPDUTL("*****")
8 . D MES^XPDUTL("Your programming variables are not set up properly.")
9 . D MES^XPDUTL("Installation aborted.")
10 ; Verify Registration v5.3 exists, else Quit.
11 I $$VERSION^XPDUTL("DG")'=5.3 D G ABRT
12 . D BMES^XPDUTL("*****")
13 . D MES^XPDUTL("VERSION 5.3 OF REGISTRATION HAS NOT BEEN LOADED.")
14 . D MES^XPDUTL("Installation aborted.")
15 ;
16 ; Verify 'DGJ' was removed from Additional Prefixes of REGISTRATION.
17 N DIC
18 S DIC="^DIC(9.4,",DIC(0)="X",X="REGISTRATION"
19 D ^DIC I Y<0 D G ABRT
20 . D BMES^XPDUTL("*****")
21 . D MES^XPDUTL("REGISTRATION PACKAGE HAS NOT BEEN FOUND")
22 . D MES^XPDUTL("CONTACT - PIMS National VISTA Support Team for assistance!")
23 . D MES^XPDUTL("Installation aborted.")
24 S DA(1)=+Y,DIC=DIC_DA(1)_",14,"
25 S DIC(0)="X",DIC("P")=$P(^DD(9.4,14,0),"^",2),X="DGJ"
26 D ^DIC I Y>0 D G ABRT
27 . D BMES^XPDUTL("*****")
28 . D MES^XPDUTL("'DGJ' must be removed from REGISTRATION's Additional Prefix field.")
29 . D MES^XPDUTL("Follow INSTALLATION instructions found in the Installation Guide.")
30 . D MES^XPDUTL("Installation aborted.")
31 K DA,DIC
32 ;
33 ; If previous beta version with different name, then correct name.
34 D FIND^DIC(9.4,"","@;1;.01","P","DGJ","","C","","","DGJARRY")
35 S DGJI=0
36 F S DGJI=$O(DGJARRY("DILIST",DGJI)) Q:'DGJI D
37 . S X=$G(DGJARRY("DILIST",DGJI,0)),DGJIEN=$P(X,"^",1)
38 . I $P(X,"^",2)="DGJ",$P(X,"^",3)'="INCOMPLETE RECORDS TRACKING" D
39 . . ; Correct old name to this version name.
40 . . S FDATA(9.4,DGJIEN_",",.01)="INCOMPLETE RECORDS TRACKING"
41 . . D FILE^DIE("E","FDATA","ERR")
42 K DGJI,DGJIEN,X,FDATA,ERR,DGJARRY
43 ;
44OK K DIE,DR,DA,Y
45 ;
46 W !!,"Environment check completed and okay."
47 Q
48 ;
49POST ; - Run Post-init to Update Package entry for 'DGJ'.
50 D ^DGJ1INIP
51 Q
52ABRT S XPDABORT=2 Q
Note: See TracBrowser for help on using the repository browser.