source: FOIAVistA/trunk/r/MEDICINE-MC/MCPRE04.m@ 840

Last change on this file since 840 was 628, checked in by George Lilly, 16 years ago

initial load of FOIAVistA 6/30/08 version
File size: 244 bytes
Line 
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.