Changeset 1480 for Scheduling

Timestamp:

Jul 10, 2012, 8:39:33 PM (12 years ago)

Author:

Sam Habiel

Message:

Mostly minor changes. Most significant is that BSDX31 no longer reverses no-show in the error trap.

Location:

Scheduling/trunk/m

Files:

• BSDX26.m (modified) (3 diffs)
• BSDX31.m (modified) (2 diffs)
• BSDXAPI.m (modified) (3 diffs)

Scheduling/trunk/m/BSDX26.m

@@ -1 @@
-BSDX26   ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/9/12 2:19pm
+BSDX26   ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/10/12 10:27am
         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
         ; Licensed under LGPL
@@ -71 +71 @@
         M ^TMP($J,"BEFORE","BSDXAPPT")=^BSDXAPPT(BSDXAPTID)
         ;
+        ; Update note in BSDX APPOINTMENT
         I $D(BSDXNOTE(.5)) D
         . D WP^DIE(9002018.4,BSDXAPTID_",",1,"","BSDXNOTE","BSDXMSG")
@@ -86 +87 @@
         ; If we get an error (denoted by -1 in BSDXRES), return error to client
         ; AND restore the original note
-        I BSDXRES<0 D ERR(BSDXI,"4~BSDX26: BSDXAPI reports an error: "_BSDXRES),ROLLBACK(BSDXAPTID) QUIT
+        I BSDXRES D ERR(BSDXI,"4~BSDX26: BSDXAPI reports an error: "_BSDXRES),ROLLBACK(BSDXAPTID) QUIT
         ;
         ;Return Recordset indicating success

Scheduling/trunk/m/BSDX31.m

@@ -1 @@
-BSDX31   ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/9/12 12:57pm
+BSDX31   ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/10/12 10:39am
         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
         ; Licensed under LGPL
@@ -201 +201 @@
         D ^%ZTER
         ;
-        I $G(BSDXAPTID),$D(BSDXNS) N % S %=$$BSDXNOS(BSDXAPTID,'BSDXNS) ; Reverse No-Show status (whatever it was)
         ; Send to client
         I '$D(BSDXI) N BSDXI S BSDXI=0

Scheduling/trunk/m/BSDXAPI.m

@@ -1 @@
-BSDXAPI ; IHS/LJF,HMW,MAW & VEN/SMH - SCHEDULING APIs ; 7/9/12 4:00pm
+BSDXAPI ; IHS/LJF,HMW,MAW & VEN/SMH - SCHEDULING APIs ; 7/10/12 5:58pm
         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
         ; Licensed under LGPL  
@@ -155 +155 @@
         ; If previous data exists, which caused an error, it's destroyed.
         ; NB: ^DIK stops for nobody
-        ; TODO: If Patient Appointment previously existed as cancelled, it's removed.
+        ; NB: If Patient Appointment previously existed as cancelled, it's removed.
         ; How can I tell if one previously existed when data is in an intermediate
         ; State? Can I restore it if the other file failed? Restoration can cause
@@ -420 +420 @@
 APPLEN(PAT,CLINIC,DATE) ; $$ PEP; returns an appointment's length
         ; Get either the appointment length or zero
-        ; TODO: Test
         N SCIEN S SCIEN=$$SCIEN(PAT,CLINIC,DATE)
         Q:SCIEN $P(^SC(CLINIC,"S",DATE,1,SCIEN,0),U,2)