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

Change version to 1.4 on all routines 

BSDX08 has fix for drag and drop because it referenced a non existent cancellation reason
This commit is contained in:
sam 2010-09-20 12:16:53 +00:00
parent 398513c3b5
commit bb253903ea
37 changed files with 48 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
m/BSDX01.m
View File

@ -1,5 +1,5 @@
BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:04pm BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 9/15/10 9:09pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
SUINFOD(BSDXY,BSDXDUZ) ;EP Debugging entry point SUINFOD(BSDXY,BSDXDUZ) ;EP Debugging entry point
@ -119,7 +119,12 @@ RESUSR(BSDXY,BSDXDUZ) ;EP
S BSDXRES=0 F S BSDXRES=$O(^BSDXRES(BSDXRES)) Q:'+BSDXRES D S BSDXRES=0 F S BSDXRES=$O(^BSDXRES(BSDXRES)) Q:'+BSDXRES D
. Q:'$D(^BSDXRES(BSDXRES,0)) . Q:'$D(^BSDXRES(BSDXRES,0))
. S BSDXRNOD=^BSDXRES(BSDXRES,0) . S BSDXRNOD=^BSDXRES(BSDXRES,0)
. ;Q:$P(BSDXRNOD,U,2)=1 ;Inactive resources not filtered . N BSDXSC S BSDXSC=$P(BSDXRNOD,U,4) ; Hospital Location
. ; super line... if tied to hospital location,
. ; Hosp location exists, AND 4th piece isn't the same as
. ; DUZ(2), quit. Filters based on Divisions.
. ; . I +BSDXSC,$D(^SC(BSDXSC,0)),$P(^SC(BSDXSC,0),U,4)'=DUZ(2) QUIT
. ;Q:$P(BSDXRNOD,U,2)=1 ;Inactive resources not filtered
. ;S BSDXRDAT=$P(BSDXRNOD,U,1,4) . ;S BSDXRDAT=$P(BSDXRNOD,U,1,4)
. K BSDXRDAT . K BSDXRDAT
. F BSDX=1:1:4 S $P(BSDXRDAT,U,BSDX)=$P(BSDXRNOD,U,BSDX) . F BSDX=1:1:4 S $P(BSDXRDAT,U,BSDX)=$P(BSDXRNOD,U,BSDX)

2
m/BSDX02.m
View File

@ -1,5 +1,5 @@
BSDX02 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:25pm BSDX02 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:25pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; 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

2
m/BSDX03.m
View File

@ -1,5 +1,5 @@
BSDX03 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX03 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
Q Q

2
m/BSDX04.m
View File

@ -1,5 +1,5 @@
BSDX04 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 7/15/10 12:44pm BSDX04 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 7/15/10 12:44pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; 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
; for i18n ; for i18n

2
m/BSDX05.m
View File

@ -1,5 +1,5 @@
BSDX05 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:51pm BSDX05 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:51pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; Change Log: ; Change Log:
; UJO/SMH - July 11 2010: pass FM Dates for Start and End rather than US Dates ; UJO/SMH - July 11 2010: pass FM Dates for Start and End rather than US Dates

2
m/BSDX06.m
View File

@ -1,5 +1,5 @@
BSDX06 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 4:51pm BSDX06 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 4:51pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; 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
; dates in FM format for i18n ; dates in FM format for i18n

2
m/BSDX07.m
View File

@ -1,5 +1,5 @@
BSDX07 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 7/18/10 2:11pm BSDX07 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 7/18/10 2:11pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; Change Log: ; Change Log:
; UJO/SMH ; UJO/SMH

6
m/BSDX08.m
View File

@ -1,5 +1,5 @@
BSDX08 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX08 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 9/15/10 8:21pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
APPDELD(BSDXY,BSDXAPTID,BSDXTYP,BSDXCR,BSDXNOT) ;EP APPDELD(BSDXY,BSDXAPTID,BSDXTYP,BSDXCR,BSDXNOT) ;EP
@ -100,7 +100,7 @@ APCAN(BSDXZ,BSDXLOC,BSDXDFN,BSDXSD) ;
S %H=$H D YMD^%DTC S %H=$H D YMD^%DTC
S BSDXC("CDT")=X+% S BSDXC("CDT")=X+%
S BSDXC("NOT")=BSDXNOT S BSDXC("NOT")=BSDXNOT
S:'+$G(BSDXCR) BSDXCR=14 ;UNKNOWN REASON S:'+$G(BSDXCR) BSDXCR=11 ;Other
S BSDXC("CR")=BSDXCR S BSDXC("CR")=BSDXCR
S BSDXC("USR")=DUZ S BSDXC("USR")=DUZ
; ;

