- 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 Jan 18, 2025@03:55:59 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