Index: Scheduling/trunk/m/BSDX01.m =================================================================== --- Scheduling/trunk/m/BSDX01.m (revision 1186) +++ Scheduling/trunk/m/BSDX01.m (revision 1187) @@ -1,4 +1,4 @@ -BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:14am - ;;1.6T1;BSDX;;May 11, 2011 +BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/16/11 2:46pm + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; @@ -377,13 +377,35 @@ ; HOLDRAEX(BSDXY,RADFN,RAOIFN) ; Hold a Radiology Exam; RPC EP; UJO/SMH new in v 1.6 - ; RPC: BSDX HOLD RAD EXAM; Return: Single Vale + ; RPC: BSDX HOLD RAD EXAM; Return: Single Value ; ; Input: ; - RADFN -> DFN ; - RAOIFN -> Radiology Order IEN in file 75.1 - ; Output: Always "1" + ; Output: 1 OR 0 for success or failure. + ; Can we hold? + N CANHOLD + D CANHOLD(.CANHOLD,RAOIFN) + I 'CANHOLD S BSDXY=0 QUIT + ; N RAOSTS S RAOSTS=3 ; Status of Hold - N RAOREA S RAOREA=20 ; Reason: Exam Cancelled + N RAOREA ; Reason, stored in file 75.2 + I $D(^RA(75.2,100)) S RAOREA=100 ; Custom site Reason + E I $D(^RA(75.2,20)) S RAOREA=20 ; Reason: Exam Cancelled + E ; Else is empty. I won't set RAOREA at all. D ^RAORDU S BSDXY=1 ; Success QUIT + ; +CANHOLD(BSDXY,RAOIFN) ; Can we hold this Exam? RPC EP; UJO/SMH new in 1.6 + ; RPC: BSDX CAN HOLD RAD EXAM; Return: Single Value + ; + ; Input: + ; - RAOIFN -> Radiology Order IEN in file 75.1 + ; Output: 0 or 1 for false or true + ; + N STATUS S STATUS=$$GET1^DIQ(75.1,RAOIFN,"REQUEST STATUS","I") + ; 1 = discontinued; 2 = Complete; 6 = Active + ; if any one of these, cannot hold exam; otherwise, we can + I 126[STATUS S BSDXY=0 QUIT + ELSE S BSDXY=1 QUIT + QUIT Index: Scheduling/trunk/m/BSDX02.m =================================================================== --- Scheduling/trunk/m/BSDX02.m (revision 1186) +++ Scheduling/trunk/m/BSDX02.m (revision 1187) @@ -1,4 +1,4 @@ -BSDX02 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/11/11 11:33am - ;;1.6T1;BSDX;;May 11, 2011 +BSDX02 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/16/11 2:47pm + ;;1.6T2;BSDX;;May 16, 2011 ;Licensed under LGPL ; Change Log Index: Scheduling/trunk/m/BSDX03.m =================================================================== --- Scheduling/trunk/m/BSDX03.m (revision 1186) +++ Scheduling/trunk/m/BSDX03.m (revision 1187) @@ -1,4 +1,4 @@ BSDX03 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:14am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ;Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX04.m =================================================================== --- Scheduling/trunk/m/BSDX04.m (revision 1186) +++ Scheduling/trunk/m/BSDX04.m (revision 1187) @@ -1,4 +1,4 @@ BSDX04 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 4/28/11 10:15am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Change Log: Index: Scheduling/trunk/m/BSDX05.m =================================================================== --- Scheduling/trunk/m/BSDX05.m (revision 1186) +++ Scheduling/trunk/m/BSDX05.m (revision 1187) @@ -1,4 +1,4 @@ BSDX05 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:16am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX06.m =================================================================== --- Scheduling/trunk/m/BSDX06.m (revision 1186) +++ Scheduling/trunk/m/BSDX06.m (revision 1187) @@ -1,4 +1,4 @@ BSDX06 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:16am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Change Log: Index: Scheduling/trunk/m/BSDX07.m =================================================================== --- Scheduling/trunk/m/BSDX07.m (revision 1186) +++ Scheduling/trunk/m/BSDX07.m (revision 1187) @@ -1,4 +1,4 @@ BSDX07 ; VW/UJO/SMH - WINDOWS SCHEDULING RPCS ; 4/28/11 10:17am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX08.m =================================================================== --- Scheduling/trunk/m/BSDX08.m (revision 1186) +++ Scheduling/trunk/m/BSDX08.m (revision 1187) @@ -1,4 +1,4 @@ BSDX08 ; VW/UJO/SMH - WINDOWS SCHEDULING RPCS ; 4/28/11 10:17am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; ; Original by HMW. New Written by Sam Habiel. Licensed under LGPL. Index: Scheduling/trunk/m/BSDX09.m =================================================================== --- Scheduling/trunk/m/BSDX09.m (revision 1186) +++ Scheduling/trunk/m/BSDX09.m (revision 1187) @@ -1,4 +1,4 @@ BSDX09 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 4/28/11 10:18am - ;;1.6T1;BSDX;;May 11, 2011;Build 7 + ;;1.6T2;BSDX;;May 16, 2011;Build 7 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX11.m =================================================================== --- Scheduling/trunk/m/BSDX11.m (revision 1186) +++ Scheduling/trunk/m/BSDX11.m (revision 1187) @@ -1,4 +1,4 @@ BSDX11 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:18am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX12.m =================================================================== --- Scheduling/trunk/m/BSDX12.m (revision 1186) +++ Scheduling/trunk/m/BSDX12.m (revision 1187) @@ -1,4 +1,4 @@ BSDX12 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:18am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX13.m =================================================================== --- Scheduling/trunk/m/BSDX13.m (revision 1186) +++ Scheduling/trunk/m/BSDX13.m (revision 1187) @@ -1,4 +1,4 @@ BSDX13 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX14.m =================================================================== --- Scheduling/trunk/m/BSDX14.m (revision 1186) +++ Scheduling/trunk/m/BSDX14.m (revision 1187) @@ -1,4 +1,4 @@ BSDX14 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX15.m =================================================================== --- Scheduling/trunk/m/BSDX15.m (revision 1186) +++ Scheduling/trunk/m/BSDX15.m (revision 1187) @@ -1,4 +1,4 @@ BSDX15 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX16.m =================================================================== --- Scheduling/trunk/m/BSDX16.m (revision 1186) +++ Scheduling/trunk/m/BSDX16.m (revision 1187) @@ -1,4 +1,4 @@ BSDX16 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 4/28/11 10:20am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX17.m =================================================================== --- Scheduling/trunk/m/BSDX17.m (revision 1186) +++ Scheduling/trunk/m/BSDX17.m (revision 1187) @@ -1,4 +1,4 @@ BSDX17 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX18.m =================================================================== --- Scheduling/trunk/m/BSDX18.m (revision 1186) +++ Scheduling/trunk/m/BSDX18.m (revision 1187) @@ -1,4 +1,4 @@ BSDX18 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX19.m =================================================================== --- Scheduling/trunk/m/BSDX19.m (revision 1186) +++ Scheduling/trunk/m/BSDX19.m (revision 1187) @@ -1,4 +1,4 @@ BSDX19 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:21am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX20.m =================================================================== --- Scheduling/trunk/m/BSDX20.m (revision 1186) +++ Scheduling/trunk/m/BSDX20.m (revision 1187) @@ -1,4 +1,4 @@ BSDX20 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:21am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX21.m =================================================================== --- Scheduling/trunk/m/BSDX21.m (revision 1186) +++ Scheduling/trunk/m/BSDX21.m (revision 1187) @@ -1,4 +1,4 @@ BSDX21 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX22.m =================================================================== --- Scheduling/trunk/m/BSDX22.m (revision 1186) +++ Scheduling/trunk/m/BSDX22.m (revision 1187) @@ -1,4 +1,4 @@ BSDX22 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX23.m =================================================================== --- Scheduling/trunk/m/BSDX23.m (revision 1186) +++ Scheduling/trunk/m/BSDX23.m (revision 1187) @@ -1,4 +1,4 @@ BSDX23 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX24.m =================================================================== --- Scheduling/trunk/m/BSDX24.m (revision 1186) +++ Scheduling/trunk/m/BSDX24.m (revision 1187) @@ -1,4 +1,4 @@ BSDX24 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX25.m =================================================================== --- Scheduling/trunk/m/BSDX25.m (revision 1186) +++ Scheduling/trunk/m/BSDX25.m (revision 1187) @@ -1,4 +1,4 @@ BSDX25 ; VW/UJO/SMH - WINDOWS SCHEDULING RPCS ; 4/28/11 10:24am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX26.m =================================================================== --- Scheduling/trunk/m/BSDX26.m (revision 1186) +++ Scheduling/trunk/m/BSDX26.m (revision 1187) @@ -1,4 +1,4 @@ BSDX26 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:24am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Change History: Index: Scheduling/trunk/m/BSDX27.m =================================================================== --- Scheduling/trunk/m/BSDX27.m (revision 1186) +++ Scheduling/trunk/m/BSDX27.m (revision 1187) @@ -1,4 +1,4 @@ BSDX27 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:24am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX28.m =================================================================== --- Scheduling/trunk/m/BSDX28.m (revision 1186) +++ Scheduling/trunk/m/BSDX28.m (revision 1187) @@ -1,4 +1,4 @@ BSDX28 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:25am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Change Log: Index: Scheduling/trunk/m/BSDX29.m =================================================================== --- Scheduling/trunk/m/BSDX29.m (revision 1186) +++ Scheduling/trunk/m/BSDX29.m (revision 1187) @@ -1,4 +1,4 @@ BSDX29 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:25am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX2E.m =================================================================== --- Scheduling/trunk/m/BSDX2E.m (revision 1186) +++ Scheduling/trunk/m/BSDX2E.m (revision 1187) @@ -1,4 +1,4 @@ BSDX2E ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [4/28/11 10:28am] - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX30.m =================================================================== --- Scheduling/trunk/m/BSDX30.m (revision 1186) +++ Scheduling/trunk/m/BSDX30.m (revision 1187) @@ -1,4 +1,4 @@ BSDX30 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [4/28/11 10:28am] - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX31.m =================================================================== --- Scheduling/trunk/m/BSDX31.m (revision 1186) +++ Scheduling/trunk/m/BSDX31.m (revision 1187) @@ -1,4 +1,4 @@ BSDX31 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:28am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Change Log: Index: Scheduling/trunk/m/BSDX32.m =================================================================== --- Scheduling/trunk/m/BSDX32.m (revision 1186) +++ Scheduling/trunk/m/BSDX32.m (revision 1187) @@ -1,4 +1,4 @@ BSDX32 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/11/11 10:39am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX33.m =================================================================== --- Scheduling/trunk/m/BSDX33.m (revision 1186) +++ Scheduling/trunk/m/BSDX33.m (revision 1187) @@ -1,4 +1,4 @@ BSDX33 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Mods by WV/STAR Index: Scheduling/trunk/m/BSDX34.m =================================================================== --- Scheduling/trunk/m/BSDX34.m (revision 1186) +++ Scheduling/trunk/m/BSDX34.m (revision 1187) @@ -1,4 +1,4 @@ BSDX34 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDX35.m =================================================================== --- Scheduling/trunk/m/BSDX35.m (revision 1186) +++ Scheduling/trunk/m/BSDX35.m (revision 1187) @@ -1,4 +1,4 @@ BSDX35 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDXAPI.m =================================================================== --- Scheduling/trunk/m/BSDXAPI.m (revision 1186) +++ Scheduling/trunk/m/BSDXAPI.m (revision 1187) @@ -1,4 +1,4 @@ BSDXAPI ; IHS/ANMC/LJF & VW/SMH - SCHEDULING APIs ; 4/28/11 10:30am - ;;1.6T1;BSDX;;May 11, 2011;Build 7 + ;;1.6T2;BSDX;;May 16, 2011;Build 7 ; Licensed under LGPL ; Index: Scheduling/trunk/m/BSDXGPRV.m =================================================================== --- Scheduling/trunk/m/BSDXGPRV.m (revision 1186) +++ Scheduling/trunk/m/BSDXGPRV.m (revision 1187) @@ -1,4 +1,4 @@ BSDXGPRV ; WV/SMH - WINDOWS SCHEDULING RPCS ; 4/28/11 10:31am - ;;1.6T1;BSDX;;May 11, 2011 + ;;1.6T2;BSDX;;May 16, 2011 ; Licensed under LGPL ;