source: WorldVistAEHR/trunk/r/DSS_EXTRACTS-ECX/ECX384PT.m@ 619

Last change on this file since 619 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 317 bytes
RevLine 
[613]1ECX384PT ;ALB/GTS - Extract Log Report for DSS ; 10/26/05 1:45pm
2 ;;3.0;DSS EXTRACTS;**84**;Dec 22, 1997
3 ;
4EN ;entry point from option
5 D BMES^XPDUTL("Creating new index for file 727 for START DATE/TIME field (#3) ")
6 S DIK="^ECX(727,",DIK(1)="3^AE"
7 D ENALL^DIK
8 D BMES^XPDUTL("Indexing completed succesfully ")
9 Q
Note: See TracBrowser for help on using the repository browser.