MCPRE04.m

MCPRE04 ;HIRMFO/DAD-MCNP GLOBAL CLEANUP ;5/13/96  11:14

 ;;2.3;Medicine;;09/13/1996

 ;

 N MC,MCPRE08

 S MCPRE08(1)=""

 S MCPRE08(2)="Cleaning up the ^MCNP global."

 D MES^XPDUTL(.MCPRE08)

 S MC=""

 F  S MC=$O(^MCNP(MC)) Q:MC=""  K ^MCNP(MC)

 Q

MCPRE04   ;HIRMFO/DAD-MCNP GLOBAL CLEANUP ;5/13/96  11:14

 +1       ;;2.3;Medicine;;09/13/1996

 +2       ;

 +3        NEW MC,MCPRE08

 +4        SET MCPRE08(1)=""

 +5        SET MCPRE08(2)="Cleaning up the ^MCNP global."

 +6        DO MES^XPDUTL(.MCPRE08)

 +7        SET MC=""

 +8        FOR 

               SET MC=$ORDER(^MCNP(MC))

               IF MC=""

                   QUIT 

               KILL ^MCNP(MC)

 +9        QUIT