ENTIP89.m

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 ---ENTIP89   374     printed  Apr 09, 2024@20:57:50                                                                                                                                                                                                      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