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