Mostly minor changes. Most significant is that BSDX31 no longer reverses no-show in the error trap.
This commit is contained in:
parent
83543534b0
commit
ab2f082f1e
|
@ -1,4 +1,4 @@
|
|||
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
|
||||
; Change History:
|
||||
|
@ -70,6 +70,7 @@ EDITAPT(BSDXY,BSDXAPTID,BSDXNOTE) ;EP Edit appointment (only note text can be
|
|||
K ^TMP($J)
|
||||
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")
|
||||
;
|
||||
|
@ -85,7 +86,7 @@ EDITAPT(BSDXY,BSDXAPTID,BSDXNOTE) ;EP Edit appointment (only note text can be
|
|||
I HLIEN S BSDXRES=$$UPDATENT^BSDXAPI1(PTIEN,HLIEN,DATE,BSDXNOTE(.5))
|
||||
; 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
|
||||
L -^BSDXAPPT(BSDXAPTID)
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
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
|
||||
; Change Log:
|
||||
|
@ -200,7 +200,6 @@ ETRAP ;EP Error trap entry
|
|||
N $ET S $ET="D ^%ZTER HALT" ; Emergency Error Trap
|
||||
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
|
||||
D ERR(-100,"BSDX31 Error: "_$G(%ZTERZE))
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
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
|
||||
;
|
||||
|
@ -154,7 +154,7 @@ 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.
|
||||
; 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
|
||||
; another error. If I restore the global, there will be cross-references
|
||||
|
@ -419,7 +419,6 @@ SCIEN(PAT,CLINIC,DATE) ;PEP; returns ien for appt in ^SC
|
|||
;
|
||||
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)
|
||||
Q 0
|
||||
|
|
Loading…
Reference in New Issue