DVBCTXM2 ;ALB/BG - CAPRI XML RPCS; FEB 6, 2023@16:20 ; 3/4/24 8:50am
;;2.7;AMIE;**250,252**;Apr 10, 1995;Build 92
; 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
PARDATE(DVBRTN,DVBDATE) ;
N DVBRN
I '$D(DVBDATE) S DVBRTN="-1^MISSING DATE" Q
D EN^XPAR("PKG","DVBAB CAPRI GITHUB ERROR DATE",1,DVBDATE,.DVBRN)
I +DVBRN S DVBRTN="-1^"_$P(DVBRN,U,2) Q
S DVBRTN="0^SUCCESS"
Q
GITDATE(DVBRTN) ;
S DVBRTN=$$GET^XPAR("PKG","DVBAB CAPRI GITHUB ERROR DATE")
I DVBRTN="" S DVBRTN="-1"
Q
SPIEPD(DVBRTN) ;
N DVBIEPD
D NEWSFEED(.DVBRTN)
S DVBIEPD=$$GET^XPAR("PKG","DVBAB CAPRI SP IEPD INFO")
S $P(DVBRTN,U,7)=DVBIEPD
Q
GETSSNVAR(DVBRTN) ;
N DVBARTN,DVBAERROR
K ^TMP("DVBASSNVAR",$J)
S DVBARTN=$NA(^TMP("DVBASSNVAR",$J))
D GETLST^XPAR(DVBARTN,"PKG","DVBAB CAPRI CMT SSN VAR","Q",.DVBAERROR,1)
S DVBRTN=DVBARTN
I DVBRTN="" S DVBRTN="-1"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCTXM2 1501 printed Aug 26, 2025@22:04:52 Page 2
DVBCTXM2 ;ALB/BG - CAPRI XML RPCS; FEB 6, 2023@16:20 ; 3/4/24 8:50am
+1 ;;2.7;AMIE;**250,252**;Apr 10, 1995;Build 92
+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
PARDATE(DVBRTN,DVBDATE) ;
+1 NEW DVBRN
+2 IF '$DATA(DVBDATE)
SET DVBRTN="-1^MISSING DATE"
QUIT
+3 DO EN^XPAR("PKG","DVBAB CAPRI GITHUB ERROR DATE",1,DVBDATE,.DVBRN)
+4 IF +DVBRN
SET DVBRTN="-1^"_$PIECE(DVBRN,U,2)
QUIT
+5 SET DVBRTN="0^SUCCESS"
+6 QUIT
GITDATE(DVBRTN) ;
+1 SET DVBRTN=$$GET^XPAR("PKG","DVBAB CAPRI GITHUB ERROR DATE")
+2 IF DVBRTN=""
SET DVBRTN="-1"
+3 QUIT
SPIEPD(DVBRTN) ;
+1 NEW DVBIEPD
+2 DO NEWSFEED(.DVBRTN)
+3 SET DVBIEPD=$$GET^XPAR("PKG","DVBAB CAPRI SP IEPD INFO")
+4 SET $PIECE(DVBRTN,U,7)=DVBIEPD
+5 QUIT
GETSSNVAR(DVBRTN) ;
+1 NEW DVBARTN,DVBAERROR
+2 KILL ^TMP("DVBASSNVAR",$JOB)
+3 SET DVBARTN=$NAME(^TMP("DVBASSNVAR",$JOB))
+4 DO GETLST^XPAR(DVBARTN,"PKG","DVBAB CAPRI CMT SSN VAR","Q",.DVBAERROR,1)
+5 SET DVBRTN=DVBARTN
+6 IF DVBRTN=""
SET DVBRTN="-1"
+7 QUIT
