Changeset 742 for Scheduling/trunk/m/BSDX27.m

Timestamp:

May 2, 2010, 4:55:04 PM (14 years ago)

Author:

Sam Habiel

Message:

Fixes in BSDX27 referring to a routine that doesn't exist in VISTA. References changed to BSDXAPI.

File:

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

Scheduling/trunk/m/BSDX27.m

@@ -1 @@
-BSDX27  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
+BSDX27  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/29/10 9:43pm
         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
         ;
@@ -118 +118 @@
         ;IHS/OIT/HMW 20050208 Added from BSDDPA
         NEW TYP
-        S TYP=$$APPTYP^BSDU2(PAT,DATE)    ;sched vs. walkin
+        S TYP=$$APPTYP^BSDXAPI(PAT,DATE)    ;sched vs. walkin
         I $P(NODE,U,2)["C" Q TYP_" - CANCELLED"
         I $P(NODE,U,2)'="NT",$P(NODE,U,2)["N" Q TYP_" - NO SHOW"
-        I $$CO^BSDU2(PAT,+NODE,DATE) Q TYP_" - CHECKED OUT"
-        I $$CI^BSDU2(PAT,+NODE,DATE) Q TYP_" - CHECKED IN"
+        I $$CO^BSDXAPI(PAT,+NODE,DATE) Q TYP_" - CHECKED OUT"
+        I $$CI^BSDXAPI(PAT,+NODE,DATE) Q TYP_" - CHECKED IN"
         Q TYP
         ;