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

Timestamp:

Jul 6, 2012, 2:28:15 PM (12 years ago)

Author:

Sam Habiel

Message:

Updated version number on all routines to be 1.7T1.
Minor fixes here and there for XINDEX errors.

File:

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

Scheduling/trunk/m/BSDXAPI.m

@@ -1 @@
-BSDXAPI ; IHS/LJF,HMW,MAW & VEN/SMH - SCHEDULING APIs ; 7/5/12 12:52pm
-        ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
+BSDXAPI ; IHS/LJF,HMW,MAW & VEN/SMH - SCHEDULING APIs ; 7/6/12 10:24am
+        ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
         ; Licensed under LGPL  
         ;
@@ -112 +112 @@
         ;
         ; Update the Availablilities ; Doesn't fail. Global reads and sets.
-        D AVUPDTMK^BSDXAPI1(BSDR("CLN"),BSDR("ADT"),BSDR("LEN"))
+        D AVUPDTMK^BSDXAPI1(BSDR("CLN"),BSDR("ADT"),BSDR("LEN"),BSDR("PAT"))
         ;
         ; call event driver
@@ -121 +121 @@
         Q 0
         ;
-MAKECK(BSDR) ; $$ - Is it okay to make an appointment? ; PEP
+MAKECK(BSDR)    ; $$ - Is it okay to make an appointment? ; PEP
         ; Input: Same as $$MAKE
         ; Output: 1^error or 0 for success
@@ -151 +151 @@
         Q 0
         ;
-UNMAKE(BSDR) ; Reverse Make - Private $$
+UNMAKE(BSDR)    ; Reverse Make - Private $$
         ; Only used in Emergiencies where Fileman data filing fails.
         ; If previous data exists, which caused an error, it's destroyed.
@@ -256 +256 @@
         Q $$CHECKICK(.BSDR)
         ;
-CHECKICK(BSDR) ; $$ PEP; - Is it okay to check-in patient?
+CHECKICK(BSDR)  ; $$ PEP; - Is it okay to check-in patient?
         ; Input: Same as $$CHECKIN
         ; Output: 0 if okay or 1^message if error
@@ -371 +371 @@
         Q 0
         ;
-CANCELCK(BSDR) ; $$ PEP; Okay to Cancel Appointment?
+CANCELCK(BSDR)  ; $$ PEP; Okay to Cancel Appointment?
         ; Input: .BSDR array as documented in $$CANCEL
         ; Output: 0 or 1^Error message
@@ -386 +386 @@
         NEW IEN S IEN=$$SCIEN(BSDR("PAT"),BSDR("CLN"),BSDR("ADT"))
         I 'IEN Q 1_U_"Error trying to find appointment for cancel: Patient="_BSDR("PAT")_" Clinic="_BSDR("CLN")_" Appt="_BSDR("ADT")
-        Q 0
+        ;
+        ; Check-out check. New in v1.7
+        I $$CO(BSDR("PAT"),BSDR("CLN"),BSDR("ADT"),IEN) Q 1_U_"Cannot delete. Appointment has already been checked-out!"
+        Q 0
+        ;
 CI(PAT,CLINIC,DATE,SDIEN)       ;PEP; -- returns 1 if appt already checked-in
         NEW X
@@ -394 +398 @@
         Q $S(X:1,1:0)
         ;
+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)
+        ;
 SCIEN(PAT,CLINIC,DATE)  ;PEP; returns ien for appt in ^SC
         NEW X,IEN
@@ -401 +412 @@
         Q $G(IEN)
         ;
-APPLEN(PAT,CLINIC,DATE) ; $$ PEP; returns an appointment's length
+APPLEN(PAT,CLINIC,DATE) ; $$ PEP; returns an appointment's length
         ; Get either the appointment length or zero
         ; TODO: Test
@@ -410 +421 @@
         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)
         ;
 UPDATENT(PAT,CLINIC,DATE,NOTE)  ; PEP; Update Note in ^SC for patient's appointment @ DATE