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
