diff --git a/m/BSDX01.m b/m/BSDX01.m index 16a47bd..e49fb36 100644 --- a/m/BSDX01.m +++ b/m/BSDX01.m @@ -1,5 +1,5 @@ BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 9/29/10 10:20am - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; SUINFOD(BSDXY,BSDXDUZ) ;EP Debugging entry point ;D DEBUG^%Serenji("SUINFO^BSDX01(.BSDXY,BSDXDUZ)") diff --git a/m/BSDX02.m b/m/BSDX02.m index f421779..b321606 100644 --- a/m/BSDX02.m +++ b/m/BSDX02.m @@ -1,5 +1,5 @@ BSDX02 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:25pm - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; Change Log ; July 15 2010: UJO/SMH - Pass FM dates in instead of US dates for i18n diff --git a/m/BSDX03.m b/m/BSDX03.m index b92a7fa..2f09a7b 100644 --- a/m/BSDX03.m +++ b/m/BSDX03.m @@ -1,5 +1,5 @@ BSDX03 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; Q diff --git a/m/BSDX04.m b/m/BSDX04.m index 1a6421c..7bbba90 100644 --- a/m/BSDX04.m +++ b/m/BSDX04.m @@ -1,5 +1,5 @@ BSDX04 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 7/15/10 12:44pm - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 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 56be32d..97e3f82 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 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 4314d93..bc395c8 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 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 0d27d5b..9229e1f 100644 --- a/m/BSDX07.m +++ b/m/BSDX07.m @@ -1,5 +1,5 @@ BSDX07 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 1/26/11 11:29am - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; Change Log: ; UJO/SMH diff --git a/m/BSDX08.m b/m/BSDX08.m index 44eee02..80bac62 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; Original by HMW. New Written by Sam Habiel. Licensed under LGPL. ; diff --git a/m/BSDX09.m b/m/BSDX09.m index de76503..78eb95b 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.42;BSDX;;Dec 07, 2010;Build 7 + ;;1.5;BSDX;;Jan 25, 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 b442b20..d08c445 100644 --- a/m/BSDX11.m +++ b/m/BSDX11.m @@ -1,5 +1,5 @@ BSDX11 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 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 d7f32b3..a1e395c 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; Change Log: ; v 1.3 - i18n support - 3100718 diff --git a/m/BSDX13.m b/m/BSDX13.m index db08a5a..bb2bbec 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 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 ea93e27..a8f6673 100644 --- a/m/BSDX14.m +++ b/m/BSDX14.m @@ -1,5 +1,5 @@ BSDX14 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; ACCTYPD(BSDXY,BSDXVAL) ;EP diff --git a/m/BSDX15.m b/m/BSDX15.m index 8d6c300..6479f0d 100644 --- a/m/BSDX15.m +++ b/m/BSDX15.m @@ -1,5 +1,5 @@ BSDX15 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; GRPTYP(BSDXY) ;EP diff --git a/m/BSDX16.m b/m/BSDX16.m index 41c25ba..b84fdbb 100644 --- a/m/BSDX16.m +++ b/m/BSDX16.m @@ -1,5 +1,5 @@ BSDX16 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; RSRCD(BSDXY,BSDXVAL) ;EP diff --git a/m/BSDX17.m b/m/BSDX17.m index fb40b37..64e1b1f 100644 --- a/m/BSDX17.m +++ b/m/BSDX17.m @@ -1,5 +1,5 @@ BSDX17 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; SCHUSRD(BSDXY) ;EP diff --git a/m/BSDX18.m b/m/BSDX18.m index c08300c..cbb888f 100644 --- a/m/BSDX18.m +++ b/m/BSDX18.m @@ -1,5 +1,5 @@ BSDX18 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; DELRUD(BSDXY,BSDXIEN) ;EP diff --git a/m/BSDX19.m b/m/BSDX19.m index 98f860f..7f616dd 100644 --- a/m/BSDX19.m +++ b/m/BSDX19.m @@ -1,5 +1,5 @@ BSDX19 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; ADDRGD(BSDXY,BSDXVAL) ;EP diff --git a/m/BSDX20.m b/m/BSDX20.m index e822bc1..dda6e77 100644 --- a/m/BSDX20.m +++ b/m/BSDX20.m @@ -1,5 +1,5 @@ BSDX20 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; DELRGID(BSDXY,BSDXIEN) ;EP diff --git a/m/BSDX21.m b/m/BSDX21.m index 5169909..a802398 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; ADDAGD(BSDXY,BSDXVAL) ;EP diff --git a/m/BSDX22.m b/m/BSDX22.m index 13d5800..78b739a 100644 --- a/m/BSDX22.m +++ b/m/BSDX22.m @@ -1,5 +1,5 @@ BSDX22 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; DELAGID(BSDXY,BSDXIEN,BSDXIEN1) ;EP diff --git a/m/BSDX23.m b/m/BSDX23.m index 3a7c907..c38c443 100644 --- a/m/BSDX23.m +++ b/m/BSDX23.m @@ -1,5 +1,5 @@ BSDX23 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; EVENT(BSDXEVENT,BSDXPARAM,BSDXSIP,BSDXSPT) ;EP diff --git a/m/BSDX24.m b/m/BSDX24.m index 3b6fca4..3eb7f3d 100644 --- a/m/BSDX24.m +++ b/m/BSDX24.m @@ -1,5 +1,5 @@ BSDX24 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; Q diff --git a/m/BSDX25.m b/m/BSDX25.m index 4049e18..4c25a29 100644 --- a/m/BSDX25.m +++ b/m/BSDX25.m @@ -1,8 +1,8 @@ BSDX25 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 1/6/11 1:57pm - ;;1.5;BSDX;;Dec 07, 2010 - ; - ; Change Log: - ; 3110106: SMH -> Changed Check-in EP - Removed unused paramters. Will change C# + ;;1.5;BSDX;;Jan 25, 2011 + ; + ; Change Log: + ; 3110106: SMH -> Changed Check-in EP - Removed unused paramters. Will change C# ; ; CHECKIND(BSDXY,BSDXAPTID,BSDXCDT,BSDXCC,BSDXPRV,BSDXROU,BSDXVCL,BSDXVFM,BSDXOG) ;EP @@ -12,23 +12,23 @@ CHECKIND(BSDXY,BSDXAPTID,BSDXCDT,BSDXCC,BSDXPRV,BSDXROU,BSDXVCL,BSDXVFM,BSDXOG) ;E G ENDBG Q ; -CHECKIN(BSDXY,BSDXAPTID,BSDXCDT) ; ,BSDXCC,BSDXPRV,BSDXROU,BSDXVCL,BSDXVFM,BSDXOG) ;EP Check in appointment +CHECKIN(BSDXY,BSDXAPTID,BSDXCDT) ; ,BSDXCC,BSDXPRV,BSDXROU,BSDXVCL,BSDXVFM,BSDXOG) ;EP Check in appointment ; Private to GUI; use BSDXAPI for general API to checkin patients - ; Parameters: - ; BSDXY: Global Out - ; BSDXAPTID: Appointment ID in ^BSDXAPPT - ; BSDXCDT: Checkin Date --> Changed - ; BSDXCC: Clinic Stop IEN (not used) - ; BSDXPRV: Provider IEN (not used) - ; BSDXROU: Print Routing Slip? (not used) - ; BSDXVCL: PCC+ Clinic IEN (not used) - ; BSDXVFM: PCC+ Form IEN (not used) - ; BSDXOG: PCC+ Outguide (true or false) - ; - ; Output: - ; ADO.net table with 1 column ErrorID, 1 row result - ; - 0 if all okay - ; - Another number or text if not + ; Parameters: + ; BSDXY: Global Out + ; BSDXAPTID: Appointment ID in ^BSDXAPPT + ; BSDXCDT: Checkin Date --> Changed + ; BSDXCC: Clinic Stop IEN (not used) + ; BSDXPRV: Provider IEN (not used) + ; BSDXROU: Print Routing Slip? (not used) + ; BSDXVCL: PCC+ Clinic IEN (not used) + ; BSDXVFM: PCC+ Form IEN (not used) + ; BSDXOG: PCC+ Outguide (true or false) + ; + ; Output: + ; ADO.net table with 1 column ErrorID, 1 row result + ; - 0 if all okay + ; - Another number or text if not ENDBG ; N BSDXNOD,BSDXPATID,BSDXSTART,DIK,DA,BSDXID,BSDXI,BSDXZ,BSDXIENS,BSDXVEN N BSDXNOEV @@ -44,7 +44,7 @@ ENDBG ; ; Remove Date formatting v.1.5. Client will send date as FM Date. ;S:BSDXCDT["@0000" BSDXCDT=$P(BSDXCDT,"@") ;S %DT="T",X=BSDXCDT D ^%DT S BSDXCDT=Y - S BSDXCDT=+BSDXCDT ; Strip off zeros if C# sends them + S BSDXCDT=+BSDXCDT ; Strip off zeros if C# sends them I BSDXCDT=-1 D ERR(70) Q I BSDXCDT>$$NOW^XLFDT S BSDXCDT=$$NOW^XLFDT ;Checkin BSDX APPOINTMENT entry diff --git a/m/BSDX26.m b/m/BSDX26.m index 73b5d0f..fb6e611 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 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 2194d0d..47b5f6d 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 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 172f3f1..9914584 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; Change Log: ; HMW 3050721 Added test for inactivated record diff --git a/m/BSDX29.m b/m/BSDX29.m index d6dc597..d69d888 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; Change Log: ; v1.3 by WV/SMH on 3100713 diff --git a/m/BSDX2E.m b/m/BSDX2E.m index b4c2552..1017b3b 100644 --- a/m/BSDX2E.m +++ b/m/BSDX2E.m @@ -1,5 +1,5 @@ BSDX2E ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [7/18/10 4:30pm] - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; S LINE="",$P(LINE,"*",81)="" S XPDNOQUE="NO QUE" ;NO QUEUING ALLOWED diff --git a/m/BSDX30.m b/m/BSDX30.m index fd3c804..9d30641 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; SPACED(BSDXY,BSDXDIC,BSDXVAL) ;EP diff --git a/m/BSDX31.m b/m/BSDX31.m index 5576aec..b201b9c 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 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 1726c7e..637ff44 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; ERROR ; diff --git a/m/BSDX33.m b/m/BSDX33.m index aa58bca..82ae1f1 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; Mods by WV/STAR ; ; Change Log: diff --git a/m/BSDX34.m b/m/BSDX34.m index 08416a2..64f7856 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; Change Log: ; July 10 2010: diff --git a/m/BSDX35.m b/m/BSDX35.m index ae6b405..2d1e8f4 100644 --- a/m/BSDX35.m +++ b/m/BSDX35.m @@ -1,5 +1,5 @@ BSDX35 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; - ;;1.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; Q diff --git a/m/BSDXAPI.m b/m/BSDXAPI.m index 6535ae3..b7c78e0 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.42;BSDX;;Dec 07, 2010;Build 7 + ;;1.5;BSDX;;Jan 25, 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 @@ -299,7 +299,7 @@ CI(PAT,CLINIC,DATE,SDIEN) ;PEP; -- returns 1 if appt already checked-in S X=$P($G(^SC(CLINIC,"S",DATE,1,X,"C")),U) Q $S(X:1,1:0) ; -RMCI(PAT,CLINIC,DATE) ;PEP; -- Remove Check-in; $$ +RMCI(PAT,CLINIC,DATE) ;PEP; -- Remove Check-in; $$ ; PAT = DFN ; CLINIC = SC IEN ; DATE = FM Date/Time of Appointment diff --git a/m/BSDXGPRV.m b/m/BSDXGPRV.m index db2ccd9..e81377f 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.42;BSDX;;Dec 07, 2010 + ;;1.5;BSDX;;Jan 25, 2011 ; ; ERROR ;