DG53484P ; ALB/MRY - ENVIRONMENT CHECK & POST INSTALL; 4/10/03 12:49pm
;;5.3;Registration;**484**;AUG 13, 1993
;;
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53484P 1234 printed Dec 13, 2024@02:37:36 Page 2
DG53484P ; ALB/MRY - ENVIRONMENT CHECK & POST INSTALL; 4/10/03 12:49pm
+1 ;;5.3;Registration;**484**;AUG 13, 1993
+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
