XOBSCAV ;; kec/oak/TECHNATOMY/PB - VistaLink Access/Verify Security ; 12/09/2002 17:00
Source file <XOBSCAV.m>
| Package | Total | Call Graph |
|---|---|---|
| VistALink Security | 3 | ($$MSGTYP,ERRTYPE,SCHERROR)^XOBSCAV (DIVSLCT,LOGON,LOGOUT,SENDITXT)^XOBSCAV1 (SENDDEM,SENDNVC)^XOBSCAV2 |
| Kernel | 2 | APPERROR^%ZTER $$DECRYP^XUSRB1 |
| VistALink | 2 | ($$CHARCHK,$$ENVFTR,$$ENVHDR)^XOBVLIB (POST,PRE,WRITE)^XOBVSKT |
| RPC Broker | 1 | (CHKPRMIT,CRCONTXT)^XWBSEC |
| VA FileMan | 1 | $$EZBLD^DIALOG |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(XOBDATA) | ; -- handle parsed messages request
|
|
| SENDSEC(XOBR,XOBMSGTP,XOBRSTYP,XOBMSG,XOBSTAT,XOBSCHEM) | ; -- stream XML security reply back
|
|
| ERROR(XOBR,XOBFCODE,XOBFSTR,XOBCODE,XOBSTR) | ; -- send security error back to client
|
|
| POSTTXT(XOBRET,XOBMSG) | ; -- adds the post-sign-in-text to a message being prepared
|
|
| ADDDIVS(XOBRET,XOBMSG) | ; -- adds division list to a message being prepared
|
|
| LOGGEDON() | ; -- checks if the environment was previously properly set up, e.g.,
; logon succeeded in some previous call |
|
| CRCONTXT(XOBOPTNM) | ; -- create the context if it doesn't already exist
; INPUT VALUE: XOBOPTNM encoded with Kernel encoding algorithm ; RETURN VALUE: +result will be 1 if successful, or 0 if unsuccessful ; if unsuccessful, result may (or may not) also contain the textual reason for failure ; ; Accessing, Setting and Killing of XQY and XQY0: DBIA #4059 ; |
|
| CHKCTXT(XOBRPCNM) | ; -- does user have access to RPC?
|
|
| MSGTYP(XOBRQRS) | ; return request message type
|
|
| SUCCESS() | ; resulttype
|
|
| FAILURE() | ;
|
|
| PARTIAL() | ;
|
|
| RESTYPES | ;Result types
|
|
| REQTYPE | ;;gov.va.med.foundations.security.request
|
|
| RESTYPE | ;;gov.va.med.foundations.security.response
|
|
| ERRTYPE | ;;gov.va.med.foundations.security.fault
|
|
| MSGSETUP | ;;AV.SetupAndIntroText
|
|
| MSGLGON | ;;AV.Logon
|
|
| MSGLGON1 | ;;SAML.Logon
|
|
| MSGLGOUT | ;;AV.Logout
|
|
| MSGSELDV | ;;AV.SelectDivision
|
|
| MSGUPDVC | ;;AV.UpdateVC
|
|
| MSGUSERD | ;;AV.GetUserDemographics
|
|
| VRSNSEC | ;;1.0
|
|
| PARTTAG | ;;PartialSuccessData
|
|
| MSGTAG | ;;Message
|
|
| SCHERROR | ;;secFault.xsd
|
|
| SCHLGON | ;;secLogonResponse.xsd
|
|
| SCHPARTS | ;;secPartialSuccessResponse.xsd
|
|
| SCHSETUP | ;;secSetupIntroResponse.xsd
|
|
| SCHSIMPL | ;;secSimpleResponse.xsd
|
|
| SCHUSERD | ;;secUserDemographicsResponse.xsd
|
|
| FSERVER | ;;Server
|
|
| FCLIENT | ;;Client
|
|
| FVERSION | ;;VersionMismatch
|
|
| FUNDERST | ;;MustUnderstand
|
| Name | Field # of Occurrence |
|---|---|
| APPERROR^%ZTER | ERROR+34 |
| $$EZBLD^DIALOG | EN+5, EN+19 |
| $$MSGTYP^XOBSCAV | EN+2, EN+4 |
| ERRTYPE^XOBSCAV | ERROR+12 |
| SCHERROR^XOBSCAV | ERROR+12 |
| DIVSLCT^XOBSCAV1 | EN+13 |
| LOGON^XOBSCAV1 | EN+9, EN+11 |
| LOGOUT^XOBSCAV1 | EN+12 |
| SENDITXT^XOBSCAV1 | EN+8 |
| SENDDEM^XOBSCAV2 | EN+15 |
| SENDNVC^XOBSCAV2 | EN+14 |
| $$CHARCHK^XOBVLIB | EN+5, EN+19, POSTTXT+8, ADDDIVS+8 |
| $$ENVFTR^XOBVLIB | SENDSEC+22, ERROR+25 |
| $$ENVHDR^XOBVLIB | SENDSEC+13, ERROR+12 |
| POST^XOBVSKT | SENDSEC+24, ERROR+27 |
| PRE^XOBVSKT | SENDSEC+11, ERROR+10 |
| WRITE^XOBVSKT | SENDSEC+13, SENDSEC+15, SENDSEC+17, SENDSEC+19, SENDSEC+21, SENDSEC+22, ERROR+12, ERROR+14, ERROR+16, ERROR+17 , ERROR+18, ERROR+19, ERROR+20, ERROR+21, ERROR+22, ERROR+23, ERROR+24, ERROR+25 |
| $$DECRYP^XUSRB1 | CRCONTXT+9 |
| CHKPRMIT^XWBSEC | CHKCTXT+2 |
| CRCONTXT^XWBSEC | CRCONTXT+15 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^VA(200 - [#200] | ADDDIVS+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DUZ | ADDDIVS+4, LOGGEDON+2 |
| U | ADDDIVS+8, ADDDIVS+9 |
| XOBCNT | POSTTXT+1~, POSTTXT+2*, ADDDIVS+1~, ADDDIVS+2* |
| XOBCODE | ERROR~, ERROR+20, ERROR+29 |
| XOBDATA | EN~ |
| XOBDATA("SECURITYTYPE" | EN+4 |
| XOBDATA("XOB | SECAV" , EN+2, EN+8, EN+9, EN+11, EN+12, EN+13, EN+14, EN+15, EN+18 , SENDSEC+26!, ERROR+30*, ERROR+31*, ERROR+32*, ERROR+33*, ERROR+35! |
| XOBDEF | ADDDIVS+1~, ADDDIVS+4*, ADDDIVS+9 |
| >> XOBDIVS( | ADDDIVS+7, ADDDIVS+8, ADDDIVS+9 |
| XOBFCODE | ERROR~, ERROR+17 |
| XOBFILL | SENDSEC+9~, ERROR+8~ |
| XOBFSTR | ERROR~, ERROR+18 |
| XOBI | SENDSEC+19~*, POSTTXT+1~, POSTTXT+7*, POSTTXT+8, ADDDIVS+1~, ADDDIVS+7*, ADDDIVS+8, ADDDIVS+9 |
| XOBLINE | POSTTXT+1~, POSTTXT+2*, POSTTXT+3*, POSTTXT+8*, POSTTXT+9*, POSTTXT+10, ADDDIVS+1~, ADDDIVS+2*, ADDDIVS+5*, ADDDIVS+6* , ADDDIVS+8*, ADDDIVS+9, ADDDIVS+10, ADDDIVS+11*, ADDDIVS+12*, ADDDIVS+14 |
| XOBMSG | SENDSEC~, POSTTXT~, ADDDIVS~ |
| XOBMSG( | SENDSEC+19, POSTTXT+2, POSTTXT+3*, POSTTXT+8*, POSTTXT+9*, ADDDIVS+2, ADDDIVS+5*, ADDDIVS+6*, ADDDIVS+8*, ADDDIVS+9* , ADDDIVS+10*, ADDDIVS+11*, ADDDIVS+12* |
| XOBMSGTP | SENDSEC~, SENDSEC+13 |
| XOBOPTN1 | CRCONTXT+7~, CRCONTXT+9*, CRCONTXT+11, CRCONTXT+13 |
| XOBOPTNM | CRCONTXT~, CRCONTXT+9, CRCONTXT+15 |
| XOBR | EN+5, EN+19, SENDSEC~, ERROR~ |
| XOBRET | POSTTXT~, ADDDIVS~ |
| XOBRET( | POSTTXT+7, POSTTXT+8 |
| XOBRET(5 | POSTTXT+6 |
| XOBRPCNM | CHKCTXT~, CHKCTXT+2 |
| XOBRQRS | MSGTYP~, MSGTYP+1, MSGTYP+2, MSGTYP+3 |
| XOBRSLT | CRCONTXT+7~, CRCONTXT+15, CRCONTXT+17 |
| XOBRSTYP | SENDSEC~, SENDSEC+17 |
| XOBSCHEM | SENDSEC~, SENDSEC+13 |
| XOBSPAR | EN+4~, EN+5, EN+18~, EN+19 |
| XOBSPAR(1 | EN+4*, EN+18* |
| XOBSPAR(2 | EN+4* |
| XOBSTAT | SENDSEC~, SENDSEC+17 |
| XOBSTR | ERROR~, ERROR+21 |
| XQY | CRCONTXT+13! |
| XQY0 | CRCONTXT+11, CRCONTXT+13! |
| XWBSEC | CHKCTXT+1~, CHKCTXT+3, CHKCTXT+4 |
| Name | Field # of Occurrence |
|---|---|
| $T(ERRTYPE | MSGTYP+3 |
| $T(ERRTYPE^XOBSCAV | ERROR+12 |
| $T(FCLIENT | EN+5, EN+19 |
| $T(MSGLGON | EN+9 |
| $T(MSGLGON1 | EN+11 |
| $T(MSGLGOUT | EN+12 |
| $T(MSGSELDV | EN+13 |
| $T(MSGSETUP | EN+8 |
| $T(MSGUPDVC | EN+14 |
| $T(MSGUSERD | EN+15 |
| $T(PARTTAG | ADDDIVS+5, ADDDIVS+12 |
| $T(REQTYPE | MSGTYP+1 |
| $T(RESTYPE | MSGTYP+2 |
| $T(RESTYPES+1 | SUCCESS+1 |
| $T(RESTYPES+2 | FAILURE+1 |
| $T(RESTYPES+3 | PARTIAL+1 |
| $T(SCHERROR^XOBSCAV | ERROR+12 |
| $T(VRSNSEC | SENDSEC+15, ERROR+14 |
