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

SDES2GETRESIEN.m

Go to the documentation of this file.
  1. SDES2GETRESIEN ;ALB/LAB - VISTA SCHEDULING RPCS GET RESOURCE ;FEB 2,2024
  1. ;;5.3;Scheduling;**867,871**;Aug 13, 1993;Build 13
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. Q
  1. GETRESIEN(RESULT,SDCONTEXT,SEARCHCRITERIA) ;
  1. NEW ERRORS,IEN,RESOURCE
  1. S IEN=""
  1. D VALCONTEXT^SDES2VALCONTEXT(.ERRORS,.SDCONTEXT)
  1. I $D(ERRORS) S ERRORS("Resource",1)="" D BUILDJSON^SDES2JSON(.RESULT,.ERRORS) Q
  1. D VALIDATE(.ERRORS,.SEARCHCRITERIA) ;
  1. I $D(ERRORS) S ERRORS("Resource",1)="" D BUILDJSON^SDES2JSON(.RESULT,.ERRORS) Q
  1. D GETIEN(.IEN,.SEARCHCRITERIA)
  1. I $D(ERRORS) S ERRORS("Resource",1,"IEN")=IEN D BUILDJSON^SDES2JSON(.RESULT,.ERRORS) Q
  1. S RESOURCE("Resource",1,"IEN")=IEN
  1. D BUILDJSON^SDES2JSON(.RESULT,.RESOURCE)
  1. ;
  1. Q
  1. ;
  1. VALIDATE(ERRORS,SEARCHCRITERIA) ;
  1. D VALIDATERESTYP(.ERRORS,$G(SEARCHCRITERIA("ResourceType")))
  1. Q:$D(ERRORS)
  1. D:'$D(ERRORS) VALIDATEIEN(.ERRORS,.SEARCHCRITERIA)
  1. Q
  1. ;
  1. VALIDATERESTYP(ERRORS,RESTYP) ;
  1. I RESTYP="" D ERRLOG^SDES2JSON(.ERRORS,52,"Missing required value for Resource Type") Q
  1. I RESTYP'="C"&(RESTYP'="P") D ERRLOG^SDES2JSON(.ERRORS,52,"Invalid Resource Type")
  1. Q
  1. ;
  1. VALIDATEIEN(ERRORS,SEARCHCRITERIA) ;
  1. I $G(SEARCHCRITERIA("IEN"))="" D ERRLOG^SDES2JSON(.ERRORS,52,"Missing required value for IEN") Q
  1. D:SEARCHCRITERIA("ResourceType")="P" VALFILEIEN^SDES2VALUTIL(,.ERRORS,200,SEARCHCRITERIA("IEN"),1,0,53,54)
  1. D:SEARCHCRITERIA("ResourceType")="C" VALFILEIEN^SDES2VALUTIL(,.ERRORS,44,SEARCHCRITERIA("IEN"),1,,18,19)
  1. Q
  1. ;
  1. GETIEN(IEN,SEARCHCRITERIA) ;
  1. S IEN=$O(^SDEC(409.831,"AC",SEARCHCRITERIA("ResourceType"),SEARCHCRITERIA("IEN"),IEN))
  1. I $O(^SDEC(409.831,"AC",SEARCHCRITERIA("ResourceType"),SEARCHCRITERIA("IEN"),IEN))'="" D
  1. . D ERRLOG^SDES2JSON(.ERRORS,52,"More than one resource exists for passed in IEN. First Resource IEN returned.")
  1. Q
  1. ;