ENTIP89 ;ALB/CXW - EN*7*89 POST INIT
;;7.0;ENGINEERING;**89**;Aug 17, 1993;Build 20
;;
;This post-init routine is to index field #1 of file #6916.3.
START ;
D BMES^XPDUTL("Indexing ""AOA2"" x-ref in Owner field #1 of file 6916.3")
N U,DIK S U="^"
S DIK="^ENG(6916.3,"
S DIK(1)="1^AOA2"
D ENALL^DIK
;
D BMES^XPDUTL("Post-init process is complete.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENTIP89 374 printed Dec 13, 2024@01:55:49 Page 2
ENTIP89 ;ALB/CXW - EN*7*89 POST INIT
+1 ;;7.0;ENGINEERING;**89**;Aug 17, 1993;Build 20
+2 ;;
+3 ;This post-init routine is to index field #1 of file #6916.3.
START ;
+1 DO BMES^XPDUTL("Indexing ""AOA2"" x-ref in Owner field #1 of file 6916.3")
+2 NEW U,DIK
SET U="^"
+3 SET DIK="^ENG(6916.3,"
+4 SET DIK(1)="1^AOA2"
+5 DO ENALL^DIK
+6 ;
+7 DO BMES^XPDUTL("Post-init process is complete.")
+8 QUIT
