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

Updated version number on all routines to be 1.7T1. 

Minor fixes here and there for XINDEX errors.
This commit is contained in:
sam 2012-07-06 18:28:15 +00:00
parent 168a55df58
commit 3d5c4b11ca
41 changed files with 223 additions and 217 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
m/BSDX01.m
View File

@ -1,5 +1,5 @@
BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/16/11 2:46pm BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/12 10:52am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
SUINFOD(BSDXY,BSDXDUZ) ;EP Debugging entry point SUINFOD(BSDXY,BSDXDUZ) ;EP Debugging entry point
@ -291,12 +291,11 @@ INDIV(BSDXSC) ; PEP - Is ^SC clinic in the same DUZ(2) as user?
I DIV="" Q 1 ; If clinic has no division, consider it avial to user. I DIV="" Q 1 ; If clinic has no division, consider it avial to user.
I DIV=DUZ(2) Q 1 ; If same, then User is in same Div as Clinic I DIV=DUZ(2) Q 1 ; If same, then User is in same Div as Clinic
E Q 0 ; Otherwise, no E Q 0 ; Otherwise, no
QUIT
INDIV2(BSDXRES) ; PEP - Is Resource in the same DUZ(2) as user? INDIV2(BSDXRES) ; PEP - Is Resource in the same DUZ(2) as user?
; Input BSDXRES - BSDX RESOURCE IEN ; Input BSDXRES - BSDX RESOURCE IEN
; Output: True of False ; Output: True of False
Q $$INDIV($P($G(^BSDXRES(BSDXRES,0)),U,4)) ; Extract Hospital Location and send to $$INDIV Q $$INDIV($P($G(^BSDXRES(BSDXRES,0)),U,4)) ; Extract Hospital Location and send to $$INDIV
UnitTestINDIV UTINDIV ; Unit Test $$INDIV
W "Testing if they are the same",! W "Testing if they are the same",!
S DUZ(2)=67 S DUZ(2)=67
I '$$INDIV(1) W "ERROR",! I '$$INDIV(1) W "ERROR",!
@ -310,7 +309,7 @@ UnitTestINDIV
I $$INDIV(1) W "ERROR",! I $$INDIV(1) W "ERROR",!
I $$INDIV(2) W "ERROR",! I $$INDIV(2) W "ERROR",!
QUIT QUIT
UnitTestINDIV2 UTINDIV2 ; Unit Test $$INDIV2
W "Testing if they are the same",! W "Testing if they are the same",!
S DUZ(2)=69 S DUZ(2)=69
I $$INDIV2(22)'=0 W "ERROR",! I $$INDIV2(22)'=0 W "ERROR",!

7
m/BSDX02.m
View File

@ -1,5 +1,5 @@
BSDX02 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/16/11 2:47pm BSDX02 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/12 11:09am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;Licensed under LGPL ;Licensed under LGPL
; Change Log ; Change Log
; July 15 2010: UJO/SMH - Pass FM dates in instead of US dates for i18n ; July 15 2010: UJO/SMH - Pass FM dates in instead of US dates for i18n
@ -29,7 +29,8 @@ CRSCH(BSDXY,BSDXRES,BSDXSTART,BSDXEND,BSDXWKIN) ;
K ^BSDXTMP($J) K ^BSDXTMP($J)
S BSDXERR="" S BSDXERR=""
S BSDXY="^BSDXTMP("_$J_")" S BSDXY="^BSDXTMP("_$J_")"
S ^BSDXTMP($J,0)="I00020APPOINTMENTID^D00030START_TIME^D00030END_TIME^D00030CHECKIN^D00030AUXTIME^I00020PATIENTID^T00030PATIENTNAME^T00030RESOURCENAME^I00005NOSHOW^T00020HRN^I00005ACCESSTYPEID^I00005WALKIN^T00250NOTE^T00006SEX^T00040PID^D00030DOB^I00020RADIOLOGY_EXAM"_$C(30) S ^BSDXTMP($J,0)="I00020APPOINTMENTID^D00030START_TIME^D00030END_TIME^D00030CHECKIN^D00030AUXTIME^I00020PATIENTID^T00030PATIENTNAME^T00030RESOURCENAME"
S ^(0)=^(0)_"^I00005NOSHOW^T00020HRN^I00005ACCESSTYPEID^I00005WALKIN^T00250NOTE^T00006SEX^T00040PID^D00030DOB^I00020RADIOLOGY_EXAM"_$C(30)
D ^XBKVAR S X="ETRAP^BSDX02",@^%ZOSF("TRAP") D ^XBKVAR S X="ETRAP^BSDX02",@^%ZOSF("TRAP")
; ;
; S %DT="T",X=BSDXSTART D ^%DT S BSDXSTART=Y ; S %DT="T",X=BSDXSTART D ^%DT S BSDXSTART=Y

