Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DG53484P

DG53484P.m

Go to the documentation of this file.
  1. DG53484P ; ALB/MRY - ENVIRONMENT CHECK & POST INSTALL; 4/10/03 12:49pm
  1. ;;5.3;Registration;**484**;AUG 13, 1993
  1. ;;
  1. EN ;
  1. S XPDABORT=""
  1. D PROGCHK(.XPDABORT)
  1. I XPDABORT="" K XPDABORT
  1. ;
  1. Q
  1. ;
  1. PROGCHK(XPDABORT) ;
  1. I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") DO
  1. .D BMES^XPDUTL("*****")
  1. .D MES^XPDUTL("Your programming variables are not set up properly.")
  1. .D MES^XPDUTL("Installation aborted.")
  1. .D MES^XPDUTL("*****")
  1. .S XPDABORT=2
  1. .Q
  1. Q
  1. ;
  1. POST ;
  1. ; Change HL7 Application name
  1. D HLAPP("NPTF","NPTF-484")
  1. Q
  1. ;
  1. HLAPP(OLDNAME,NEWNAME) ;Change HL7 application name
  1. ;Input : OLDNAME - Name of HL7 application to change
  1. ; NEWNAME - New name for HL7 application
  1. ;Output : None
  1. ;Notes : Call designed to be used as a KIDS pre/post init
  1. S OLDNAME=$G(OLDNAME) Q:OLDNAME=""
  1. S NEWNAME=$G(NEWNAME) Q:NEWNAME=""
  1. N DIE,DIC,DA,DR,X,Y
  1. D BMES^XPDUTL("Changing HL7 Application name from "_OLDNAME_" to "_NEWNAME)
  1. S DIC="^HL(771,"
  1. S DIC(0)="X"
  1. S X=OLDNAME
  1. D ^DIC
  1. I (Y<0) D Q
  1. .D BMES^XPDUTL(" *** "_OLDNAME_" application not found ***")
  1. S DIE=DIC
  1. S DA=+Y
  1. S DR=".01///^S X=NEWNAME"
  1. D ^DIE
  1. D MES^XPDUTL("HL7 application name successfully changed to "_NEWNAME)
  1. Q