Changeset 1466 for Scheduling/trunk/m/BSDXAPI1.m

Timestamp:

Jul 3, 2012, 7:45:46 PM (12 years ago)

Author:

Sam Habiel

Message:

Refactoring BSDX25 continued...

File:

• Scheduling/trunk/m/BSDXAPI1.m (modified) (4 diffs)

Scheduling/trunk/m/BSDXAPI1.m

@@ -1 @@
-BSDXAPI1 ; VEN/SMH - SCHEDULING APIs - Continued!!! ; 6/29/12 11:52am
+BSDXAPI1 ; VEN/SMH - SCHEDULING APIs - Continued!!! ; 7/3/12 12:37pm
         ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
         ; Licensed under LGPL  
+        ;
+        ; Change History (BSDXAPI and BSDXAPI1)
+        ; Pre 1.42:
+        ; - Simplified entry points (MAKE1, CANCEL1, CHECKIN1)
+        ; 2010-11-5: (1.42)
+        ; - Fixed errors having to do uncanceling patient appointments if it was 
+        ;   a patient cancelled appointment.
+        ; - Use new style Fileman API for storing appointments in file 44 in 
+        ;   $$MAKE due to problems with legacy API.
+        ; 2010-11-12: (1.42)
+        ; - Changed ="C" to ["C" in SCIEN. Cancelled appointments can be "PC" as 
+        ;   well. 
+        ; 2010-12-5 (1.42)
+        ; Added an entry point to update the patient note in file 44.
+        ; 2010-12-6 (1.42)
+        ; MAKE1 incorrectly put info field in BSDR("INFO") rather than BSDR("OI")
+        ; 2010-12-8 (1.42)
+        ; Removed restriction on max appt length. Even though this restriction
+        ; exists in fileman (120 minutes), PIMS ignores it. Therefore, I 
+        ; will ignore it here too.
+        ; 2011-01-25 (v.1.5)
+        ; Added entry point $$RMCI to remove checked in appointments.
+        ; In $$CANCEL, if the appointment is checked in, delete check-in rather than
+        ;  spitting an error message to the user saying 'Delete the check-in'
+        ; Changed all lines that look like this:
+        ;  I $G(BSDR("ADT"))'?7N1".".4N Q 1_U_"Appt Date/Time error: "_$G(BSDR("ADT"))
+        ; to:
+        ;  I $G(BSDR("ADT"))'?7N.1".".4N Q 1_U_"Appt Date/Time error: "_$G(BSDR("ADT"))
+        ; to allow for date at midnight which does not have a dot at the end.
+        ; 2011-01-26 (v.1.5)
+        ; More user friendly message if patient already has appointment in $$MAKE:
+        ;  Spits out pt name and user friendly date.
+        ; 2012-06-18 (v 1.7)
+        ; Removing transacions. Means that code SHOULD NOT fail. Took all checks
+        ;  out for making an appointment to MAKECK. We call this first to make sure
+        ; that the appointment is okay to make before committing to make it. We
+        ; still have the provision to delete the data though if we fail when we 
+        ; actually make the appointment.
+        ; CANCELCK exists for the same purpose.
+        ; CHECKINK ditto
+        ; New API: $$NOWSHOW^BSDXAPI1 for no-showing patients
+        ; Moved RMCI from BSDXAPI to BSDXAPI1 because BSDXAPI1 is getting larger
+        ;  than 20000 characters.
         ;
 NOSHOW(PAT,CLINIC,DATE,NSFLAG) ; $$ PEP; No-show Patient at appt date (new in v1.7)
@@ -41 +84 @@
         ; 
         ; This M error trigger tests if ^BSDXAPPT rolls back. 
-        ; I won't try to roll back ^DPT(,"S"
-        ; The M error is caused here, so if I try to rollback, I can cause another
+        ; I won't try to roll back ^DPT(,"S" because
+        ; the M error is caused here, so if I try to rollback, I can cause another
         ; error. Infinite Errors then.
         I $D(BSDXSIMERR3) N X S X=1/0
@@ -67 +110 @@
         ;
         ; Call like this: $$RMCI(233,33,3110102.1130)
+        ;
+        ; Check to see if we can remove the check-in
+        N BSDXERR S BSDXERR=$$RMCICK(PAT,CLINIC,DATE)
+        I BSDXERR Q BSDXERR
         ;
         ; Move my variables into the ones used by SDAPIs (just a convenience)
@@ -97 +144 @@
         QUIT 0
         ;
+RMCICK(PAT,CLINIC,DATE) ;PEP; Can you remove a check-in for this patient?
+        ; PAT - DFN by value
+        ; CLINIC - ^SC ien by value
+        ; DATE - Appointment Date
+        ; Output: 0 if okay or 1 if error
+        ;
+        ; Get appointment IEN in ^SC(DA(2),"S",DA(1),1,
+        N SCIEN S SCIEN=$$SCIEN^BSDXAPI(PAT,CLINIC,DATE)
+        ;
+        ; If not there, it has been cancelled.
+        I 'SCIEN QUIT 0
+        ;
+        ; Check if checked out
+        I $$CO^BSDXAPI(PAT,CLINIC,DATE,SCIEN) Q 1_U_"Appointment Already Checked Out"
+        ;
+        QUIT 0
+        ;
 UPDATENT(PAT,CLINIC,DATE,NOTE)  ; PEP; Update Note in ^SC for patient's appointment @ DATE
         ; PAT = DFN