2
m/BSDX03.m
View File

@ -1,5 +1,5 @@
BSDX03 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:14am BSDX03 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:14am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;Licensed under LGPL ;Licensed under LGPL
; ;
; ;

4
m/BSDX04.m
View File

@ -1,5 +1,5 @@
BSDX04 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 4/28/11 10:15am BSDX04 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 7/6/12 10:55am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; Change Log: ; Change Log:
; July 11 2010: Pass BSDXSTART and END as FM dates rather than US formatted dates ; 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 BSDX05 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:16am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; Change Log: ; Change Log:

2
m/BSDX06.m
View File

@ -1,5 +1,5 @@
BSDX06 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:16am BSDX06 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:16am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; Change Log: ; Change Log:
; UJO/SMH: July 15 2010: Change in BSDXSTART and BSDXEND: get ; 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 ; 7/5/12 12:57pm BSDX07 ; VW/UJO/SMH - WINDOWS SCHEDULING RPCS ; 7/5/12 12:57pm
;;1.7T1;BSDX;;Aug 31, 2011;Build 18 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; Change Log: ; Change Log:

2
m/BSDX08.m
View File

@ -1,5 +1,5 @@
BSDX08 ; VW/UJO/SMH - WINDOWS SCHEDULING RPCS ; 7/5/12 12:39pm BSDX08 ; VW/UJO/SMH - WINDOWS SCHEDULING RPCS ; 7/5/12 12:39pm
;;1.7T1;BSDX;;Aug 31, 2011;Build 18 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; ;
; Original by HMW. New Written by Sam Habiel. Licensed under LGPL. ; Original by HMW. New Written by Sam Habiel. Licensed under LGPL.
; ;

4
m/BSDX09.m
View File

@ -1,5 +1,5 @@
BSDX09 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 4/28/11 10:18am BSDX09 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 6/21/12 11:03am
;;1.6;BSDX;;Aug 31, 2011;Build 18 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; Change Log: ; Change Log:

2
m/BSDX11.m
View File

@ -1,5 +1,5 @@
BSDX11 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:18am BSDX11 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:18am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
ENV0100 ;EP Version 1.0 Environment check 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 BSDX12 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:18am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; Change Log: ; Change Log:

2
m/BSDX13.m
View File

@ -1,5 +1,5 @@
BSDX13 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am BSDX13 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; Change Log: ; Change Log:

2
m/BSDX14.m
View File

@ -1,5 +1,5 @@
BSDX14 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am BSDX14 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; 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 BSDX15 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; 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 BSDX16 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 4/28/11 10:20am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; 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 BSDX17 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; 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 BSDX18 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; 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 BSDX19 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:21am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; 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 BSDX20 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:21am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; 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 BSDX21 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; 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 BSDX22 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; 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 BSDX23 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; 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 BSDX24 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; ;

2
m/BSDX25.m
View File

@ -1,5 +1,5 @@
BSDX25 ; VEN/SMH - WINDOWS SCHEDULING RPCS ; 7/5/12 11:55am BSDX25 ; VEN/SMH - WINDOWS SCHEDULING RPCS ; 7/5/12 11:55am
;;1.7T1;BSDX;;Aug 31, 2011;Build 18 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; Change Log: ; Change Log:

2
m/BSDX26.m
View File

