Changeset 773

Timestamp:

May 21, 2010, 9:50:19 PM (15 years ago)

Author:

Sam Habiel

Message:

Tiny bug fixes to fix compile errors

Location:

Scheduling/trunk/m

Files:

• BSDX21.m (modified) (2 diffs)
• BSDX27.m (modified) (2 diffs)
• BSDX34.m (modified) (2 diffs)

Scheduling/trunk/m/BSDX21.m

@@ -1 @@
-BSDX21  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
+BSDX21  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:42pm
         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
         ;
@@ -68 +68 @@
         ;I '$D(^BSDXAGP("B",BSDXGRP)) D ERR(BSDXI,0,0) Q
         ;S BSDXIEN=$O(^BSDXAGP("B",BSDXGRP,0))
-        I '+BSDXIEN D ERR(BSDXI,BSDXIEN,70) Q
+        I '+BSDXIEN D ERR(BSDXI,BSDXIEN) Q
         I '$D(^BSDXAGP(BSDXIEN,0)) D ERR(0,"BSDX14: Invalid Access Group ID name.") Q
         ;

Scheduling/trunk/m/BSDX27.m

@@ -1 @@
-BSDX27  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/29/10 9:43pm
+BSDX27  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:52pm
         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
         ;
@@ -126 +126 @@
         ;
 ERROR   ;
-        D ERR("RPMS Error")
-        Q
-        ;
-ERR(ERRNO)      ;Error processing
+        D ERR(BSDXI,"RPMS Error")
+        Q
+        ;
+ERR(BSDXI,ERRNO,MSG)    ;Error processing
         S:'$D(BSDXI) BSDXI=999
         I +ERRNO S BSDXERR=ERRNO+134234112 ;vbObjectError
         E  S BSDXERR=ERRNO
         S BSDXI=BSDXI+1
-        S ^BSDXTMP($J,BSDXI)="^^^^^^^^^^^^^^^"_$C(30)
+        S ^BSDXTMP($J,BSDXI)=MSG_"^^^^^^^^^^^^^^^"_$C(30)
         S BSDXI=BSDXI+1
         S ^BSDXTMP($J,BSDXI)=$C(31)

Scheduling/trunk/m/BSDX34.m

@@ -1 @@
-BSDX34  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
+BSDX34  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:56pm
         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
         ;
@@ -50 +50 @@
         ;
         S X=BSDXBEG,%DT="XT" D ^%DT S BSDXBEG=$P(Y,"."),BSDXBEG=BSDXBEG-1,BSDXBEG=BSDXBEG_".9999"
-        I Y=-1 D RBERR(1) Q
+        I Y=-1 D RBERR Q
         S X=BSDXEND,%DT="XT" D ^%DT S BSDXEND=$P(Y,"."),BSDXEND=BSDXEND_".9999"
-        I Y=-1 D RBERR(1) Q
-        I BSDXCLST="" D RBERR(1) Q
+        I Y=-1 D RBERR Q
+        I BSDXCLST="" D RBERR Q
         ;
         ;