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

edits and clean-ups prior to release, first step

This commit is contained in:
sam 2010-07-18 11:17:02 +00:00
parent d479a77167
commit 45867dd2cf
8 changed files with 58 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
m/BSDX01.m
View File

@ -1,6 +1,5 @@
BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:04pm
;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
;;Test line for svn update
;
;
SUINFOD(BSDXY,BSDXDUZ) ;EP Debugging entry point

17
m/BSDX07.m
View File

@ -1,5 +1,8 @@
BSDX07 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 7/6/10 4:28pm
BSDX07 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 7/18/10 2:11pm
;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
;
; Change Log:
; UJO/SMH
; v1.3 July 13 2010 - Add support i18n - Dates input as FM dates, not US.
;
;
@ -49,7 +52,11 @@ ENDBG ;BSDX ADD NEW APPOINTMENT^3091122.0930^3091122.1000^370^2^PEDIATRICIAN,DEM
; I BSDXSTART=-1 D ERR(BSDXI+1,"BSDX07 Error: Invalid Start Time") Q
; S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
; I BSDXEND=-1 D ERR(BSDXI+1,"BSDX07 Error: Invalid End Time") Q
I $L(BSDXEND,".")=1 D ERR(BSDXI+1,"BSDX07 Error: Invalid End Time") Q
;
; If C# sends the dates with extra zeros, remove them
S BSDXSTART=+BSDXSTART,BSDXEND=+BSDXEND
;
I $L(BSDXEND,".")=1 D ERR(BSDXI+1,"BSDX07 Error: Invalid End Time") Q
I BSDXSTART>BSDXEND S BSDXTMP=BSDXEND,BSDXEND=BSDXSTART,BSDXSTART=BSDXTMP
I '+BSDXPATID,'$D(^DPT(BSDXPATID,0)) D ERR(BSDXI+1,"BSDX07 Error: Invalid Patient ID") Q
;Validate Resource entry
@ -110,11 +117,9 @@ STRIP(BSDXZ) ;Replace control characters with spaces
BSDXADD(BSDXSTART,BSDXEND,BSDXPATID,BSDXRESD,BSDXATID) ;ADD BSDX APPOINTMENT ENTRY
;Returns ien in BSDXAPPT or 0 if failed
;Create entry in BSDX APPOINTMENT
; BSDXSTART and BSDXEND need to be stored as numeric, not string
; So 3090713.0900 is incorrect --> it should be 3090713.09
N BSDXAPPTID
S BSDXFDA(9002018.4,"+1,",.01)=+BSDXSTART ; smh fix bug stores as string
S BSDXFDA(9002018.4,"+1,",.02)=+BSDXEND
S BSDXFDA(9002018.4,"+1,",.01)=BSDXSTART
S BSDXFDA(9002018.4,"+1,",.02)=BSDXEND
S BSDXFDA(9002018.4,"+1,",.05)=BSDXPATID
S BSDXFDA(9002018.4,"+1,",.07)=BSDXRESD
S BSDXFDA(9002018.4,"+1,",.08)=$G(DUZ)

17
m/BSDX09.m
View File

@ -1,7 +1,14 @@
BSDX09 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
;;2.0;IHS WINDOWS SCHEDULING;**local**;NOV 01, 2007
;;local mods by WV/SMH
BSDX09 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 7/18/10 2:26pm
;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
;
; Change Log:
; UJO/TH - v 1.3 on 3100714 - Extra Demographics:
; - Email
; - Cell Phone
; - Country
; - + refactoring of routine
;
; UJO/TH - v 1.3 on 3100715 - Change SSN to PID and get PID field instead
;
GETREGA(BSDXRET,BSDXPAT) ;EP
;
@ -9,8 +16,8 @@ GETREGA(BSDXRET,BSDXPAT) ;EP
; 10 HOMEPHONE^OFCPHONE^MSGPHONE^
; 13 NOK NAME^RELATIONSHIP^PHONE^STREET^CITY^STATE^ZIP
; 20 DATAREVIEWED^
; removed/smh; 21 Medicare#^Suffix
; 21 RegistrationComments
; 22 EMAIL ADDRESS^PHONE NUMBER [CELLULAR]^COUNTRY
;
;For patient with ien BSDXPAT
;K ^BSDXTMP($J)
@ -57,7 +64,7 @@ GETREGA(BSDXRET,BSDXPAT) ;EP
S $P(BSDXY,U,21)=""
S BSDXNOD=^DPT(+BSDXPAT,0)
S $P(BSDXY,"^",6)=$P(BSDXNOD,U) ;NAME
S $P(BSDXY,"^",8)=$$GET1^DIQ(2,BSDXPAT,"PRIMARY LONG ID")
S $P(BSDXY,"^",8)=$$GET1^DIQ(2,BSDXPAT,"PRIMARY LONG ID") ;PID
S Y=$P(BSDXNOD,U,3) I Y]"" X ^DD("DD") S Y=$TR(Y,"@"," ")
S $P(BSDXY,"^",7)=Y ;DOB
S $P(BSDXY,"^",9)=""

