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

SDESVALUTIL.m

Go to the documentation of this file.
  1. SDESVALUTIL ;ALB/BWF - VISTA SCHEDULING VALIDATION UTILITIES ;SEP 22, 2022
  1. ;;5.3;Scheduling;**826,835**;Aug 13, 1993;Build 4
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. ;
  1. Q
  1. ; validate appointment ID/IEN
  1. VALAPPTIEN(ERRORS,APPTIEN) ;
  1. I '$L(APPTIEN) D ERRLOG^SDESJSON(.ERRORS,14) Q
  1. I 'APPTIEN D ERRLOG^SDESJSON(.ERRORS,15) Q
  1. I APPTIEN,'$D(^SDEC(409.84,APPTIEN)) D ERRLOG^SDESJSON(.ERRORS,15)
  1. Q
  1. ; validate ISO date - generic missing/invalid message
  1. VALDATE(ERRORS,DATE,CLINIC) ;
  1. N FMSDATE
  1. I DATE="" D ERRLOG^SDESJSON(.ERRORS,45) Q ""
  1. S FMSDATE=$$ISOTFM^SDAMUTDT(DATE,$G(CLINIC))
  1. I FMSDATE<1 D ERRLOG^SDESJSON(.ERRORS,46) Q ""
  1. Q FMSDATE
  1. ; validate a date using specific error codes from 409.93
  1. VALDATE2(ERRORS,DATE,CLINIC,MISSINGERRID,INVALIDERRID) ;
  1. N FMSDATE,MISSINGID,INVALIDID
  1. S MISSINGID=$S($G(MISSINGERRID):MISSINGERRID,1:45)
  1. S INVALIDID=$S($G(INVALIDERRID):INVALIDERRID,1:46)
  1. I DATE="" D ERRLOG^SDESJSON(.ERRORS,MISSINGID) Q ""
  1. S FMSDATE=$$ISOTFM^SDAMUTDT(DATE,$G(CLINIC))
  1. I FMSDATE<1 D ERRLOG^SDESJSON(.ERRORS,INVALIDID) Q ""
  1. Q FMSDATE
  1. ; validate SD SUPERVISOR key
  1. VALKEY(ERRORS,DUZ) ;
  1. I '$$KCHK^XUSRB("SD SUPERVISOR",DUZ) D ERRLOG^SDESJSON(.ERRORS,316)
  1. Q