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

Updated routine version numbers to 1.7T2. 

Changes the Writes in the post-init to MES^XPDUTL in BSDX2E.
Changed the check for BMX to be for BMX 4 rather than BMX 2.
This commit is contained in:
sam 2012-07-11 16:18:56 +00:00
parent ab2f082f1e
commit ff902e3d60
41 changed files with 49 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
m/BSDX01.m
View File

@ -1,5 +1,5 @@
BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/12 10:52am
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; Licensed under LGPL
;
SUINFOD(BSDXY,BSDXDUZ) ;EP Debugging entry point
@ -309,7 +309,7 @@ UTINDIV ; Unit Test $$INDIV
I $$INDIV(1) W "ERROR",!
I $$INDIV(2) W "ERROR",!
QUIT
UTINDIV2 ; Unit Test $$INDIV2
UTINDIV2 ; Unit Test $$INDIV2
W "Testing if they are the same",!
S DUZ(2)=69
I $$INDIV2(22)'=0 W "ERROR",!

2
m/BSDX02.m
View File

@ -1,5 +1,5 @@
BSDX02 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/12 11:09am
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
;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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
;Licensed under LGPL
;
;

2
m/BSDX04.m
View File

@ -1,5 +1,5 @@
BSDX04 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 7/6/12 10:55am
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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 ; 7/9/12 4:02pm
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; Licensed under LGPL
;
; Change Log:

2
m/BSDX08.m
View File

@ -1,5 +1,5 @@
BSDX08 ; VW/UJO/SMH - WINDOWS SCHEDULING RPCS ; 7/9/12 4:22pm
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
;
; 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 ; ; 6/21/12 11:03am
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; Licensed under LGPL
;
;

2
m/BSDX25.m
View File

@ -1,5 +1,5 @@
BSDX25 ; VEN/SMH - WINDOWS SCHEDULING RPCS ; 7/9/12 5:00pm
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; Licensed under LGPL
;
; Change Log:

2
m/BSDX26.m
View File

@ -1,5 +1,5 @@
BSDX26 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/10/12 10:27am
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; Licensed under LGPL
;
; Change Log: July 15, 2010

4
m/BSDX28.m
View File

@ -1,5 +1,5 @@
BSDX28 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/12 10:57am
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; Licensed under LGPL
; Change Log:
; HMW 3050721 Added test for inactivated record
@ -75,7 +75,7 @@ DOB ;DOB Lookup
. . Q
. Q
;
CHART ;Chart# Lookup
CHART ;Chart# Lookup
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
. . Q:'$D(^DPT(BSDXIEN,0))

2
m/BSDX29.m
View File

@ -1,5 +1,5 @@
BSDX29 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/9/12 11:50am
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; Licensed under LGPL
;
; Change Log:

12
m/BSDX2E.m
View File

@ -1,5 +1,5 @@
BSDX2E ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [4/28/11 10:28am]
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
BSDX2E ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [7/11/12 9:37am]
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; Licensed under LGPL
;
S LINE="",$P(LINE,"*",81)=""
@ -23,7 +23,7 @@ VERSION ;
;Is the PIMS requirement present?
Q:'$$VERCHK("SD",5.3)
; Q:'$$PATCHCK("PIMS*5.3*1003") D
Q:'$$VERCHK("BMX",2)
Q:'$$VERCHK("BMX",4)
;
OTHER ;
;Other checks
@ -90,7 +90,7 @@ V0200 ;EP Version 1.5 PostInit
. S BSDXFDA(101.01,"+1,"_BSDXDA_",","3")=BSDXSEQ
. D UPDATE^DIE("","BSDXFDA","BSDXIEN","BSDXMSG")
. ; Error message
. I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
. I $D(BSDXMSG) D MES^XPDUTL("Error: ",BSDXMSG("DIERR",1,"TEXT",1))
;
; Remove nassssty protocols ORU PATIENT MOVMT and DVBA C&P SCHD EVENT
; SDAM APPOINTMENT EVENTS IENS for use in FIND1^DIC
@ -105,7 +105,7 @@ V0200 ;EP Version 1.5 PostInit
S:DVBAIEN>0 BSDXFDA(101.01,DVBAIEN_SDEVTIENS,.01)="@"
D:$D(BSDXFDA) FILE^DIE("","BSDXFDA","BSDXMSG")
; If error
I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
I $D(BSDXMSG) D MES^XPDUTL("Error: ",BSDXMSG("DIERR",1,"TEXT",1))
;
;
; Now put in the default values for parameters
@ -116,7 +116,7 @@ V0200 ;EP Version 1.5 PostInit
D PUT^XPAR("PKG","BSDX AUTO PRINT RS",1,0,.BSDXERR)
I $G(BSDXERR) W $C(7),"Error: ",BSDXERR
D PUT^XPAR("PKG","BSDX AUTO PRINT AS",1,0,.BSDXERR)
I $G(BSDXERR) W $C(7),"Error: ",BSDXERR
I $G(BSDXERR) D MES^XPDUTL("Error: ",BSDXERR)
QUIT
;
SORRY(XPX) ;

2
m/BSDX30.m
View File

@ -1,5 +1,5 @@
BSDX30 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [7/6/12 11:03am]
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; Licensed under LGPL
;
;

2
m/BSDX31.m
View File

@ -1,5 +1,5 @@
BSDX31 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/10/12 10:39am
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; Licensed under LGPL
; Change Log:
; 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
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; 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.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; Licensed under LGPL
;
; Change Log:

2
m/BSDX35.m
View File

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

2
m/BSDXAPI.m
View File

@ -1,5 +1,5 @@
BSDXAPI ; IHS/LJF,HMW,MAW & VEN/SMH - SCHEDULING APIs ; 7/10/12 5:58pm
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; Licensed under LGPL
;
; Orignal routine is BSDAPI by IHS/LJF, HMW, and MAW

2
m/BSDXAPI1.m
View File

@ -1,5 +1,5 @@
BSDXAPI1 ; VEN/SMH - SCHEDULING APIs - Continued!!! ; 7/9/12 2:22pm
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; Licensed under LGPL
;
; Change History (BSDXAPI and BSDXAPI1)

2
m/BSDXGPRV.m
View File

@ -1,5 +1,5 @@
BSDXGPRV ; WV/SMH - WINDOWS SCHEDULING RPCS ; 7/6/12 11:07am
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
; Licensed under LGPL
;
;

2
m/BSDXUT.m
View File

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

2
m/BSDXUT1.m
View File

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

4
m/BSDXUT2.m
View File

@ -1,5 +1,5 @@
BSDXUT2 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 7/9/12 3:18pm
;;1.7T1;BSDX;;Jul 06, 2012;Build 18
;;1.7T2;BSDX;;Jul 11, 2012;Build 18
;
EN ; Run all unit tests in this routine
D UT25,PIMS
@ -178,7 +178,7 @@ UT25 ; Unit Tests for BSDX25
K BSDXDIE
QUIT
;
PIMS ; Tests for running PIMS by itself.
PIMS ; Tests for running PIMS by itself.
N $ET S $ET="W ""An Error Occured. Breaking."",! BREAK"
N RESNAM S RESNAM="UTCLINIC"
N HLRESIENS ; holds output of UTCR^BSDXUT - HL IEN^Resource IEN