Last change
on this file since 794 was 628, checked in by George Lilly, 15 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.