ADEPKDEL.m

ADEPKDEL ;IHS/HQW/MJL - DELETE ADE NAMESPACED ITEMS ;08:08 PM  [ 03/24/1999   8:35 AM ]

 ;;6.0;ADE;;APRIL 1999

 ;

 ;Deletes all ADE namespaced templates, options, help frames, keys

 ;EXCEPT option ADEMENU and keys ADEZMENU and ADEZMSUPFUN

 ;

START S ADEPKNSP="ADE"

 S ADEQUIT=ADEPKNSP_"{"

 F ADEPKGLO="^DIBT(","^DIPT(","^DIE(","^DIC(19,","^DIC(9.2," D DELETE

 S ADEPKGLO="^DIC(19.1," D DELETE

 W !

 ;Delete all menu items in ADEMENU

 S ADEMENU=$O(^DIC(19,"B","ADEMENU",0))

 G:'+ADEMENU A

 S DA(1)=ADEMENU

 S DIK="^DIC(19,"_ADEMENU_",10,"

 S DA=0

 F  S DA=$O(^DIC(19,ADEMENU,10,DA)) Q:'+DA  D ^DIK

A D EOJ

 Q

 ;

DELETE W !!,"Now deleting `",ADEPKNSP,"' namespaced ",$P(@(ADEPKGLO_"0)"),U)_"S..."

 S ADENSPC=ADEPKNSP

 I $D(@(ADEPKGLO_"""B"",ADENSPC)")) D

 . S DA=$O(@(ADEPKGLO_"""B"",ADENSPC,"""")"))

 . S DIK=ADEPKGLO

 . D ^DIK

 . K DIK,DA

 F  S ADENSPC=$O(@(ADEPKGLO_"""B"",ADENSPC)")) Q:ADENSPC=""!(ADENSPC]ADEQUIT)  D

 . S DA=$O(@(ADEPKGLO_"""B"",ADENSPC,"""")"))

 . I ADENSPC="ADEMENU"!(ADENSPC="ADEZMENU")!(ADENSPC="ADEZMSUPFUN") Q

 . W !,?3,ADENSPC

 . S DIK=ADEPKGLO

 . D ^DIK

 . K DIK,DA

 Q

 ;

EOJ K ADEPKGLO,ADEPKEY,ADESTP,ADEPKNSP,ADENSPC,ADEQUIT,ADERUN,ADEDOC,DUOUT,DTOUT

 Q

ADEPKDEL  ;IHS/HQW/MJL - DELETE ADE NAMESPACED ITEMS ;08:08 PM  [ 03/24/1999   8:35 AM ]

 +1       ;;6.0;ADE;;APRIL 1999

 +2       ;

 +3       ;Deletes all ADE namespaced templates, options, help frames, keys

 +4       ;EXCEPT option ADEMENU and keys ADEZMENU and ADEZMSUPFUN

 +5       ;

START      SET ADEPKNSP="ADE"

 +1        SET ADEQUIT=ADEPKNSP_"{"

 +2        FOR ADEPKGLO="^DIBT(","^DIPT(","^DIE(","^DIC(19,","^DIC(9.2,"

               DO DELETE

 +3        SET ADEPKGLO="^DIC(19.1,"

           DO DELETE

 +4        WRITE !

 +5       ;Delete all menu items in ADEMENU

 +6        SET ADEMENU=$ORDER(^DIC(19,"B","ADEMENU",0))

 +7        IF '+ADEMENU

               GOTO A

 +8        SET DA(1)=ADEMENU

 +9        SET DIK="^DIC(19,"_ADEMENU_",10,"

 +10       SET DA=0

 +11       FOR 

               SET DA=$ORDER(^DIC(19,ADEMENU,10,DA))

               IF '+DA

                   QUIT 

               DO ^DIK

A          DO EOJ

 +1        QUIT 

 +2       ;

DELETE     WRITE !!,"Now deleting `",ADEPKNSP,"' namespaced ",$PIECE(@(ADEPKGLO_"0)"),U)_"S..."

 +1        SET ADENSPC=ADEPKNSP

 +2        IF $DATA(@(ADEPKGLO_"""B"",ADENSPC)"))

               Begin DoDot:1

 +3                SET DA=$ORDER(@(ADEPKGLO_"""B"",ADENSPC,"""")"))

 +4                SET DIK=ADEPKGLO

 +5                DO ^DIK

 +6                KILL DIK,DA

               End DoDot:1

 +7        FOR 

               SET ADENSPC=$ORDER(@(ADEPKGLO_"""B"",ADENSPC)"))

               IF ADENSPC=""!(ADENSPC]ADEQUIT)

                   QUIT 

               Begin DoDot:1

 +8                SET DA=$ORDER(@(ADEPKGLO_"""B"",ADENSPC,"""")"))

 +9                IF ADENSPC="ADEMENU"!(ADENSPC="ADEZMENU")!(ADENSPC="ADEZMSUPFUN")

                       QUIT 

 +10               WRITE !,?3,ADENSPC

 +11               SET DIK=ADEPKGLO

 +12               DO ^DIK

 +13               KILL DIK,DA

               End DoDot:1

 +14       QUIT 

 +15      ;

EOJ        KILL ADEPKGLO,ADEPKEY,ADESTP,ADEPKNSP,ADENSPC,ADEQUIT,ADERUN,ADEDOC,DUOUT,DTOUT

 +1        QUIT