Index: Scheduling/trunk/m/BSDX08.m
===================================================================
--- Scheduling/trunk/m/BSDX08.m	(revision 1076)
+++ Scheduling/trunk/m/BSDX08.m	(revision 1077)
@@ -73,5 +73,5 @@
 	I $P(^BSDXTMP($J,1),"~")'=-3 W "Error in -3",!
 	;
-	; Test 6: for Cancelling walkin and checked-in appointments.
+	; Test 6: for Cancelling walkin and checked-in appointments (should fail).
 	S BSDXSTART=$E($$NOW^XLFDT,1,12),BSDXEND=BSDXSTART+.0001
 	D APPADD^BSDX07(.ZZZ,BSDXSTART,BSDXEND,4,"Dr Office",10,"Sam's Note",1)
@@ -81,4 +81,20 @@
 	B
 	D APPDEL^BSDX08(.ZZZ,APPID,"PC",10,"Cancel Note")
+	B
+	;
+	; Test 7: for cancelling walkin and checked-in appointments (this should pass)
+	S BSDXSTART=$E($$NOW^XLFDT,1,12)+.0001,BSDXEND=BSDXSTART+.0001
+	D APPADD^BSDX07(.ZZZ,BSDXSTART,BSDXEND,4,"Dr Office",10,"Sam's Note",1)
+	S APPID=+$P(^BSDXTMP($J,1),U)
+	B
+	D CHECKIN^BSDX25(.ZZZ,APPID,$$NOW^XLFDT)
+	S BSDXRES=$O(^BSDXRES("B","Dr Office",""))
+	S BSDXCLN=$P(^BSDXRES(BSDXRES,0),U,4)
+	B
+	S BSDXRESULT=$$RMCI^BSDXAPI(4,BSDXCLN,BSDXSTART)
+	B
+	D APPDEL^BSDX08(.ZZZ,APPID,"PC",10,"Cancel Note")
+	;
+	
 	QUIT
 	   ; Lock the node in another job for testing.