9
m/BSDX12.m
View File

@ -1,6 +1,8 @@
BSDX12 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/10 6:33am
BSDX12 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:14pm
;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
; v 1.3 - i18n support
;
; Change Log:
; v 1.3 - i18n support - 3100718
; BSDXSTART and BSDXEND passed in FM Dates, not US dates
;
;
@ -30,6 +32,9 @@ AVADD(BSDXY,BSDXSTART,BSDXEND,BSDXTYPID,BSDXRES,BSDXSLOTS,BSDXNOTE) ;EP
; I BSDXSTART=-1 D ERR(70) Q
; S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
; I BSDXEND=-1 D ERR(70) Q
; Make sure dates are canonical and don't contain extra zeros
S BSDXSTART=+BSDXSTART,BSDXEND=+BSDXEND
;
I $L(BSDXEND,".")=1 D ERR(70) Q
I BSDXSTART>BSDXEND S BSDXTMP=BSDXEND,BSDXEND=BSDXSTART,BSDXSTART=BSDXTMP
;Validate Access Type

8
m/BSDX13.m
View File

@ -1,8 +1,8 @@
BSDX13 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/10 7:24am
BSDX13 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:17pm
;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
; V 1.3 - i18n support - Dates passed to Routine as FM Date
;
;
;
; Change Log:
; V 1.3 - i18n support - Dates passed to Routine as FM Date - WV/SMH
Q
AVDELDTD(BSDXY,BSDXRESD,BSDXSTART,BSDXEND) ;EP
;Entry point for debugging

13
m/BSDX28.m
View File

@ -1,9 +1,12 @@
BSDX28 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/10 3:55pm
;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
;
BSDX28 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:30pm
;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
;
; Change Log:
; HMW 3050721 Added test for inactivated record
; SMH 3100714 add PID search, return PID instead of SSN
; Change Error trap to new style.
; V1.3 WV/SMH 3100714
; - add PID search
; - return PID instead of SSN (change header and logic)
; - Change Error trap to new style.
;
PTLOOKRS(BSDXY,BSDXP,BSDXC) ;EP Patient Lookup
;

9
m/BSDX29.m
View File

@ -1,6 +1,9 @@
BSDX29 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/13/10 9:47am
;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
;
BSDX29 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:03pm
;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
;
; Change Log:
; v1.3 by WV/SMH on 3100713
; - Beginning and Ending dates passed as FM Dates
;
BSDXCPD(BSDXY,BSDXRES,BSDX44,BSDXBEG,BSDXEND) ;EP
;Entry point for debugging

18
m/i18n_log.log
View File

@ -23,34 +23,34 @@ More changes
------------------------------------------------------------------------
r858 | sam | 2010-07-13 09:58:25 +0300 (Tue, 13 Jul 2010) | 1 line
Changed paths:
M /Scheduling/trunk/m/BSDX29.m
# M /Scheduling/trunk/m/BSDX29.m
changes to BSDX29 for i18n
------------------------------------------------------------------------
r861 | sam | 2010-07-13 12:05:30 +0300 (Tue, 13 Jul 2010) | 1 line
Changed paths:
M /Scheduling/trunk/m/BSDX01.m
# M /Scheduling/trunk/m/BSDX01.m
Test update
------------------------------------------------------------------------
r862 | sam | 2010-07-13 12:07:13 +0300 (Tue, 13 Jul 2010) | 1 line
Changed paths:
M /Scheduling/trunk/m/BSDX01.m
# M /Scheduling/trunk/m/BSDX01.m
Test update
------------------------------------------------------------------------
r863 | sam | 2010-07-13 16:04:57 +0300 (Tue, 13 Jul 2010) | 1 line
Changed paths:
M /Scheduling/trunk/m/BSDX07.m
M /Scheduling/trunk/m/BSDX12.m
M /Scheduling/trunk/m/BSDX13.m
M /Scheduling/trunk/m/BSDX33.m
# M /Scheduling/trunk/m/BSDX07.m
# M /Scheduling/trunk/m/BSDX12.m
# M /Scheduling/trunk/m/BSDX13.m
# M /Scheduling/trunk/m/BSDX33.m
more i18n work
------------------------------------------------------------------------
r865 | sam | 2010-07-14 11:20:30 +0300 (Wed, 14 Jul 2010) | 1 line
Changed paths:
M /Scheduling/trunk/m/BSDX09.m
# M /Scheduling/trunk/m/BSDX09.m
Routine to pull extra registration data
------------------------------------------------------------------------
@ -68,7 +68,7 @@ problem when retrieving appointments.
------------------------------------------------------------------------
r871 | sam | 2010-07-14 15:55:40 +0300 (Wed, 14 Jul 2010) | 1 line
Changed paths:
M /Scheduling/trunk/m/BSDX09.m
# M /Scheduling/trunk/m/BSDX09.m
PID added insted of SNN
------------------------------------------------------------------------