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