XOBVSAML ;ALB/WPB - RPC to validate VistA Log on using 2FA ;6 APR 2017
;;1.6;VistALink;**3**;Apr 5, 2017;Build 17
;Per VHA Directive 6402, this routine should not be modified
Q
;
SAML(RTN,SAML) ; if new 2FA RPC, XUS ESSO VALIDATE is being called need to parse the string parameter into a temp global and pass that by reference
N I,IEND,ISTART,ISTOP,DOC
K RTN
K ^TMP("SAML_XUS",$J)
S ISTOP=$L(SAML),IEND=0
F I=1:1 Q:IEND>ISTOP D
. S ISTART=IEND+1
. S IEND=IEND+200
. S ^TMP("SAML_XUS",$J,I)=$E(SAML,ISTART,IEND)
.Q
S DOC=$NA(^TMP("SAML_XUS",$J))
D SETUP^XUSRB,GETENV^%ZOSV S XUENV=Y,XUCI=$P(Y,U,1),XQVOL=$P(Y,U,2),XUOSVER=$$VERSION^%ZOSV
D ESSO^XUESSO4(.RTN,DOC)
K X,XQVOL,XUCI,XUENV,XUOSVER,Y,^TMP("SAML_XUS",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXOBVSAML 755 printed Nov 22, 2024@17:54:48 Page 2
XOBVSAML ;ALB/WPB - RPC to validate VistA Log on using 2FA ;6 APR 2017
+1 ;;1.6;VistALink;**3**;Apr 5, 2017;Build 17
+2 ;Per VHA Directive 6402, this routine should not be modified
+3 QUIT
+4 ;
SAML(RTN,SAML) ; if new 2FA RPC, XUS ESSO VALIDATE is being called need to parse the string parameter into a temp global and pass that by reference
+1 NEW I,IEND,ISTART,ISTOP,DOC
+2 KILL RTN
+3 KILL ^TMP("SAML_XUS",$JOB)
+4 SET ISTOP=$LENGTH(SAML)
SET IEND=0
+5 FOR I=1:1
if IEND>ISTOP
QUIT
Begin DoDot:1
+6 SET ISTART=IEND+1
+7 SET IEND=IEND+200
+8 SET ^TMP("SAML_XUS",$JOB,I)=$EXTRACT(SAML,ISTART,IEND)
+9 QUIT
End DoDot:1
+10 SET DOC=$NAME(^TMP("SAML_XUS",$JOB))
+11 DO SETUP^XUSRB
DO GETENV^%ZOSV
SET XUENV=Y
SET XUCI=$PIECE(Y,U,1)
SET XQVOL=$PIECE(Y,U,2)
SET XUOSVER=$$VERSION^%ZOSV
+12 DO ESSO^XUESSO4(.RTN,DOC)
+13 KILL X,XQVOL,XUCI,XUENV,XUOSVER,Y,^TMP("SAML_XUS",$JOB)
+14 QUIT
