Changeset 1187 for Scheduling/trunk/m

Timestamp:

May 16, 2011, 7:39:02 AM (14 years ago)

Author:

Sam Habiel

Message:

Changes to BSDX01 to prevent Scheduled,dc'ed,completed radiology appointments from being cancelled. Updated files to T2.

Location:

Scheduling/trunk/m

Files:

• BSDX01.m (modified) (2 diffs)
• BSDX02.m (modified) (1 diff)
• BSDX03.m (modified) (1 diff)
• BSDX04.m (modified) (1 diff)
• BSDX05.m (modified) (1 diff)
• BSDX06.m (modified) (1 diff)
• BSDX07.m (modified) (1 diff)
• BSDX08.m (modified) (1 diff)
• BSDX09.m (modified) (1 diff)
• BSDX11.m (modified) (1 diff)
• BSDX12.m (modified) (1 diff)
• BSDX13.m (modified) (1 diff)
• BSDX14.m (modified) (1 diff)
• BSDX15.m (modified) (1 diff)
• BSDX16.m (modified) (1 diff)
• BSDX17.m (modified) (1 diff)
• BSDX18.m (modified) (1 diff)
• BSDX19.m (modified) (1 diff)
• BSDX20.m (modified) (1 diff)
• BSDX21.m (modified) (1 diff)
• BSDX22.m (modified) (1 diff)
• BSDX23.m (modified) (1 diff)
• BSDX24.m (modified) (1 diff)
• BSDX25.m (modified) (1 diff)
• BSDX26.m (modified) (1 diff)
• BSDX27.m (modified) (1 diff)
• BSDX28.m (modified) (1 diff)
• BSDX29.m (modified) (1 diff)
• BSDX2E.m (modified) (1 diff)
• BSDX30.m (modified) (1 diff)
• BSDX31.m (modified) (1 diff)
• BSDX32.m (modified) (1 diff)
• BSDX33.m (modified) (1 diff)
• BSDX34.m (modified) (1 diff)
• BSDX35.m (modified) (1 diff)
• BSDXAPI.m (modified) (1 diff)
• BSDXGPRV.m (modified) (1 diff)

Scheduling/trunk/m/BSDX01.m

@@ -1 @@
-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 +377 @@
         ;
 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

Scheduling/trunk/m/BSDX02.m

@@ -1 @@
-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

Scheduling/trunk/m/BSDX03.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX04.m

@@ -1 +1 @@
 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:

Scheduling/trunk/m/BSDX05.m

@@ -1 +1 @@
 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
            ;

Scheduling/trunk/m/BSDX06.m

@@ -1 +1 @@
 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:

Scheduling/trunk/m/BSDX07.m

@@ -1 +1 @@
 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
            ;

Scheduling/trunk/m/BSDX08.m

@@ -1 +1 @@
 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.

Scheduling/trunk/m/BSDX09.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX11.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX12.m

@@ -1 +1 @@
 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
         ; 

Scheduling/trunk/m/BSDX13.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX14.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX15.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX16.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX17.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX18.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX19.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX20.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX21.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX22.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX23.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX24.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX25.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX26.m

@@ -1 +1 @@
 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:

Scheduling/trunk/m/BSDX27.m

@@ -1 +1 @@
 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
            ; 

Scheduling/trunk/m/BSDX28.m

@@ -1 +1 @@
 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:

Scheduling/trunk/m/BSDX29.m

@@ -1 +1 @@
 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
         ; 

Scheduling/trunk/m/BSDX2E.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX30.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX31.m

@@ -1 +1 @@
 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:

Scheduling/trunk/m/BSDX32.m

@@ -1 +1 @@
 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
         ;

Scheduling/trunk/m/BSDX33.m

@@ -1 +1 @@
 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

Scheduling/trunk/m/BSDX34.m

@@ -1 +1 @@
 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  
         ;

Scheduling/trunk/m/BSDX35.m

@@ -1 +1 @@
 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  
         ;

Scheduling/trunk/m/BSDXAPI.m

@@ -1 +1 @@
 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  
         ;

Scheduling/trunk/m/BSDXGPRV.m

@@ -1 +1 @@
 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  
         ;