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

Timestamp:

Jul 13, 2010, 9:04:57 AM (15 years ago)

Author:

Sam Habiel

Message:

more i18n work

File:

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

Scheduling/trunk/m/BSDX33.m

@@ -1 @@
-BSDX33  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 11:38am
-        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+BSDX33  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/10 8:43am
+        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     ; Mods by WV/STAR
+    ;
+    ; July 13, 2010
+    ; v 1.3 adds fixes Rebooking behavior in application
+    ; also adds i18 support - Dates passed in FM format from application
         ;
         ;
@@ -13 +17 @@
 RBNEXT(BSDXY,BSDXDATE,BSDXRES,BSDXTPID) ;EP
         ;Called by BSDX REBOOK NEXT BLOCK to find
-        ;the next ACCESS BLOCK in resource BSDXRES after BSDXSTART
+        ;the next ACCESS BLOCK in resource BSDXRES after BSDXDATE
         ;Returns 1 in ERRORID and date in NEXTBLOCK if a block was found or NULL in NEXTBLOCK of no date found
         ;Otherwise, returns 0 and error message in ERRORTEXT
@@ -28 +32 @@
         S BSDXRESD=$O(^BSDXRES("B",BSDXRES,0))
         I '+BSDXRESD D ERR2("BSDX REBOOK NEXT BLOCK: Invalid resource name") Q
-        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 X=BSDXDATE,%DT="XT" D ^%DT
+        ; I Y=-1 D ERR2(1,"BSDX REBOOK NEXT BLOCK: Invalid datetime") Q
+        ;
+    ; S BSDXDATE=$P(Y,".")
         ;
         S BSDXFND=0
@@ -74 +80 @@
         I '+BSDXAPPT
         I '$D(^BSDXAPPT(BSDXAPPT,0)) D ERR(1,"BSDX REBOOK SET: Invalid appointment ID") Q
-        S X=BSDXDATE,%DT="XT" D ^%DT
-        I Y=-1 D ERR(1,"BSDX REBOOK SET: Invalid rebook datetime") Q
-        S BSDXDATE=Y
+        ; i18n (v 1.3)
+    ;S X=BSDXDATE,%DT="XT" D ^%DT
+        ;I Y=-1 D ERR(1,"BSDX REBOOK SET: Invalid rebook datetime") Q
+        ;S BSDXDATE=Y
         S BSDXIENS=BSDXAPPT_","
         S BSDXFDA(9002018.4,BSDXIENS,.11)=BSDXDATE