Alpha 3 version files
This commit is contained in:
parent
d0ccf1c8a9
commit
5860f06e6a
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
;
|
||||
;
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
BSDX03 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
|
||||
;;1.5V2;BSDX;;Mar 03, 2011
|
||||
;;1.5V3;BSDX;;Mar 16, 2011
|
||||
;
|
||||
;
|
||||
Q
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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.
|
||||
;
|
||||
|
|
|
@ -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:
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
BSDX24 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
|
||||
;;1.5V2;BSDX;;Mar 03, 2011
|
||||
;;1.5V3;BSDX;;Mar 16, 2011
|
||||
;
|
||||
;
|
||||
Q
|
||||
|
|
18
m/BSDX25.m
18
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
|
||||
;
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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 ;
|
||||
|
|
|
@ -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:
|
||||
|
|
|
@ -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:
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
BSDX35 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
|
||||
;;1.5V2;BSDX;;Mar 03, 2011
|
||||
;;1.5V3;BSDX;;Mar 16, 2011
|
||||
;
|
||||
;
|
||||
Q
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue