Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDES2VALCONTEXT

SDES2VALCONTEXT.m

Go to the documentation of this file.
  1. SDES2VALCONTEXT ;ALB/MGD,LAB,LAB - ACHERON CONTEXT VALIDATION UTILITIES ;DEC 2,2024
  1. ;;5.3;Scheduling;**853,860,895**;Aug 13, 1993;Build 11
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. ;
  1. Q
  1. ;
  1. VALCONTEXT(SDERRORS,SDCONTEXT) ; Validate SDCONTEXT Array
  1. ; Required Input Variables
  1. D VALACHERONID(.SDERRORS,$G(SDCONTEXT("ACHERON AUDIT ID")))
  1. ; Optional Input Variables
  1. I $G(SDCONTEXT("PATIENT DFN"))'="" D VALPATDFN^SDES2VAL2(.SDERRORS,SDCONTEXT("PATIENT DFN"))
  1. I $G(SDCONTEXT("PATIENT ICN"))'="" D VALPATICN^SDES2VAL2(.SDERRORS,SDCONTEXT("PATIENT ICN"))
  1. I $G(SDCONTEXT("USER DUZ"))'="" D VALUSERDUZ^SDES2VAL200(.SDERRORS,SDCONTEXT("USER DUZ"))
  1. I $G(SDCONTEXT("USER SECID"))'="" D VALSECID(.SDERRORS,SDCONTEXT("USER SECID"),$G(SDCONTEXT("USER DUZ")))
  1. I '$D(SDERRORS) D
  1. . D DFNICNMATCH(.SDERRORS,$G(SDCONTEXT("PATIENT DFN")),$G(SDCONTEXT("PATIENT ICN")))
  1. Q
  1. ;
  1. VALACHERONID(SDERRORS,SDACHERONID) ; Validate Acheron EAS ID
  1. I SDACHERONID="" D ERRLOG^SDES2JSON(.SDERRORS,474) Q
  1. I $$VALACHERONID^SDES2UTIL(SDACHERONID)=-1 D ERRLOG^SDES2JSON(.SDERRORS,475)
  1. Q
  1. ;
  1. DFNICNMATCH(SDERRORS,PATDFN,PATICN) ;verify that sent in values are same for patient
  1. I (PATDFN'="")&(PATICN'="") D
  1. . I $O(^DPT("AICN",PATICN,""))'=PATDFN D ERRLOG^SDES2JSON(.SDERRORS,516)
  1. Q
  1. ;
  1. VALSECID(SDERRORS,SDSECID,SDUSERDUZ) ;
  1. I SDSECID="" Q
  1. I $L(SDSECID)<3!$L(SDSECID)>40 D ERRLOG^SDES2JSON(.SDERRORS,156) Q
  1. I $$GET1^DIQ(200,SDUSERDUZ,205.1,"I")'=SDSECID D ERRLOG^SDES2JSON(.SDERRORS,156)
  1. Q