AVAPPOST.m

AVAPPOST ;IHS/ORDC/LJF - POSTINIT TO DELETE AVAP PACKAGE ENTRY; [ 08/25/95  1:18 PM ]

 ;;93.2;VA SUPPORT FILES;;**6**;Build 12

 ;

 ; delete package entry with namespace of AVAP

 ; FELS used as scratch package to send files, templates,etc.

 S DA=$O(^DIC(9.4,"C","AVAP",0)) Q:DA=""

 W !!,"DELETING 'AVAP' PACKAGE ENTRY. . . ",!

 S DIK="^DIC(9.4," D ^DIK

 K DA,DIK Q

AVAPPOST  ;IHS/ORDC/LJF - POSTINIT TO DELETE AVAP PACKAGE ENTRY; [ 08/25/95  1:18 PM ]

 +1       ;;93.2;VA SUPPORT FILES;;**6**;Build 12

 +2       ;

 +3       ; delete package entry with namespace of AVAP

 +4       ; FELS used as scratch package to send files, templates,etc.

 +5        SET DA=$ORDER(^DIC(9.4,"C","AVAP",0))

           IF DA=""

               QUIT 

 +6        WRITE !!,"DELETING 'AVAP' PACKAGE ENTRY. . . ",!

 +7        SET DIK="^DIC(9.4,"

           DO ^DIK

 +8        KILL DA,DIK

           QUIT