Changeset 773 for Scheduling/trunk/m/BSDX21.m

Timestamp:

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

Author:

Sam Habiel

Message:

Tiny bug fixes to fix compile errors

File:

• Scheduling/trunk/m/BSDX21.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
         ;