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

Scheduling/trunk/m/BSDX33.m

@@ -1 @@
-BSDX33  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/10 8:43am
+BSDX33  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:33pm
         ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     ; Mods by WV/STAR
     ;
+    ; Change Log:
     ; July 13, 2010
-    ; v 1.3 adds fixes Rebooking behavior in application
+    ; v 1.3 adds fixes Rebooking behavior in application (see RBNEXT)
     ; also adds i18 support - Dates passed in FM format from application
+    ; in tag SETRBK and RBNEXT
         ;
         ;
@@ -33 +35 @@
         I '+BSDXRESD D ERR2("BSDX REBOOK NEXT BLOCK: Invalid resource name") Q
         ;
+    ; i18n fix
     ; S X=BSDXDATE,%DT="XT" D ^%DT
         ; I Y=-1 D ERR2(1,"BSDX REBOOK NEXT BLOCK: Invalid datetime") Q
@@ -50 +53 @@
         E  S Y=BSDXFND X ^DD("DD") S BSDXFND=Y
         S BSDXI=BSDXI+1
-    ;//smh - bug: Need to replace @ in FM date for C# to recognize it
+    ;//smh - bug (V 1.3): Need to replace @ in FM date for C# to recognize it
     S BSDXFND=$TR(BSDXFND,"@"," ")
     ;//smh end fix
@@ -65 +68 @@
         ;Sets rebook date into appointment
         ;BSDXAPPT - Appointment ID
-        ;BSDXDATE - Rebook Datetime in external format
+        ;BSDXDATE - Rebook Datetime in internal format
         ;Called by BSDX REBOOK SET
         ;
@@ -85 +88 @@
         ;S BSDXDATE=Y
         S BSDXIENS=BSDXAPPT_","
-        S BSDXFDA(9002018.4,BSDXIENS,.11)=BSDXDATE
+        S BSDXFDA(9002018.4,BSDXIENS,.11)=+BSDXDATE
         ;
         K BSDXMSG