Changeset 854 for Scheduling/trunk/m/BSDX04.m

Timestamp:

Jul 12, 2010, 10:25:21 AM (14 years ago)

Author:

Sam Habiel

Message:

More changes

File:

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

Scheduling/trunk/m/BSDX04.m

@@ -1 @@
-BSDX04  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 
+BSDX04  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/11/10 6:14pm
         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
         ;
@@ -24 +24 @@
         ;
         ;BSDXRES is resource name
+    ;
+    ;//smh
+    ; BSDXSTART and BSDXEND both passed in FM Format.
+    ; BSDXSTART is the Date Portion of FM Date
+    ; BSDXEND -- pass date and h,m,s as well
+    ;//smh
         ;
         ;BSDXTYPES is |-delimited list of Access Type Names
@@ -59 +65 @@
         D
         . S BSDXBS=0
-        . S:BSDXSTART["@0000" BSDXSTART=$P(BSDXSTART,"@")
-        . S:BSDXEND["@0000" BSDXEND=$P(BSDXEND,"@")
-        . ;S:BSDXEND["@0:00" BSDXEND=$P(BSDXEND,"@")
-        . S %DT="T",X=BSDXSTART D ^%DT S BSDXSTART=Y
-        . I BSDXSTART=-1 S ^BSDXTMP($J,1)=$C(31) Q
-        . S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
-        . I BSDXEND=-1 S ^BSDXTMP($J,1)=$C(31) Q
         . S BSDXRESN=BSDXRES
         . Q:BSDXRESN=""