SDESGETDEVICES.m

SDESGETDEVICES ;ALB/BWF - VISTA SCHEDULING RPCS - DEVICE RETRIEVAL ; September 07, 2022

 ;;5.3;Scheduling;**825**;Aug 13, 1993;Build 2

 ;;Per VHA Directive 6402, this routine should not be modified

 ;

 Q

DEVICES(SDRES,LOOKUP) ;

 N ERRORS,DEVICES,DEVLIST,DEV,DEVDAT

 S LOOKUP=$G(LOOKUP)

 D VALLOOKUP(.ERRORS,LOOKUP)

 I $D(ERRORS) S ERRORS("Device",1)="" D BUILDJSON^SDESBUILDJSON(.SDRES,.ERRORS) Q

 D DEVICE^XUDHGUI(.DEVICES,LOOKUP,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))

 .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,277) Q

 I $L(LOOKUP)>15 D ERRLOG^SDESJSON(.ERRORS,278)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDESGETDEVICES   1098     printed  Apr 09, 2024@22:00:15                                                                                                                                                                                              Page 2

SDESGETDEVICES ;ALB/BWF - VISTA SCHEDULING RPCS - DEVICE RETRIEVAL ; September 07, 2022

 +1       ;;5.3;Scheduling;**825**;Aug 13, 1993;Build 2

 +2       ;;Per VHA Directive 6402, this routine should not be modified

 +3       ;

 +4        QUIT 

DEVICES(SDRES,LOOKUP) ;

 +1        NEW ERRORS,DEVICES,DEVLIST,DEV,DEVDAT

 +2        SET LOOKUP=$GET(LOOKUP)

 +3        DO VALLOOKUP(.ERRORS,LOOKUP)

 +4        IF $DATA(ERRORS)

               SET ERRORS("Device",1)=""

               DO BUILDJSON^SDESBUILDJSON(.SDRES,.ERRORS)

               QUIT 

 +5        DO DEVICE^XUDHGUI(.DEVICES,LOOKUP,1)

 +6        IF '$DATA(DEVICES)

               SET DEVLIST("Device",1)=""

               DO BUILDJSON^SDESBUILDJSON(.SDRES,.DEVLIST)

               QUIT 

 +7        SET DEV=0

           FOR 

               SET DEV=$ORDER(DEVICES(DEV))

               if 'DEV

                   QUIT 

               Begin DoDot:1

 +8                SET DEVDAT=$GET(DEVICES(DEV))

 +9                SET DEVLIST("Device",DEV,"ID")=$PIECE(DEVDAT,U)

 +10               SET DEVLIST("Device",DEV,"Name")=$PIECE(DEVDAT,U,2)

 +11               SET DEVLIST("Device",DEV,"DisplayName")=$PIECE(DEVDAT,U,3)

 +12               SET DEVLIST("Device",DEV,"Location")=$PIECE(DEVDAT,U,4)

 +13               SET DEVLIST("Device",DEV,"RightMargin")=$PIECE(DEVDAT,U,5)

 +14               SET DEVLIST("Device",DEV,"PageLength")=$PIECE(DEVDAT,U,6)

               End DoDot:1

 +15       DO BUILDJSON^SDESBUILDJSON(.SDRES,.DEVLIST)

 +16       QUIT 

VALLOOKUP(ERRORS,LOOKUP) ;

 +1        IF LOOKUP=""

               DO ERRLOG^SDESJSON(.ERRORS,277)

               QUIT 

 +2        IF $LENGTH(LOOKUP)>15

               DO ERRLOG^SDESJSON(.ERRORS,278)

 +3        QUIT