@ -1,5 +1,5 @@
BSDX26 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 6/25/12 4:29pm BSDX26 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 6/25/12 4:29pm
;;1.7T1;BSDX;;Aug 31, 2011;Build 18 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; Change History: ; Change History:
; 3101023 - UJO/SMH - Addition of restartable transaction; relocation of tx. ; 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 BSDX27 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:24am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; Change Log: July 15, 2010 ; Change Log: July 15, 2010

7
m/BSDX28.m
View File

@ -1,5 +1,5 @@
BSDX28 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:25am BSDX28 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/12 10:57am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; Change Log: ; Change Log:
; HMW 3050721 Added test for inactivated record ; HMW 3050721 Added test for inactivated record
@ -75,8 +75,7 @@ DOB ;DOB Lookup
. . Q . . Q
. Q . Q
; ;
CHART CHART ;Chart# Lookup
;Chart# Lookup
I +DUZ(2),BSDXP]"",$D(^AUPNPAT("D",BSDXP)) D S BSDXY=BSDXRET_$C(31) Q I +DUZ(2),BSDXP]"",$D(^AUPNPAT("D",BSDXP)) D S BSDXY=BSDXRET_$C(31) Q
. S BSDXIEN=0 F S BSDXIEN=$O(^AUPNPAT("D",BSDXP,BSDXIEN)) Q:'+BSDXIEN I $D(^AUPNPAT("D",BSDXP,BSDXIEN,DUZ(2))) D Q . S BSDXIEN=0 F S BSDXIEN=$O(^AUPNPAT("D",BSDXP,BSDXIEN)) Q:'+BSDXIEN I $D(^AUPNPAT("D",BSDXP,BSDXIEN,DUZ(2))) D Q
. . Q:'$D(^DPT(BSDXIEN,0)) . . Q:'$D(^DPT(BSDXIEN,0))

2
m/BSDX29.m
View File

@ -1,5 +1,5 @@
BSDX29 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 6/22/12 1:46pm BSDX29 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 6/22/12 1:46pm
;;1.7T1;BSDX;;Aug 31, 2011;Build 18 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; Change Log: ; 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] BSDX2E ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [4/28/11 10:28am]
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
S LINE="",$P(LINE,"*",81)="" S LINE="",$P(LINE,"*",81)=""

27
m/BSDX30.m
View File

