From 3f21980cd0d9d25bd3b433c9d73067e0640e8080 Mon Sep 17 00:00:00 2001
From: sam <sam@1bcf3343-bbc7-4d28-9858-dce3e5f44ddd>
Date: Sun, 2 May 2010 20:55:04 +0000
Subject: [PATCH] Fixes in BSDX27 referring to a routine that doesn't exist in
 VISTA. References changed to BSDXAPI.

---
 m/BSDX27.m  |  8 ++++----
 m/BSDXAPI.m | 14 +++++++++++++-
 2 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/m/BSDX27.m b/m/BSDX27.m
index 8a9df4f..226edc7 100644
--- a/m/BSDX27.m
+++ b/m/BSDX27.m
@@ -1,4 +1,4 @@
-BSDX27	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
+BSDX27	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/29/10 9:43pm
 	;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
 	;
 	;
@@ -117,11 +117,11 @@ PADISP(BSDXY,BSDXPAT)	;EP
 STATUS(PAT,DATE,NODE)	; returns appt status
 	;IHS/OIT/HMW 20050208 Added from BSDDPA
 	NEW TYP
-	S TYP=$$APPTYP^BSDU2(PAT,DATE)    ;sched vs. walkin
+	S TYP=$$APPTYP^BSDXAPI(PAT,DATE)    ;sched vs. walkin
 	I $P(NODE,U,2)["C" Q TYP_" - CANCELLED"
 	I $P(NODE,U,2)'="NT",$P(NODE,U,2)["N" Q TYP_" - NO SHOW"
-	I $$CO^BSDU2(PAT,+NODE,DATE) Q TYP_" - CHECKED OUT"
-	I $$CI^BSDU2(PAT,+NODE,DATE) Q TYP_" - CHECKED IN"
+	I $$CO^BSDXAPI(PAT,+NODE,DATE) Q TYP_" - CHECKED OUT"
+	I $$CI^BSDXAPI(PAT,+NODE,DATE) Q TYP_" - CHECKED IN"
 	Q TYP
 	;
 ERROR	;
diff --git a/m/BSDXAPI.m b/m/BSDXAPI.m
index 271f715..892320e 100644
--- a/m/BSDXAPI.m
+++ b/m/BSDXAPI.m
@@ -1,4 +1,4 @@
-BSDXAPI ; IHS/ANMC/LJF - SCHEDULING APIs ;  Fri Jul 24 22:45:37 PDT 2009
+BSDXAPI ; IHS/ANMC/LJF - SCHEDULING APIs ; 4/29/10 9:42pm
  ;;2.1;BSDX;;24JUL2009
  ;Orignal routine is BSDAPI by IHS/LJF, HMW, and MAW
  ;local mods (many) by WV/SMH
@@ -246,3 +246,15 @@ SCIEN(PAT,CLINIC,DATE) ;PEP; returns ien for appt in ^SC
  	. I +$G(^SC(CLINIC,"S",DATE,1,X,0))=PAT S IEN=X
  Q $G(IEN)
  ;
+APPTYP(PAT,DATE) ;PEP; -- returns type of appt (scheduled or walk-in)
+ NEW X S X=$P($G(^DPT(PAT,"S",DATE,0)),U,7)
+ Q $S(X=3:"SCHED",X=4:"WALK-IN",1:"??")
+ ;
+CO(PAT,CLINIC,DATE,SDIEN) ;PEP; -- returns 1 if appt already checked-out
+ NEW X
+ S X=$G(SDIEN)   ;ien sent in call
+ I 'X S X=$$SCIEN(PAT,CLINIC,DATE) I 'X Q 0
+ S X=$P($G(^SC(CLINIC,"S",DATE,1,X,"C")),U,3)
+ Q $S(X:1,1:0)
+ ;
+