DGJ1INIT.m

DGJ1INIT ;ALB/MRY - Env/Pre/Post-install of DGJ v1.0 ;[ 06/25/01 15:51 pm]

 ;;1.0;Incomplete Records Tracking;;Jun 25, 2001

 ;

EN ;

 S XPDABORT=""

 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D  G ABRT

 . D BMES^XPDUTL("*****")

 . D MES^XPDUTL("Your programming variables are not set up properly.")

 . D MES^XPDUTL("Installation aborted.")

 ; Verify Registration v5.3 exists, else Quit.

 I $$VERSION^XPDUTL("DG")'=5.3 D  G ABRT

 . D BMES^XPDUTL("*****")

 . D MES^XPDUTL("VERSION 5.3 OF REGISTRATION HAS NOT BEEN LOADED.")

 . D MES^XPDUTL("Installation aborted.")

 ;

 ; Verify 'DGJ' was removed from Additional Prefixes of REGISTRATION.

 N DIC

 S DIC="^DIC(9.4,",DIC(0)="X",X="REGISTRATION"

 D ^DIC I Y<0 D  G ABRT

 . D BMES^XPDUTL("*****")

 . D MES^XPDUTL("REGISTRATION PACKAGE HAS NOT BEEN FOUND")

 . D MES^XPDUTL("CONTACT - PIMS National VISTA Support Team for assistance!")

 . D MES^XPDUTL("Installation aborted.")

 S DA(1)=+Y,DIC=DIC_DA(1)_",14,"

 S DIC(0)="X",DIC("P")=$P(^DD(9.4,14,0),"^",2),X="DGJ"

 D ^DIC I Y>0 D  G ABRT

 . D BMES^XPDUTL("*****")

 . D MES^XPDUTL("'DGJ' must be removed from REGISTRATION's Additional Prefix field.")

 . D MES^XPDUTL("Follow INSTALLATION instructions found in the Installation Guide.")

 . D MES^XPDUTL("Installation aborted.")

 K DA,DIC

 ;

 ; If previous beta version with different name, then correct name.

 D FIND^DIC(9.4,"","@;1;.01","P","DGJ","","C","","","DGJARRY")

 S DGJI=0

 F  S DGJI=$O(DGJARRY("DILIST",DGJI)) Q:'DGJI  D

 . S X=$G(DGJARRY("DILIST",DGJI,0)),DGJIEN=$P(X,"^",1)

 . I $P(X,"^",2)="DGJ",$P(X,"^",3)'="INCOMPLETE RECORDS TRACKING" D

 . . ; Correct old name to this version name.

 . . S FDATA(9.4,DGJIEN_",",.01)="INCOMPLETE RECORDS TRACKING"

 . . D FILE^DIE("E","FDATA","ERR")

 K DGJI,DGJIEN,X,FDATA,ERR,DGJARRY

 ;

OK K DIE,DR,DA,Y

 ;

 W !!,"Environment check completed and okay."

 Q

 ;

POST ; - Run Post-init to Update Package entry for 'DGJ'.

 D ^DGJ1INIP

 Q

ABRT S XPDABORT=2 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGJ1INIT   2002     printed  Apr 23, 2025@18:14:52                                                                                                                                                                                                    Page 2

DGJ1INIT  ;ALB/MRY - Env/Pre/Post-install of DGJ v1.0 ;[ 06/25/01 15:51 pm]

 +1       ;;1.0;Incomplete Records Tracking;;Jun 25, 2001

 +2       ;

EN        ;

 +1        SET XPDABORT=""

 +2        IF '$GET(DUZ)!($GET(DUZ(0))'="@")!('$GET(DT))!($GET(U)'="^")

               Begin DoDot:1

 +3                DO BMES^XPDUTL("*****")

 +4                DO MES^XPDUTL("Your programming variables are not set up properly.")

 +5                DO MES^XPDUTL("Installation aborted.")

               End DoDot:1

               GOTO ABRT

 +6       ; Verify Registration v5.3 exists, else Quit.

 +7        IF $$VERSION^XPDUTL("DG")'=5.3

               Begin DoDot:1

 +8                DO BMES^XPDUTL("*****")

 +9                DO MES^XPDUTL("VERSION 5.3 OF REGISTRATION HAS NOT BEEN LOADED.")

 +10               DO MES^XPDUTL("Installation aborted.")

               End DoDot:1

               GOTO ABRT

 +11      ;

 +12      ; Verify 'DGJ' was removed from Additional Prefixes of REGISTRATION.

 +13       NEW DIC

 +14       SET DIC="^DIC(9.4,"

           SET DIC(0)="X"

           SET X="REGISTRATION"

 +15       DO ^DIC

           IF Y<0

               Begin DoDot:1

 +16               DO BMES^XPDUTL("*****")

 +17               DO MES^XPDUTL("REGISTRATION PACKAGE HAS NOT BEEN FOUND")

 +18               DO MES^XPDUTL("CONTACT - PIMS National VISTA Support Team for assistance!")

 +19               DO MES^XPDUTL("Installation aborted.")

               End DoDot:1

               GOTO ABRT

 +20       SET DA(1)=+Y

           SET DIC=DIC_DA(1)_",14,"

 +21       SET DIC(0)="X"

           SET DIC("P")=$PIECE(^DD(9.4,14,0),"^",2)

           SET X="DGJ"

 +22       DO ^DIC

           IF Y>0

               Begin DoDot:1

 +23               DO BMES^XPDUTL("*****")

 +24               DO MES^XPDUTL("'DGJ' must be removed from REGISTRATION's Additional Prefix field.")

 +25               DO MES^XPDUTL("Follow INSTALLATION instructions found in the Installation Guide.")

 +26               DO MES^XPDUTL("Installation aborted.")

               End DoDot:1

               GOTO ABRT

 +27       KILL DA,DIC

 +28      ;

 +29      ; If previous beta version with different name, then correct name.

 +30       DO FIND^DIC(9.4,"","@;1;.01","P","DGJ","","C","","","DGJARRY")

 +31       SET DGJI=0

 +32       FOR 

               SET DGJI=$ORDER(DGJARRY("DILIST",DGJI))

               if 'DGJI

                   QUIT 

               Begin DoDot:1

 +33               SET X=$GET(DGJARRY("DILIST",DGJI,0))

                   SET DGJIEN=$PIECE(X,"^",1)

 +34               IF $PIECE(X,"^",2)="DGJ"

                       IF $PIECE(X,"^",3)'="INCOMPLETE RECORDS TRACKING"

                           Begin DoDot:2

 +35      ; Correct old name to this version name.

 +36                           SET FDATA(9.4,DGJIEN_",",.01)="INCOMPLETE RECORDS TRACKING"

 +37                           DO FILE^DIE("E","FDATA","ERR")

                           End DoDot:2

               End DoDot:1

 +38       KILL DGJI,DGJIEN,X,FDATA,ERR,DGJARRY

 +39      ;

OK         KILL DIE,DR,DA,Y

 +1       ;

 +2        WRITE !!,"Environment check completed and okay."

 +3        QUIT 

 +4       ;

POST      ; - Run Post-init to Update Package entry for 'DGJ'.

 +1        DO ^DGJ1INIP

 +2        QUIT 

ABRT       SET XPDABORT=2

           QUIT