SDES2VAL4 ;ALB/MGD - SDES2 INSTITUTION UTILITIES ;NOV 21, 2023
;;5.3;Scheduling;**870**;Aug 13, 1993;Build 3
;;Per VHA Directive 6402, this routine should not be modified
;
; Reference to ^DIC(4 in #10090
;
Q
;
VALSTATIONNUM(SDERRORS,STATION,SDDATETIME) ; Validate Station Number
N RESULTS
I STATION'="" D
.I (($L(STATION)<3)!($L(STATION)>7)) D ERRLOG^SDESJSON(.SDERRORS,522) Q
.;
.D FIND^DIC(4,,"@;99","X",STATION,,"D",,,"RESULTS")
.I '$D(RESULTS("DILIST",2)) D ERRLOG^SDES2JSON(.SDERRORS,197) Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES2VAL4 529 printed Sep 15, 2024@22:18:39 Page 2
SDES2VAL4 ;ALB/MGD - SDES2 INSTITUTION UTILITIES ;NOV 21, 2023
+1 ;;5.3;Scheduling;**870**;Aug 13, 1993;Build 3
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;
+4 ; Reference to ^DIC(4 in #10090
+5 ;
+6 QUIT
+7 ;
VALSTATIONNUM(SDERRORS,STATION,SDDATETIME) ; Validate Station Number
+1 NEW RESULTS
+2 IF STATION'=""
Begin DoDot:1
+3 IF (($LENGTH(STATION)<3)!($LENGTH(STATION)>7))
DO ERRLOG^SDESJSON(.SDERRORS,522)
QUIT
+4 ;
+5 DO FIND^DIC(4,,"@;99","X",STATION,,"D",,,"RESULTS")
+6 IF '$DATA(RESULTS("DILIST",2))
DO ERRLOG^SDES2JSON(.SDERRORS,197)
QUIT
End DoDot:1
+7 QUIT