4
m/BSDX09.m
View File

@ -1,5 +1,5 @@
BSDX09 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 8/16/10 4:28pm BSDX09 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 8/16/10 4:28pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; Change Log: ; Change Log:
; UJO/TH - v 1.3 on 3100714 - Extra Demographics: ; UJO/TH - v 1.3 on 3100714 - Extra Demographics:
@ -12,7 +12,7 @@ BSDX09 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 8/16/10 4:28pm
; ;
GETREGA(BSDXRET,BSDXPAT) ;EP GETREGA(BSDXRET,BSDXPAT) ;EP
; ;
; See below for the returned fields ; See below for the returned fields
; ;
;For patient with ien BSDXPAT ;For patient with ien BSDXPAT
;K ^BSDXTMP($J) ;K ^BSDXTMP($J)

2
m/BSDX11.m
View File

@ -1,5 +1,5 @@
BSDX11 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX11 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
ENV0100 ;EP Version 1.0 Environment check ENV0100 ;EP Version 1.0 Environment check
I '$G(IOM) D HOME^%ZIS I '$G(IOM) D HOME^%ZIS

2
m/BSDX12.m
View File

@ -1,5 +1,5 @@
BSDX12 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:14pm BSDX12 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:14pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; Change Log: ; Change Log:
; v 1.3 - i18n support - 3100718 ; v 1.3 - i18n support - 3100718

2
m/BSDX13.m
View File

@ -1,5 +1,5 @@
BSDX13 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:17pm BSDX13 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:17pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; Change Log: ; Change Log:
; V 1.3 - i18n support - Dates passed to Routine as FM Date - WV/SMH ; V 1.3 - i18n support - Dates passed to Routine as FM Date - WV/SMH

2
m/BSDX14.m
View File

@ -1,5 +1,5 @@
BSDX14 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX14 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
ACCTYPD(BSDXY,BSDXVAL) ;EP ACCTYPD(BSDXY,BSDXVAL) ;EP

2
m/BSDX15.m
View File

@ -1,5 +1,5 @@
BSDX15 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX15 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
GRPTYP(BSDXY) ;EP GRPTYP(BSDXY) ;EP

2
m/BSDX16.m
View File

@ -1,5 +1,5 @@
BSDX16 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX16 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
RSRCD(BSDXY,BSDXVAL) ;EP RSRCD(BSDXY,BSDXVAL) ;EP

2
m/BSDX17.m
View File

@ -1,5 +1,5 @@
BSDX17 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX17 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
SCHUSRD(BSDXY) ;EP SCHUSRD(BSDXY) ;EP

2
m/BSDX18.m
View File

@ -1,5 +1,5 @@
BSDX18 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX18 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
DELRUD(BSDXY,BSDXIEN) ;EP DELRUD(BSDXY,BSDXIEN) ;EP

2
m/BSDX19.m
View File

@ -1,5 +1,5 @@
BSDX19 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX19 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
ADDRGD(BSDXY,BSDXVAL) ;EP ADDRGD(BSDXY,BSDXVAL) ;EP

2
m/BSDX20.m
View File

@ -1,5 +1,5 @@
BSDX20 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX20 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
DELRGID(BSDXY,BSDXIEN) ;EP DELRGID(BSDXY,BSDXIEN) ;EP

2
m/BSDX21.m
View File

@ -1,5 +1,5 @@
BSDX21 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:42pm BSDX21 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:42pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
ADDAGD(BSDXY,BSDXVAL) ;EP ADDAGD(BSDXY,BSDXVAL) ;EP

2
m/BSDX22.m
View File

@ -1,5 +1,5 @@
BSDX22 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX22 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
DELAGID(BSDXY,BSDXIEN,BSDXIEN1) ;EP DELAGID(BSDXY,BSDXIEN,BSDXIEN1) ;EP

2
m/BSDX23.m
View File

@ -1,5 +1,5 @@
BSDX23 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX23 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
EVENT(BSDXEVENT,BSDXPARAM,BSDXSIP,BSDXSPT) ;EP EVENT(BSDXEVENT,BSDXPARAM,BSDXSIP,BSDXSPT) ;EP

2
m/BSDX24.m
View File

@ -1,5 +1,5 @@
BSDX24 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX24 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
Q Q

2
m/BSDX25.m
View File

