Index: Scheduling/trunk/m/BSDX01.m
===================================================================
--- Scheduling/trunk/m/BSDX01.m	(revision 1114)
+++ Scheduling/trunk/m/BSDX01.m	(revision 1115)
@@ -1,3 +1,3 @@
-BSDX01	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 9/29/10 10:20am
+BSDX01	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 3/16/11 7:08am
 	;;1.5V2;BSDX;;Mar 03, 2011
 	;
@@ -257,4 +257,27 @@
 	I '$D(^VA(200,BSDXDUZ,51,BSDXIEN,0)) Q 0
 	Q 1
+SP(BSDXY,PARAM,YESNO) ; Save Param at User Level - EP
+	; Called by RPC: BSDX SET PARAM
+	; Input:
+	; - Param: Name of Parameter (prog name of course)
+	; - Yes/No: 1 or 0
+	; Output: Error Code as string; 0 is good
+	;
+	; Security Protection
+	IF $EXTRACT(PARAM,1,4)'="BSDX" S BSDXY="-1^BSDX Params only allowed" QUIT
+	;
+	N ERROR
+	D PUT^XPAR("USR",PARAM,1,YESNO,.ERROR)
+	S BSDXY=$G(ERROR)
+	QUIT
+	;
+GP(BSDXY,PARAM) ; Get Param - EP
+	; Called by RPC: BSDX GET PARAM
+	; Input: Name of Parameter
+	; Output: Value of parameter: 0 or 1, for now.
+	;
+	S BSDXY=$$GET^XPAR("USR^LOC^SYS^PKG",PARAM,1,"I")
+	QUIT
+	;
 INDIV(BSDXSC)	; PEP - Is ^SC clinic in the same DUZ(2) as user?
 	   ; Input: BSDXSC - Hospital Location IEN
Index: Scheduling/trunk/m/BSDX25.m
===================================================================
--- Scheduling/trunk/m/BSDX25.m	(revision 1114)
+++ Scheduling/trunk/m/BSDX25.m	(revision 1115)
@@ -1,3 +1,3 @@
-BSDX25	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 3/16/11 1:07am
+BSDX25	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 3/16/11 2:21am
 	;;1.5V2;BSDX;;Mar 03, 2011
 	;
@@ -134,5 +134,5 @@
 	;
 	; Set return variable and kill contents
-	N BSDXY S BSDXY=$NAME(^BSDXTMP($J))
+	S BSDXY=$NAME(^BSDXTMP($J))
 	K @BSDXY
 	; 
Index: Scheduling/trunk/m/BSDX2E.m
===================================================================
--- Scheduling/trunk/m/BSDX2E.m	(revision 1114)
+++ Scheduling/trunk/m/BSDX2E.m	(revision 1115)
@@ -1,3 +1,3 @@
-BSDX2E	;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [7/18/10 4:30pm]
+BSDX2E	;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [3/16/11 9:54am]
 	;;1.5V2;BSDX;;Mar 03, 2011
 	;
@@ -58,52 +58,63 @@
 	Q X
 	;
-V0200	;EP Version 1.3 PostInit
+V0200	;EP Version 1.5 PostInit
 	;Add Protocol items to SDAM APPOINTMENT EVENTS protocol
-	   ;Remove protocols known to cause problems from SDAM APPOINTMENT EVENTS
+	;Remove protocols known to cause problems from SDAM APPOINTMENT EVENTS
+	;Set Default Values for Parameters
+	N BSDXDA,BSDXFDA,BSDXDA1,BSDXSEQ,BSDXDAT,BSDXNOD,BSDXIEN,BSDXMSG
 	;
-	N BSDXDA,BSDXFDA,BSDXDA1,BSDXSEQ,BSDXDAT,BSDXNOD,BSDXIEN,BSDXMSG
-	   ;
-	   ; 1st, add the BSDX event protocols
-	   ; Get SDAM APPOINTMENT EVENTS IEN in 101
+	; 1st, add the BSDX event protocols
+	; Get SDAM APPOINTMENT EVENTS IEN in 101
 	S BSDXDA=$O(^ORD(101,"B","SDAM APPOINTMENT EVENTS",0))
 	Q:'+BSDXDA
-	   ; Add each of those protocols unless they already exist.
+	; Add each of those protocols unless they already exist.
 	S BSDXDAT="BSDX ADD APPOINTMENT;10.2^BSDX CANCEL APPOINTMENT;10.4^BSDX CHECKIN APPOINTMENT;10.6^BSDX NOSHOW APPOINTMENT;10.8"
