EHM014PR ;ALB/WTC - EHRM TRANSITION ; Jan 23, 2024@13:44:25
;;1.0;ELECTRONIC HEALTH MODERNIZATION;**14**;Apr 19, 2021;Build 6
;
; Pre-install routine for EHM*1*14.
;
; DEL^XPDKEY - ICR #1367
;
Q ;
;
ENTRY ;
;
; Purge options and keys if installing the patch a second time.
;
I '$D(^DIC(19,"B","EHM-00001")) Q ;
;
D BMES^XPDUTL("Patch has already been installed at this site. Clearing existing options and keys.") ;
;
; Delete options created by 1st install.
;
N EHMOPTN ;
S EHMOPTN="EHM-A" F S EHMOPTN=$O(^DIC(19,"B",EHMOPTN),-1) Q:EHMOPTN'?1"EHM-"5N D DELTOPTN(EHMOPTN) ;
D DELTOPTN("EHM MAIN MENU") ;
;
D DEL^XPDKEY("EHM MGR"),DEL^XPDKEY("EHM HITT MENU") ;
;
D BMES^XPDUTL("Pre-install complete.")
Q ;
;
DELTOPTN(OPTNAME) ;
;
N DIC,X,IEN,Y,DIK,DA ;
;
K DIC S DIC=19,DIC(0)="",X=OPTNAME D ^DIC S IEN=+Y Q:IEN<0 ;
S DIK="^DIC(19,",DA=IEN D ^DIK ;
Q ;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEHM014PR 934 printed Aug 26, 2025@22:07:09 Page 2
EHM014PR ;ALB/WTC - EHRM TRANSITION ; Jan 23, 2024@13:44:25
+1 ;;1.0;ELECTRONIC HEALTH MODERNIZATION;**14**;Apr 19, 2021;Build 6
+2 ;
+3 ; Pre-install routine for EHM*1*14.
+4 ;
+5 ; DEL^XPDKEY - ICR #1367
+6 ;
+7 ;
QUIT
+8 ;
ENTRY ;
+1 ;
+2 ; Purge options and keys if installing the patch a second time.
+3 ;
+4 ;
IF '$DATA(^DIC(19,"B","EHM-00001"))
QUIT
+5 ;
+6 ;
DO BMES^XPDUTL("Patch has already been installed at this site. Clearing existing options and keys.")
+7 ;
+8 ; Delete options created by 1st install.
+9 ;
+10 ;
NEW EHMOPTN
+11 ;
SET EHMOPTN="EHM-A"
FOR
SET EHMOPTN=$ORDER(^DIC(19,"B",EHMOPTN),-1)
if EHMOPTN'?1"EHM-"5N
QUIT
DO DELTOPTN(EHMOPTN)
+12 ;
DO DELTOPTN("EHM MAIN MENU")
+13 ;
+14 ;
DO DEL^XPDKEY("EHM MGR")
DO DEL^XPDKEY("EHM HITT MENU")
+15 ;
+16 DO BMES^XPDUTL("Pre-install complete.")
+17 ;
QUIT
+18 ;
DELTOPTN(OPTNAME) ;
+1 ;
+2 ;
NEW DIC,X,IEN,Y,DIK,DA
+3 ;
+4 ;
KILL DIC
SET DIC=19
SET DIC(0)=""
SET X=OPTNAME
DO ^DIC
SET IEN=+Y
if IEN<0
QUIT
+5 ;
SET DIK="^DIC(19,"
SET DA=IEN
DO ^DIK
+6 ;
QUIT
+7 ;
