Changeset 623 for WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMEDIT.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMEDIT.m (modified) (1 diff)

WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMEDIT.m

@@ -1 @@
-PXRMEDIT        ; SLC/PKR - Clinical Reminder edit driver. ;06/04/2007
-        ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
-        ;
-EDIT(ROOT,IENN) ;Call the appropriate edit routine.
-        ;Reminder location list
-        I ROOT="^PXRMD(810.9," D EDIT^PXRMLLED(ROOT,IENN) Q
-        ;
-        ;Taxonomy
-        I ROOT="^PXD(811.2," D EDIT^PXRMTEDT(ROOT,IENN) Q
-        ;
-        ;Reminder term
-        I ROOT="^PXRMD(811.5," D EDIT^PXRMTMED(ROOT,IENN) Q
-        ;
-        ;Reminder definition
-        I ROOT="^PXD(811.9," D
-        .;Build list of finding types for finding edit
-        . N DEF,DEF1,DEF2 D DEF^PXRMRUTL("811.902",.DEF,.DEF1,.DEF2)
-        .;Edit reminder
-        . D ALL^PXRMREDT(ROOT,IENN) Q
-        Q
-        ;
+PXRMEDIT ; SLC/PKR - Clinical Reminder edit driver. ;05/18/2000
+ ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
+ ;
+EDIT(ROOT,IENN) ;Call the appropriate edit routine.
+ ;Taxonomy
+ I ROOT="^PXD(811.2," D EDIT^PXRMTEDT(ROOT,IENN) Q
+ ;
+ ;Reminder term
+ I ROOT="^PXRMD(811.5," D EDIT^PXRMTMED(ROOT,IENN) Q
+ ;
+ ;Reminder
+ I ROOT="^PXD(811.9," D
+ .;Build list of finding types for finding edit
+ . N DEF,DEF1,DEF2 D DEF^PXRMRUTL("811.902",.DEF,.DEF1,.DEF2)
+ .;Edit reminder
+ . D ALL^PXRMREDT(ROOT,IENN) Q
+ Q
+ ;