|
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
|
| 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.
