Routine: SDES2VALCRTCLIN1

SDES2VALCRTCLIN1 ;ALB/MGD/BLB - CLINIC VALIDATION UTILITIES DRIVER ;SEPT 25,2023

 ;;5.3;Scheduling;**853,857,860,871**;Aug 13, 1993;Build 13

 ;;Per VHA Directive 6402, this routine should not be modified

 ; Reference to $$CODEC^ICDEX is supported by IA #5747

 ; Reference to $$CODEN^ICDEX is supported by IA #5747

 ; RPC: SDES CREATE CLINIC2

VALCLINIC(SDERRORS,SDCLINIC,SDFILEDATA) ; Validate Clinic Input Array

 ; Validate required variables first

 D VALALLOWNOSHOW^SDES2VAL44(.SDERRORS,$G(SDCLINIC("ALLOWABLE CONSECUTIVE NO-SHOWS")),.SDFILEDATA)

 D VALDIRPATSCHED^SDES2VAL44(.SDERRORS,$G(SDCLINIC("DIRECT PATIENT SCHEDULING")),.SDFILEDATA)

 D VALPRIMAMIS^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 D VALNAME^SDES2VAL44(.SDERRORS,$G(SDCLINIC("NAME")),.SDFILEDATA)

 D VALDISPAPPT^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 D VALINCPERHOUR^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 D VALDIV^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 D VALCHECKIN^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 D VALAPPTLENGTH^SDES2VAL44(.SDERRORS,$G(SDCLINIC("LENGTH OF APPOINTMENT")),.SDFILEDATA)

 D VALMAXFUTBOOK^SDES2VAL44(.SDERRORS,$G(SDCLINIC("MAX DAYS FUTURE BOOKING")),.SDFILEDATA)

 D VALMEETATFACIL^SDES2VAL44(.SDERRORS,$G(SDCLINIC("MEETS AT FACILITY")),.SDFILEDATA)

 D VALNONCOUNT^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 D VALOVBDAYMAX^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 D VALPRECHECKIN^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 D VALPROFILE^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 D VALSERVICE^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 ; Quit if any errors in Required input parameters

 Q:$D(SDERRORS)

 ; Validate optional variables second - Values that will be altered by the validation will have SDCLINIC passed by reference

 ; =================================

 I $G(SDCLINIC("ABBREVIATION"))'="" D VALABBR^SDES2VAL44(.SDERRORS,SDCLINIC("ABBREVIATION"),.SDFILEDATA)

 I $G(SDCLINIC("ADMIN INPATIENT MEDS"))'="" D VALINPATMED^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 I $G(SDCLINIC("APPOINTMENT CANCELLATION LETTER"))'="" D VALAPTCANLET^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 I $G(SDCLINIC("ASK CHECK IN/OUT"))'="" D VALINOUTTIME^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 I $G(SDCLINIC("CLINIC CANCELLATION LETTER"))'="" D VALCANLET^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 I $G(SDCLINIC("CREDIT AMIS"))'="" D VALCREDITAMIS^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 I $G(SDCLINIC("PRIMARY AMIS"))'="",$G(SDCLINIC("CREDIT AMIS"))'="" D CONDAMISCHECK^SDES2VAL44(.SDERRORS,SDCLINIC("PRIMARY AMIS"),SDCLINIC("CREDIT AMIS"))

 I $G(SDCLINIC("DEFAULT APPOINTMENT TYPE"))'="" D VALAPPTTYPE^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 I $G(SDCLINIC("DEFAULT TO PC PRACTITIONER"))'="" D VALDEFAULTTOPRAC^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 I $D(SDCLINIC("DIAGNOSIS")) D VALDIAG(.SDERRORS,.SDCLINIC,.SDFILEDATA) ; Call Create only Validator

 D VALSTARTHOUR^SDES2VAL44(.SDERRORS,$G(SDCLINIC("HOUR CLINIC DISPLAY BEGINS")),.SDFILEDATA)

 I $G(SDCLINIC("NO-SHOW LETTER"))'="" D VALNOSHOWLET^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 I $G(SDCLINIC("PATIENT FRIENDLY NAME"))'="" D VALPATFNAME^SDES2VAL44(.SDERRORS,SDCLINIC("PATIENT FRIENDLY NAME"),.SDFILEDATA)

 I $G(SDCLINIC("PBSPID"))'="" D VALPBSPID^SDES2VAL44(.SDERRORS,SDCLINIC("PBSPID"),.SDFILEDATA)

 I $G(SDCLINIC("PHYSICAL LOCATION"))'="" D VALLOCATION^SDES2VAL44(.SDERRORS,SDCLINIC("PHYSICAL LOCATION"),.SDFILEDATA)

 I $G(SDCLINIC("PRE-APPOINTMENT LETTER"))'="" D VALPREAPTLET^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 I $G(SDCLINIC("PRINCIPAL CLINIC"))'="" D VALPRINCLINIC^SDES2VAL44(.SDERRORS,SDCLINIC("PRINCIPAL CLINIC"),.SDFILEDATA)

 I $G(SDCLINIC("PROHIBIT ACCESS TO CLINIC"))'="" D VALNOACCESS^SDES2VAL44(.SDERRORS,SDCLINIC("PROHIBIT ACCESS TO CLINIC"),.SDFILEDATA)

 I $D(SDCLINIC("PRIVILEGED USER")),$G(SDCLINIC("PROHIBIT ACCESS TO CLINIC"))="Y" D VALPRIVUSERS(.SDERRORS,.SDCLINIC,.SDFILEDATA) ; Call Create only Validator

 I $D(SDCLINIC("PROVIDER")) D VALPROVIDERS(.SDERRORS,.SDCLINIC,.SDFILEDATA) ; Call Create only Validator

 I $G(SDCLINIC("REQUIRE X-RAY"))'="" D VALXRAY^SDES2VAL44(.SDERRORS,SDCLINIC("REQUIRE X-RAY"),.SDFILEDATA)

 I $G(SDCLINIC("SCHEDULE ON HOLIDAYS"))'="" D VALSCHEDHOLIDAY^SDES2VAL44(.SDERRORS,SDCLINIC("SCHEDULE ON HOLIDAYS"),.SDFILEDATA)

 I $D(SDCLINIC("SPECIAL INSTRUCTIONS")) D VALSPECINSTRUCT(.SDERRORS,.SDCLINIC,.SDFILEDATA) ; Call Create only Validator

 I $G(SDCLINIC("TELEPHONE"))'="" D VALPHONE^SDES2VAL44(.SDERRORS,SDCLINIC("TELEPHONE"),.SDFILEDATA)

 I $G(SDCLINIC("TELEPHONE EXTENSION"))'="" D VALPHONEEXT^SDES2VAL44(.SDERRORS,SDCLINIC("TELEPHONE EXTENSION"),.SDFILEDATA)

 I $G(SDCLINIC("VARIABLE APPOINTMENT LENGTH"))'="" D VALVARAPTLENGTH^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 I $G(SDCLINIC("WORKLOAD VALIDATION"))'="" D VALWORKLOAD^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 ; Validation for optional variables unique to Create Clinic

 ; =========================================================

