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

Timestamp:

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

Author:

Sam Habiel

Message:

Updated version numbers

File:

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

Scheduling/trunk/m/BSDX07.m

@@ -1 +1 @@
 BSDX07  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/18/10 2:11pm
-        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
-    ;
-    ; Change Log:
-    ; UJO/SMH
-    ; v1.3 July 13 2010 - Add support i18n - Dates input as FM dates, not US.
+        ;;1.3T1;BSDX;;Jul 18, 2010
+           ;
+           ; Change Log:
+           ; UJO/SMH
+           ; v1.3 July 13 2010 - Add support i18n - Dates input as FM dates, not US.
         ;
         ;
@@ -45 +45 @@
         ;
         TSTART
-    ; v1.3 - date passed in as FM Date, not US date.
+           ; v1.3 - date passed in as FM Date, not US date.
         ;Check input data for errors
         ; S:BSDXSTART["@0000" BSDXSTART=$P(BSDXSTART,"@")
@@ -53 +53 @@
         ; S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
         ; I BSDXEND=-1 D ERR(BSDXI+1,"BSDX07 Error: Invalid End Time") Q
-    ;
-    ; If C# sends the dates with extra zeros, remove them
+           ;
+           ; If C# sends the dates with extra zeros, remove them
         S BSDXSTART=+BSDXSTART,BSDXEND=+BSDXEND
-    ;
-    I $L(BSDXEND,".")=1 D ERR(BSDXI+1,"BSDX07 Error: Invalid End Time") Q
+           ;
+           I $L(BSDXEND,".")=1 D ERR(BSDXI+1,"BSDX07 Error: Invalid End Time") Q
         I BSDXSTART>BSDXEND S BSDXTMP=BSDXEND,BSDXEND=BSDXSTART,BSDXSTART=BSDXTMP
         I '+BSDXPATID,'$D(^DPT(BSDXPATID,0)) D ERR(BSDXI+1,"BSDX07 Error: Invalid Patient ID") Q
@@ -178 +178 @@
 ERR(BSDXI,BSDXERR)      ;Error processing
         D ^%ZTER ;XXX: remove after we figure out the cause of error
-    S BSDXI=BSDXI+1
+           S BSDXI=BSDXI+1
         S BSDXERR=$TR(BSDXERR,"^","~")
         TROLLBACK