- 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 Mar 13, 2025@21:21:38 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
