- SDESGETDEVICES ;ALB/BWF,MGD - VISTA SCHEDULING RPCS - DEVICE RETRIEVAL ; June 28, 2024
- ;;5.3;Scheduling;**825,881**;Aug 13, 1993;Build 10
- ;;Per VHA Directive 6402, this routine should not be modified
- ;
- Q
- DEVICES(SDRES,LOOKUP) ;
- N ERRORS,DEVICES,DEVLIST,DEV,DEVDAT,CNT,LOOKUPSHORT
- S LOOKUP=$G(LOOKUP),CNT=80
- D VALLOOKUP(.ERRORS,LOOKUP)
- S LOOKUPSHORT=$E(LOOKUP,1,$L(LOOKUP)-1)
- I $D(ERRORS) S ERRORS("Device",1)="" D BUILDJSON^SDESBUILDJSON(.SDRES,.ERRORS) Q
- D DEVICE^XUDHGUI(.DEVICES,LOOKUPSHORT,1)
- I '$D(DEVICES) S DEVLIST("Device",1)="" D BUILDJSON^SDESBUILDJSON(.SDRES,.DEVLIST) Q
- S DEV=0 F S DEV=$O(DEVICES(DEV)) Q:'DEV D
- .S DEVDAT=$G(DEVICES(DEV))
- .I ($P(DEVDAT,U,2)'[LOOKUP),($P(DEVDAT,U,3)'[LOOKUP) Q
- .S DEVLIST("Device",DEV,"ID")=$P(DEVDAT,U)
- .S DEVLIST("Device",DEV,"Name")=$P(DEVDAT,U,2)
- .S DEVLIST("Device",DEV,"DisplayName")=$P(DEVDAT,U,3)
- .S DEVLIST("Device",DEV,"Location")=$P(DEVDAT,U,4)
- .S DEVLIST("Device",DEV,"RightMargin")=$P(DEVDAT,U,5)
- .S DEVLIST("Device",DEV,"PageLength")=$P(DEVDAT,U,6)
- D BUILDJSON^SDESBUILDJSON(.SDRES,.DEVLIST)
- Q
- VALLOOKUP(ERRORS,LOOKUP) ;
- I LOOKUP["*" D ERRLOG^SDESJSON(.ERRORS,52,"Search string cannot contain an *") Q
- I LOOKUP="" D ERRLOG^SDESJSON(.ERRORS,277) Q
- I $L(LOOKUP)>15 D ERRLOG^SDESJSON(.ERRORS,278)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDESGETDEVICES 1312 printed Feb 19, 2025@00:23:25 Page 2
- SDESGETDEVICES ;ALB/BWF,MGD - VISTA SCHEDULING RPCS - DEVICE RETRIEVAL ; June 28, 2024
- +1 ;;5.3;Scheduling;**825,881**;Aug 13, 1993;Build 10
- +2 ;;Per VHA Directive 6402, this routine should not be modified
- +3 ;
- +4 QUIT
- DEVICES(SDRES,LOOKUP) ;
- +1 NEW ERRORS,DEVICES,DEVLIST,DEV,DEVDAT,CNT,LOOKUPSHORT
- +2 SET LOOKUP=$GET(LOOKUP)
- SET CNT=80
- +3 DO VALLOOKUP(.ERRORS,LOOKUP)
- +4 SET LOOKUPSHORT=$EXTRACT(LOOKUP,1,$LENGTH(LOOKUP)-1)
- +5 IF $DATA(ERRORS)
- SET ERRORS("Device",1)=""
- DO BUILDJSON^SDESBUILDJSON(.SDRES,.ERRORS)
- QUIT
- +6 DO DEVICE^XUDHGUI(.DEVICES,LOOKUPSHORT,1)
- +7 IF '$DATA(DEVICES)
- SET DEVLIST("Device",1)=""
- DO BUILDJSON^SDESBUILDJSON(.SDRES,.DEVLIST)
- QUIT
- +8 SET DEV=0
- FOR
- SET DEV=$ORDER(DEVICES(DEV))
- if 'DEV
- QUIT
- Begin DoDot:1
- +9 SET DEVDAT=$GET(DEVICES(DEV))
- +10 IF ($PIECE(DEVDAT,U,2)'[LOOKUP)
- IF ($PIECE(DEVDAT,U,3)'[LOOKUP)
- QUIT
- +11 SET DEVLIST("Device",DEV,"ID")=$PIECE(DEVDAT,U)
- +12 SET DEVLIST("Device",DEV,"Name")=$PIECE(DEVDAT,U,2)
- +13 SET DEVLIST("Device",DEV,"DisplayName")=$PIECE(DEVDAT,U,3)
- +14 SET DEVLIST("Device",DEV,"Location")=$PIECE(DEVDAT,U,4)
- +15 SET DEVLIST("Device",DEV,"RightMargin")=$PIECE(DEVDAT,U,5)
- +16 SET DEVLIST("Device",DEV,"PageLength")=$PIECE(DEVDAT,U,6)
- End DoDot:1
- +17 DO BUILDJSON^SDESBUILDJSON(.SDRES,.DEVLIST)
- +18 QUIT
- VALLOOKUP(ERRORS,LOOKUP) ;
- +1 IF LOOKUP["*"
- DO ERRLOG^SDESJSON(.ERRORS,52,"Search string cannot contain an *")
- QUIT
- +2 IF LOOKUP=""
- DO ERRLOG^SDESJSON(.ERRORS,277)
- QUIT
- +3 IF $LENGTH(LOOKUP)>15
- DO ERRLOG^SDESJSON(.ERRORS,278)
- +4 QUIT