BSDX26 ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING RPCS ;
;;3.0;IHS WINDOWS SCHEDULING;;DEC 09, 2010
;
;
EDITAPTD(BSDXY,BSDXAPTID,BSDXNOTE) ;EP
;Entry point for debugging
;
;D DEBUG^%Serenji("EDITAPT^BSDX26(.BSDXY,BSDXAPTID,BSDXNOTE)")
Q
;
EDITAPT(BSDXY,BSDXAPTID,BSDXNOTE,BSDXLEN) ;EP Edit appointment (only note text and appontment length can be edited)
;
; BSDXAPTID - Appointment ID
; BSDXNOTE - Note
; BSDXLEN - If there is a change in the length of appointment, this is the new value (in minutes) for length
;
N BSDXNOD,BSDXPATID,BSDXSTART,DIK,DA,BSDXID,BSDXI,BSDXZ,BSDXIENS,BSDXEND
;
D ^XBKVAR
S X="ETRAP^BSDX26",@^%ZOSF("TRAP")
S BSDXI=0
K ^BSDXTMP($J)
S BSDXY="^BSDXTMP("_$J_")"
S ^BSDXTMP($J,BSDXI)="T00020ERRORID"_$C(30)
S BSDXI=BSDXI+1
TSTART
I '+BSDXAPTID D ERR(BSDXI,"BSDX26: Invalid Appointment ID") Q
I '$D(^BSDXAPPT(BSDXAPTID,0)) D ERR(BSDXI,"BSDX26: Invalid Appointment ID") Q
;Add WP field
;I BSDXNOTE]"" S BSDXNOTE(.5)=BSDXNOTE,BSDXNOTE=""
S BSDXNOTE(.5)=BSDXNOTE,BSDXNOTE=""
I $D(BSDXNOTE(0)) S BSDXNOTE(.5)=BSDXNOTE(0) K BSDXNOTE(0)
I $D(BSDXNOTE(.5)) D
. D WP^DIE(9002018.4,BSDXAPTID_",",1,"","BSDXNOTE","BSDXMSG")
;
;Edit appointment length
I $G(BSDXLEN),$G(BSDXLEN)>0 D
. S BSDXSTART=$$GET1^DIQ(9002018.4,BSDXAPTID,.01,"I"),BSDXEND=$$GET1^DIQ(9002018.4,BSDXAPTID,.02,"I")
. S BSDXOLEN=$$FMDIFF^XLFDT(BSDXEND,BSDXSTART,2),BSDXOLEN=BSDXOLEN/60
. Q:BSDXOLEN=BSDXLEN
. S BSDXRES=$$GET1^DIQ(9002018.4,BSDXAPTID,.07,"I") Q:'BSDXRES
. S BSDXPAT=$$GET1^DIQ(9002018.4,BSDXAPTID,.05,"I") Q:'BSDXPAT
. S BSDXCL=$$GET1^DIQ(9002018.1,BSDXRES,.04,"I") Q:'BSDXCL
. S BSDXAP=0 F S BSDXAP=$O(^SC(BSDXCL,"S",BSDXSTART,1,BSDXAP)) Q:'BSDXAP D
. . S BSDXIENS=BSDXAP_","_BSDXSTART_","_BSDXCL_","
. . I $$GET1^DIQ(44.003,BSDXIENS,.01,"I")=BSDXPAT,$$GET1^DIQ(44.003,BSDXIENS,1,"I")=BSDXOLEN D
. . . S FDA(44.003,BSDXIENS,1)=BSDXLEN D FILE^DIE(,"FDA") K FDA
. . . S BSDXNEND=$$FMADD^XLFDT(BSDXSTART,,,BSDXLEN)
. . . S FDA(9002018.4,BSDXAPTID_",",.02)=BSDXNEND D FILE^DIE(,"FDA") K FDA
;
;Return Recordset
TCOMMIT
S BSDXI=BSDXI+1
S ^BSDXTMP($J,BSDXI)="-1"_$C(30)
S BSDXI=BSDXI+1
S ^BSDXTMP($J,BSDXI)=$C(31)
Q
;
;
ERR(BSDXI,BSDXERR) ;Error processing
S BSDXI=BSDXI+1
TROLLBACK
S ^BSDXTMP($J,BSDXI)=BSDXERR_$C(30)
S BSDXI=BSDXI+1
S ^BSDXTMP($J,BSDXI)=$C(31)
Q
;
ETRAP ;EP Error trap entry
TROLLBACK
D ^%ZTER
I '$D(BSDXI) N BSDXI S BSDXI=999999
S BSDXI=BSDXI+1
D ERR(BSDXI,"BSDX26 Error: "_$G(%ZTERROR))
Q
BSDX26 ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING RPCS ;
+1 ;;3.0;IHS WINDOWS SCHEDULING;;DEC 09, 2010
+2 ;
+3 ;
EDITAPTD(BSDXY,BSDXAPTID,BSDXNOTE) ;EP
+1 ;Entry point for debugging
+2 ;
+3 ;D DEBUG^%Serenji("EDITAPT^BSDX26(.BSDXY,BSDXAPTID,BSDXNOTE)")
+4 QUIT
+5 ;
EDITAPT(BSDXY,BSDXAPTID,BSDXNOTE,BSDXLEN) ;EP Edit appointment (only note text and appontment length can be edited)
+1 ;
+2 ; BSDXAPTID - Appointment ID
+3 ; BSDXNOTE - Note
+4 ; BSDXLEN - If there is a change in the length of appointment, this is the new value (in minutes) for length
+5 ;
+6 NEW BSDXNOD,BSDXPATID,BSDXSTART,DIK,DA,BSDXID,BSDXI,BSDXZ,BSDXIENS,BSDXEND
+7 ;
+8 DO ^XBKVAR
+9 SET X="ETRAP^BSDX26"
SET @^%ZOSF("TRAP")
+10 SET BSDXI=0
+11 KILL ^BSDXTMP($JOB)
+12 SET BSDXY="^BSDXTMP("_$JOB_")"
+13 SET ^BSDXTMP($JOB,BSDXI)="T00020ERRORID"_$CHAR(30)
+14 SET BSDXI=BSDXI+1
+15 TSTART
+16 IF '+BSDXAPTID
DO ERR(BSDXI,"BSDX26: Invalid Appointment ID")
QUIT
+17 IF '$DATA(^BSDXAPPT(BSDXAPTID,0))
DO ERR(BSDXI,"BSDX26: Invalid Appointment ID")
QUIT
+18 ;Add WP field
+19 ;I BSDXNOTE]"" S BSDXNOTE(.5)=BSDXNOTE,BSDXNOTE=""
+20 SET BSDXNOTE(.5)=BSDXNOTE
SET BSDXNOTE=""
+21 IF $DATA(BSDXNOTE(0))
SET BSDXNOTE(.5)=BSDXNOTE(0)
KILL BSDXNOTE(0)
+22 IF $DATA(BSDXNOTE(.5))
Begin DoDot:1
+23 DO WP^DIE(9002018.4,BSDXAPTID_",",1,"","BSDXNOTE","BSDXMSG")
End DoDot:1
+24 ;
+25 ;Edit appointment length
+26 IF $GET(BSDXLEN)
IF $GET(BSDXLEN)>0
Begin DoDot:1
+27 SET BSDXSTART=$$GET1^DIQ(9002018.4,BSDXAPTID,.01,"I")
SET BSDXEND=$$GET1^DIQ(9002018.4,BSDXAPTID,.02,"I")
+28 SET BSDXOLEN=$$FMDIFF^XLFDT(BSDXEND,BSDXSTART,2)
SET BSDXOLEN=BSDXOLEN/60
+29 IF BSDXOLEN=BSDXLEN
QUIT
+30 SET BSDXRES=$$GET1^DIQ(9002018.4,BSDXAPTID,.07,"I")
IF 'BSDXRES
QUIT
+31 SET BSDXPAT=$$GET1^DIQ(9002018.4,BSDXAPTID,.05,"I")
IF 'BSDXPAT
QUIT
+32 SET BSDXCL=$$GET1^DIQ(9002018.1,BSDXRES,.04,"I")
IF 'BSDXCL
QUIT
+33 SET BSDXAP=0
FOR
SET BSDXAP=$ORDER(^SC(BSDXCL,"S",BSDXSTART,1,BSDXAP))
IF 'BSDXAP
QUIT
Begin DoDot:2
+34 SET BSDXIENS=BSDXAP_","_BSDXSTART_","_BSDXCL_","
+35 IF $$GET1^DIQ(44.003,BSDXIENS,.01,"I")=BSDXPAT
IF $$GET1^DIQ(44.003,BSDXIENS,1,"I")=BSDXOLEN
Begin DoDot:3
+36 SET FDA(44.003,BSDXIENS,1)=BSDXLEN
DO FILE^DIE(,"FDA")
KILL FDA
+37 SET BSDXNEND=$$FMADD^XLFDT(BSDXSTART,,,BSDXLEN)
+38 SET FDA(9002018.4,BSDXAPTID_",",.02)=BSDXNEND
DO FILE^DIE(,"FDA")
KILL FDA
End DoDot:3
End DoDot:2
End DoDot:1
+39 ;
+40 ;Return Recordset
+41 TCOMMIT
+42 SET BSDXI=BSDXI+1
+43 SET ^BSDXTMP($JOB,BSDXI)="-1"_$CHAR(30)
+44 SET BSDXI=BSDXI+1
+45 SET ^BSDXTMP($JOB,BSDXI)=$CHAR(31)
+46 QUIT
+47 ;
+48 ;
ERR(BSDXI,BSDXERR) ;Error processing
+1 SET BSDXI=BSDXI+1
+2 TROLLBACK
+3 SET ^BSDXTMP($JOB,BSDXI)=BSDXERR_$CHAR(30)
+4 SET BSDXI=BSDXI+1
+5 SET ^BSDXTMP($JOB,BSDXI)=$CHAR(31)
+6 QUIT
+7 ;
ETRAP ;EP Error trap entry
+1 TROLLBACK
+2 DO ^%ZTER
+3 IF '$DATA(BSDXI)
NEW BSDXI
SET BSDXI=999999
+4 SET BSDXI=BSDXI+1
+5 DO ERR(BSDXI,"BSDX26 Error: "_$GET(%ZTERROR))
+6 QUIT
