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

DDE.m

Go to the documentation of this file.
  1. DDE ;SPFO/RAM,MKB - Entity Main Driver ;AUG 1,2018 12:37
  1. ;;22.2;VA FileMan;**9**;Jan 05, 2016;Build 73
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. GET1(RESOURCE,ID,QUERY,MTYPE,ERROR) ; -- GET an item
  1. ;
  1. N RESULT,RESULT1,I,C
  1. S RESOURCE=$G(RESOURCE),ID=$G(ID),MTYPE=$G(MTYPE)
  1. ;
  1. D EN^DDEGET(RESOURCE,ID,.QUERY,,MTYPE,.RESULT,.ERROR)
  1. ; ID can return multiple items, if a set or panel
  1. ;
  1. S (C,RESULT1)=""
  1. I $D(RESULT) S I=0 F S I=$O(@RESULT@(I)) Q:'I D
  1. . S RESULT1=RESULT1_C_$G(@RESULT@(I))
  1. . S:'MTYPE C=", " ;JSON
  1. ;
  1. Q RESULT1
  1. ;
  1. GET(RESOURCE,ID,QUERY,MTYPE,MAX,RESULT,ERROR) ; -- GET an item/collection
  1. ;
  1. S RESOURCE=$G(RESOURCE),ID=$G(ID),MTYPE=$G(MTYPE)
  1. D EN^DDEGET(RESOURCE,ID,.QUERY,.MAX,MTYPE,.RESULT,.ERROR)
  1. ; return array of items in @RESULT@(#), and/or ERROR(#)
  1. ;
  1. Q
  1. ;
  1. PUT(RESOURCE,ID,BODY,MTYPE) ; -- PUT an item [not in use]
  1. ;
  1. N RESULT,RESULT1,C
  1. S RESOURCE=$G(RESOURCE),BODY=$G(BODY),ID=$G(ID),MTYPE=$G(MTYPE)
  1. ;
  1. ;D:MTYPE MAIN^DDEPXML(.RESULT,RESOURCE,BODY,ID,,"PUT")
  1. ;D:'MTYPE MAIN^DDEPJSON(.RESULT,RESOURCE,BODY,ID,,"PUT")
  1. ;
  1. S (RESULT1,C)=""
  1. I $D(RESULT) S I=0 F S I=$O(@RESULT@(I)) Q:'I D
  1. . S RESULT1=RESULT1_C_$G(@RESULT@(I))
  1. . S:'MTYPE C=", " ;JSON
  1. ;
  1. Q RESULT1
  1. ;
  1. POST(RESOURCE,ID,BODY,MTYPE) ; -- POST an item [not in use]
  1. ;
  1. N RESULT,RESULT1,C
  1. S RESOURCE=$G(RESOURCE),BODY=$G(BODY),ID=$G(ID),MTYPE=$G(MTYPE)
  1. ;
  1. ;D:MTYPE MAIN^DDEPXML(.RESULT,RESOURCE,BODY,ID,,"POST")
  1. ;D:'MTYPE MAIN^DDEPJSON(.RESULT,RESOURCE,BODY,ID,,"POST")
  1. ;
  1. S (RESULT1,C)=""
  1. I $D(RESULT) S I=0 F S I=$O(@RESULT@(I)) Q:'I D
  1. . S RESULT1=RESULT1_C_$G(@RESULT@(I))
  1. . S:'MTYPE C=", " ;JSON
  1. ;
  1. Q RESULT1
  1. ;
  1. DEL(RESOURCE,ID,MTYPE) ; -- DELETE an item [not in use]
  1. ;
  1. N RESULT,RESULT1,C
  1. S RESOURCE=$G(RESOURCE),ID=$G(ID),MTYPE=$G(MTYPE)
  1. ;
  1. ;D:MTYPE XML^DDEDEL(.RESULT,RESOURCE,ID)
  1. ;D:'MTYPE JSON^DDEDEL(.RESULT,RESOURCE,ID)
  1. ;
  1. S (RESULT1,C)=""
  1. I $D(RESULT) S I=0 F S I=$O(@RESULT@(I)) Q:'I D
  1. . S RESULT1=RESULT1_C_$G(@RESULT@(I))
  1. . S:'MTYPE C=", " ;JSON
  1. ;
  1. Q RESULT1