Index: /Scheduling/trunk/m/BSDX25.m
===================================================================
--- /Scheduling/trunk/m/BSDX25.m	(revision 1063)
+++ /Scheduling/trunk/m/BSDX25.m	(revision 1064)
@@ -1,4 +1,7 @@
-BSDX25	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
-	;;1.42;BSDX;;Dec 07, 2010
+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#
 	;
 	;
@@ -10,6 +13,21 @@
 	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
 ENDBG	;
 	N BSDXNOD,BSDXPATID,BSDXSTART,DIK,DA,BSDXID,BSDXI,BSDXZ,BSDXIENS,BSDXVEN
@@ -24,7 +42,8 @@
 	I '+BSDXAPTID D ERR("BSDX25: Invalid Appointment ID") Q
 	I '$D(^BSDXAPPT(BSDXAPTID,0)) D ERR("BSDX08: Invalid Appointment ID") Q
-	;
-	S:BSDXCDT["@0000" BSDXCDT=$P(BSDXCDT,"@")
-	S %DT="T",X=BSDXCDT D ^%DT S BSDXCDT=Y
+	; 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
 	I BSDXCDT=-1 D ERR(70) Q
 	I BSDXCDT>$$NOW^XLFDT S BSDXCDT=$$NOW^XLFDT