SDES2VAL4.m

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 ---SDES2VAL4   529     printed  Dec 13, 2024@02:54:50                                                                                                                                                                                                    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