Changeset 874 for Scheduling/trunk/m/BSDX06.m

Timestamp:

Jul 15, 2010, 9:38:10 AM (14 years ago)

Author:

Sam Habiel

Message:

Documentation plus a few tiny fixes to routines

File:

• Scheduling/trunk/m/BSDX06.m (modified) (3 diffs)

Scheduling/trunk/m/BSDX06.m

@@ -1 @@
-BSDX06  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 5:54pm
-        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+BSDX06  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 4:51pm
+        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+    ; Change Log:
+    ; UJO/SMH: July 15 2010: Change in BSDXSTART and BSDXEND: get
+    ; dates in FM format for i18n
         ;
         ;
@@ -9 +12 @@
         ;
         ;Test lines:
-        ;D TPBLKOV^BSDX06(.RES,"5-12-2003","5-16-2003","REMILLARD,MIKE") ZW RES
-        ;BSDX TYPE BLOCKS OVERLAP^1-1-2000^12-14-2004^REMILLARD,MIKE
+        ;D TPBLKOV^BSDX06(.RES,"3030513","3030516","REMILLARD,MIKE") ZW RES
+        ;BSDX TYPE BLOCKS OVERLAP^303513^3030516^REMILLARD,MIKE
         ;S ^HW("BSDXD06")=BSDXSTART_U_BSDXEND_U_BSDXRES
         ;
@@ -21 +24 @@
         D
         . S BSDXBS=0
-        . ; I $L(BSDXEND,".")=1 S BSDXEND=BSDXEND+.9999 ;Go to end of day
-    . S BSDXEND=BSDXEND+.9999 ;//smh - not sure about this change
+        . I $L(BSDXEND,".")=1 S BSDXEND=BSDXEND+.9999 ;Go to end of day if only date (not time) is passed
         . S BSDXRESN=BSDXRES
         . Q:BSDXRESN=""