Produced by Araxis Merge on 2/17/2017 4:27:36 PM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | VSA P2.5 v3.0.12.zip\src.zip\vsa_vistajs_source_v3.0\vsa-mcode\Routines | XSAPXMU3.int.xml | Mon Jan 16 21:20:00 2017 UTC |
| 2 | VSA P2.5 v3.0.12.zip\src.zip\vsa_vistajs_source_v3.0\vsa-mcode\Routines | XSAPXMU3.int.xml | Fri Feb 17 21:35:47 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 12 | 1068 |
| Changed | 11 | 26 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| Whitespace | |
|---|---|
| Character case | Differences in character case are significant |
| Line endings | Differences in line endings (CR and LF characters) are ignored |
| CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
| 1 | <?xml | |
| 2 | version="1 .0" | |
| 3 | encoding=" UTF-8" | |
| 4 | ?> | |
| 5 | <Export | |
| 6 | generator= "Cache" | |
| 7 | version="2 5" | |
| 8 | > | |
| 9 | <Routine | |
| 10 | name="XSAP XMU3" | |
| 11 | type="INT" | |
| 12 | languagemo de="0" | |
| 13 | > | |
| 14 | <![CDATA[ | |
| 15 | XSAPXMU3 ; DAL/BNT - VistA Serv ices Assem bler Unit Tests;1/27 /2016 | |
| 16 | ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15 | |
| 17 | ; | |
| 18 | ;Per VA D irective 6 402, this routine sh ould not b e modified . | |
| 19 | ; | |
| 20 | ; All ent ry points authored b y Brian To mlin 2015- 2016 | |
| 21 | ; | |
| 22 | ; makes i t easy to run tests simply by running th is routine and | |
| 23 | ; insures that XTMU NIT will b e run only where it is present | |
| 24 | I $T(EN^X TMUNIT)'=" " D EN^XTM UNIT("XSAP XMU3",1) | |
| 25 | Q | |
| 26 | ; | |
| 27 | STARTUP ; optional e ntry point | |
| 28 | ; if pres ent execut ed before any other entry poin t any vari ables | |
| 29 | ; or othe r work tha t needs to be done f or any or all tests in the | |
| 30 | ; routine . This is run only once at th e beginnin g. | |
| 31 | K ^TMP($J ,"XSA","UN IT TESTS") ,^TMP($J," XSA","UNIT TESTS") | |
| 32 | Q | |
| 33 | ; | |
| 34 | SHUTDOWN ; optional entry poin t | |
| 35 | ; if pres ent execut ed after a ll other p rocessing is complet e to remov e | |
| 36 | ; any var iables, or undo work done in S TARTUP. | |
| 37 | Q | |
| 38 | ; | |
| 39 | SETUP ; op tional ent ry point | |
| 40 | ; if pres ent it wil l be execu ted before each test entry to set up | |
| 41 | ; variabl es, etc. | |
| 42 | N XSAERR, XOBARR,XOB ARR2,XOBAR R3,OUTPUT | |
| 43 | Q | |
| 44 | ; | |
| 45 | TEARDOWN ; optional entry poin t | |
| 46 | ; if pres ent it wil l be exceu ted after each test entry to c lean up | |
| 47 | ; variabl es, etc. | |
| 48 | Q | |
| 49 | ; | |
| 50 | XTROU ; | |
| 51 | ;;XSAPXMU 3;Access C ontrol and IAM Unit Tests | |
| 52 | ; Entry p oints for tests are specified as the thi rd semi-co lon piece, | |
| 53 | ; a descr iption of what it te sts is opt ional as t he fourth semi-colon | |
| 54 | ; piece o n a line. The first line witho ut a third piece ter minates th e | |
| 55 | ; search for TAGs t o be used as entry p oints | |
| 56 | XTENT ; | |
| 57 | ;;TSETUP; Set up the Testing e nvironment | |
| 58 | ;;TIAM1;T est IAM Ad d User | |
| 59 | ;;TIAM2;T est IAM Ed it User | |
| 60 | ;;TIAM3;T est IAM Di splay User | |
| 61 | ;;TIAM4;T est IAM Fi nd User | |
| 62 | ;;TIAM5;T est IAM Te rminate Us er | |
| 63 | ;;TIAM6;T est IAM Re activate U ser | |
| 64 | ;;TIAM7;T est Fail I AM Add Use r | |
| 65 | ;;TIAM8;T est Fail I AM Edit Us er | |
| 66 | ;;TIAM9;T est Fail I AM Display User | |
| 67 | ;;TIAM10; Test Fail IAM Find U ser | |
| 68 | ;;TIAM11; Test Fail IAM Termin ate User | |
| 69 | ;;TIAM12; Test Fail IAM Reacti vate User | |
| 70 | ;;TACC1;T est LOGIN with Valid Access/Ve rify codes . | |
| 71 | ;;TACC2;T est LOGIN with BSE V isitor ID. | |
| 72 | ;;TACC3;T est Fail L OGIN with Invalid a/ v codes | |
| 73 | ;;TACC4;T est LOGIN with SAML Token | |
| 74 | ;;TACC5;T est Fail L OGIN with Invalid BS E Visitor ID. | |
| 75 | ;;TACC6;T est Fail L OGIN with Expired SA ML Token | |
| 76 | ;;TACC1;T est LOGIN with Valid Access/Ve rify codes . | |
| 77 | Q | |
| 78 | ; | |
| 79 | TSETUP ; S etup IAM P rovisionin g Requirem ents | |
| 80 | TSTART | |
| 81 | ; Make su re this us er has the XUSHOWSSN Security Key | |
| 82 | N XSAZZ D OWNSKEY^X USRB(.XSAZ Z,"XUSHOWS SN",DUZ) | |
| 83 | I 'XSAZZ( 0) S DIC(0 )="NMQ",DI C("P")="20 0.051PA",D IC="^VA(20 0,DUZ,51," ,DA(1)=DUZ ,X=$$LKUP^ XPDKEY("XU SHOWSSN"), DINUM=X D FILE^DICN | |
| 84 | ; | |
| 85 | S IAMAPP= $O(^XWB(89 94.5,"B"," IAM PROVIS IONING",0) ) | |
| 86 | I 'IAMAPP D FAIL^XT MUNIT("IAM Provision ing is not installed .") TROLLB ACK Q | |
| 87 | ; | |
| 88 | ; Make su re Provisi oning Appl ication ha s the righ t Authcode | |
| 89 | I $P(^XWB (8994.5,IA MAPP,0),U, 3)'="F8GVb bchl3gV829 GL3OzBBZ3N CgvDCw7Zhs lNdz7ozY=" D | |
| 90 | . K ^TMP( "DIERR",$J ) | |
| 91 | . S DIC(0 )="",ERRMS G="" | |
| 92 | . N FDR S FDR(8994. 5,IAMAPP_" ,",.03)="F 8GVbbchl3g V829GL3OzB BZ3NCgvDCw 7ZhslNdz7o zY=" | |
| 93 | . D UPDAT E^DIE("E", "FDR","IEN ") | |
| 94 | TROLLBACK | |
| 95 | Q | |
| 96 | ; | |
| 97 | TIAM1 ; IA M ADD USER unit test | |
| 98 | TSTART | |
| 99 | N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA | |
| 100 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 101 | K @SOURCE ,@TARGET | |
| 102 | S XSAUSER =$O(^VA(20 0,"B","BOD EN,CARL",0 )) | |
| 103 | I +XSAUSE R D | |
| 104 | . S FDA(2 00,XSAUSER _",",".01" )="@" D FI LE^DIE("", "FDA","MSG ") | |
| 105 | S @SOURCE @("DUZ")=D UZ | |
| 106 | S @SOURCE @("NAME")= "Carl Bode n" | |
| 107 | S @SOURCE @("SECID") ="12345987 6" | |
| 108 | S @SOURCE @("EMAIL") =" PII " | |
| 109 | S @SOURCE @("ADUPN") =" PII " | |
| 110 | S @SOURCE @("SSN")=" 123459876" | |
| 111 | S @SOURCE @("DOB")=" 12/27/1967 " | |
| 112 | S @SOURCE @("STATION ")=$P($$SI TE^VASITE( ),"^",3) | |
| 113 | S @SOURCE @("AUTHCOD E")="This is my Prov isioning C ode!" | |
| 114 | S SUCCESS =$$IAMAU^X SAPXPUB(.S OURCE,.TAR GET) | |
| 115 | D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r"))) | |
| 116 | S IEN=$O( ^VA(200,"B ","BODEN,C ARL",0)) I +IEN D | |
| 117 | . S IENS= IEN_"," | |
| 118 | . S FDA(2 00,IENS,2) =$$ENCRYP^ XUSRB1("12 3BODECA") | |
| 119 | . S FDA(2 00,IENS,11 )=$$ENCRYP ^XUSRB1("3 21CABODE*" ) | |
| 120 | . D FILE^ DIE("","FD A","MSG") I $D(MSG) ZW MSG | |
| 121 | K @SOURCE ,@TARGET | |
| 122 | TROLLBACK | |
| 123 | Q | |
| 124 | ; | |
| 125 | TIAM2 ;Tes t IAM Edit User | |
| 126 | TSTART | |
| 127 | N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,XD UZ | |
| 128 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 129 | K @SOURCE ,@TARGET | |
| 130 | S XDUZ=$O (^VA(200," B","BODEN, CARL",0)) | |
| 131 | I XDUZ'>0 D FAIL^XT MUNIT("CAR L BODEN do es not exi st") | |
| 132 | I $P(^VA( 200,XDUZ,. 15),U)'=" PII " S $P(^VA (200,XDUZ, .15),U)=" PII " | |
| 133 | S @SOURCE @("DUZ")=D UZ | |
| 134 | S @SOURCE @("INARRY" ,"SECID")= "123459876 " | |
| 135 | S @SOURCE @("INARRY" ,"EMAIL")= " PII " | |
| 136 | S @SOURCE @("AUTHCOD E")="This is my Prov isioning C ode!" | |
| 137 | S SUCCESS =$$IAMEU^X SAPXPUB(.S OURCE,.TAR GET) | |
| 138 | D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r"))) | |
| 139 | I +$P(@TA RGET@(0),U )="-1" D F AIL^XTMUNI T(@TARGET@ (1)) | |
| 140 | D CHKEQ^X TMUNIT($P( ^VA(200,XD UZ,.15),U) ," PII ","Email A ddress not updated c orrectly") | |
| 141 | ; Now set it back | |
| 142 | S $P(^VA( 200,XDUZ,. 15),U)=" PII " | |
| 143 | K @SOURCE ,@TARGET | |
| 144 | TROLLBACK | |
| 145 | Q | |
| 146 | ; | |
| 147 | TIAM3 ;Tes t IAM Disp lay User | |
| 148 | TSTART | |
| 149 | N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,DI SPDUZ | |
| 150 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 151 | K @SOURCE ,@TARGET | |
| 152 | S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 )) | |
| 153 | S @SOURCE @("DUZ")=D UZ | |
| 154 | S @SOURCE @("DISPDUZ ")=DISPDUZ | |
| 155 | S @SOURCE @("AUTHCOD E")="This is my Prov isioning C ode!" | |
| 156 | S SUCCESS =$$IAMDU^X SAPXPUB(.S OURCE,.TAR GET) | |
| 157 | D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r"))) | |
| 158 | D CHKEQ^X TMUNIT(@TA RGET@("SEC ID"),"1234 59876","Se curity ID does not m atch") | |
| 159 | K @SOURCE ,@TARGET | |
| 160 | TROLLBACK | |
| 161 | Q | |
| 162 | ; | |
| 163 | TIAM4 ;Tes t IAM Find User | |
| 164 | TSTART | |
| 165 | N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,DI SPDUZ | |
| 166 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 167 | K @SOURCE ,@TARGET | |
| 168 | S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 )) | |
| 169 | S @SOURCE @("DUZ")=D UZ | |
| 170 | S @SOURCE @("SECID") ="12345987 6" | |
| 171 | S @SOURCE @("AUTHCOD E")="This is my Prov isioning C ode!" | |
| 172 | S SUCCESS =$$IAMFU^X SAPXPUB(.S OURCE,.TAR GET) | |
| 173 | D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r"))) | |
| 174 | D CHKEQ^X TMUNIT(+$P (@TARGET@( 1),U),DISP DUZ,"Find User did n ot return correct DU Z") | |
| 175 | K @SOURCE ,@TARGET | |
| 176 | TROLLBACK | |
| 177 | Q | |
| 178 | ; | |
| 179 | TIAM5 ;Tes t IAM Term inate User | |
| 180 | TSTART | |
| 181 | N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,DI SPDUZ | |
| 182 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 183 | K @SOURCE ,@TARGET | |
| 184 | S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 )) | |
| 185 | S @SOURCE @("DUZ")=D UZ | |
| 186 | S @SOURCE @("SECID") ="12345987 6" | |
| 187 | S @SOURCE @("TERMDAT E")=DT | |
| 188 | S @SOURCE @("TERMRES N")="VSA M Unit Testi ng" | |
| 189 | S @SOURCE @("AUTHCOD E")="This is my Prov isioning C ode!" | |
| 190 | S SUCCESS =$$IAMTU^X SAPXPUB(.S OURCE,.TAR GET) | |
| 191 | D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r"))) | |
| 192 | D CHKEQ^X TMUNIT($P( ^VA(200,DI SPDUZ,0),U ,11),DT,"T ermination Date not filed corr ectly") | |
| 193 | D CHKEQ^X TMUNIT($P( ^VA(200,DI SPDUZ,0),U ,13),"VSA MUnit Test ing","Term ination Re ason not f iled corre ctly") | |
| 194 | K @SOURCE ,@TARGET | |
| 195 | TROLLBACK | |
| 196 | Q | |
| 197 | ; | |
| 198 | TIAM6 ;Tes t IAM Reac tivate Use r | |
| 199 | TSTART | |
| 200 | N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,NU LL | |
| 201 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 202 | K @SOURCE ,@TARGET | |
| 203 | S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 )) | |
| 204 | S @SOURCE @("DUZ")=D UZ | |
| 205 | S @SOURCE @("SECID") ="12345987 6" | |
| 206 | S @SOURCE @("AUTHCOD E")="This is my Prov isioning C ode!" | |
| 207 | S SUCCESS =$$IAMRU^X SAPXPUB(.S OURCE,.TAR GET) | |
| 208 | D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r"))) | |
| 209 | D CHKEQ^X TMUNIT($P( ^VA(200,DI SPDUZ,0),U ,11),NULL, "User not Reactivate d correctl y.") | |
| 210 | K @SOURCE ,@TARGET | |
| 211 | TROLLBACK | |
| 212 | Q | |
| 213 | ; | |
| 214 | TIAM7 ; IA M Fail ADD USER unit test | |
| 215 | TSTART | |
| 216 | N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA | |
| 217 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 218 | K @SOURCE ,@TARGET | |
| 219 | S @SOURCE @("DUZ")=D UZ | |
| 220 | S @SOURCE @("NAME")= "" | |
| 221 | S @SOURCE @("SECID") ="" | |
| 222 | S @SOURCE @("EMAIL") =" PII " | |
| 223 | S @SOURCE @("ADUPN") =" PII " | |
| 224 | S @SOURCE @("SSN")=" 123459876" | |
| 225 | S @SOURCE @("DOB")=" 12/27/1967 " | |
| 226 | S @SOURCE @("STATION ")=$P($$SI TE^VASITE( ),"^",3) | |
| 227 | S @SOURCE @("AUTHCOD E")="This is my Prov isioning C ode!" | |
| 228 | S SUCCESS =$$IAMAU^X SAPXPUB(.S OURCE,.TAR GET) | |
| 229 | D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("r esults"))) | |
| 230 | K @SOURCE ,@TARGET | |
| 231 | TROLLBACK | |
| 232 | Q | |
| 233 | ; | |
| 234 | TIAM8 ;Tes t Fail IAM Edit User | |
| 235 | TSTART | |
| 236 | N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,XD UZ | |
| 237 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 238 | K @SOURCE ,@TARGET | |
| 239 | S XDUZ=$O (^VA(200," B","BODEN, CARL",0)) | |
| 240 | I XDUZ'>0 D FAIL^XT MUNIT("CAR L BODEN do es not exi st") | |
| 241 | I $P(^VA( 200,XDUZ,. 15),U)'=" PII " S $P(^VA (200,XDUZ, .15),U)=" PII " | |
| 242 | S @SOURCE @("DUZ")=D UZ | |
| 243 | S @SOURCE @("INARRY" ,"SECID")= "" | |
| 244 | S @SOURCE @("INARRY" ,"EMAIL")= " PII " | |
| 245 | S @SOURCE @("AUTHCOD E")="This is my Prov isioning C ode!" | |
| 246 | S SUCCESS =$$IAMEU^X SAPXPUB(.S OURCE,.TAR GET) | |
| 247 | D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("r esults"))) | |
| 248 | K @SOURCE ,@TARGET | |
| 249 | TROLLBACK | |
| 250 | Q | |
| 251 | ; | |
| 252 | TIAM9 ;Tes t Fail IAM Display U ser | |
| 253 | TSTART | |
| 254 | N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,DI SPDUZ | |
| 255 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 256 | K @SOURCE ,@TARGET | |
| 257 | S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 )) | |
| 258 | S @SOURCE @("DUZ")=D UZ | |
| 259 | S @SOURCE @("DISPDUZ ")="" | |
| 260 | S @SOURCE @("AUTHCOD E")="This is my Prov isioning C ode!" | |
| 261 | S SUCCESS =$$IAMDU^X SAPXPUB(.S OURCE,.TAR GET) | |
| 262 | D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("r esults"))) | |
| 263 | K @SOURCE ,@TARGET | |
| 264 | TROLLBACK | |
| 265 | Q | |
| 266 | ; | |
| 267 | TIAM10 ;Te st Fail IA M Find Use r | |
| 268 | TSTART | |
| 269 | N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,DI SPDUZ | |
| 270 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 271 | K @SOURCE ,@TARGET | |
| 272 | S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 )) | |
| 273 | S @SOURCE @("DUZ")=D UZ | |
| 274 | S @SOURCE @("SECID") ="" | |
| 275 | S @SOURCE @("AUTHCOD E")="" | |
| 276 | S SUCCESS =$$IAMFU^X SAPXPUB(.S OURCE,.TAR GET) | |
| 277 | D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("r esults"))) | |
| 278 | K @SOURCE ,@TARGET | |
| 279 | TROLLBACK | |
| 280 | Q | |
| 281 | ; | |
| 282 | TIAM11 ;Te st Fail IA M Terminat e User | |
| 283 | TSTART | |
| 284 | N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,DI SPDUZ | |
| 285 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 286 | K @SOURCE ,@TARGET | |
| 287 | S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 )) | |
| 288 | S @SOURCE @("DUZ")=D UZ | |
| 289 | S @SOURCE @("SECID") ="" | |
| 290 | S @SOURCE @("TERMDAT E")=DT | |
| 291 | S @SOURCE @("TERMRES N")="VSA M Unit Testi ng" | |
| 292 | S @SOURCE @("AUTHCOD E")="This is my Prov isioning C ode!" | |
| 293 | S SUCCESS =$$IAMTU^X SAPXPUB(.S OURCE,.TAR GET) | |
| 294 | D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("r esults"))) | |
| 295 | K @SOURCE ,@TARGET | |
| 296 | TROLLBACK | |
| 297 | Q | |
| 298 | ; | |
| 299 | TIAM12 ;Te st Fail IA M Reactiva te User | |
| 300 | TSTART | |
| 301 | N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,NU LL | |
| 302 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 303 | K @SOURCE ,@TARGET | |
| 304 | S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 )) | |
| 305 | S @SOURCE @("DUZ")=D UZ | |
| 306 | S @SOURCE @("SECID") ="" | |
| 307 | S @SOURCE @("AUTHCOD E")="This is my Prov isioning C ode!" | |
| 308 | S SUCCESS =$$IAMRU^X SAPXPUB(.S OURCE,.TAR GET) | |
| 309 | D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("r esults"))) | |
| 310 | K @SOURCE ,@TARGET | |
| 311 | TROLLBACK | |
| 312 | Q | |
| 313 | ; | |
| 314 | TACC1 ; Te st Multipl e call LOG IN functio n with a/v codes | |
| 315 | TSTART | |
| 316 | N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS | |
| 317 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 318 | K @SOURCE ,@TARGET | |
| 319 | S @SOURCE @("XSAACC" )="123TOML IB;321BTOM LI*" | |
| 320 | S @SOURCE @("XSAVER" )="" | |
| 321 | S @SOURCE @("XSADIV" )="" | |
| 322 | S @SOURCE @("XSAIP") ="10."_$R( 256)_"."_$ R(256)_"." _$R(256) | |
| 323 | S @SOURCE @("XSABSEU ")="" | |
| 324 | S SUCCESS =$$LOGIN^X SAPXPUB(.S OURCE,.TAR GET) | |
| 325 | D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r"))) | |
| 326 | S (SOURCE ,TARGET)=$ NA(^CacheT emp($J,"XS A","UNIT T ESTS")) | |
| 327 | K @SOURCE ,@TARGET | |
| 328 | S @SOURCE @("XSAACC" )="123TOML IB;321BTOM LI*" | |
| 329 | S @SOURCE @("XSAVER" )="" | |
| 330 | S @SOURCE @("XSADIV" )="" | |
| 331 | S @SOURCE @("XSAIP") ="10."_$R( 256)_"."_$ R(256)_"." _$R(256) | |
| 332 | S @SOURCE @("XSABSEU ")="" | |
| 333 | S SUCCESS 2=$$LOGIN^ XSAPXPUB(. SOURCE,.TA RGET) | |
| 334 | D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r"))) | |
| 335 | K @SOURCE ,@TARGET | |
| 336 | TROLLBACK | |
| 337 | Q | |
| 338 | ; | |
| 339 | TACC2 ; Te st the LOG IN functio n with BSE demograph ics | |
| 340 | TSTART | |
| 341 | N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS | |
| 342 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 343 | K @SOURCE ,@TARGET | |
| 344 | S @SOURCE @("XSAACC" )="" | |
| 345 | S @SOURCE @("XSAVER" )="" | |
| 346 | S @SOURCE @("XSADIV" )="" | |
| 347 | S @SOURCE @("XSAIP") ="10."_$R( 256)_"."_$ R(256)_"." _$R(256) | |
| 348 | S @SOURCE @("XSABSEU ")=$$ENCRY P^XUSRB1(" 123"_$R(10 )_$R(10)_$ R(10)_$R(1 0)_$R(10)_ $R(10)_"^V SAMUNIT,US ER"_$R(10) _$R(10)_$R (10)_$R(10 )_$R(10)_" ^CAMP MAST ER^500^"_$ P(^VA(200, 0),U,3)_"^ ^^") | |
| 349 | S SUCCESS =$$LOGIN^X SAPXPUB(.S OURCE,.TAR GET) | |
| 350 | D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r"))) | |
| 351 | K @SOURCE ,@TARGET | |
| 352 | TROLLBACK | |
| 353 | Q | |
| 354 | ; | |
| 355 | TACC3 ; Te st the LOG IN functio n with INV ALID a/v c odes | |
| 356 | TSTART | |
| 357 | N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS | |
| 358 | ; Kill of f the sign on log fir st to prev ent too ma ny invalid logons | |
| 359 | N X S X=1 F S X=$O (^XUSEC(0, X)) Q:X="" K ^XUSEC (0,X) | |
| 360 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 361 | K @SOURCE ,@TARGET | |
| 362 | S @SOURCE @("XSAACC" )=$R(256)_ "."_$R(256 )_"."_$R(2 56)_"FJDKS ;"_$R(256) _"."_$R(25 6)_"."_$R( 256)_"FDSI O" | |
| 363 | S @SOURCE @("XSAVER" )="" | |
| 364 | S @SOURCE @("XSADIV" )="" | |
| 365 | S @SOURCE @("XSAIP") ="10."_$R( 256)_"."_$ R(256)_"." _$R(256) | |
| 366 | S @SOURCE @("XSABSEU ")="" | |
| 367 | S SUCCESS =$$LOGIN^X SAPXPUB(.S OURCE,.TAR GET) | |
| 368 | D CHKEQ^X TMUNIT("In valid Kern el logon c redentials . [Securit y Type: No t a valid ACCESS COD E/VERIFY C ODE pair.] ",$G(@TAR GET@("erro r","error" ))) | |
| 369 | K @SOURCE ,@TARGET | |
| 370 | TROLLBACK | |
| 371 | Q | |
| 372 | ; | |
| 373 | TACC4 ; Lo gin User b y SAML Tok en | |
| 374 | TSTART | |
| 375 | N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS ,ARR | |
| 376 | ; Clear o ut the sig non log fo r testing | |
| 377 | N X S X=1 F S X=$O (^XUSEC(0, X)) Q:X="" K ^XUSEC (0,X) | |
| 378 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 379 | K @SOURCE ,@TARGET | |
| 380 | S @SOURCE @("XSAACC" )="" | |
| 381 | S @SOURCE @("XSAVER" )="" | |
| 382 | S @SOURCE @("XSADIV" )="" | |
| 383 | S @SOURCE @("XSAIP") ="10."_$R( 256)_"."_$ R(256)_"." _$R(256) | |
| 384 | D GETSAML (.ARR) M @ SOURCE@("X SAESSO")=A RR | |
| 385 | S SUCCESS =$$LOGIN^X SAPXPUB(.S OURCE,.TAR GET) | |
| 386 | D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r"))) | |
| 387 | K @SOURCE ,@TARGET | |
| 388 | TROLLBACK | |
| 389 | Q | |
| 390 | ; | |
| 391 | TACC5 ; Te st the LOG IN functio n with Inv alid BSE d emographic s | |
| 392 | TSTART | |
| 393 | N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS | |
| 394 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 395 | K @SOURCE ,@TARGET | |
| 396 | S @SOURCE @("XSAACC" )="" | |
| 397 | S @SOURCE @("XSAVER" )="" | |
| 398 | S @SOURCE @("XSADIV" )="" | |
| 399 | S @SOURCE @("XSAIP") ="10."_$R( 256)_"."_$ R(256)_"." _$R(256) | |
| 400 | S @SOURCE @("XSABSEU ")=$$ENCRY P^XUSRB1(" 000"_$R(10 )_$R(10)_$ R(10)_$R(1 0)_$R(10)_ $R(10)_"^I NVALID,USE R"_$R(10)_ $R(10)_$R( 10)_$R(10) _$R(10)_"^ ^^"_$P(^VA (200,0),U, 3)_"^^^") | |
| 401 | S SUCCESS =$$LOGIN^X SAPXPUB(.S OURCE,.TAR GET) | |
| 402 | D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("e rror","err or"))) | |
| 403 | D CHKEQ^X TMUNIT($G( @TARGET@(" error","er ror")),"In valid Kern el logon c redentials . [Securit y Type: Un able to cr eate remot e Visitor user] ") | |
| 404 | K @SOURCE ,@TARGET | |
| 405 | TROLLBACK | |
| 406 | Q | |
| 407 | ; | |
| 408 | TACC6 ; Fa il Login U ser with E xpired SAM L Token | |
| 409 | TSTART | |
| 410 | N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS ,ARR | |
| 411 | ; Clear o ut the sig non log fo r testing | |
| 412 | N X S X=1 F S X=$O (^XUSEC(0, X)) Q:X="" K ^XUSEC (0,X) | |
| 413 | S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") ) | |
| 414 | K @SOURCE ,@TARGET | |
| 415 | S @SOURCE @("XSAACC" )="" | |
| 416 | S @SOURCE @("XSAVER" )="" | |
| 417 | S @SOURCE @("XSADIV" )="" | |
| 418 | S @SOURCE @("XSAIP") ="10."_$R( 256)_"."_$ R(256)_"." _$R(256) | |
| 419 | F I=1:1 S X=$P($T(S AML+I),";; ",2) Q:X=" $$END$$" S @SOURCE@ ("XSAESSO" ,I)=X | |
| 420 | S SUCCESS =$$LOGIN^X SAPXPUB(.S OURCE,.TAR GET) | |
| 421 | D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("e rror","err or"))) | |
| 422 | D CHKEQ^X TMUNIT("In valid Kern el logon c redentials . [Securit y Type: Un able to si gn on usin g Identity and Acces s Manageme nt STS tok en. Try us ing Access /Verify co des.] ",$G (@TARGET@( "error","e rror"))) | |
| 423 | K @SOURCE ,@TARGET | |
| 424 | TROLLBACK | |
| 425 | Q | |
| 426 | ; | |
| 427 | GETSAML(XS AY) ; -- G et SAML To ken for un it testing | |
| 428 | N I,X,XSA DT K XSAY | |
| 429 | ; Hack to set the t oken expir ation date /times to appropriat e values | |
| 430 | S XSADT=$ $FMTHL7^XL FDT($$FMAD D^XLFDT($$ NOW^XLFDT( ),0,0,-5,0 )) | |
| 431 | S XSANOTB 4=$E(XSADT ,1,4)_"-"_ $E(XSADT,5 ,6)_"-"_$E (XSADT,7,8 )_"T"_$E(X SADT,9,10) _":"_$E(XS ADT,11,12) _":"_$E(XS ADT,13,14) | |
| 432 | S XSADT=$ $FMTHL7^XL FDT($$FMAD D^XLFDT($$ NOW^XLFDT( ),0,0,15,0 )) | |
| 433 | S XSANOTO N=$E(XSADT ,1,4)_"-"_ $E(XSADT,5 ,6)_"-"_$E (XSADT,7,8 )_"T"_$E(X SADT,9,10) _":"_$E(XS ADT,11,12) _":"_$E(XS ADT,13,14) | |
| 434 | S XSADT=$ $FMTHL7^XL FDT($$NOW^ XLFDT()) | |
| 435 | S XSAAUTH =$E(XSADT, 1,4)_"-"_$ E(XSADT,5, 6)_"-"_$E( XSADT,7,8) _"T"_$E(XS ADT,9,10)_ ":"_$E(XSA DT,11,12)_ ":"_$E(XSA DT,13,14) | |
| 436 | F I=1:1 S X=$P($T(S AML+I),";; ",2) Q:X=" $$END$$" D | |
| 437 | . I X["No tBefore" S XSAY(I)=" <saml:Co nditions N otBefore=" ""_XSANOTB 4_""" NotO nOrAfter=" ""_XSANOTO N_""">" Q | |
| 438 | . I X["<s aml:AuthnS tatement A uthnInstan t=" S XSAY (I)=" <sa ml:AuthnSt atement Au thnInstant ="""_XSAAU TH_""">" Q | |
| 439 | . I X["<s aml:Attrib uteValue>2 015-06-25T 12:00:27Z< /saml:Attr ibuteValue >" S XSAY( I)=" < saml:Attri buteValue> """_XSAAUT H_"""</sam l:Attribut eValue>" Q | |
| 440 | . S XSAY( I)=X | |
| 441 | Q | |
| 442 | ; | |
| 443 | SAML ; | |
| 444 | ;;<?xml v ersion="1. 0"?> | |
| 445 | ;;<saml:A ssertion x mlns:saml= "urn:oasis :names:tc: SAML:2.0:a ssertion" ID="Assert ion-uuid60 15911c-009 5-4f17-a8f 7-aca0f9dd 8049" Vers ion="2.0" IssueInsta nt="2015-0 6-25T12:00 :27Z"> | |
| 446 | ;; <saml:Issu er Format= "urn:oasis :names:tc: SAML:2.0:n ameid-form at:entity" >https:// DNS /Issuer/SA ML2</saml: Issuer> | |
| 447 | ;; <Sign ature xmln s="http:// www.w3.org /2000/09/x mldsig#"> | |
| 448 | ;; <Si gnedInfo> | |
| 449 | ;; < Canonicali zationMeth od Algorit hm="http:/ /www.w3.or g/TR/2001/ REC-xml-c1 4n-2001031 5"/> | |
| 450 | ;; < SignatureM ethod Algo rithm="htt p://www.w3 .org/2001/ 04/xmldsig -more#rsa- sha256"/> | |
| 451 | ;; < Reference URI="#Asse rtion-uuid 6015911c-0 095-4f17-a 8f7-aca0f9 dd8049"> | |
| 452 | ;; <Transfor ms> | |
| 453 | ;; <Transf orm Algori thm="http: //www.w3.o rg/2000/09 /xmldsig#e nveloped-s ignature"/ > | |
| 454 | ;; <Transf orm Algori thm="http: //www.w3.o rg/TR/2001 /REC-xml-c 14n-200103 15"/> | |
| 455 | ;; </Transfo rms> | |
| 456 | ;; <DigestMe thod Algor ithm="http ://www.w3. org/2000/0 9/xmldsig# sha1"/> | |
| 457 | ;; <DigestVa lue>iFmvVx E9LIPWEN4U 96Z0Ya7TD2 A=</Digest Value> | |
| 458 | ;; < /Reference > | |
| 459 | ;; </S ignedInfo> | |
| 460 | ;; <Si gnatureVal ue>uoUOIi/ xDRBSvHZGs 1/4umKxJLq I+nB33QB6g hiGtWok8rQ CZ1GAUjnij +sLp1bqa3D GFSWLW/xMF Ft1myIPQzG ELvqauMu1U Aoq5T1aZOc +MSFUxcnAN 0NN5Q2UbAO kyLvy6pN0v TNR8TQ71lS ZYaLSVfFeF AfdZ9a25+Z 8DVkFMvr4+ HOm+NRZulh xUC+kqhBFR MZOfQtvFYq LE487c+ehi QvkDjLCcWi Hk2xfIR7RT IZV+67n5lT hh8xY+r3kO Iqqg0fkNBm QPy1yorLgl NYlguzsW2f 5Ne5YlqMBe mZi2YzAtzi 6Dml1ZDyh9 fQB7jpd0q4 hU/KxJ55GM WcK3w==</S ignatureVa lue> | |
| 461 | ;; <Ke yInfo> | |
| 462 | ;; < X509Data> | |
| 463 | ;; <X509Cert ificate>MI IHqjCCBpKg AwIBAgIHPQ ACACZyazAN BgkqhkiG9w 0BAQUFADBQ MRMwEQYKCZ ImiZPyLGQB GRYDZ292MR IwEAYKCZIm iZPyLGQBGR YCdmExJTAj BgNVBAMTHF ZBIEludGVy bmFsIFN1Ym 9yZGluYXRl IENBIDEwHh cNMTQxMjA5 MTUwMjM4Wh cNMTUxMjA5 MTUwMjM4Wj CBpzELMAkG A1UEBhMCVV MxCzAJBgNV BAgTAlRYMQ 8wDQYDVQQH EwZBdXN0aW 4xLDAqBgNV BAoTI1UuUy 4gRGVwYXJ0 bWVudCBvZi BWZXRlcmFu cyBBZmZhaX JzMQ4wDAYD VQQLEwVWQU FGSTEZMBcG A1UEAxMQZG V2LmVhdXRo LnZhLmdvdj EhMB8GCSqG SIb3DQEJAR YSZWF1dGhh ZG1pbnNAdm EuZ292MIIB IjANBgkqhk iG9w0BAQEF AAOCAQ8AMI IBCgKCAQEA 1qLPy2TCdC kaNSGs58Dg GpSB6EvM9m GFTbNxcdSn +4VlZ0y0xp QtcTWlyz6L YidWP9qFmf 6bRq8ah53F HAw2qkb6cw oVRDdOBBeS dsqG1OyZtU wju+XLzsJW G3t5h0J+kY Oipge7X7Yp 420Xs+oyYL 9jboeSoJTe hG0+g2CvTq roLiS6YG5u +NOTP+Ut2F CTY4cLvwR7 vIrYMb3pm3 BRqm4e8Wjz 8BVhm/GuMd P3O6ybkcg6 r9VmSXD7os q70e3iaza8 7vaFd9gMik RZu1JjlaUb ySmY2S2QQ3 IYQcwK/iPd rVIX7IjOZM sXxrK/q+ZB H7FFVdgcvg yXTXFtgmcE jwIDAQABo4 IELzCCBCsw HQYDVR0lBB YwFAYIKwYB BQUHAwEGCC sGAQUFBwMC MIICGwYDVR 0RBIICEjCC Ag6CEGRldi 5lYXV0aC52 YS5nb3aCEG ludC5lYXV0 aC52YS5nb3 aCFGludC5w a2kuZWF1dG gudmEuZ292 ghlpbnQucm VnaXN0ZXIu ZWF1dGgudm EuZ292ghlp bnQuc2Vydm ljZXMuZWF1 dGgudmEuZ2 92ghFpbnQu YWNjZXNzLn ZhLmdvdoIR cGludC5lYX V0aC52YS5n b3aCFXBpbn QucGtpLmVh dXRoLnZhLm dvdoIacGlu dC5yZWdpc3 Rlci5lYXV0 aC52YS5nb3 aCGnBpbnQu c2VydmljZX MuZWF1dGgu dmEuZ292gh JwaW50LmFj Y2Vzcy52YS 5nb3aCEHNx YS5lYXV0aC 52YS5nb3aC FHNxYS5wa2 kuZWF1dGgu dmEuZ292gh lzcWEucmVn aXN0ZXIuZW F1dGgudmEu Z292ghlzcW Euc2Vydmlj ZXMuZWF1dG gudmEuZ292 ghFzcWEuYW NjZXNzLnZh LmdvdoIUcH JlcHJvZC5l YXV0aC52YS 5nb3aCGHBy ZXByb2QucG tpLmVhdXRo LnZhLmdvdo IdcHJlcHJv ZC5yZWdpc3 Rlci5lYXV0 aC52YS5nb3 aCHXByZXBy b2Quc2Vydm ljZXMuZWF1 dGgudmEuZ2 92gh1wcmVw cm9kLnNlcn ZpY2VzLmVh dXRoLnZhLm dvdoIVcHJl cHJvZC5hY2 Nlc3MudmEu Z292MB0GA1 UdDgQWBBRj U7FmF0WMY8 NprEeudQ5Z durmzjAfBg NVHSMEGDAW gBTeJbRYCv 2TJ9qNPR86 dkt3UtlbEz CBsQYDVR0f BIGpMIGmMI GjoIGgoIGd hjBodHRwOi 8vY3JsLnBr aS52YS5nb3 YvUEtJL0NS TC9JbnRlcm 5hbFN1YkNB MS5jcmyGaW xkYXA6Ly9s ZGFwLnBraS 52YS5nb3Yv Q049SW50ZX JuYWxTdWJD QTEsQ049Q0 RQLENOPVBL SSxDTj1TZX J2aWNlcyxE Qz1WQSxEQz 1HT1Y/Y2Vy dGlmaWNhdG VSZXZvY2F0 aW9uTGlzdD B0BggrBgEF BQcBAQRoMG YwPwYIKwYB BQUHMAKGM2 h0dHA6Ly9h aWEucGtpLn ZhLmdvdi9Q S0kvQUlBL1 ZBL0ludGVy bmFsU3ViQ0 ExLmNlcjAj BggrBgEFBQ cwAYYXaHR0 cDovL29jc3 AucGtpLnZh Lmdvdi8wDA YDVR0TAQH/ BAIwADALBg NVHQ8EBAMC BaAwPQYJKw YBBAGCNxUH BDAwLgYmKw YBBAGCNxUI gcjDM4H58A aBpZ8NhOCB CIXCqksGgd uQXIewgE0C AWQCAQgwJw YJKwYBBAGC NxUKBBowGD AKBggrBgEF BQcDATAKBg grBgEFBQcD AjANBgkqhk iG9w0BAQUF AAOCAQEADu gTtZgYKdYd mda/hMoFbo tGwPb4cfVP 8sWpR7LHd/ fqTJp/CxG1 WmZ3RqJNU2 e4DZOyfln/ xVz6nxvbrG 0EthfiSHuW rUY8nldtGc N4DvAi3ZrE kBBAFUi81+ Pgtz8yE5vj pH0E6TrbcZ M7O34ZcjhS V+XO+ZBtR+ NJfdeEg4Sp oot9toaOKW zEUTvZV7DK jG57KyMLWW bqygj29Omu HXNlyBnufK GRZf4gfne8 7oglqnKdwS f5G1OX/QfE T4MIE0o4PE HNucOOuFl9 D6xj/PeSfg Dqs65uRRmL lnN9Kt94xG CsbM9yyHPD BbWkxYmAKH 7WVTXdpIlQ 8hbM53gOsQ ==</X509Ce rtificate> | |
| 464 | ;; <X509Issu erSerial> | |
| 465 | ;; <X509Is suerName>C N=VA Inter nal Subord inate CA 1 , DC=va, D C=gov</X50 9IssuerNam e> | |
| 466 | ;; <X509Se rialNumber >171699821 71804267</ X509Serial Number> | |
| 467 | ;; </X509Iss uerSerial> | |
| 468 | ;; < /X509Data> | |
| 469 | ;; </K eyInfo> | |
| 470 | ;; </Sig nature> | |
| 471 | ;; <saml :Subject> | |
| 472 | ;; <sa ml:NameID Format="ur n:oasis:na mes:tc:SAM L:2.0:name id-format: persistent ">CN=Carl Boden,CN=U sers,DC=ia m,DC=va,DC =local</sa ml:NameID> | |
| 473 | ;; <sa ml:Subject Confirmati on Method= "urn:oasis :names:tc: SAML:2.0:c m:sender-v ouches"> | |
| 474 | ;; < saml:Subje ctConfirma tionData R ecipient=" http://SSO i/AppliesT o/SAML2"/> | |
| 475 | ;; </s aml:Subjec tConfirmat ion> | |
| 476 | ;; </sam l:Subject> | |
| 477 | ;; <saml :Condition s NotBefor e="2015-06 -25T11:55: 27Z" NotOn OrAfter="2 015-06-25T 12:15:27Z" > | |
| 478 | ;; <sa ml:Audienc eRestricti on> | |
| 479 | ;; <saml:Audi ence>https ://*. DNS /*</saml:A udience> | |
| 480 | ;; </s aml:Audien ceRestrict ion> | |
| 481 | ;; </sam l:Conditio ns> | |
| 482 | ;; <saml :AuthnStat ement Auth nInstant=" 2015-06-25 T12:00:27Z "> | |
| 483 | ;; <sa ml:AuthnCo ntext> | |
| 484 | ;; < saml:Authn ContextCla ssRef>2</s aml:AuthnC ontextClas sRef> | |
| 485 | ;; </s aml:AuthnC ontext> | |
| 486 | ;; </sam l:AuthnSta tement> | |
| 487 | ;; <saml :Attribute Statement> | |
| 488 | ;; <sa ml:Attribu te Name="u rn:va:vrm: iam:transa ctionid" N ameFormat= "urn:oasis :names:tc: SAML:2.0:a ttrname-fo rmat:unspe cified"> | |
| 489 | ;; < saml:Attri buteValue> 0000000000 0000000000 00008ed2e3 0a-0674-55 8c33ab-0f6 c-00b04505 </saml:Att ributeValu e> | |
| 490 | ;; </s aml:Attrib ute> | |
| 491 | ;; <sa ml:Attribu te Name="i ssueinstan t=" NameFo rmat="urn: oasis:name s:tc:SAML: 2.0:attrna me-format: unspecifie d"> | |
| 492 | ;; < saml:Attri buteValue> 2015-06-25 T12:00:27Z </saml:Att ributeValu e> | |
| 493 | ;; </s aml:Attrib ute> | |
| 494 | ;; <sa ml:Attribu te Name="a uthnsystem " NameForm at="urn:oa sis:names: tc:SAML:2. 0:attrname -format:un specified" > | |
| 495 | ;; < saml:Attri buteValue> SSOi</saml :Attribute Value> | |
| 496 | ;; </s aml:Attrib ute> | |
| 497 | ;; <sa ml:Attribu te Name="a uthenticat iontype" N ameFormat= "urn:oasis :names:tc: SAML:2.0:a ttrname-fo rmat:unspe cified"> | |
| 498 | ;; < saml:Attri buteValue> Indirect</ saml:Attri buteValue> | |
| 499 | ;; </s aml:Attrib ute> | |
| 500 | ;; <sa ml:Attribu te Name="p roofingaut hority" Na meFormat=" urn:oasis: names:tc:S AML:2.0:at trname-for mat:unspec ified"> | |
| 501 | ;; < saml:Attri buteValue> VA</saml:A ttributeVa lue> | |
| 502 | ;; </s aml:Attrib ute> | |
| 503 | ;; <sa ml:Attribu te Name="a ssurancele vel" NameF ormat="urn :oasis:nam es:tc:SAML :2.0:attrn ame-format :unspecifi ed"> | |
| 504 | ;; < saml:Attri buteValue> 2</saml:At tributeVal ue> | |
| 505 | ;; </s aml:Attrib ute> | |
| 506 | ;; <sa ml:Attribu te Name="u rn:va:vrm: iam:firstn ame" NameF ormat="urn :oasis:nam es:tc:SAML :2.0:attrn ame-format :unspecifi ed"> | |
| 507 | ;; < saml:Attri buteValue> Carl</saml :Attribute Value> | |
| 508 | ;; </s aml:Attrib ute> | |
| 509 | ;; <sa ml:Attribu te Name="u rn:va:vrm: iam:lastna me" NameFo rmat="urn: oasis:name s:tc:SAML: 2.0:attrna me-format: unspecifie d"> | |
| 510 | ;; < saml:Attri buteValue> Boden</sam l:Attribut eValue> | |
| 511 | ;; </s aml:Attrib ute> | |
| 512 | ;; <sa ml:Attribu te Name="u rn:va:vrm: iam:secid" NameForma t="urn:oas is:names:t c:SAML:2.0 :attrname- format:uns pecified"> | |
| 513 | ;; < saml:Attri buteValue> 123459876< /saml:Attr ibuteValue > | |
| 514 | ;; </s aml:Attrib ute> | |
| 515 | ;; <sa ml:Attribu te Name="u rn:va:ad:s amaccountn ame" NameF ormat="urn :oasis:nam es:tc:SAML :2.0:attrn ame-format :unspecifi ed"> | |
| 516 | ;; < saml:Attri buteValue> cboden</sa ml:Attribu teValue> | |
| 517 | ;; </s aml:Attrib ute> | |
| 518 | ;; <sa ml:Attribu te Name="u pn" NameFo rmat="urn: oasis:name s:tc:SAML: 2.0:attrna me-format: unspecifie d"> | |
| 519 | ;; < saml:Attri buteValue> cboden@iam .va.local< /saml:Attr ibuteValue > | |
| 520 | ;; </s aml:Attrib ute> | |
| 521 | ;; <sa ml:Attribu te Name="e mail" Name Format="ur n:oasis:na mes:tc:SAM L:2.0:attr name-forma t:unspecif ied"> | |
| 522 | ;; <saml:Attr ibuteValue > PII </saml:Att ributeValu e> | |
| 523 | ;; </s aml:Attrib ute> | |
| 524 | ;; <sa ml:Attribu te Name="u rn:oasis:n ames:tc:xs pa:1.0:sub ject:subje ct-id" Nam eFormat="u rn:oasis:n ames:tc:SA ML:2.0:att rname-form at:unspeci fied"> | |
| 525 | ;; < saml:Attri buteValue> Carl Boden </saml:Att ributeValu e> | |
| 526 | ;; </s aml:Attrib ute> | |
| 527 | ;; <sa ml:Attribu te Name="u rn:oasis:n ames:tc:xa cml:2.0:su bject:role " NameForm at="urn:oa sis:names: tc:SAML:2. 0:attrname -format:un specified" > | |
| 528 | ;; < saml:Attri buteValue> role1</sam l:Attribut eValue> | |
| 529 | ;; </s aml:Attrib ute> | |
| 530 | ;; <sa ml:Attribu te Name="u rn:oasis:n ames:tc:xs pa:1.0:sub ject:organ ization" N ameFormat= "urn:oasis :names:tc: SAML:2.0:a ttrname-fo rmat:unspe cified"> | |
| 531 | ;; < saml:Attri buteValue> Department of Vetera ns Affairs </saml:Att ributeValu e> | |
| 532 | ;; </s aml:Attrib ute> | |
| 533 | ;; <sa ml:Attribu te Name="u rn:oasis:n ames:tc:xs pa:1.0:sub ject:organ ization-id " NameForm at="urn:oa sis:names: tc:SAML:2. 0:attrname -format:un specified" > | |
| 534 | ;; < saml:Attri buteValue> urn:oid:2. 16.840.1.1 13883.4.34 9</saml:At tributeVal ue> | |
| 535 | ;; </s aml:Attrib ute> | |
| 536 | ;; <sa ml:Attribu te Name="u rn:nhin:na mes:saml:h omeCommuni tyId" Name Format="ur n:oasis:na mes:tc:SAM L:2.0:attr name-forma t:unspecif ied"> | |
| 537 | ;; < saml:Attri buteValue> urn:oid:2. 16.840.1.1 13883.4.34 9</saml:At tributeVal ue> | |
| 538 | ;; </s aml:Attrib ute> | |
| 539 | ;; <sa ml:Attribu te Name="u niqueUserI d" NameFor mat="urn:o asis:names :tc:SAML:2 .0:attrnam e-format:u nspecified "> | |
| 540 | ;; < saml:Attri buteValue> 123459876< /saml:Attr ibuteValue > | |
| 541 | ;; </s aml:Attrib ute> | |
| 542 | ;; </sam l:Attribut eStatement > | |
| 543 | ;;</saml: Assertion> | |
| 544 | ;;$$END$$ | |
| 545 | ]]> | |
| 546 | </Routine> | |
| 547 | </Export> |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.