@ -1,5 +1,5 @@
BSDX25 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX25 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
CHECKIND(BSDXY,BSDXAPTID,BSDXCDT,BSDXCC,BSDXPRV,BSDXROU,BSDXVCL,BSDXVFM,BSDXOG) ;EP CHECKIND(BSDXY,BSDXAPTID,BSDXCDT,BSDXCC,BSDXPRV,BSDXROU,BSDXVCL,BSDXVFM,BSDXOG) ;EP

2
m/BSDX26.m
View File

@ -1,5 +1,5 @@
BSDX26 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX26 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
EDITAPTD(BSDXY,BSDXAPTID,BSDXNOTE) ;EP EDITAPTD(BSDXY,BSDXAPTID,BSDXNOTE) ;EP

2
m/BSDX27.m
View File

@ -1,5 +1,5 @@
BSDX27 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:22pm BSDX27 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:22pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; Change Log: July 15, 2010 ; Change Log: July 15, 2010
; UJO/SMH - i18n: FM Dates passed into routine for Clinic Letters - CLDISP tag ; UJO/SMH - i18n: FM Dates passed into routine for Clinic Letters - CLDISP tag

2
m/BSDX28.m
View File

@ -1,5 +1,5 @@
BSDX28 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:30pm BSDX28 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:30pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; Change Log: ; Change Log:
; HMW 3050721 Added test for inactivated record ; HMW 3050721 Added test for inactivated record

2
m/BSDX29.m
View File

@ -1,5 +1,5 @@
BSDX29 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:03pm BSDX29 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:03pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; Change Log: ; Change Log:
; v1.3 by WV/SMH on 3100713 ; v1.3 by WV/SMH on 3100713

2
m/BSDX2E.m
View File

@ -1,5 +1,5 @@
BSDX2E ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [7/18/10 4:30pm] BSDX2E ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [7/18/10 4:30pm]
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
S LINE="",$P(LINE,"*",81)="" S LINE="",$P(LINE,"*",81)=""
S XPDNOQUE="NO QUE" ;NO QUEUING ALLOWED S XPDNOQUE="NO QUE" ;NO QUEUING ALLOWED

2
m/BSDX30.m
View File

@ -1,5 +1,5 @@
BSDX30 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [ 09/12/2007 1:54 PM ] BSDX30 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [ 09/12/2007 1:54 PM ]
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
SPACED(BSDXY,BSDXDIC,BSDXVAL) ;EP SPACED(BSDXY,BSDXDIC,BSDXVAL) ;EP

2
m/BSDX31.m
View File

@ -1,5 +1,5 @@
BSDX31 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX31 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
NOSHOWD(BSDXY,BSDXAPTID,BSDXNS) ;EP NOSHOWD(BSDXY,BSDXAPTID,BSDXNS) ;EP

2
m/BSDX32.m
View File

@ -1,5 +1,5 @@
BSDX32 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX32 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
ERROR ; ERROR ;

2
m/BSDX33.m
View File

@ -1,5 +1,5 @@
BSDX33 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:33pm BSDX33 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:33pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; Mods by WV/STAR ; Mods by WV/STAR
; ;
; Change Log: ; Change Log:

2
m/BSDX34.m
View File

@ -1,5 +1,5 @@
BSDX34 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:37pm BSDX34 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:37pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; Change Log: ; Change Log:
; July 10 2010: ; July 10 2010:

2
m/BSDX35.m
View File

@ -1,5 +1,5 @@
BSDX35 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; BSDX35 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
Q Q

2
m/BSDXAPI.m
View File

@ -1,5 +1,5 @@
BSDXAPI ; IHS/ANMC/LJF - SCHEDULING APIs ; 4/29/10 9:42pm BSDXAPI ; IHS/ANMC/LJF - SCHEDULING APIs ; 4/29/10 9:42pm
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
;Orignal routine is BSDAPI by IHS/LJF, HMW, and MAW ;Orignal routine is BSDAPI by IHS/LJF, HMW, and MAW
;local mods (many) by WV/SMH ;local mods (many) by WV/SMH
;Move to BSDX namespace as BSDXAPI from BSDAPI by WV/SMH ;Move to BSDX namespace as BSDXAPI from BSDAPI by WV/SMH

4
m/BSDXGPRV.m
View File

@ -1,5 +1,5 @@
BSDXGPRV ; WV/SMH - WINDOWS SCHEDULING RPCS ; 6/10/10 9:01pm BSDXGPRV ; WV/SMH - WINDOWS SCHEDULING RPCS ; 9/7/10 7:59am
;;1.3T1;BSDX;;Jul 18, 2010 ;;1.4;BSDX;;Sep 07, 2010
; ;
; ;
ERROR ; ERROR ;