Changeset 742 for Scheduling/trunk/m/BSDXAPI.m

Timestamp:

May 2, 2010, 4:55:04 PM (14 years ago)

Author:

Sam Habiel

Message:

Fixes in BSDX27 referring to a routine that doesn't exist in VISTA. References changed to BSDXAPI.

File:

• Scheduling/trunk/m/BSDXAPI.m (modified) (2 diffs)

Scheduling/trunk/m/BSDXAPI.m

@@ -1 @@
-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
@@ -247 +247 @@
  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)
+ ;
+