Index: Scheduling/trunk/m/BSDX07.m
===================================================================
--- Scheduling/trunk/m/BSDX07.m	(revision 996)
+++ Scheduling/trunk/m/BSDX07.m	(revision 998)
@@ -1,3 +1,3 @@
-BSDX07 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS  ; 10/24/10 12:07am
+BSDX07 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS  ; 10/31/10 9:38am
 	;;1.42;BSDX;;Sep 29, 2010
 	;
@@ -64,6 +64,14 @@
     ; Test by creating a duplicate appointment
     D APPADD(.ZZZ,3100123.09,3100123.093,3,"Dr Office",30,"Sam's Note",1)
-    D APPADD(.ZZZ,3100123.09,3100123.093,1,"Dr Office",30,"Sam's Note",1)
+    D APPADD(.ZZZ,3100123.09,3100123.093,3,"Dr Office",30,"Sam's Note",1)
     I +$P(^BSDXTMP($J,1),U,2)'=-10 W "Error in -10",!
+    ; Test for normality:
+    D APPADD(.ZZZ,3110123.09,3110123.093,3,"Dr Office",30,"Sam's Note",1)
+    ; Does Appt exist?
+    N APPID S APPID=+$P(^BSDXTMP($J,1),U)
+    I 'APPID W "Error Making Appt-1" QUIT
+    I +^BSDXAPPT(APPID,0)'=3110123.09 W "Error Making Appt-2"
+    I '$D(^DPT(3,"S",3110123.09)) W "Error Making Appt-3"
+    I '$D(^SC(2,"S",3110123.09)) W "Error Making Appt-4"
     QUIT
     ;