DVBCTXM2 ;ALB/BG - CAPRI XML RPCS; FEB 6, 2023@16:20 ; 3/4/24 8:50am
;;2.7;AMIE;**250,252,256**;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
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) ;RPC: DVBA CAPRI IEPD DATA
N DVBIEPD
D NEWSFEED(.DVBRTN)
;CAPRI-23866:NGC:Feb26 - Start
I $$GET^XPAR("PKG","DVBAB CAPRI SP IEPD ISPROD")=0 D
. S DVBIEPD=$$GET^XPAR("PKG","DVBAB CAPRI SP IEPD TEST")
E D
. S DVBIEPD=$$GET^XPAR("PKG","DVBAB CAPRI SP IEPD INFO")
;CAPRI-23866:NGC:Feb26 - End
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
GETXMLSTATUS(DVBRTN,DVBWIEN,DVBXIEN) ;
;CAPRI-7882 CP 6/5/2026
;RPC: DVBA CAPRI GET XML TRANSTAT
N DVBINN,DVBSTAT
I DVBWIEN="" S DVBRTN="-1^Blank Worksheet IEN" Q
I DVBXIEN="" S DVBRTN="-1^Blank XML IEN" Q
I $D(^DVB(396.17,DVBWIEN,14,DVBXIEN))<10 S DVBRTN="-1^That record has no transmission History" Q
;
S DVBINN=""_DVBXIEN_","_DVBWIEN_","_""
S DVBSTAT=$$GET1^DIQ(396.1726,DVBINN,".02","I")
I DVBSTAT="" S DVBRTN="-1^No current Transmission Status" Q
S DVBRTN=DVBSTAT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCTXM2 2214 printed Sep 17, 2026@20:34:36 Page 2
DVBCTXM2 ;ALB/BG - CAPRI XML RPCS; FEB 6, 2023@16:20 ; 3/4/24 8:50am
+1 ;;2.7;AMIE;**250,252,256**;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
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) ;RPC: DVBA CAPRI IEPD DATA
+1 NEW DVBIEPD
+2 DO NEWSFEED(.DVBRTN)
+3 ;CAPRI-23866:NGC:Feb26 - Start
+4 IF $$GET^XPAR("PKG","DVBAB CAPRI SP IEPD ISPROD")=0
Begin DoDot:1
+5 SET DVBIEPD=$$GET^XPAR("PKG","DVBAB CAPRI SP IEPD TEST")
End DoDot:1
+6 IF '$TEST
Begin DoDot:1
+7 SET DVBIEPD=$$GET^XPAR("PKG","DVBAB CAPRI SP IEPD INFO")
End DoDot:1
+8 ;CAPRI-23866:NGC:Feb26 - End
+9 SET $PIECE(DVBRTN,U,7)=DVBIEPD
+10 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
GETXMLSTATUS(DVBRTN,DVBWIEN,DVBXIEN) ;
+1 ;CAPRI-7882 CP 6/5/2026
+2 ;RPC: DVBA CAPRI GET XML TRANSTAT
+3 NEW DVBINN,DVBSTAT
+4 IF DVBWIEN=""
SET DVBRTN="-1^Blank Worksheet IEN"
QUIT
+5 IF DVBXIEN=""
SET DVBRTN="-1^Blank XML IEN"
QUIT
+6 IF $DATA(^DVB(396.17,DVBWIEN,14,DVBXIEN))<10
SET DVBRTN="-1^That record has no transmission History"
QUIT
+7 ;
+8 SET DVBINN=""_DVBXIEN_","_DVBWIEN_","_""
+9 SET DVBSTAT=$$GET1^DIQ(396.1726,DVBINN,".02","I")
+10 IF DVBSTAT=""
SET DVBRTN="-1^No current Transmission Status"
QUIT
+11 SET DVBRTN=DVBSTAT
+12 QUIT
