FH43P.m

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 ---FH43P   553     printed  Apr 09, 2024@20:51:43                                                                                                                                                                                                        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