Changeset 888 for Scheduling/trunk/m/BSDX34.m

Timestamp:

Jul 18, 2010, 9:58:35 AM (15 years ago)

Author:

Sam Habiel

Message:

Updated version numbers

File:

• Scheduling/trunk/m/BSDX34.m (modified) (4 diffs)

Scheduling/trunk/m/BSDX34.m

@@ -1 +1 @@
 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: 
+        ;;1.3T1;BSDX;;Jul 18, 2010
+           ;
+           ; Change Log:
+           ; July 10 2010: 
         ; CANCLIN AND RBCLIN: Dates passed in FM format for i18n
         ;
@@ -28 +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.)
-    ;v 1.3 BSDXBEG and BSDXEND are in fm format
+           ;v 1.3 BSDXBEG and BSDXEND are in fm format
         ;Called by BSDX CANCEL CLINIC LIST
         N BSDXCAN
@@ -44 +44 @@
         ;Called by BSDX REBOOK CLINIC LIST and BSDX CANCEL CLINIC LIST via entry point CANCLIN above
         ;Jul 11 2010 (smh):
-    ;for i18n, pass BSDXBEG and BSDXEND in FM format.
+           ;for i18n, pass BSDXBEG and BSDXEND in FM format.
         ;
         S X="RBERR^BSDX34",@^%ZOSF("TRAP")
@@ -52 +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=$P(BSDXBEG,".")
+           S BSDXEND=$P(BSDXEND,".")
         S BSDXBEG=BSDXBEG-1,BSDXBEG=BSDXBEG_".9999"
         S BSDXEND=BSDXEND_".9999"
-    ;
+           ;
         I BSDXCLST="" D RBERR Q
         ;