SDES2EDITPRVRES ;ALB/LAB - VISTA SCHEDULING SDES2 EDIT PROVIDER RESOURCE ;JAN 04,2024
;;5.3;Scheduling;**869**;Aug 13, 1993;Build 13
;;Per VHA Directive 6402, this routine should not be modified
Q
;
EDITPRVRES(RESULT,SDCONTEXT,SDPARAM) ; create provider resource record 409.831
N ERRORS,RETURN,RESOURCE,SDDUZ
;validate context array for accuracy
D VALCONTEXT^SDES2VALCONTEXT(.ERRORS,.SDCONTEXT)
I $D(ERRORS) S ERRORS("ResourceIEN",1)="" D BUILDJSON^SDES2JSON(.RESULT,.ERRORS) Q
D VALIDATE(.ERRORS,.SDPARAM)
I $D(ERRORS) S ERRORS("ResourceIEN",1)="" D BUILDJSON^SDES2JSON(.RESULT,.ERRORS) Q
D EDITRESOURCE(.RETURN,.ERRORS,.SDPARAM)
D BUILDJSON^SDES2JSON(.RESULT,.RETURN)
Q
;
VALIDATE(ERRORS,SDPARAM) ; validate input array variables
D VALFILEIEN^SDES2VALUTIL(,.ERRORS,409.831,$G(SDPARAM("ResourceIEN")),1,"",550,549)
Q:$D(ERRORS)
D:($$GET1^DIQ(409.831,SDPARAM("ResourceIEN"),.012,"E")'="PROVIDER") ERRLOG^SDES2JSON(.ERRORS,52,"Not a Provider Resource.")
D VALFILEIEN^SDES2VALUTIL(,.ERRORS,44,$G(SDPARAM("ClinicIEN")),"","",,19)
D:$G(SDPARAM("ClinicIEN"))="" ERRLOG^SDES2JSON(.ERRORS,52,"Nothing updated")
Q:$D(ERRORS)
Q
;
;
EDITRESOURCE(RETURN,ERRORS,SDPARAM) ;Edit the provider resource
N FILEDATA,NEWIEN
S FILEDATA(409.831,SDPARAM("ResourceIEN")_",",.04)=SDPARAM("ClinicIEN")
D FILE^DIE(,"FILEDATA","ERRORS") K FILEDATA
S RETURN("ResourceIEN")=SDPARAM("ResourceIEN")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES2EDITPRVRES 1434 printed Apr 09, 2024@22:04:45 Page 2
SDES2EDITPRVRES ;ALB/LAB - VISTA SCHEDULING SDES2 EDIT PROVIDER RESOURCE ;JAN 04,2024
+1 ;;5.3;Scheduling;**869**;Aug 13, 1993;Build 13
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 QUIT
+4 ;
EDITPRVRES(RESULT,SDCONTEXT,SDPARAM) ; create provider resource record 409.831
+1 NEW ERRORS,RETURN,RESOURCE,SDDUZ
+2 ;validate context array for accuracy
+3 DO VALCONTEXT^SDES2VALCONTEXT(.ERRORS,.SDCONTEXT)
+4 IF $DATA(ERRORS)
SET ERRORS("ResourceIEN",1)=""
DO BUILDJSON^SDES2JSON(.RESULT,.ERRORS)
QUIT
+5 DO VALIDATE(.ERRORS,.SDPARAM)
+6 IF $DATA(ERRORS)
SET ERRORS("ResourceIEN",1)=""
DO BUILDJSON^SDES2JSON(.RESULT,.ERRORS)
QUIT
+7 DO EDITRESOURCE(.RETURN,.ERRORS,.SDPARAM)
+8 DO BUILDJSON^SDES2JSON(.RESULT,.RETURN)
+9 QUIT
+10 ;
VALIDATE(ERRORS,SDPARAM) ; validate input array variables
+1 DO VALFILEIEN^SDES2VALUTIL(,.ERRORS,409.831,$GET(SDPARAM("ResourceIEN")),1,"",550,549)
+2 if $DATA(ERRORS)
QUIT
+3 if ($$GET1^DIQ(409.831,SDPARAM("ResourceIEN"),.012,"E")'="PROVIDER")
DO ERRLOG^SDES2JSON(.ERRORS,52,"Not a Provider Resource.")
+4 DO VALFILEIEN^SDES2VALUTIL(,.ERRORS,44,$GET(SDPARAM("ClinicIEN")),"","",,19)
+5 if $GET(SDPARAM("ClinicIEN"))=""
DO ERRLOG^SDES2JSON(.ERRORS,52,"Nothing updated")
+6 if $DATA(ERRORS)
QUIT
+7 QUIT
+8 ;
+9 ;
EDITRESOURCE(RETURN,ERRORS,SDPARAM) ;Edit the provider resource
+1 NEW FILEDATA,NEWIEN
+2 SET FILEDATA(409.831,SDPARAM("ResourceIEN")_",",.04)=SDPARAM("ClinicIEN")
+3 DO FILE^DIE(,"FILEDATA","ERRORS")
KILL FILEDATA
+4 SET RETURN("ResourceIEN")=SDPARAM("ResourceIEN")
+5 QUIT
+6 ;