SDES2EDITPRVRES.m

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 ---SDES2EDITPRVRES   1434     printed  Feb 19, 2025@00:20:16                                                                                                                                                                                             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       ;