[613] | 1 | DGJ1INIT ;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 | ;
|
---|
| 4 | EN ;
|
---|
| 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 | ;
|
---|
| 44 | OK K DIE,DR,DA,Y
|
---|
| 45 | ;
|
---|
| 46 | W !!,"Environment check completed and okay."
|
---|
| 47 | Q
|
---|
| 48 | ;
|
---|
| 49 | POST ; - Run Post-init to Update Package entry for 'DGJ'.
|
---|
| 50 | D ^DGJ1INIP
|
---|
| 51 | Q
|
---|
| 52 | ABRT S XPDABORT=2 Q
|
---|