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

HMPORRPC.m

Go to the documentation of this file.
  1. HMPORRPC ;ASMR/MBS -- Orders RPCs ;01/06/2015 16:42
  1. ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**2**;Dec 22, 2015;Build 28
  1. ;Per VA Directive 6402, this routine should not be modified.
  1. ; External References DBIA#
  1. ; ------------------- -----
  1. ; ^OR(100 5771
  1. ; DIQ 2056
  1. Q
  1. N RESULT,I,HMPSIBS,HMPKIDS,PARENT
  1. S RESULT=$NA(^TMP($J,"HMPORRPC")) K @RESULT
  1. I '+$G(IEN) S @RESULT@("error")="No order selected" G JSONIFY
  1. I '+$$GET1^DIQ(100,IEN_",",".01","I") S @RESULT@("error")="Nonexisting order" G JSONIFY
  1. ;See if we have a parent
  1. S PARENT=$$GET1^DIQ(100,IEN_",",36,"I")
  1. I +PARENT D
  1. . S @RESULT@("parent")=PARENT
  1. . ;Check for siblings
  1. . D LIST^DIC(100.002,","_PARENT_",","@;.01","I",,,,,,,"HMPSIBS")
  1. . F I=1:1:+$G(HMPSIBS("DILIST",0)) D
  1. . . Q:$G(HMPSIBS("DILIST",2,I))=IEN
  1. . . S @RESULT@("siblings",I)=$G(HMPSIBS("DILIST",2,I))
  1. ;Get children
  1. D LIST^DIC(100.002,","_IEN_",","@;.01","I",,,,,,,"HMPKIDS")
  1. F I=1:1:+$G(HMPKIDS("DILIST",0)) D
  1. . S @RESULT@("children",I)=$G(HMPKIDS("DILIST",2,I))
  1. ;US11945 - If we're calling this from HMPDJ01, don't convert to JSON yet
  1. I $G(HMPNOJS)=1 S RET=RESULT Q
  1. JSONIFY ;
  1. D ENCODE^HMPJSON(RESULT,"RET")
  1. Q