FH43P ;EPIP/WLE - Remove three FILES for file ;9/14/18 3:45 PM
;;5.5;DIETETICS;**43**;Jan 28, 2005;Build 66
; PRE install routine for patch FH*5.5*43 to remove the entries from File 117.0243, 117.0241, 117.024
; created in previous patch versions
;
EN ;
I $D(^FH(117.0243,"B","FHNO2"))=0 Q
S DIK="^FH(117.0243,"
S DA="" F S DA=$O(^FH(117.0243,DA)) Q:DA="" D ^DIK
S DIK="^FH(117.024,"
S DA="" F S DA=$O(^FH(117.024,DA)) Q:DA="" D ^DIK
S DIK="^FH(117.0241,"
S DA="" F S DA=$O(^FH(117.0241,DA)) Q:DA="" D ^DIK
K DIK,DA
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFH43P 553 printed Dec 13, 2024@01:46:15 Page 2
FH43P ;EPIP/WLE - Remove three FILES for file ;9/14/18 3:45 PM
+1 ;;5.5;DIETETICS;**43**;Jan 28, 2005;Build 66
+2 ; PRE install routine for patch FH*5.5*43 to remove the entries from File 117.0243, 117.0241, 117.024
+3 ; created in previous patch versions
+4 ;
EN ;
+1 IF $DATA(^FH(117.0243,"B","FHNO2"))=0
QUIT
+2 SET DIK="^FH(117.0243,"
+3 SET DA=""
FOR
SET DA=$ORDER(^FH(117.0243,DA))
if DA=""
QUIT
DO ^DIK
+4 SET DIK="^FH(117.024,"
+5 SET DA=""
FOR
SET DA=$ORDER(^FH(117.024,DA))
if DA=""
QUIT
DO ^DIK
+6 SET DIK="^FH(117.0241,"
+7 SET DA=""
FOR
SET DA=$ORDER(^FH(117.0241,DA))
if DA=""
QUIT
DO ^DIK
+8 KILL DIK,DA
+9 QUIT
