Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDESGETDEVICES

SDESGETDEVICES.m

Go to the documentation of this file.
  1. SDESGETDEVICES ;ALB/BWF,MGD - VISTA SCHEDULING RPCS - DEVICE RETRIEVAL ; June 28, 2024
  1. ;;5.3;Scheduling;**825,881**;Aug 13, 1993;Build 10
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. ;
  1. Q
  1. DEVICES(SDRES,LOOKUP) ;
  1. N ERRORS,DEVICES,DEVLIST,DEV,DEVDAT,CNT,LOOKUPSHORT
  1. S LOOKUP=$G(LOOKUP),CNT=80
  1. D VALLOOKUP(.ERRORS,LOOKUP)
  1. S LOOKUPSHORT=$E(LOOKUP,1,$L(LOOKUP)-1)
  1. I $D(ERRORS) S ERRORS("Device",1)="" D BUILDJSON^SDESBUILDJSON(.SDRES,.ERRORS) Q
  1. D DEVICE^XUDHGUI(.DEVICES,LOOKUPSHORT,1)
  1. I '$D(DEVICES) S DEVLIST("Device",1)="" D BUILDJSON^SDESBUILDJSON(.SDRES,.DEVLIST) Q
  1. S DEV=0 F S DEV=$O(DEVICES(DEV)) Q:'DEV D
  1. .S DEVDAT=$G(DEVICES(DEV))
  1. .I ($P(DEVDAT,U,2)'[LOOKUP),($P(DEVDAT,U,3)'[LOOKUP) Q
  1. .S DEVLIST("Device",DEV,"ID")=$P(DEVDAT,U)
  1. .S DEVLIST("Device",DEV,"Name")=$P(DEVDAT,U,2)
  1. .S DEVLIST("Device",DEV,"DisplayName")=$P(DEVDAT,U,3)
  1. .S DEVLIST("Device",DEV,"Location")=$P(DEVDAT,U,4)
  1. .S DEVLIST("Device",DEV,"RightMargin")=$P(DEVDAT,U,5)
  1. .S DEVLIST("Device",DEV,"PageLength")=$P(DEVDAT,U,6)
  1. D BUILDJSON^SDESBUILDJSON(.SDRES,.DEVLIST)
  1. Q
  1. VALLOOKUP(ERRORS,LOOKUP) ;
  1. I LOOKUP["*" D ERRLOG^SDESJSON(.ERRORS,52,"Search string cannot contain an *") Q
  1. I LOOKUP="" D ERRLOG^SDESJSON(.ERRORS,277) Q
  1. I $L(LOOKUP)>15 D ERRLOG^SDESJSON(.ERRORS,278)
  1. Q