SDES2VALCONTEXT.m

SDES2VALCONTEXT ;ALB/MGD,LAB - ACHERON CONTEXT VALIDATION UTILITIES ;SEP 01,2023

 ;;5.3;Scheduling;**853,860**;Aug 13, 1993;Build 12

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

 ;

 Q

 ;

VALCONTEXT(SDERRORS,SDCONTEXT) ; Validate SDCONTEXT Array

 ; Required Input Variables

 D VALACHERONID(.SDERRORS,$G(SDCONTEXT("ACHERON AUDIT ID")))

 ; Optional Input Variables

 I $G(SDCONTEXT("PATIENT DFN"))'="" D VALPATDFN^SDES2VAL2(.SDERRORS,SDCONTEXT("PATIENT DFN"))

 I $G(SDCONTEXT("PATIENT ICN"))'="" D VALPATICN^SDES2VAL2(.SDERRORS,SDCONTEXT("PATIENT ICN"))

 I $G(SDCONTEXT("USER DUZ"))'="" D VALUSERDUZ^SDES2VAL200(.SDERRORS,SDCONTEXT("USER DUZ"))

 I $G(SDCONTEXT("USER SECID"))'="" D VALSECID^SDES2VAL200(.SDERRORS,SDCONTEXT("USER SECID"))

 I '$D(SDERRORS) D

 . D DUZSECIDMATCH(.SDERRORS,$G(SDCONTEXT("USER DUZ")),$G(SDCONTEXT("USER SECID")))

 . D DFNICNMATCH(.SDERRORS,$G(SDCONTEXT("PATIENT DFN")),$G(SDCONTEXT("PATIENT ICN")))

 Q

 ;

VALACHERONID(SDERRORS,SDACHERONID) ; Validate Acheron EAS ID

 I SDACHERONID="" D ERRLOG^SDES2JSON(.SDERRORS,474) Q

 I $$VALACHERONID^SDES2UTIL(SDACHERONID)=-1 D ERRLOG^SDES2JSON(.SDERRORS,475)

 Q

 ;

DUZSECIDMATCH(SDERRORS,USERDUZ,USERSECID) ;verify that sent in values are for same user

 N SECIDDUZ

 I (USERDUZ'="")&(USERSECID'="") D

 . S SECIDDUZ=$$FIND1^DIC(200,,"X",USERSECID,"ASECID",,"SCERR")

 . I SECIDDUZ'=USERDUZ D ERRLOG^SDES2JSON(.SDERRORS,517)

 Q

 ;

DFNICNMATCH(SDERRORS,PATDFN,PATICN) ;verify that sent in values are same for patient

 I (PATDFN'="")&(PATICN'="") D

 . I $O(^DPT("AICN",PATICN,""))'=PATDFN D ERRLOG^SDES2JSON(.SDERRORS,516)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDES2VALCONTEXT   1640     printed  Apr 09, 2024@21:45:16                                                                                                                                                                                             Page 2

SDES2VALCONTEXT ;ALB/MGD,LAB - ACHERON CONTEXT VALIDATION UTILITIES ;SEP 01,2023

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

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

 +3       ;

 +4        QUIT 

 +5       ;

VALCONTEXT(SDERRORS,SDCONTEXT) ; Validate SDCONTEXT Array

 +1       ; Required Input Variables

 +2        DO VALACHERONID(.SDERRORS,$GET(SDCONTEXT("ACHERON AUDIT ID")))

 +3       ; Optional Input Variables

 +4        IF $GET(SDCONTEXT("PATIENT DFN"))'=""

               DO VALPATDFN^SDES2VAL2(.SDERRORS,SDCONTEXT("PATIENT DFN"))

 +5        IF $GET(SDCONTEXT("PATIENT ICN"))'=""

               DO VALPATICN^SDES2VAL2(.SDERRORS,SDCONTEXT("PATIENT ICN"))

 +6        IF $GET(SDCONTEXT("USER DUZ"))'=""

               DO VALUSERDUZ^SDES2VAL200(.SDERRORS,SDCONTEXT("USER DUZ"))

 +7        IF $GET(SDCONTEXT("USER SECID"))'=""

               DO VALSECID^SDES2VAL200(.SDERRORS,SDCONTEXT("USER SECID"))

 +8        IF '$DATA(SDERRORS)

               Begin DoDot:1

 +9                DO DUZSECIDMATCH(.SDERRORS,$GET(SDCONTEXT("USER DUZ")),$GET(SDCONTEXT("USER SECID")))

 +10               DO DFNICNMATCH(.SDERRORS,$GET(SDCONTEXT("PATIENT DFN")),$GET(SDCONTEXT("PATIENT ICN")))

               End DoDot:1

 +11       QUIT 

 +12      ;

VALACHERONID(SDERRORS,SDACHERONID) ; Validate Acheron EAS ID

 +1        IF SDACHERONID=""

               DO ERRLOG^SDES2JSON(.SDERRORS,474)

               QUIT 

 +2        IF $$VALACHERONID^SDES2UTIL(SDACHERONID)=-1

               DO ERRLOG^SDES2JSON(.SDERRORS,475)

 +3        QUIT 

 +4       ;

DUZSECIDMATCH(SDERRORS,USERDUZ,USERSECID) ;verify that sent in values are for same user

 +1        NEW SECIDDUZ

 +2        IF (USERDUZ'="")&(USERSECID'="")

               Begin DoDot:1

 +3                SET SECIDDUZ=$$FIND1^DIC(200,,"X",USERSECID,"ASECID",,"SCERR")

 +4                IF SECIDDUZ'=USERDUZ

                       DO ERRLOG^SDES2JSON(.SDERRORS,517)

               End DoDot:1

 +5        QUIT 

 +6       ;

DFNICNMATCH(SDERRORS,PATDFN,PATICN) ;verify that sent in values are same for patient

 +1        IF (PATDFN'="")&(PATICN'="")

               Begin DoDot:1

 +2                IF $ORDER(^DPT("AICN",PATICN,""))'=PATDFN

                       DO ERRLOG^SDES2JSON(.SDERRORS,516)

               End DoDot:1

 +3        QUIT 

 +4       ;