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 ---[H[J[2J[HDG53P766 493 printed Dec 13, 2024@02:40:04 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
