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

ECX384PT.m

Go to the documentation of this file.

ECX384PT ;ALB/GTS - Extract Log Report for DSS ; 10/26/05 1:45pm

 ;;3.0;DSS EXTRACTS;**84**;Dec 22, 1997

EN ;entry point from option

 D BMES^XPDUTL("Creating new index for file 727 for START DATE/TIME field (#3) ")

 S DIK="^ECX(727,",DIK(1)="3^AE"

 D ENALL^DIK

 D BMES^XPDUTL("Indexing completed succesfully ")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX384PT   326     printed  Apr 09, 2024@20:59:07                                                                                                                                                                                                     Page 2

ECX384PT  ;ALB/GTS - Extract Log Report for DSS ; 10/26/05 1:45pm

 +1       ;;3.0;DSS EXTRACTS;**84**;Dec 22, 1997

 +2       ;

EN        ;entry point from option

 +1        DO BMES^XPDUTL("Creating new index for file 727 for START DATE/TIME field (#3) ")

 +2        SET DIK="^ECX(727,"

           SET DIK(1)="3^AE"

 +3        DO ENALL^DIK

 +4        DO BMES^XPDUTL("Indexing completed succesfully ")

 +5        QUIT