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

DG53217P.m

Go to the documentation of this file.

DG53217P ;ALB/GRR - POST INIT ROUTINE - CREATES AG XREF ON FIELD .07 IN FILE 408.31; MAR 18, 1999

 ;;5.3;Registration;**217**;AUG 13, 1993

 N DIK,DA,DIC

 D BMES^XPDUTL(" >>Creating new index for file 408.31")

 S DIK="^DGMT(408.31,",DIK(1)=".07^AG" D ENALL^DIK

 D BMES^XPDUTL(" >>Post Init completed")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53217P   311     printed  Apr 09, 2024@21:57:48                                                                                                                                                                                                     Page 2

DG53217P  ;ALB/GRR - POST INIT ROUTINE - CREATES AG XREF ON FIELD .07 IN FILE 408.31; MAR 18, 1999

 +1       ;;5.3;Registration;**217**;AUG 13, 1993

 +2        NEW DIK,DA,DIC

 +3        DO BMES^XPDUTL(" >>Creating new index for file 408.31")

 +4        SET DIK="^DGMT(408.31,"

           SET DIK(1)=".07^AG"

           DO ENALL^DIK

 +5        DO BMES^XPDUTL(" >>Post Init completed")

 +6        QUIT