Changeset 951 for Scheduling/trunk/m/BSDX01.m

Timestamp:

Sep 20, 2010, 8:16:53 AM (14 years ago)

Author:

Sam Habiel

Message:

Change version to 1.4 on all routines
BSDX08 has fix for drag and drop because it referenced a non existent cancellation reason

File:

• Scheduling/trunk/m/BSDX01.m (modified) (2 diffs)

Scheduling/trunk/m/BSDX01.m

@@ -1 @@
-BSDX01  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:04pm
-        ;;1.3T1;BSDX;;Jul 18, 2010
+BSDX01  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 9/15/10 9:09pm
+        ;;1.4;BSDX;;Sep 07, 2010
         ;
         ;
@@ -120 +120 @@
         . Q:'$D(^BSDXRES(BSDXRES,0))
         . S BSDXRNOD=^BSDXRES(BSDXRES,0)
-        . ;Q:$P(BSDXRNOD,U,2)=1  ;Inactive resources not filtered
+        . N BSDXSC S BSDXSC=$P(BSDXRNOD,U,4)  ; Hospital Location
+    . ; super line... if tied to hospital location,
+    . ; Hosp location exists, AND 4th piece isn't the same as
+    . ; DUZ(2), quit. Filters based on Divisions.
+    . ; . I +BSDXSC,$D(^SC(BSDXSC,0)),$P(^SC(BSDXSC,0),U,4)'=DUZ(2) QUIT
+    . ;Q:$P(BSDXRNOD,U,2)=1  ;Inactive resources not filtered
         . ;S BSDXRDAT=$P(BSDXRNOD,U,1,4)
         . K BSDXRDAT