Changeset 1041 for Scheduling/trunk/m/BSDX13.m

Timestamp:

Dec 12, 2010, 11:11:57 AM (13 years ago)

Author:

Sam Habiel

Message:

Updated routines version to 1.42

File:

• Scheduling/trunk/m/BSDX13.m (modified) (3 diffs)

Scheduling/trunk/m/BSDX13.m

@@ -1 @@
-BSDX13  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:17pm
-        ;;1.41;BSDX;;Sep 29, 2010
+BSDX13  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 12/6/10 6:05pm
+        ;;1.42;BSDX;;Dec 07, 2010
            ;
            ; Change Log:
@@ -31 +31 @@
         ; S %DT="X" D ^%DT
         ; I Y=-1 D ERR(0,"AVDELDT-BSDX13: Invalid End Date") Q
-        S BSDXEND=$P(Y,".")_".99999"
+        S BSDXEND=$P(BSDXEND,".")_".99999"
         I '+BSDXRESD D ERR(0,"AVDELDT-BSDX13: Invalid Resource ID") Q
         ;
@@ -46 +46 @@
         I '+$G(BSDXI) N BSDXI S BSDXI=999999
         S BSDXI=BSDXI+1
-        D ERR(0,"BSDX13 M Error: <"_$G(%ZTERROR)_">")
+        D ERR(0,"BSDX13 M Error: <"_$G(%ZTERZE)_">")
         Q
         ;