- 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 Feb 19, 2025@00:03:40 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