XOBVSAML.m

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 ---XOBVSAML   755     printed  Apr 09, 2024@21:46:58                                                                                                                                                                                                     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