21 lines
473 B
Mathematica
21 lines
473 B
Mathematica
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
|