Changeset 874 for Scheduling/trunk/m/BSDX34.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/BSDX34.m (modified) (3 diffs)

Scheduling/trunk/m/BSDX34.m

@@ -1 @@
-BSDX34  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 11:28am
-        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
-        ;
+BSDX34  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:37pm
+        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+    ;
+    ; Change Log:
+    ; July 10 2010: 
+        ; CANCLIN AND RBCLIN: Dates passed in FM format for i18n
         ;
         Q
@@ -25 +28 @@
         ;Used in generating cancellation letters for a clinic
         ;BSDXCLST is a |-delimited list of BSDX RESOURCE iens.  (The last |-piece is null, so discard it.)
-        ;BSDXBEG and BSDXEND are in external date form.
+    ;v 1.3 BSDXBEG and BSDXEND are in fm format
         ;Called by BSDX CANCEL CLINIC LIST
         N BSDXCAN
@@ -49 +52 @@
         ;Convert beginning and ending dates
         ;TODO: Validation of date to make sure it's a right FM Date
+    S BSDXBEG=$P(BSDXBEG,".")
+    S BSDXEND=$P(BSDXEND,".")
         S BSDXBEG=BSDXBEG-1,BSDXBEG=BSDXBEG_".9999"
         S BSDXEND=BSDXEND_".9999"