|
Last change
on this file since 714 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
491 bytes
|
| Line | |
|---|
| 1 | PXRMV2IL ; SLC/AGP - Version 2.0 init routine. ;09/23/2004
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
|
|---|
| 3 | ;
|
|---|
| 4 | ;===============================================================
|
|---|
| 5 | DELETE ;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.