-	   ; For each
-	   F J=1:1:$L(BSDXDAT,U) D
+	; For each
+	F J=1:1:$L(BSDXDAT,U) D
 	. K BSDXIEN,BSDXMSG,BSDXFDA
-	   . ; Get Item
+	. ; Get Item
 	. S BSDXNOD=$P(BSDXDAT,U,J)
 	. ; Get Item Name (BSDX ADD APPOINTMENT)
-	   . S BSDXDA1=$P(BSDXNOD,";")
-	   . ; Get Item Sequence (10.2)
+	. S BSDXDA1=$P(BSDXNOD,";")
+	. ; Get Item Sequence (10.2)
 	. S BSDXSEQ=$P(BSDXNOD,";",2)
-	   . ; Get Item Reference (Item is already in the protocol file)
+	. ; Get Item Reference (Item is already in the protocol file)
 	. S BSDXDA1=$O(^ORD(101,"B",BSDXDA1,0))
-	   . ; Quit if not found
+	. ; Quit if not found
 	. Q:'+BSDXDA1
-	   . ; Quit if already exists in the SDAM protocol
+	. ; Quit if already exists in the SDAM protocol
 	. Q:$D(^ORD(101,BSDXDA,10,"B",BSDXDA1))
-	   . ; Go ahead and save it.
+	. ; Go ahead and save it.
 	. S BSDXFDA(101.01,"+1,"_BSDXDA_",",".01")=BSDXDA1
 	. S BSDXFDA(101.01,"+1,"_BSDXDA_",","3")=BSDXSEQ
 	. D UPDATE^DIE("","BSDXFDA","BSDXIEN","BSDXMSG")
-	   . ; Error message
-	   . I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
-	   ;
-	   ; Remove nassssty protocols ORU PATIENT MOVMT and DVBA C&P SCHD EVENT
-	   ; SDAM APPOINTMENT EVENTS IENS for use in FIND1^DIC
-	   N SDEVTIENS S SDEVTIENS=","_BSDXDA_","
-	   ; Subfile entry for ORU...
-	   N ORUIEN S ORUIEN=$$FIND1^DIC(101.01,SDEVTIENS,"","ORU PATIENT MOVMT")
-	   ; Subfile entry for DVBA...
-	   N DVBAIEN S DVBAIEN=$$FIND1^DIC(101.01,SDEVTIENS,"","DVBA C&P SCHD EVENT")
-	   ; Deletion code
-	   N BSDXFDA,BSDXMSG
-	   S:ORUIEN>0 BSDXFDA(101.01,ORUIEN_SDEVTIENS,.01)="@"
-	   S:DVBAIEN>0 BSDXFDA(101.01,DVBAIEN_SDEVTIENS,.01)="@"
-	   D:$D(BSDXFDA) FILE^DIE("","BSDXFDA","BSDXMSG")
-	   ; If error
-	   I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
+	. ; Error message
+	. I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
+	;
+	; Remove nassssty protocols ORU PATIENT MOVMT and DVBA C&P SCHD EVENT
+	; SDAM APPOINTMENT EVENTS IENS for use in FIND1^DIC
+	N SDEVTIENS S SDEVTIENS=","_BSDXDA_","
+	; Subfile entry for ORU...
+	N ORUIEN S ORUIEN=$$FIND1^DIC(101.01,SDEVTIENS,"","ORU PATIENT MOVMT")
+	; Subfile entry for DVBA...
+	N DVBAIEN S DVBAIEN=$$FIND1^DIC(101.01,SDEVTIENS,"","DVBA C&P SCHD EVENT")
+	; Deletion code
+	N BSDXFDA,BSDXMSG
+	S:ORUIEN>0 BSDXFDA(101.01,ORUIEN_SDEVTIENS,.01)="@"
+	S:DVBAIEN>0 BSDXFDA(101.01,DVBAIEN_SDEVTIENS,.01)="@"
+	D:$D(BSDXFDA) FILE^DIE("","BSDXFDA","BSDXMSG")
+	; If error
+	I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
+	;
+	;
+	; Now put in the default values for parameters
+	; BSDX AUTO PRINT RS as false
+	; BSDX AUTO PRINT AS as false
+	;
+	N BSDXERR
+	D PUT^XPAR("PKG","BSDX AUTO PRINT RS",1,0,.BSDXERR)
+	I $G(BSDXERR) W $C(7),"Error: ",BSDXERR
+	D PUT^XPAR("PKG","BSDX AUTO PRINT AS",1,0,.BSDXERR)
+	I $G(BSDXERR) W $C(7),"Error: ",BSDXERR
 	QUIT
 	;