From 5860f06e6a7cf7d53ca06a1f021723e1b8f47a51 Mon Sep 17 00:00:00 2001 From: sam Date: Mon, 28 Mar 2011 14:40:45 +0000 Subject: [PATCH] Alpha 3 version files --- m/BSDX01.m | 6 +++--- m/BSDX02.m | 8 ++++---- m/BSDX03.m | 2 +- m/BSDX04.m | 2 +- m/BSDX05.m | 2 +- m/BSDX06.m | 2 +- m/BSDX07.m | 2 +- m/BSDX08.m | 2 +- m/BSDX09.m | 2 +- m/BSDX11.m | 2 +- m/BSDX12.m | 2 +- m/BSDX13.m | 2 +- m/BSDX14.m | 2 +- m/BSDX15.m | 2 +- m/BSDX16.m | 2 +- m/BSDX17.m | 2 +- m/BSDX18.m | 2 +- m/BSDX19.m | 2 +- m/BSDX20.m | 2 +- m/BSDX21.m | 2 +- m/BSDX22.m | 2 +- m/BSDX23.m | 2 +- m/BSDX24.m | 2 +- m/BSDX25.m | 18 +++++++++--------- m/BSDX26.m | 2 +- m/BSDX27.m | 2 +- m/BSDX28.m | 2 +- m/BSDX29.m | 2 +- m/BSDX2E.m | 2 +- m/BSDX30.m | 2 +- m/BSDX31.m | 2 +- m/BSDX32.m | 2 +- m/BSDX33.m | 2 +- m/BSDX34.m | 2 +- m/BSDX35.m | 2 +- m/BSDXAPI.m | 2 +- m/BSDXGPRV.m | 2 +- 37 files changed, 50 insertions(+), 50 deletions(-) diff --git a/m/BSDX01.m b/m/BSDX01.m index eeef6a1..4451c4d 100644 --- a/m/BSDX01.m +++ b/m/BSDX01.m @@ -1,5 +1,5 @@ BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 3/16/11 7:08am - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; SUINFOD(BSDXY,BSDXDUZ) ;EP Debugging entry point ;D DEBUG^%Serenji("SUINFO^BSDX01(.BSDXY,BSDXDUZ)") @@ -256,7 +256,7 @@ APSEC(BSDXKEY,BSDXDUZ) ;EP - Return TRUE (1) if user has keys BSDXKEY or XUPROGM I '+BSDXIEN Q 0 I '$D(^VA(200,BSDXDUZ,51,BSDXIEN,0)) Q 0 Q 1 -SP(BSDXY,PARAM,YESNO) ; Save Param at User Level - EP +SP(BSDXY,PARAM,YESNO) ; Save Param at User Level - EP ; Called by RPC: BSDX SET PARAM ; Input: ; - Param: Name of Parameter (prog name of course) @@ -271,7 +271,7 @@ SP(BSDXY,PARAM,YESNO) ; Save Param at User Level - EP S BSDXY=$G(ERROR) QUIT ; -GP(BSDXY,PARAM) ; Get Param - EP +GP(BSDXY,PARAM) ; Get Param - EP ; Called by RPC: BSDX GET PARAM ; Input: Name of Parameter ; Output: Value of parameter: 0 or 1, for now. diff --git a/m/BSDX02.m b/m/BSDX02.m index d995c99..3aff2d4 100644 --- a/m/BSDX02.m +++ b/m/BSDX02.m @@ -1,8 +1,8 @@ BSDX02 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 3/21/11 11:49am - ;;1.5V2;BSDX;;Mar 03, 2011 - ; - ; Change Log - ; July 15 2010: UJO/SMH - Pass FM dates in instead of US dates for i18n + ;;1.5V3;BSDX;;Mar 16, 2011 + ; + ; Change Log + ; July 15 2010: UJO/SMH - Pass FM dates in instead of US dates for i18n ; March 21 2011: UJO/SMH (v 1.5) - Return new fields: Patient SEX, PID, and DOB ; ; diff --git a/m/BSDX03.m b/m/BSDX03.m index be8463e..0af5d92 100644 --- a/m/BSDX03.m +++ b/m/BSDX03.m @@ -1,5 +1,5 @@ BSDX03 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; Q diff --git a/m/BSDX04.m b/m/BSDX04.m index dc9645c..be84ebb 100644 --- a/m/BSDX04.m +++ b/m/BSDX04.m @@ -1,5 +1,5 @@ BSDX04 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 2/27/11 6:32am - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; Change Log: ; July 11 2010: Pass BSDXSTART and END as FM dates rather than US formatted dates ; for i18n diff --git a/m/BSDX05.m b/m/BSDX05.m index 44e6086..ac0d698 100644 --- a/m/BSDX05.m +++ b/m/BSDX05.m @@ -1,5 +1,5 @@ BSDX05 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 12/6/10 5:36pm - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; Change Log: ; UJO/SMH - July 11 2010: pass FM Dates for Start and End rather than US Dates diff --git a/m/BSDX06.m b/m/BSDX06.m index fb8b04f..de46149 100644 --- a/m/BSDX06.m +++ b/m/BSDX06.m @@ -1,5 +1,5 @@ BSDX06 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 4:51pm - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; Change Log: ; UJO/SMH: July 15 2010: Change in BSDXSTART and BSDXEND: get ; dates in FM format for i18n diff --git a/m/BSDX07.m b/m/BSDX07.m index c8a4a2c..e2509df 100644 --- a/m/BSDX07.m +++ b/m/BSDX07.m @@ -1,5 +1,5 @@ BSDX07 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 3/15/11 11:50am - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; Change Log: ; UJO/SMH diff --git a/m/BSDX08.m b/m/BSDX08.m index 6147802..014afc9 100644 --- a/m/BSDX08.m +++ b/m/BSDX08.m @@ -1,5 +1,5 @@ BSDX08 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 1/25/11 12:39pm - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; Original by HMW. New Written by Sam Habiel. Licensed under LGPL. ; diff --git a/m/BSDX09.m b/m/BSDX09.m index 2823fa8..37d6aa0 100644 --- a/m/BSDX09.m +++ b/m/BSDX09.m @@ -1,5 +1,5 @@ BSDX09 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 10/20/10 4:16pm - ;;1.5V2;BSDX;;Mar 03, 2011;Build 7 + ;;1.5V3;BSDX;;Mar 16, 2011;Build 7 ; ; Change Log: ; UJO/TH - v 1.3 on 3100714 - Extra Demographics: diff --git a/m/BSDX11.m b/m/BSDX11.m index 09c2547..8d697ca 100644 --- a/m/BSDX11.m +++ b/m/BSDX11.m @@ -1,5 +1,5 @@ BSDX11 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ENV0100 ;EP Version 1.0 Environment check I '$G(IOM) D HOME^%ZIS diff --git a/m/BSDX12.m b/m/BSDX12.m index d76aa91..a8c2d3c 100644 --- a/m/BSDX12.m +++ b/m/BSDX12.m @@ -1,5 +1,5 @@ BSDX12 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:14pm - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; Change Log: ; v 1.3 - i18n support - 3100718 diff --git a/m/BSDX13.m b/m/BSDX13.m index 6853393..a2125cf 100644 --- a/m/BSDX13.m +++ b/m/BSDX13.m @@ -1,5 +1,5 @@ BSDX13 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 12/6/10 6:05pm - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; Change Log: ; V 1.3 - i18n support - Dates passed to Routine as FM Date - WV/SMH diff --git a/m/BSDX14.m b/m/BSDX14.m index 2182e0d..f85b5f8 100644 --- a/m/BSDX14.m +++ b/m/BSDX14.m @@ -1,5 +1,5 @@ BSDX14 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; ACCTYPD(BSDXY,BSDXVAL) ;EP diff --git a/m/BSDX15.m b/m/BSDX15.m index 7010deb..f794b65 100644 --- a/m/BSDX15.m +++ b/m/BSDX15.m @@ -1,5 +1,5 @@ BSDX15 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; GRPTYP(BSDXY) ;EP diff --git a/m/BSDX16.m b/m/BSDX16.m index 550a682..a7a3990 100644 --- a/m/BSDX16.m +++ b/m/BSDX16.m @@ -1,5 +1,5 @@ BSDX16 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; RSRCD(BSDXY,BSDXVAL) ;EP diff --git a/m/BSDX17.m b/m/BSDX17.m index ce9c3ed..34c8810 100644 --- a/m/BSDX17.m +++ b/m/BSDX17.m @@ -1,5 +1,5 @@ BSDX17 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; SCHUSRD(BSDXY) ;EP diff --git a/m/BSDX18.m b/m/BSDX18.m index f0e94b9..3763005 100644 --- a/m/BSDX18.m +++ b/m/BSDX18.m @@ -1,5 +1,5 @@ BSDX18 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; DELRUD(BSDXY,BSDXIEN) ;EP diff --git a/m/BSDX19.m b/m/BSDX19.m index 0252b7f..476a505 100644 --- a/m/BSDX19.m +++ b/m/BSDX19.m @@ -1,5 +1,5 @@ BSDX19 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; ADDRGD(BSDXY,BSDXVAL) ;EP diff --git a/m/BSDX20.m b/m/BSDX20.m index d2b1567..3e0c8c6 100644 --- a/m/BSDX20.m +++ b/m/BSDX20.m @@ -1,5 +1,5 @@ BSDX20 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; DELRGID(BSDXY,BSDXIEN) ;EP diff --git a/m/BSDX21.m b/m/BSDX21.m index eaaf6aa..4d11bdb 100644 --- a/m/BSDX21.m +++ b/m/BSDX21.m @@ -1,5 +1,5 @@ BSDX21 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:42pm - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; ADDAGD(BSDXY,BSDXVAL) ;EP diff --git a/m/BSDX22.m b/m/BSDX22.m index 988c2b9..7bc5575 100644 --- a/m/BSDX22.m +++ b/m/BSDX22.m @@ -1,5 +1,5 @@ BSDX22 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; DELAGID(BSDXY,BSDXIEN,BSDXIEN1) ;EP diff --git a/m/BSDX23.m b/m/BSDX23.m index a2fa877..9142444 100644 --- a/m/BSDX23.m +++ b/m/BSDX23.m @@ -1,5 +1,5 @@ BSDX23 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; EVENT(BSDXEVENT,BSDXPARAM,BSDXSIP,BSDXSPT) ;EP diff --git a/m/BSDX24.m b/m/BSDX24.m index 3ed87c8..5314f00 100644 --- a/m/BSDX24.m +++ b/m/BSDX24.m @@ -1,5 +1,5 @@ BSDX24 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; Q diff --git a/m/BSDX25.m b/m/BSDX25.m index e1b3c5a..dc66eb3 100644 --- a/m/BSDX25.m +++ b/m/BSDX25.m @@ -1,12 +1,12 @@ BSDX25 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 3/16/11 2:21am - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; Change Log: ; 3110106: SMH -> Changed Check-in EP - Removed unused paramters. Will change C# ; ; -UT ; Unit Tests - ; Make appointment, checkin, then uncheckin +UT ; Unit Tests + ; Make appointment, checkin, then uncheckin N ZZZ N APPTTIME S APPTTIME=$E($$NOW^XLFDT(),1,12) D APPADD^BSDX07(.ZZZ,APPTTIME,APPTTIME+.0001,3,"Dr Office",30,"Sam's Note",1) @@ -110,7 +110,7 @@ APCHK(BSDXZ,BSDXSC1,BSDXDFN,BSDXCDT,BSDXSTART) ; S BSDXZ=$$CHECKIN1^BSDXAPI(BSDXDFN,BSDXSC1,BSDXSTART) Q ; -RMCI(BSDXY,BSDXAPPTID) ; EP - Remove Check-in from BSDX APPT and 2/44 +RMCI(BSDXY,BSDXAPPTID) ; EP - Remove Check-in from BSDX APPT and 2/44 ; Called by RPC [Fill in later] ; ; Parameters to pass: @@ -223,11 +223,11 @@ CHKEVT3(BSDXRES) ; ; ERROR ; S $ETRAP="D ^%ZTER HALT" ; Emergency Error Trap for the wise - ; Rollback, otherwise ^XTER will be empty from future rollback - I $TL>0 TROLLBACK - D ^%ZTER - S $EC="" ; Clear Error - ; Log error message and send to client + ; Rollback, otherwise ^XTER will be empty from future rollback + I $TL>0 TROLLBACK + D ^%ZTER + S $EC="" ; Clear Error + ; Log error message and send to client D ERR("-20~Mumps Error") Q ; diff --git a/m/BSDX26.m b/m/BSDX26.m index 37b3ff2..83d8999 100644 --- a/m/BSDX26.m +++ b/m/BSDX26.m @@ -1,5 +1,5 @@ BSDX26 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 12/6/10 12:38pm - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; Change History: ; 3101023 - UJO/SMH - Addition of restartable transaction; relocation of tx. ; --> Thanks to Zach Gonzalez and Rick Marshall diff --git a/m/BSDX27.m b/m/BSDX27.m index d049684..b0519b4 100644 --- a/m/BSDX27.m +++ b/m/BSDX27.m @@ -1,5 +1,5 @@ BSDX27 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 12/6/10 4:52pm - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; Change Log: July 15, 2010 ; UJO/SMH - i18n: FM Dates passed into routine for Clinic Letters - CLDISP ta diff --git a/m/BSDX28.m b/m/BSDX28.m index c942bd7..8899c51 100644 --- a/m/BSDX28.m +++ b/m/BSDX28.m @@ -1,5 +1,5 @@ BSDX28 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:30pm - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; Change Log: ; HMW 3050721 Added test for inactivated record diff --git a/m/BSDX29.m b/m/BSDX29.m index 47f0844..0c25aa3 100644 --- a/m/BSDX29.m +++ b/m/BSDX29.m @@ -1,5 +1,5 @@ BSDX29 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 12/6/10 12:39pm - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; Change Log: ; v1.3 by WV/SMH on 3100713 diff --git a/m/BSDX2E.m b/m/BSDX2E.m index b2defd3..37fef2e 100644 --- a/m/BSDX2E.m +++ b/m/BSDX2E.m @@ -1,5 +1,5 @@ BSDX2E ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [3/16/11 9:54am] - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; S LINE="",$P(LINE,"*",81)="" S XPDNOQUE="NO QUE" ;NO QUEUING ALLOWED diff --git a/m/BSDX30.m b/m/BSDX30.m index f479ec9..c66ab36 100644 --- a/m/BSDX30.m +++ b/m/BSDX30.m @@ -1,5 +1,5 @@ BSDX30 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [ 09/12/2007 1:54 PM ] - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; SPACED(BSDXY,BSDXDIC,BSDXVAL) ;EP diff --git a/m/BSDX31.m b/m/BSDX31.m index dea7956..9dc824d 100644 --- a/m/BSDX31.m +++ b/m/BSDX31.m @@ -1,5 +1,5 @@ BSDX31 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 12/6/10 12:39pm - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; Change Log: ; v1.42 Oct 23 2010 WV/SMH ; - Change transaction to restartable. Thanks to Zach Gonzalez diff --git a/m/BSDX32.m b/m/BSDX32.m index 0b049b6..31185be 100644 --- a/m/BSDX32.m +++ b/m/BSDX32.m @@ -1,5 +1,5 @@ BSDX32 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 9/29/10 10:21am - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; ERROR ; diff --git a/m/BSDX33.m b/m/BSDX33.m index aa1455f..159d484 100644 --- a/m/BSDX33.m +++ b/m/BSDX33.m @@ -1,5 +1,5 @@ BSDX33 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:33pm - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; Mods by WV/STAR ; ; Change Log: diff --git a/m/BSDX34.m b/m/BSDX34.m index a550a42..be40014 100644 --- a/m/BSDX34.m +++ b/m/BSDX34.m @@ -1,5 +1,5 @@ BSDX34 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:37pm - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; Change Log: ; July 10 2010: diff --git a/m/BSDX35.m b/m/BSDX35.m index af9da3f..ac5998a 100644 --- a/m/BSDX35.m +++ b/m/BSDX35.m @@ -1,5 +1,5 @@ BSDX35 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; Q diff --git a/m/BSDXAPI.m b/m/BSDXAPI.m index ecd1638..31ed56f 100644 --- a/m/BSDXAPI.m +++ b/m/BSDXAPI.m @@ -1,5 +1,5 @@ BSDXAPI ; IHS/ANMC/LJF - SCHEDULING APIs ; 1/26/11 11:47am - ;;1.5V2;BSDX;;Mar 03, 2011;Build 7 + ;;1.5V3;BSDX;;Mar 16, 2011;Build 7 ;Orignal routine is BSDAPI by IHS/LJF, HMW, and MAW ;local mods (many) by WV/SMH ;Move to BSDX namespace as BSDXAPI from BSDAPI by WV/SMH diff --git a/m/BSDXGPRV.m b/m/BSDXGPRV.m index fad9e7a..224d7e5 100644 --- a/m/BSDXGPRV.m +++ b/m/BSDXGPRV.m @@ -1,5 +1,5 @@ BSDXGPRV ; WV/SMH - WINDOWS SCHEDULING RPCS ; 11/2/10 4:27pm - ;;1.5V2;BSDX;;Mar 03, 2011 + ;;1.5V3;BSDX;;Mar 16, 2011 ; ; ERROR ;