Last change
on this file since 1578 was 623, checked in by George Lilly, 15 years ago |
revised back to 6/30/08 version
|
File size:
495 bytes
|
Line | |
---|
1 | PXRMEDIT ; SLC/PKR - Clinical Reminder edit driver. ;05/18/2000
|
---|
2 | ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
|
---|
3 | ;
|
---|
4 | EDIT(ROOT,IENN) ;Call the appropriate edit routine.
|
---|
5 | ;Taxonomy
|
---|
6 | I ROOT="^PXD(811.2," D EDIT^PXRMTEDT(ROOT,IENN) Q
|
---|
7 | ;
|
---|
8 | ;Reminder term
|
---|
9 | I ROOT="^PXRMD(811.5," D EDIT^PXRMTMED(ROOT,IENN) Q
|
---|
10 | ;
|
---|
11 | ;Reminder
|
---|
12 | I ROOT="^PXD(811.9," D
|
---|
13 | .;Build list of finding types for finding edit
|
---|
14 | . N DEF,DEF1,DEF2 D DEF^PXRMRUTL("811.902",.DEF,.DEF1,.DEF2)
|
---|
15 | .;Edit reminder
|
---|
16 | . D ALL^PXRMREDT(ROOT,IENN) Q
|
---|
17 | Q
|
---|
18 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.