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

SDES2VAL4.m

Go to the documentation of this file.
  1. SDES2VAL4 ;ALB/MGD - SDES2 INSTITUTION UTILITIES ;NOV 21, 2023
  1. ;;5.3;Scheduling;**870**;Aug 13, 1993;Build 3
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. ;
  1. ; Reference to ^DIC(4 in #10090
  1. ;
  1. Q
  1. ;
  1. VALSTATIONNUM(SDERRORS,STATION,SDDATETIME) ; Validate Station Number
  1. N RESULTS
  1. I STATION'="" D
  1. .I (($L(STATION)<3)!($L(STATION)>7)) D ERRLOG^SDESJSON(.SDERRORS,522) Q
  1. .;
  1. .D FIND^DIC(4,,"@;99","X",STATION,,"D",,,"RESULTS")
  1. .I '$D(RESULTS("DILIST",2)) D ERRLOG^SDES2JSON(.SDERRORS,197) Q
  1. Q