Changeset 867 for Scheduling/trunk/m/BSDX07.m

Timestamp:

Jul 14, 2010, 8:08:39 AM (15 years ago)

Author:

Sam Habiel

Message:

Two updates: Search by Primary ID now enabled;
bug in make appointment code that causes storage of non-canonical
appointment times (3091103.0900 e.g. rather than 3091103.09). causes a
problem when retrieving appointments.

File:

• Scheduling/trunk/m/BSDX07.m (modified) (2 diffs)

Scheduling/trunk/m/BSDX07.m

@@ -1 @@
-BSDX07  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/6/10 6:13am
+BSDX07  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/6/10 4:28pm
         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     ; v1.3 July 13 2010 - Add support i18n - Dates input as FM dates, not US.
@@ -111 +111 @@
         ;Returns ien in BSDXAPPT or 0 if failed
         ;Create entry in BSDX APPOINTMENT
+    ; BSDXSTART and BSDXEND need to be stored as numeric, not string
+    ; So 3090713.0900 is incorrect --> it should be 3090713.09
         N BSDXAPPTID
-        S BSDXFDA(9002018.4,"+1,",.01)=BSDXSTART
-        S BSDXFDA(9002018.4,"+1,",.02)=BSDXEND
+        S BSDXFDA(9002018.4,"+1,",.01)=+BSDXSTART  ; smh fix bug stores as string
+        S BSDXFDA(9002018.4,"+1,",.02)=+BSDXEND
         S BSDXFDA(9002018.4,"+1,",.05)=BSDXPATID
         S BSDXFDA(9002018.4,"+1,",.07)=BSDXRESD