Last change
on this file since 780 was 623, checked in by George Lilly, 15 years ago |
revised back to 6/30/08 version
|
File size:
495 bytes
|
Rev | Line | |
---|
[623] | 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.