VALDIAG(SDERRORS,SDCLINIC,SDFDATA) ;

 N SDDIAGCODE,SDDIAGIEN,SDDEFDIAGCNT,SDNEWDIAGIEN

 S SDDEFDIAGCNT=0

 S SDDIAGCODE="" F  S SDDIAGCODE=$O(SDCLINIC("DIAGNOSIS",SDDIAGCODE)) Q:SDDIAGCODE=""  D

 .I $G(SDCLINIC("DIAGNOSIS",SDDIAGCODE))="@" D ERRLOG^SDES2JSON(.SDERRORS,459,"DIAGNOSIS: "_SDDIAGCODE)

 .S SDDIAGIEN=$$CODEN^ICDEX(SDDIAGCODE,80)

 .I +SDDIAGIEN=-1 D ERRLOG^SDES2JSON(.SDERRORS,85,SDDIAGCODE)

 .I $D(SDCLINIC("DIAGNOSIS",SDDIAGCODE,"DEFAULT")) S SDDEFDIAGCNT=SDDEFDIAGCNT+1

 I SDDEFDIAGCNT>1 D ERRLOG^SDES2JSON(.SDERRORS,490) Q

 M SDFDATA("DIAGNOSIS")=SDCLINIC("DIAGNOSIS")

VALPRIVUSERS(ERRORS,PRIVUSERS,SDFDATA) ;

 N SDPUSER

 S SDPUSER=0 F  S SDPUSER=$O(PRIVUSERS("PRIVILEGED USER",SDPUSER)) Q:'SDPUSER  D

 .I PRIVUSERS("PRIVILEGED USER",SDPUSER)="@" D ERRLOG^SDES2JSON(.SDERRORS,459,"Privileged User: "_SDPUSER) Q

 .D VALUSERDUZ^SDES2VAL200(.ERRORS,SDPUSER)

 M SDFDATA("PRIVILEGED USER")=PRIVUSERS("PRIVILEGED USER")

