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

Timestamp:

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

Author:

Sam Habiel

Message:

Updated version numbers

File:

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

Scheduling/trunk/m/BSDX33.m

@@ -1 +1 @@
 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 (see RBNEXT)
-    ; also adds i18 support - Dates passed in FM format from application
-    ; in tag SETRBK and RBNEXT
+        ;;1.3T1;BSDX;;Jul 18, 2010
+           ; Mods by WV/STAR
+           ;
+           ; Change Log:
+           ; July 13, 2010
+           ; 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
         ;
         ;
@@ -35 +35 @@
         I '+BSDXRESD D ERR2("BSDX REBOOK NEXT BLOCK: Invalid resource name") Q
         ;
-    ; i18n fix
-    ; S X=BSDXDATE,%DT="XT" D ^%DT
+           ; i18n fix
+           ; S X=BSDXDATE,%DT="XT" D ^%DT
         ; I Y=-1 D ERR2(1,"BSDX REBOOK NEXT BLOCK: Invalid datetime") Q
         ;
-    ; S BSDXDATE=$P(Y,".")
+           ; S BSDXDATE=$P(Y,".")
         ;
         S BSDXFND=0
@@ -53 +53 @@
         E  S Y=BSDXFND X ^DD("DD") S BSDXFND=Y
         S BSDXI=BSDXI+1
-    ;//smh - bug (V 1.3): Need to replace @ in FM date for C# to recognize it
-    S BSDXFND=$TR(BSDXFND,"@"," ")
-    ;//smh end fix
+           ;//smh - bug (V 1.3): Need to replace @ in FM date for C# to recognize it
+           S BSDXFND=$TR(BSDXFND,"@"," ")
+           ;//smh end fix
         S ^BSDXTMP($J,BSDXI)="1^"_BSDXFND_"^"_$C(30)_$C(31)
         Q
@@ -84 +84 @@
         I '$D(^BSDXAPPT(BSDXAPPT,0)) D ERR(1,"BSDX REBOOK SET: Invalid appointment ID") Q
         ; i18n (v 1.3)
-    ;S X=BSDXDATE,%DT="XT" D ^%DT
+           ;S X=BSDXDATE,%DT="XT" D ^%DT
         ;I Y=-1 D ERR(1,"BSDX REBOOK SET: Invalid rebook datetime") Q
         ;S BSDXDATE=Y