DVBCTXM2.m

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 ---DVBCTXM2   793     printed  Apr 09, 2024@20:48:33                                                                                                                                                                                                     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