VALPROVIDERS(ERRORS,SDCLINIC,SDFDATA) ;

 N SDPROVIEN,SDPROVERRORS,SDDEFCNT

 S (SDPROVIEN,SDDEFCNT)=0 F  S SDPROVIEN=$O(SDCLINIC("PROVIDER",SDPROVIEN)) Q:'SDPROVIEN  D

 .I $G(SDCLINIC("PROVIDER",SDPROVIEN))="@" D ERRLOG^SDES2JSON(.SDERRORS,459,"Provider: "_SDPROVIEN) Q

 .D VALPROVIDER^SDES2VAL200(.ERRORS,SDPROVIEN)

 .I $D(SDCLINIC("PROVIDER",SDPROVIEN,"DEFAULT")) S SDDEFCNT=SDDEFCNT+1

 I SDDEFCNT>1 D ERRLOG^SDES2JSON(.ERRORS,488)

 M SDFDATA("PROVIDER")=SDCLINIC("PROVIDER")

VALSPECINSTRUCT(SDERRORS,SDSPECINST,SDFDATA) ;

 ; SDSPECINST("SPECIAL INSTRUCTIONS",SDINSTRUCT)=IEN|@

 ; SDSPECINST("SPECIAL INSTRUCTIONS",SDINSTRUCT)=

 N SDINSTRUCT,SDINSDATA,SDINSIEN,SDINSTEXT

 S SDINSTRUCT=0 F  S SDINSTRUCT=$O(SDSPECINST("SPECIAL INSTRUCTIONS",SDINSTRUCT)) Q:'SDINSTRUCT  D

 .S SDINSDATA=$G(SDSPECINST("SPECIAL INSTRUCTIONS",SDINSTRUCT))

 .S SDINSIEN=$P(SDINSDATA,"|")

 .S SDINSTEXT=$P(SDINSDATA,"|",2)

 .I SDINSTEXT="" Q

 .I SDINSTEXT="@" D ERRLOG^SDES2JSON(.SDERRORS,459,"SPECIAL INSTRUCTIONS")

 .I $L(SDINSTEXT)<1!($L(SDINSTEXT)>80) D ERRLOG^SDES2JSON(.SDERRORS,52,"Special instructions must be 1-80 characters in length.")

 Q:$D(SDERRORS)

 M SDFDATA("SPECIAL INSTRUCTIONS")=SDSPECINST("SPECIAL INSTRUCTIONS")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES2VALCRTCLIN1   7255     printed  Apr 09, 2024@21:46:28                                                                                                                                                                                            Page 2

SDES2VALCRTCLIN1 ;ALB/MGD/BLB - CLINIC VALIDATION UTILITIES DRIVER ;SEPT 25,2023

 +1       ;;5.3;Scheduling;**853,857,860,871**;Aug 13, 1993;Build 13

 +2       ;;Per VHA Directive 6402, this routine should not be modified

 +3       ;

 +4       ; Reference to $$CODEC^ICDEX is supported by IA #5747

 +5       ; Reference to $$CODEN^ICDEX is supported by IA #5747

 +6       ;

 +7       ; RPC: SDES CREATE CLINIC2

 +8       ;

 +9        QUIT

 +10      ;

