Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMDATE.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• CLINICAL_REMINDERS-PXRM/PXRMDATE.m (modified) (2 diffs)

FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMDATE.m

@@ -1 @@
-PXRMDATE ; SLC/PKR - Clinical Reminders date utilities. ;01/24/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMDATE ; SLC/PKR - Clinical Reminders date utilities. ;06/20/2006
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;
  ;==================================================
@@ -48 +48 @@
  ;forms as well as T-NY to a FileMan date. Also understands LAD for
  ;Last Admission Date.
- N %DT,ND,X,Y
- ;Already a FileMan date?
- S ND=+DATE
- I (ND'<1000000),(ND'>9991231) Q DATE
+ N %DT,X,Y
  ;Check for a date FileMan understands.
  S X=DATE,%DT="ST"