source: FOIAVistA/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMV2IL.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 491 bytes
Line 
1PXRMV2IL ; SLC/AGP - Version 2.0 init routine. ;09/23/2004
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;
4 ;===============================================================
5DELETE ;Delete PXRM list templates so the updated version will be properly
6 ;installed.
7 N IEN,NAME,TEMP0
8 S NAME="" F S NAME=$O(^SD(409.61,"B",NAME)) Q:NAME="" D
9 .I $P(NAME," ")'="PXRM" Q
10 .S IEN=$O(^SD(409.61,"B",NAME,"")) Q:IEN=""
11 .S TEMP0=$G(^SD(409.61,IEN,0))
12 .K ^SD(409.61,IEN)
13 .S ^SD(409.61,IEN,0)=TEMP0
14 Q
15 ;
Note: See TracBrowser for help on using the repository browser.