VALCLINIC(SDERRORS,SDCLINIC,SDFILEDATA) ; Validate Clinic Input Array

 +1       ; Validate required variables first

 +2        DO VALALLOWNOSHOW^SDES2VAL44(.SDERRORS,$GET(SDCLINIC("ALLOWABLE CONSECUTIVE NO-SHOWS")),.SDFILEDATA)

 +3        DO VALDIRPATSCHED^SDES2VAL44(.SDERRORS,$GET(SDCLINIC("DIRECT PATIENT SCHEDULING")),.SDFILEDATA)

 +4        DO VALPRIMAMIS^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +5        DO VALNAME^SDES2VAL44(.SDERRORS,$GET(SDCLINIC("NAME")),.SDFILEDATA)

 +6        DO VALDISPAPPT^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +7        DO VALINCPERHOUR^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +8        DO VALDIV^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +9        DO VALCHECKIN^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +10       DO VALAPPTLENGTH^SDES2VAL44(.SDERRORS,$GET(SDCLINIC("LENGTH OF APPOINTMENT")),.SDFILEDATA)

 +11       DO VALMAXFUTBOOK^SDES2VAL44(.SDERRORS,$GET(SDCLINIC("MAX DAYS FUTURE BOOKING")),.SDFILEDATA)

 +12       DO VALMEETATFACIL^SDES2VAL44(.SDERRORS,$GET(SDCLINIC("MEETS AT FACILITY")),.SDFILEDATA)

 +13       DO VALNONCOUNT^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +14       DO VALOVBDAYMAX^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +15       DO VALPRECHECKIN^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +16       DO VALPROFILE^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +17       DO VALSERVICE^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +18      ;

 +19      ; Quit if any errors in Required input parameters

 +20       if $DATA(SDERRORS)

               QUIT

 +21      ;

 +22      ; Validate optional variables second - Values that will be altered by the validation will have SDCLINIC passed by reference

 +23      ; =================================

 +24       IF $GET(SDCLINIC("ABBREVIATION"))'=""

               DO VALABBR^SDES2VAL44(.SDERRORS,SDCLINIC("ABBREVIATION"),.SDFILEDATA)

 +25       IF $GET(SDCLINIC("ADMIN INPATIENT MEDS"))'=""

               DO VALINPATMED^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +26       IF $GET(SDCLINIC("APPOINTMENT CANCELLATION LETTER"))'=""

               DO VALAPTCANLET^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +27       IF $GET(SDCLINIC("ASK CHECK IN/OUT"))'=""

               DO VALINOUTTIME^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +28       IF $GET(SDCLINIC("CLINIC CANCELLATION LETTER"))'=""

               DO VALCANLET^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +29       IF $GET(SDCLINIC("CREDIT AMIS"))'=""

               DO VALCREDITAMIS^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +30       IF $GET(SDCLINIC("PRIMARY AMIS"))'=""

               IF $GET(SDCLINIC("CREDIT AMIS"))'=""

                   DO CONDAMISCHECK^SDES2VAL44(.SDERRORS,SDCLINIC("PRIMARY AMIS"),SDCLINIC("CREDIT AMIS"))

 +31       IF $GET(SDCLINIC("DEFAULT APPOINTMENT TYPE"))'=""

               DO VALAPPTTYPE^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +32       IF $GET(SDCLINIC("DEFAULT TO PC PRACTITIONER"))'=""

               DO VALDEFAULTTOPRAC^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +33      ; Call Create only Validator

           IF $DATA(SDCLINIC("DIAGNOSIS"))

               DO VALDIAG(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +34       DO VALSTARTHOUR^SDES2VAL44(.SDERRORS,$GET(SDCLINIC("HOUR CLINIC DISPLAY BEGINS")),.SDFILEDATA)

 +35       IF $GET(SDCLINIC("NO-SHOW LETTER"))'=""

               DO VALNOSHOWLET^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +36       IF $GET(SDCLINIC("PATIENT FRIENDLY NAME"))'=""

               DO VALPATFNAME^SDES2VAL44(.SDERRORS,SDCLINIC("PATIENT FRIENDLY NAME"),.SDFILEDATA)

 +37       IF $GET(SDCLINIC("PBSPID"))'=""

               DO VALPBSPID^SDES2VAL44(.SDERRORS,SDCLINIC("PBSPID"),.SDFILEDATA)

 +38       IF $GET(SDCLINIC("PHYSICAL LOCATION"))'=""

               DO VALLOCATION^SDES2VAL44(.SDERRORS,SDCLINIC("PHYSICAL LOCATION"),.SDFILEDATA)

 +39       IF $GET(SDCLINIC("PRE-APPOINTMENT LETTER"))'=""

               DO VALPREAPTLET^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +40       IF $GET(SDCLINIC("PRINCIPAL CLINIC"))'=""

               DO VALPRINCLINIC^SDES2VAL44(.SDERRORS,SDCLINIC("PRINCIPAL CLINIC"),.SDFILEDATA)

 +41       IF $GET(SDCLINIC("PROHIBIT ACCESS TO CLINIC"))'=""

               DO VALNOACCESS^SDES2VAL44(.SDERRORS,SDCLINIC("PROHIBIT ACCESS TO CLINIC"),.SDFILEDATA)

 +42      ; Call Create only Validator

           IF $DATA(SDCLINIC("PRIVILEGED USER"))

               IF $GET(SDCLINIC("PROHIBIT ACCESS TO CLINIC"))="Y"

                   DO VALPRIVUSERS(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +43      ; Call Create only Validator

           IF $DATA(SDCLINIC("PROVIDER"))

               DO VALPROVIDERS(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +44       IF $GET(SDCLINIC("REQUIRE X-RAY"))'=""

               DO VALXRAY^SDES2VAL44(.SDERRORS,SDCLINIC("REQUIRE X-RAY"),.SDFILEDATA)

 +45       IF $GET(SDCLINIC("SCHEDULE ON HOLIDAYS"))'=""

               DO VALSCHEDHOLIDAY^SDES2VAL44(.SDERRORS,SDCLINIC("SCHEDULE ON HOLIDAYS"),.SDFILEDATA)

 +46      ; Call Create only Validator

           IF $DATA(SDCLINIC("SPECIAL INSTRUCTIONS"))

               DO VALSPECINSTRUCT(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +47       IF $GET(SDCLINIC("TELEPHONE"))'=""

               DO VALPHONE^SDES2VAL44(.SDERRORS,SDCLINIC("TELEPHONE"),.SDFILEDATA)

 +48       IF $GET(SDCLINIC("TELEPHONE EXTENSION"))'=""

               DO VALPHONEEXT^SDES2VAL44(.SDERRORS,SDCLINIC("TELEPHONE EXTENSION"),.SDFILEDATA)

 +49       IF $GET(SDCLINIC("VARIABLE APPOINTMENT LENGTH"))'=""

               DO VALVARAPTLENGTH^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +50       IF $GET(SDCLINIC("WORKLOAD VALIDATION"))'=""

               DO VALWORKLOAD^SDES2VAL44(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +51       QUIT

 +52      ;

 +53      ; Validation for optional variables unique to Create Clinic

 +54      ; =========================================================

 +55      ;

VALDIAG(SDERRORS,SDCLINIC,SDFDATA) ;

 +1        NEW SDDIAGCODE,SDDIAGIEN,SDDEFDIAGCNT,SDNEWDIAGIEN

 +2        SET SDDEFDIAGCNT=0

 +3        SET SDDIAGCODE=""

FOR

               SET SDDIAGCODE=$ORDER(SDCLINIC("DIAGNOSIS",SDDIAGCODE))

               if SDDIAGCODE=""

                   QUIT

               Begin DoDot:1

 +4                IF $GET(SDCLINIC("DIAGNOSIS",SDDIAGCODE))="@"

                       DO ERRLOG^SDES2JSON(.SDERRORS,459,"DIAGNOSIS: "_SDDIAGCODE)

 +5                SET SDDIAGIEN=$$CODEN^ICDEX(SDDIAGCODE,80)

 +6                IF +SDDIAGIEN=-1

                       DO ERRLOG^SDES2JSON(.SDERRORS,85,SDDIAGCODE)

 +7                IF $DATA(SDCLINIC("DIAGNOSIS",SDDIAGCODE,"DEFAULT"))

                       SET SDDEFDIAGCNT=SDDEFDIAGCNT+1

               End DoDot:1

 +8        IF SDDEFDIAGCNT>1

               DO ERRLOG^SDES2JSON(.SDERRORS,490)

               QUIT

 +9        MERGE SDFDATA("DIAGNOSIS")=SDCLINIC("DIAGNOSIS")

 +10       QUIT

 +11      ;

VALPRIVUSERS(ERRORS,PRIVUSERS,SDFDATA) ;

 +1        NEW SDPUSER

 +2        SET SDPUSER=0

FOR

               SET SDPUSER=$ORDER(PRIVUSERS("PRIVILEGED USER",SDPUSER))

               if 'SDPUSER

                   QUIT

               Begin DoDot:1

 +3                IF PRIVUSERS("PRIVILEGED USER",SDPUSER)="@"

                       DO ERRLOG^SDES2JSON(.SDERRORS,459,"Privileged User: "_SDPUSER)

                       QUIT

 +4                DO VALUSERDUZ^SDES2VAL200(.ERRORS,SDPUSER)

               End DoDot:1

 +5        MERGE SDFDATA("PRIVILEGED USER")=PRIVUSERS("PRIVILEGED USER")

 +6        QUIT

 +7       ;

VALPROVIDERS(ERRORS,SDCLINIC,SDFDATA) ;

 +1        NEW SDPROVIEN,SDPROVERRORS,SDDEFCNT

 +2        SET (SDPROVIEN,SDDEFCNT)=0

FOR

               SET SDPROVIEN=$ORDER(SDCLINIC("PROVIDER",SDPROVIEN))

               if 'SDPROVIEN

                   QUIT

               Begin DoDot:1

 +3                IF $GET(SDCLINIC("PROVIDER",SDPROVIEN))="@"

                       DO ERRLOG^SDES2JSON(.SDERRORS,459,"Provider: "_SDPROVIEN)

                       QUIT

 +4                DO VALPROVIDER^SDES2VAL200(.ERRORS,SDPROVIEN)

 +5                IF $DATA(SDCLINIC("PROVIDER",SDPROVIEN,"DEFAULT"))

                       SET SDDEFCNT=SDDEFCNT+1

               End DoDot:1

 +6        IF SDDEFCNT>1

               DO ERRLOG^SDES2JSON(.ERRORS,488)

 +7        MERGE SDFDATA("PROVIDER")=SDCLINIC("PROVIDER")

 +8        QUIT

 +9       ;

VALSPECINSTRUCT(SDERRORS,SDSPECINST,SDFDATA) ;

 +1       ; SDSPECINST("SPECIAL INSTRUCTIONS",SDINSTRUCT)=IEN|@

 +2       ; SDSPECINST("SPECIAL INSTRUCTIONS",SDINSTRUCT)=

 +3        NEW SDINSTRUCT,SDINSDATA,SDINSIEN,SDINSTEXT

 +4        SET SDINSTRUCT=0

FOR

               SET SDINSTRUCT=$ORDER(SDSPECINST("SPECIAL INSTRUCTIONS",SDINSTRUCT))

               if 'SDINSTRUCT

                   QUIT

               Begin DoDot:1

 +5                SET SDINSDATA=$GET(SDSPECINST("SPECIAL INSTRUCTIONS",SDINSTRUCT))

 +6                SET SDINSIEN=$PIECE(SDINSDATA,"|")

 +7                SET SDINSTEXT=$PIECE(SDINSDATA,"|",2)

 +8                IF SDINSTEXT=""

                       QUIT

 +9                IF SDINSTEXT="@"

                       DO ERRLOG^SDES2JSON(.SDERRORS,459,"SPECIAL INSTRUCTIONS")

 +10               IF $LENGTH(SDINSTEXT)<1!($LENGTH(SDINSTEXT)>80)

                       DO ERRLOG^SDES2JSON(.SDERRORS,52,"Special instructions must be 1-80 characters in length.")

               End DoDot:1

 +11       if $DATA(SDERRORS)

               QUIT

 +12       MERGE SDFDATA("SPECIAL INSTRUCTIONS")=SDSPECINST("SPECIAL INSTRUCTIONS")

 +13       QUIT

SDES2VALCRTCLIN1.m