source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCPRE04.m@ 1211

Last change on this file since 1211 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 244 bytes
RevLine 
[613]1MCPRE04 ;HIRMFO/DAD-MCNP GLOBAL CLEANUP ;5/13/96 11:14
2 ;;2.3;Medicine;;09/13/1996
3 ;
4 N MC,MCPRE08
5 S MCPRE08(1)=""
6 S MCPRE08(2)="Cleaning up the ^MCNP global."
7 D MES^XPDUTL(.MCPRE08)
8 S MC=""
9 F S MC=$O(^MCNP(MC)) Q:MC="" K ^MCNP(MC)
10 Q
Note: See TracBrowser for help on using the repository browser.