DG53484P.m

DG53484P ; ALB/MRY - ENVIRONMENT CHECK & POST INSTALL; 4/10/03 12:49pm

 ;;5.3;Registration;**484,1015**;AUG 13, 1993;Build 21

 ;;

EN ;

 S XPDABORT=""

 D PROGCHK(.XPDABORT)

 I XPDABORT="" K XPDABORT

 ;

 Q

 ;

PROGCHK(XPDABORT) ;

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

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

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

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

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

 .S XPDABORT=2

 .Q

 Q

 ;

POST ;

 ; Change HL7 Application name

 D HLAPP("NPTF","NPTF-484")

 Q

 ;

HLAPP(OLDNAME,NEWNAME) ;Change HL7 application name

 ;Input  : OLDNAME - Name of HL7 application to change

 ;         NEWNAME - New name for HL7 application

 ;Output : None

 ;Notes  : Call designed to be used as a KIDS pre/post init

 S OLDNAME=$G(OLDNAME) Q:OLDNAME=""

 S NEWNAME=$G(NEWNAME) Q:NEWNAME=""

 N DIE,DIC,DA,DR,X,Y

 D BMES^XPDUTL("Changing HL7 Application name from "_OLDNAME_" to "_NEWNAME)

 S DIC="^HL(771,"

 S DIC(0)="X"

 S X=OLDNAME

 D ^DIC

 I (Y<0) D  Q

 .D BMES^XPDUTL("   *** "_OLDNAME_" application not found ***")

 S DIE=DIC

 S DA=+Y

 S DR=".01///^S X=NEWNAME"

 D ^DIE

 D MES^XPDUTL("HL7 application name successfully changed to "_NEWNAME)

 Q

DG53484P  ; ALB/MRY - ENVIRONMENT CHECK & POST INSTALL; 4/10/03 12:49pm

 +1       ;;5.3;Registration;**484,1015**;AUG 13, 1993;Build 21

 +2       ;;

EN        ;

 +1        SET XPDABORT=""

 +2        DO PROGCHK(.XPDABORT)

 +3        IF XPDABORT=""

               KILL XPDABORT

 +4       ;

 +5        QUIT 

 +6       ;

PROGCHK(XPDABORT) ;

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

               Begin DoDot:1

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

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

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

 +5                DO MES^XPDUTL("*****")

 +6                SET XPDABORT=2

 +7                QUIT 

               End DoDot:1

 +8        QUIT 

 +9       ;

POST      ;

 +1       ; Change HL7 Application name

 +2        DO HLAPP("NPTF","NPTF-484")

 +3        QUIT 

 +4       ;

HLAPP(OLDNAME,NEWNAME) ;Change HL7 application name

 +1       ;Input  : OLDNAME - Name of HL7 application to change

 +2       ;         NEWNAME - New name for HL7 application

 +3       ;Output : None

 +4       ;Notes  : Call designed to be used as a KIDS pre/post init

 +5        SET OLDNAME=$GET(OLDNAME)

           IF OLDNAME=""

               QUIT 

 +6        SET NEWNAME=$GET(NEWNAME)

           IF NEWNAME=""

               QUIT 

 +7        NEW DIE,DIC,DA,DR,X,Y

 +8        DO BMES^XPDUTL("Changing HL7 Application name from "_OLDNAME_" to "_NEWNAME)

 +9        SET DIC="^HL(771,"

 +10       SET DIC(0)="X"

 +11       SET X=OLDNAME

 +12       DO ^DIC

 +13       IF (Y<0)

               Begin DoDot:1

 +14               DO BMES^XPDUTL("   *** "_OLDNAME_" application not found ***")

               End DoDot:1

               QUIT 

 +15       SET DIE=DIC

 +16       SET DA=+Y

 +17       SET DR=".01///^S X=NEWNAME"

 +18       DO ^DIE

 +19       DO MES^XPDUTL("HL7 application name successfully changed to "_NEWNAME)

 +20       QUIT