DG53P766.m

DG53P766 ;ALB/JAT DELETE RECORDS ;5/10/07

 ;;5.3;Registration;**766**;Aug 13, 1993;Build 3

 N DA,DIK

 S DIK="^DGCN(391.98,"

 S DA=0

 F  S DA=$O(^DGCN(391.98,DA)) Q:'DA  D ^DIK

 S DIK="^DGCN(391.99,"

 S DA=0

 F  S DA=$O(^DGCN(391.99,DA)) Q:'DA  D ^DIK

 ; delete any dangling cross-references

 N DGJ

 S DGJ=""

 F  S DGJ=$O(^DGCN(391.98,DGJ)) Q:DGJ=""  D

 .Q:DGJ=0

 .K ^DGCN(391.98,DGJ)

 S DGJ=""

 F  S DGJ=$O(^DGCN(391.99,DGJ)) Q:DGJ=""  D

 .Q:DGJ=0

 .K ^DGCN(391.99,DGJ)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53P766   493     printed  Feb 19, 2025@00:06:08                                                                                                                                                                                                     Page 2

DG53P766  ;ALB/JAT DELETE RECORDS ;5/10/07

 +1       ;;5.3;Registration;**766**;Aug 13, 1993;Build 3

 +2        NEW DA,DIK

 +3        SET DIK="^DGCN(391.98,"

 +4        SET DA=0

 +5        FOR 

               SET DA=$ORDER(^DGCN(391.98,DA))

               if 'DA

                   QUIT 

               DO ^DIK

 +6        SET DIK="^DGCN(391.99,"

 +7        SET DA=0

 +8        FOR 

               SET DA=$ORDER(^DGCN(391.99,DA))

               if 'DA

                   QUIT 

               DO ^DIK

 +9       ; delete any dangling cross-references

 +10       NEW DGJ

 +11       SET DGJ=""

 +12       FOR 

               SET DGJ=$ORDER(^DGCN(391.98,DGJ))

               if DGJ=""

                   QUIT 

               Begin DoDot:1

 +13               if DGJ=0

                       QUIT 

 +14               KILL ^DGCN(391.98,DGJ)

               End DoDot:1

 +15       SET DGJ=""

 +16       FOR 

               SET DGJ=$ORDER(^DGCN(391.99,DGJ))

               if DGJ=""

                   QUIT 

               Begin DoDot:1

 +17               if DGJ=0

                       QUIT 

 +18               KILL ^DGCN(391.99,DGJ)

               End DoDot:1

 +19       QUIT