- SDECDUZ ;ALB/TAW - Return DUZ data ;Jan 7, 2022
- ;;5.3;Scheduling;**803,804,805**;Aug 13, 1993;Build 9
- ;;Per VHA Directive 6402, this routine should not be modified
- ;
- ; ICR
- ; Reference to ^DIC(4, in #2251
- ; Reference to ^XTV(8989.3,1,XUS in #1518
- Q
- DUZSTATIONID(RETURN) ;
- N STATIONID,DATA
- ;#804 change from DUZ(2) to station ID for the default institution
- S STATIONID=$$DEFAULTSTATION()
- I STATIONID'="" S DATA("Station_ID")=STATIONID
- E S DATA("Error",1)="Default Institution not defined"
- D ENCODE^SDESJSON(.DATA,.RETURN)
- Q
- DEFAULTSTATION() ;
- N INST,STATION
- S STATION=""
- S INST=$$GET1^DIQ(8989.3,1,217,"I") ;default inst
- I INST'="" S STATION=$$GET1^DIQ(4,INST,99,"I") ;station num
- Q STATION
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDECDUZ 733 printed Jan 18, 2025@03:53:07 Page 2
- SDECDUZ ;ALB/TAW - Return DUZ data ;Jan 7, 2022
- +1 ;;5.3;Scheduling;**803,804,805**;Aug 13, 1993;Build 9
- +2 ;;Per VHA Directive 6402, this routine should not be modified
- +3 ;
- +4 ; ICR
- +5 ; Reference to ^DIC(4, in #2251
- +6 ; Reference to ^XTV(8989.3,1,XUS in #1518
- +7 QUIT
- DUZSTATIONID(RETURN) ;
- +1 NEW STATIONID,DATA
- +2 ;#804 change from DUZ(2) to station ID for the default institution
- +3 SET STATIONID=$$DEFAULTSTATION()
- +4 IF STATIONID'=""
- SET DATA("Station_ID")=STATIONID
- +5 IF '$TEST
- SET DATA("Error",1)="Default Institution not defined"
- +6 DO ENCODE^SDESJSON(.DATA,.RETURN)
- +7 QUIT
- DEFAULTSTATION() ;
- +1 NEW INST,STATION
- +2 SET STATION=""
- +3 ;default inst
- SET INST=$$GET1^DIQ(8989.3,1,217,"I")
- +4 ;station num
- IF INST'=""
- SET STATION=$$GET1^DIQ(4,INST,99,"I")
- +5 QUIT STATION