ADE697C.m

ADE697C ;IHS/HQW/MJL DENTAL POST-INIT  [ 03/24/1999   8:35 AM ]

 ;;6.0;ADE;;APRIL 1999

 ;

 ;

COMPILE ;EP - Delete  old compiled statistics and recompile

 ;

 N DA,DIK

 S DA=0,DIK="^ADEKNT(" F  S DA=$O(^ADEKNT(DA)) Q:'+DA  D

 . D ^DIK

 D EN^ADEKNS

 Q

ADE697C   ;IHS/HQW/MJL DENTAL POST-INIT  [ 03/24/1999   8:35 AM ]

 +1       ;;6.0;ADE;;APRIL 1999

 +2       ;

 +3       ;

COMPILE   ;EP - Delete  old compiled statistics and recompile

 +1       ;

 +2        NEW DA,DIK

 +3        SET DA=0

           SET DIK="^ADEKNT("

           FOR 

               SET DA=$ORDER(^ADEKNT(DA))

               IF '+DA

                   QUIT 

               Begin DoDot:1

 +4                DO ^DIK

               End DoDot:1

 +5        DO EN^ADEKNS

 +6        QUIT