DG53508 ;BPFO/JRP - POST-INIT ROUTINE;6/11/2003
;;5.3;Registration;**508**;Aug 13, 1993
;
; - This was copied from SD*5.3*239
;
POST ;Main entry point for post init
;Change HL7 application name
D HLAPP("NPTF-484","NPTF-508")
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[HDG53508 931 printed Dec 13, 2024@02:37:40 Page 2
DG53508 ;BPFO/JRP - POST-INIT ROUTINE;6/11/2003
+1 ;;5.3;Registration;**508**;Aug 13, 1993
+2 ;
+3 ; - This was copied from SD*5.3*239
+4 ;
POST ;Main entry point for post init
+1 ;Change HL7 application name
+2 DO HLAPP("NPTF-484","NPTF-508")
+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
