Changeset 874 for Scheduling

Timestamp:

Jul 15, 2010, 9:38:10 AM (14 years ago)

Author:

Sam Habiel

Message:

Documentation plus a few tiny fixes to routines

Location:

Scheduling/trunk/m

Files:

• BSDX02.m (modified) (1 diff)
• BSDX04.m (modified) (2 diffs)
• BSDX05.m (modified) (1 diff)
• BSDX06.m (modified) (3 diffs)
• BSDX27.m (modified) (1 diff)
• BSDX33.m (modified) (5 diffs)
• BSDX34.m (modified) (3 diffs)
• i18n_log.log (added)

Scheduling/trunk/m/BSDX02.m

@@ -1 @@
-BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 5:17pm
-        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:25pm
+        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+    ; 
+    ; Change Log
+    ; July 15 2010: UJO/SMH - Pass FM dates in instead of US dates for i18n
         ;
         ;

Scheduling/trunk/m/BSDX04.m

@@ -1 @@
-BSDX04  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/11/10 6:14pm
-        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+BSDX04  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/15/10 12:44pm
+        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+    ; Change Log:
+    ; July 11 2010: Pass BSDXSTART and END as FM dates rather than US formatted dates
+    ;       for i18n
         ;
         ;
@@ -41 +44 @@
         ;
         ;Test lines:
-        ;D CASSCH^BSDX04(.RES,"REMILLARD,MIKE","1-8-2000@0001","1-12-2004@2300") ZW RES
-        ;BSDX CREATE ASGND SLOT SCHED^ROGERS,BUCK^8-15-2003@0001^8-22-2003@2300^2
+        ;D CASSCH^BSDX04(.RES,"REMILLARD,MIKE","<fmdate>","<fmdate>") ZW RES
+        ;BSDX CREATE ASGND SLOT SCHED^ROGERS,BUCK^<fmdate>^<fmdate>^2
         ;S ^HW("BSDX04")=BSDXRES_U_BSDXSTART_U_BSDXEND
         ;

Scheduling/trunk/m/BSDX05.m

@@ -1 @@
-BSDX05  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 6:28pm
+BSDX05  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:51pm
         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
         ;
+    ; Change Log:
+    ; UJO/SMH - July 11 2010: pass FM Dates for Start and End rather than US Dates
         ;
 APBLKOV(BSDXY,BSDXSTART,BSDXEND,BSDXRES)         ;EP
         ;Called by BSDX APPT BLOCKS OVERLAP
+    ; July 11 2010 - pass FM Dates for Start and End rather than US Dates
         ;(Duplicates old qryAppointmentBlocksOverlapB)
         ;BSDXRES is resource name

Scheduling/trunk/m/BSDX06.m

@@ -1 @@
-BSDX06  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 5:54pm
-        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+BSDX06  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 4:51pm
+        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+    ; Change Log:
+    ; UJO/SMH: July 15 2010: Change in BSDXSTART and BSDXEND: get
+    ; dates in FM format for i18n
         ;
         ;
@@ -9 +12 @@
         ;
         ;Test lines:
-        ;D TPBLKOV^BSDX06(.RES,"5-12-2003","5-16-2003","REMILLARD,MIKE") ZW RES
-        ;BSDX TYPE BLOCKS OVERLAP^1-1-2000^12-14-2004^REMILLARD,MIKE
+        ;D TPBLKOV^BSDX06(.RES,"3030513","3030516","REMILLARD,MIKE") ZW RES
+        ;BSDX TYPE BLOCKS OVERLAP^303513^3030516^REMILLARD,MIKE
         ;S ^HW("BSDXD06")=BSDXSTART_U_BSDXEND_U_BSDXRES
         ;
@@ -21 +24 @@
         D
         . S BSDXBS=0
-        . ; I $L(BSDXEND,".")=1 S BSDXEND=BSDXEND+.9999 ;Go to end of day
-    . S BSDXEND=BSDXEND+.9999 ;//smh - not sure about this change
+        . I $L(BSDXEND,".")=1 S BSDXEND=BSDXEND+.9999 ;Go to end of day if only date (not time) is passed
         . S BSDXRESN=BSDXRES
         . Q:BSDXRESN=""

Scheduling/trunk/m/BSDX27.m

@@ -1 @@
-BSDX27  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/5/10 9:57pm
-        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+BSDX27  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:22pm
+        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+    ; 
+    ; Change Log: July 15, 2010
+    ; UJO/SMH - i18n: FM Dates passed into routine for Clinic Letters - CLDISP tag
         ;
         ;

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

Scheduling/trunk/m/BSDX34.m

@@ -1 @@
-BSDX34  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 11:28am
-        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
-        ;
+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: 
+        ; CANCLIN AND RBCLIN: Dates passed in FM format for i18n
         ;
         Q
@@ -25 +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.)
-        ;BSDXBEG and BSDXEND are in external date form.
+    ;v 1.3 BSDXBEG and BSDXEND are in fm format
         ;Called by BSDX CANCEL CLINIC LIST
         N BSDXCAN
@@ -49 +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=BSDXBEG-1,BSDXBEG=BSDXBEG_".9999"
         S BSDXEND=BSDXEND_".9999"