source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53P766.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 473 bytes
Line 
1DG53P766 ;ALB/JAT DELETE RECORDS ;5/10/07
2 ;;5.3;Registration;**766**;Aug 13, 1993;Build 3
3 N DA,DIK
4 S DIK="^DGCN(391.98,"
5 S DA=0
6 F S DA=$O(^DGCN(391.98,DA)) Q:'DA D ^DIK
7 S DIK="^DGCN(391.99,"
8 S DA=0
9 F S DA=$O(^DGCN(391.99,DA)) Q:'DA D ^DIK
10 ; delete any dangling cross-references
11 N DGJ
12 S DGJ=""
13 F S DGJ=$O(^DGCN(391.98,DGJ)) Q:DGJ="" D
14 .Q:DGJ=0
15 .K ^DGCN(391.98,DGJ)
16 S DGJ=""
17 F S DGJ=$O(^DGCN(391.99,DGJ)) Q:DGJ="" D
18 .Q:DGJ=0
19 .K ^DGCN(391.99,DGJ)
20 Q
Note: See TracBrowser for help on using the repository browser.