Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: DG53P769

DG53P769.m

Go to the documentation of this file.

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

 ;;5.3;Registration;**769**;Aug 13, 1993;Build 2

 ;; resets from ^DD(2,0,"ACT")="I '$G(DICR),$G(DIC(0))'[""I"" D ^DGSEC"

 S ^DD(2,0,"ACT")="I $G(DIC(0))'[""I"" D ^DGSEC"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53P769   224     printed  Dec 13, 2024@02:40:05                                                                                                                                                                                                     Page 2

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

 +1       ;;5.3;Registration;**769**;Aug 13, 1993;Build 2

 +2       ;; resets from ^DD(2,0,"ACT")="I '$G(DICR),$G(DIC(0))'[""I"" D ^DGSEC"

 +3       ;

 +4        SET ^DD(2,0,"ACT")="I $G(DIC(0))'[""I"" D ^DGSEC"

 +5        QUIT