Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: MCPRE04

MCPRE04.m

Go to the documentation of this file.

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)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCPRE04   254     printed  Apr 09, 2024@21:15:26                                                                                                                                                                                                      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