@ -1,12 +1,12 @@
BSDX30 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [4/28/11 10:28am] BSDX30 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [7/6/12 11:03am]
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; ;
SPACED(BSDXY,BSDXDIC,BSDXVAL) ;EP SPACED(BSDXY,BSDXDIC,BSDXVAL) ;EP
;Entry point for debugging ;Entry point for debugging
; ;
D DEBUG^%Serenji("SPACE^BSDX30(.BSDXY,BSDXDIC,BSDXVAL)") ; D DEBUG^%Serenji("SPACE^BSDX30(.BSDXY,BSDXDIC,BSDXVAL)")
Q Q
; ;
SPACE(BSDXY,BSDXDIC,BSDXVAL) ;EP SPACE(BSDXY,BSDXDIC,BSDXVAL) ;EP
@ -48,7 +48,7 @@ ETRAP ;EP Error trap entry
; ;
EHRPTD(BSDXY,BSDXWID,BSDXDFN) ; EHRPTD(BSDXY,BSDXWID,BSDXDFN) ;
; ;
D DEBUG^%Serenji("EHRPT^BSDX30(.BSDXY,BSDXWID,BSDXDFN)") ; D DEBUG^%Serenji("EHRPT^BSDX30(.BSDXY,BSDXWID,BSDXDFN)")
Q Q
; ;
EHRPT(BSDXY,BSDXWID,BSDXDFN) ; EHRPT(BSDXY,BSDXWID,BSDXDFN) ;
@ -69,6 +69,9 @@ EHRPT(BSDXY,BSDXWID,BSDXDFN) ;
Q Q
; ;
PEVENT(BSDXWID,DFN) ;EP - Raise patient selection event to EHR PEVENT(BSDXWID,DFN) ;EP - Raise patient selection event to EHR
; VEN/SMH v1.7 3120706 - Not used in VISTA.
; No way right now to synchronize with CPRS.
; Code commented out for now.
; ;
;Change patient context to patient DFN ;Change patient context to patient DFN
;on all EHR client sessions associated with user DUZ ;on all EHR client sessions associated with user DUZ
@ -77,14 +80,14 @@ PEVENT(BSDXWID,DFN) ;EP - Raise patient selection event to EHR
;If BSDXWID is "", the context change is sent to ;If BSDXWID is "", the context change is sent to
;all EHR client sessions belonging to user DUZ. ;all EHR client sessions belonging to user DUZ.
; ;
Q:'$G(DUZ) ;Q:'$G(DUZ)
;N X ;N X
;S X="CIANBUTL" X ^%ZOSF("TEST") Q:'$T ;S X="CIANBUTL" X ^%ZOSF("TEST") Q:'$T
;S X="CIANBEVT" X ^%ZOSF("TEST") Q:'$T ;S X="CIANBEVT" X ^%ZOSF("TEST") Q:'$T
N UID,BRET ;N UID,BRET
S BRET=0,UID=0 ;S BRET=0,UID=0
F S BRET=$$NXTUID^CIANBUTL(.UID,1) Q:'UID D ;F S BRET=$$NXTUID^CIANBUTL(.UID,1) Q:'UID D
. Q:DUZ'=$$GETVAR^CIANBUTL("DUZ",,,UID) ;. Q:DUZ'=$$GETVAR^CIANBUTL("DUZ",,,UID)
. I BSDXWID'="" Q:BSDXWID'=$TR($$GETVAR^CIANBUTL("WID",,,UID),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ") ;. I BSDXWID'="" Q:BSDXWID'=$TR($$GETVAR^CIANBUTL("WID",,,UID),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
. D QUEUE^CIANBEVT("CONTEXT.PATIENT",+DFN,UID) ;. D QUEUE^CIANBEVT("CONTEXT.PATIENT",+DFN,UID)
Q ;Q

2
m/BSDX31.m
View File

@ -1,5 +1,5 @@
BSDX31 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 6/27/12 4:57pm BSDX31 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 6/27/12 4:57pm
;;1.7T1;BSDX;;Aug 31, 2011;Build 18 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; Change Log: ; Change Log:
; v1.42 3101023 WV/SMH - Change transaction to restartable. ; v1.42 3101023 WV/SMH - Change transaction to restartable.

2
m/BSDX32.m
View File

@ -1,5 +1,5 @@
BSDX32 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/11/11 10:39am BSDX32 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/11/11 10:39am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; Change Log: ; Change Log:

2
m/BSDX33.m
View File

@ -1,5 +1,5 @@
BSDX33 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am BSDX33 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; Mods by WV/STAR ; 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 BSDX34 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; Change Log: ; Change Log:

2
m/BSDX35.m
View File

@ -1,5 +1,5 @@
BSDX35 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 6/21/12 3:57pm BSDX35 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 6/21/12 3:57pm
;;1.7T1;BSDX;;Aug 31, 2011;Build 18 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; ;

24
m/BSDXAPI.m
View File

@ -1,5 +1,5 @@
BSDXAPI ; IHS/LJF,HMW,MAW & VEN/SMH - SCHEDULING APIs ; 7/5/12 12:52pm BSDXAPI ; IHS/LJF,HMW,MAW & VEN/SMH - SCHEDULING APIs ; 7/6/12 10:24am
;;1.7T1;BSDX;;Aug 31, 2011;Build 18 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; Orignal routine is BSDAPI by IHS/LJF, HMW, and MAW ; Orignal routine is BSDAPI by IHS/LJF, HMW, and MAW
@ -111,7 +111,7 @@ MAKE(BSDR) ;PEP; call to store appt made
S:$G(BSDXSIMERR5) X=1/0 S:$G(BSDXSIMERR5) X=1/0
; ;
; Update the Availablilities ; Doesn't fail. Global reads and sets. ; Update the Availablilities ; Doesn't fail. Global reads and sets.
D AVUPDTMK^BSDXAPI1(BSDR("CLN"),BSDR("ADT"),BSDR("LEN")) D AVUPDTMK^BSDXAPI1(BSDR("CLN"),BSDR("ADT"),BSDR("LEN"),BSDR("PAT"))
; ;
; call event driver ; call event driver
NEW DFN,SDT,SDCL,SDDA,SDMODE NEW DFN,SDT,SDCL,SDDA,SDMODE
@ -385,7 +385,11 @@ CANCELCK(BSDR) ; $$ PEP; Okay to Cancel Appointment?
; ;
NEW IEN S IEN=$$SCIEN(BSDR("PAT"),BSDR("CLN"),BSDR("ADT")) NEW IEN S IEN=$$SCIEN(BSDR("PAT"),BSDR("CLN"),BSDR("ADT"))
I 'IEN Q 1_U_"Error trying to find appointment for cancel: Patient="_BSDR("PAT")_" Clinic="_BSDR("CLN")_" Appt="_BSDR("ADT") I 'IEN Q 1_U_"Error trying to find appointment for cancel: Patient="_BSDR("PAT")_" Clinic="_BSDR("CLN")_" Appt="_BSDR("ADT")
;
; Check-out check. New in v1.7
I $$CO(BSDR("PAT"),BSDR("CLN"),BSDR("ADT"),IEN) Q 1_U_"Cannot delete. Appointment has already been checked-out!"
Q 0 Q 0
;
CI(PAT,CLINIC,DATE,SDIEN) ;PEP; -- returns 1 if appt already checked-in CI(PAT,CLINIC,DATE,SDIEN) ;PEP; -- returns 1 if appt already checked-in
NEW X NEW X
S X=$G(SDIEN) ;ien sent in call S X=$G(SDIEN) ;ien sent in call
@ -393,6 +397,13 @@ CI(PAT,CLINIC,DATE,SDIEN) ;PEP; -- returns 1 if appt already checked-in
S X=$P($G(^SC(CLINIC,"S",DATE,1,X,"C")),U) S X=$P($G(^SC(CLINIC,"S",DATE,1,X,"C")),U)
Q $S(X:1,1:0) Q $S(X:1,1:0)
; ;
CO(PAT,CLINIC,DATE,SDIEN) ;PEP; -- returns 1 if appt already checked-out
NEW X
S X=$G(SDIEN) ;ien sent in call
I 'X S X=$$SCIEN(PAT,CLINIC,DATE) I 'X Q 0
S X=$P($G(^SC(CLINIC,"S",DATE,1,X,"C")),U,3)
Q $S(X:1,1:0)
;
SCIEN(PAT,CLINIC,DATE) ;PEP; returns ien for appt in ^SC SCIEN(PAT,CLINIC,DATE) ;PEP; returns ien for appt in ^SC
NEW X,IEN NEW X,IEN
S X=0 F S X=$O(^SC(CLINIC,"S",DATE,1,X)) Q:'X Q:$G(IEN) D S X=0 F S X=$O(^SC(CLINIC,"S",DATE,1,X)) Q:'X Q:$G(IEN) D
@ -410,13 +421,6 @@ APPTYP(PAT,DATE) ;PEP; -- returns type of appt (scheduled or walk-in)
NEW X S X=$P($G(^DPT(PAT,"S",DATE,0)),U,7) NEW X S X=$P($G(^DPT(PAT,"S",DATE,0)),U,7)
Q $S(X=3:"SCHED",X=4:"WALK-IN",1:"??") Q $S(X=3:"SCHED",X=4:"WALK-IN",1:"??")
; ;
CO(PAT,CLINIC,DATE,SDIEN) ;PEP; -- returns 1 if appt already checked-out
NEW X
S X=$G(SDIEN) ;ien sent in call
I 'X S X=$$SCIEN(PAT,CLINIC,DATE) I 'X Q 0
S X=$P($G(^SC(CLINIC,"S",DATE,1,X,"C")),U,3)
Q $S(X:1,1:0)
;
UPDATENT(PAT,CLINIC,DATE,NOTE) ; PEP; Update Note in ^SC for patient's appointment @ DATE UPDATENT(PAT,CLINIC,DATE,NOTE) ; PEP; Update Note in ^SC for patient's appointment @ DATE
; PAT = DFN ; PAT = DFN
; CLINIC = SC IEN ; CLINIC = SC IEN

6
m/BSDXAPI1.m
View File

@ -1,5 +1,5 @@
BSDXAPI1 ; VEN/SMH - SCHEDULING APIs - Continued!!! ; 7/5/12 12:55pm BSDXAPI1 ; VEN/SMH - SCHEDULING APIs - Continued!!! ; 7/6/12 10:23am
;;1.7T1;BSDX;;Aug 31, 2011;Build 18 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; Change History (BSDXAPI and BSDXAPI1) ; Change History (BSDXAPI and BSDXAPI1)
@ -242,7 +242,7 @@ AVUPDTCN(BSDXSCD,BSDXSTART,BSDXLEN) ;Update PIMS Clinic availability for cancel
S ^SC(BSDXSCD,"ST",SD\1,1)=S ; new pattern; global set S ^SC(BSDXSCD,"ST",SD\1,1)=S ; new pattern; global set
Q Q
; ;
AVUPDTMK(BSDXSCD,BSDXSTART,BSDXLEN) ; Update RPMS Clinic availability for Make AVUPDTMK(BSDXSCD,BSDXSTART,BSDXLEN,BSDXPATID) ; Update RPMS Clinic availability for Make
;SEE SDM1 ;SEE SDM1
N Y,DFN N Y,DFN
N SL,STARTDAY,X,SC,SB,HSI,SI,STR,SDDIF,SDMAX,SDDATE,SDDMAX,SDSDATE,CCXN,MXOK,COV,SDPROG N SL,STARTDAY,X,SC,SB,HSI,SI,STR,SDDIF,SDMAX,SDDATE,SDDMAX,SDSDATE,CCXN,MXOK,COV,SDPROG

6
m/BSDXGPRV.m
View File

@ -1,5 +1,5 @@
BSDXGPRV ; WV/SMH - WINDOWS SCHEDULING RPCS ; 4/28/11 10:31am BSDXGPRV ; WV/SMH - WINDOWS SCHEDULING RPCS ; 7/6/12 11:07am
;;1.6T2;BSDX;;May 16, 2011 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; ;
@ -17,7 +17,7 @@ ERR(BSDXERR) ;Error processing
; ;
PD(BSDXY,HLIEN) ;EP Debugging entry point PD(BSDXY,HLIEN) ;EP Debugging entry point
; ;
D DEBUG^%Serenji("P^BSDXGPRV(.BSDXY,HLIEN)","192.168.254.130") ;D DEBUG^%Serenji("P^BSDXGPRV(.BSDXY,HLIEN)","192.168.254.130")
; ;
Q Q
; ;

2
m/BSDXUT.m
View File

@ -1,5 +1,5 @@
BSDXUT ; VEN/SMH - Unit Tests for Scheduling GUI ; 6/29/12 12:20pm BSDXUT ; VEN/SMH - Unit Tests for Scheduling GUI ; 6/29/12 12:20pm
;;1.7T1;BSDX;;Aug 31, 2011;Build 18 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; Licensed under LGPL ; Licensed under LGPL
; ;
; Change Log: ; Change Log:

2
m/BSDXUT1.m
View File

@ -1,5 +1,5 @@
BSDXUT1 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 7/3/12 12:28pm BSDXUT1 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 7/3/12 12:28pm
;;1.7T1;BSDX;;Aug 31, 2011;Build 18 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; ;
; ;
EN ; Run All Unit Tests in this routine EN ; Run All Unit Tests in this routine

2
m/BSDXUT2.m
View File

@ -1,5 +1,5 @@
BSDXUT2 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 7/5/12 11:39am BSDXUT2 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 7/5/12 11:39am
;;1.7T1;BSDX;;Aug 31, 2011;Build 18 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
; ;
EN ; Run all unit tests in this routine EN ; Run all unit tests in this routine
D UT25 D UT25