source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMEDIT.m@ 691

Last change on this file since 691 was 623, checked in by George Lilly, 15 years ago

revised back to 6/30/08 version

File size: 495 bytes
Line 
1PXRMEDIT ; SLC/PKR - Clinical Reminder edit driver. ;05/18/2000
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;
4EDIT(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.