iSharkFly-Open
/
VistA-Scheduling
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
sam 2011-05-16 11:39:02 +00:00
parent 303881fbef
commit dca0001f88
37 changed files with 64 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
m/BSDX01.m
View File

@ -1,5 +1,5 @@
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
;
SUINFOD(BSDXY,BSDXDUZ) ;EP Debugging entry point
@ -376,14 +376,36 @@ SCHRAEX(BSDXY,RADFN,RAOIFN,RAOSCH) ; Schedule a Radiology Exam; RPC EP; UJO/SMH
QUIT
;
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

4
m/BSDX02.m
View File

@ -1,5 +1,5 @@
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
; July 15 2010: UJO/SMH - Pass FM dates in instead of US dates for i18n

2
m/BSDX03.m
View File

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

2
m/BSDX04.m
View File

@ -1,5 +1,5 @@
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:
; July 11 2010: Pass BSDXSTART and END as FM dates rather than US formatted dates

2
m/BSDX05.m
View File

@ -1,5 +1,5 @@
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
;
; Change Log:

2
m/BSDX06.m
View File

@ -1,5 +1,5 @@
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:
; UJO/SMH: July 15 2010: Change in BSDXSTART and BSDXEND: get

2
m/BSDX07.m
View File

@ -1,5 +1,5 @@
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
;
; Change Log:

2
m/BSDX08.m
View File

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

2
m/BSDX09.m
View File

@ -1,5 +1,5 @@
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
;
; Change Log:

2
m/BSDX11.m
View File

@ -1,5 +1,5 @@
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
;
ENV0100 ;EP Version 1.0 Environment check

2
m/BSDX12.m
View File

@ -1,5 +1,5 @@
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
;
; Change Log:

2
m/BSDX13.m
View File

@ -1,5 +1,5 @@
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
;
; Change Log:

2
m/BSDX14.m
View File

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

2
m/BSDX15.m
View File

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

2
m/BSDX16.m
View File

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

2
m/BSDX17.m
View File

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

2
m/BSDX18.m
View File

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

2
m/BSDX19.m
View File

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

2
m/BSDX20.m
View File

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

2
m/BSDX21.m
View File

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

2
m/BSDX22.m
View File

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

2
m/BSDX23.m
View File

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

2
m/BSDX24.m
View File

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

2
m/BSDX25.m
View File

@ -1,5 +1,5 @@
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
;
; Change Log:

2
m/BSDX26.m
View File

@ -1,5 +1,5 @@
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:
; 3101023 - UJO/SMH - Addition of restartable transaction; relocation of tx.

2
m/BSDX27.m
View File

@ -1,5 +1,5 @@
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
;
; Change Log: July 15, 2010

2
m/BSDX28.m
View File

@ -1,5 +1,5 @@
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:
; HMW 3050721 Added test for inactivated record

2
m/BSDX29.m
View File

@ -1,5 +1,5 @@
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
;
; Change Log:

2
m/BSDX2E.m
View File

@ -1,5 +1,5 @@
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
;
S LINE="",$P(LINE,"*",81)=""

2
m/BSDX30.m
View File

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

2
m/BSDX31.m
View File

@ -1,5 +1,5 @@
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:
; v1.42 Oct 23 2010 WV/SMH

2
m/BSDX32.m
View File

@ -1,5 +1,5 @@
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
;
; Change Log:

2
m/BSDX33.m
View File

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

2
m/BSDX34.m
View File

@ -1,5 +1,5 @@
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
;
; Change Log:

2
m/BSDX35.m
View File

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

2
m/BSDXAPI.m
View File

@ -1,5 +1,5 @@
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
;
;Orignal routine is BSDAPI by IHS/LJF, HMW, and MAW

2
m/BSDXGPRV.m
View File

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