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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCPRE04 254 printed Dec 13, 2024@02:16:40 Page 2
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
