DVBCTXM2 ;ALB/BG - CAPRI XML RPCS; FEB 6, 2023@16:20 ; 8/9/23 10:17am
;;2.7;AMIE;**250**;Apr 10, 1995;Build 19
; Per VHA Directive 6402 this routine should not be modified
; Reference to SUPPORTED PARAMETER TOOL ENTRY POINTS in ICR #2263
Q
;
NEWSFEED(DVBRTN) ;
N DVBCLNT,DVBTNT,DVBTKN,DVBTKI,DVBTKS,DVBTKD,DVBTKF
S DVBCLNT=$$GET^XPAR("PKG","DVBAB CAPRI NF CLIENT")
S DVBTNT=$$GET^XPAR("PKG","DVBAB CAPRI NF TENANT")
S DVBTKN=$$GET^XPAR("PKG","DVBAB CAPRI NF TOKEN")
S DVBTKI=$$GET^XPAR("PKG","DVBAB CAPRI NF TOKEN URL")
S DVBTKS=$$GET^XPAR("PKG","DVBAB CAPRI NF SITEID URL")
S DVBTKD=$$GET^XPAR("PKG","DVBAB CAPRI NF DRIVEID URL")
S DVBTKF=$$GET^XPAR("PKG","DVBAB CAPRI NF FILEINFO URL")
S DVBRTN=DVBCLNT_U_DVBTNT_U_DVBTKN_U_DVBTKI_U_DVBTKS_U_DVBTKD_U_DVBTKF
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCTXM2 793 printed Nov 22, 2024@16:59:15 Page 2
DVBCTXM2 ;ALB/BG - CAPRI XML RPCS; FEB 6, 2023@16:20 ; 8/9/23 10:17am
+1 ;;2.7;AMIE;**250**;Apr 10, 1995;Build 19
+2 ; Per VHA Directive 6402 this routine should not be modified
+3 ; Reference to SUPPORTED PARAMETER TOOL ENTRY POINTS in ICR #2263
+4 QUIT
+5 ;
NEWSFEED(DVBRTN) ;
+1 NEW DVBCLNT,DVBTNT,DVBTKN,DVBTKI,DVBTKS,DVBTKD,DVBTKF
+2 SET DVBCLNT=$$GET^XPAR("PKG","DVBAB CAPRI NF CLIENT")
+3 SET DVBTNT=$$GET^XPAR("PKG","DVBAB CAPRI NF TENANT")
+4 SET DVBTKN=$$GET^XPAR("PKG","DVBAB CAPRI NF TOKEN")
+5 SET DVBTKI=$$GET^XPAR("PKG","DVBAB CAPRI NF TOKEN URL")
+6 SET DVBTKS=$$GET^XPAR("PKG","DVBAB CAPRI NF SITEID URL")
+7 SET DVBTKD=$$GET^XPAR("PKG","DVBAB CAPRI NF DRIVEID URL")
+8 SET DVBTKF=$$GET^XPAR("PKG","DVBAB CAPRI NF FILEINFO URL")
+9 SET DVBRTN=DVBCLNT_U_DVBTNT_U_DVBTKN_U_DVBTKI_U_DVBTKS_U_DVBTKD_U_DVBTKF
+10 QUIT
