DG53217P.m

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")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53217P   311     printed  Nov 22, 2024@17:46:43                                                                                                                                                                                                     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