VA FOIA CACHE OBJECTS USAGE and CODE As of 06-2012

VA FOIA CACHE OBJECTS USAGE AND CODE as of 06-2012

>D ^%RFIND

Find routine lines that contain at least one of a set of strings

1. Search For: ##class(

2. Search For:

Exact Upper/Lowercase Match? Yes => Yes

Show all searched routines? Yes => no

Routine(s): *

Routine(s):

Display results on

Device:

Right margin: 80 =>

AXVRTN.INT

AXVRTN+4 ;##class(visn.vApps)

AXVRTN+8 ;##class(visn.vRoutine)

ORRDI1.INT

PARSE+5 ;S STATUS=##class(%XML.TextReader).ParseStream(STREAM,.READER)

PARSE+6 S STATUS=##class(%XML.TextReader).ParseStream(STREAM,.READER,,,,,1)

PSSFDBRT.INT

GETREADR+5 S AREADER=##class(%XML.TextReader).%New("%XML.TextReader")

GETREADR+6 D ##class(%XML.TextReader).ParseStream(RESTOBJ.HttpResponse.Data,.AR

EADER)

PSSHTTP.INT

PEPSPOST+34 . SET PSS("result")=##class(gov.va.med.pre.ws.XMLHandler).getHandleT

oXmlDoc(PSS("restObject").HttpResponse.Data, .DOCHAND)

XOBWD.INT

GENPORT+4 IF ##class(%File).Exists(XOBWSDL) DO

ADDPROXY+8 SET XOBINFO=##class(xobw.WsdlHandler).getInfoFromFile(XOBWSDL)

ADDPROXY+14 SET XOBREADR=##class(%SOAP.WSDL.Reader).%New()

REGISTER+13 . SET XOBCDEF=##class(%Dictionary.ClassDefinition).%OpenId(XOBCLASS)

WSDL+4 SET XOBSTRM=##class(%FileCharacterStream).%New()

XOBWENV.INT

KIDSCHK+4 IF '##class(%File).DirectoryExists(XOBDIR) DO QUIT 0

KIDSCHK+7 IF '##class(%File).Exists(XOBPATH) DO QUIT 0

XOBWLIB.INT

GETFAC+3 QUIT ##class(xobw.WebServiceProxyFactory).%New(XOBWSN)

GETPROXY+4 QUIT ##class(xobw.WebServiceProxyFactory).getWebServiceProxy(XOBWSN,

XOBSRVR)

GETRESTF+3 QUIT ##class(xobw.RestRequestFactory).%New(XOBWSN)

GETREST+4 QUIT ##class(xobw.RestRequestFactory).getRestRequest(XOBWSN,XOBSRVR)

EOSTAT+3 QUIT ##class(xobw.error.ObjectError).%New(XOBSO)

EOHTTP+3 QUIT ##class(xobw.error.HttpError).%New(XOBHRO)

XOBWLIB1.INT

ATTACHDR+2 SET INFOARR=##class(%Library.ArrayOfDataTypes).%New()

ATTACHDR+10 DO ##class(xobw.VistaInfoHeader).attachHeader(XOBPROXY,INFOARR)

EOFAC+6 . SET XOBERR=##class(xobw.error.SoapError).%New(XOBPROXY.SoapFault)

EOFAC+12 . SET XOBERR=##class(xobw.error.ObjectError).%New(.%objlasterror)

EOFAC+22 . SET XOBERR=##class(xobw.error.DialogError).%New(XOBCODE,$$EZBLD^DI

ALOG(XOBCODE,.XOBPARMS))

EOFAC+26 SET XOBERR=##class(xobw.error.BasicError).%New($ECODE,$$EC^%ZOSV())

IMPORT+10 IF ##class(%File).Exists(XOBPATH) DO

XOBWSSL.INT

CHKNAME+4 SET RS=##class(%ResultSet).%New("%Net.SSL.Configuration:ListNames")

DISPLAY+5 SET RS=##class(%ResultSet).%New("%Net.SSL.Configuration:ListNames")

GETCFG+3 SET RS=##class(%ResultSet).%New("%Net.SSL.Configuration:Extent")

GETCFG+7 . SET CFG=##class(%Net.SSL.Configuration).%OpenId(RS.Data("ID"))

XOBWU1.INT

BUILD+3 SET XOBSRVR=##class(xobw.WebServer).%OpenId(XOBDA)

XOBWUS1.INT

CLSVAL+10 SET XOBWCDEF=##class(%Dictionary.ClassDefinition).%OpenId(XOBCLASS)

xobw.RestRequest.1.INT

zGet+1 quit ##class(%Net.HttpRequest)%this.Get($zobjval(,/*restServiceConte

xt*/29,0,3,29)_resource, .test)

zHead+1 quit ##class(%Net.HttpRequest)%this.Head($zobjval(,/*restServiceCont

ext*/29,0,3,29)_resource, .test)

zPost+1 quit ##class(%Net.HttpRequest)%this.Post($zobjval(,/*restServiceCont

ext*/29,0,3,29)_resource, .test)

zPut+1 quit ##class(%Net.HttpRequest)%this.Put($zobjval(,/*restServiceConte

xt*/29,0,3,29)_resource, .test)

zRead+5 Set data=##class(%Stream.GlobalBinary).%New()

zRead+105 Set datastream=##class(%Stream.GlobalBinary).%New()

zSend+110 Set ..HttpResponse=##class(%Net.HttpResponse).%New()

zEntityBodyDelete+2 Quit $select(streamvalue="":$$Error^%apiOBJ(5813),1:##class(

"%Library.GlobalBinaryStream").%Delete($select(streamvalue="":"",1:$

listbuild($listget(streamvalue),$listget(streamvalue,2),""))))

zEntityBodyGetSwizzled+2 Set oref=##class("%Library.GlobalBinaryStream").%Open($

select($zobjval(,/*EntityBody*/3,0,3,3)="":"",1:$listbuild($listget(

$zobjval(,/*EntityBody*/3,0,3,3)),$listget($zobjval(,/*EntityBody*/3

,0,3,3),2),""))) If oref="" Quit ""

zEntityBodyOpen+2 Set object=##class("%Library.GlobalBinaryStream").%New("")

zEntityBodyOpen+4 Set object=##class("%Library.GlobalBinaryStream").%Open($sele

ct(streamvalue="":"",1:$listbuild($listget(streamvalue),$listget(str

eamvalue,2),"")))

zHttpResponseNewObject+1 Set newobject=##class(%Net.HttpResponse).%New("") If ne

wobject="" Quit ""

xobw.RestRequestFactory.1.INT

%OnNew+1 set webServiceId=##class(xobw.WebServiceMetadata).getWebServiceId(we

bServiceName)

%OnNew+3 do ##class(xobw.error.DialogError).forceError(186006_"^"_webServ

iceName)

%OnNew+5 set ..webServiceMetadata=##class(xobw.WebServiceMetadata).%OpenId(we

bServiceId)

zcreateRestRequest+2 do ##class(xobw.error.DialogError).forceError(186007)

zcreateRestRequest+4 set restRequest=##class(xobw.RestRequest).%New()

zcreateRestRequest+7 set webServerId=##class(xobw.WebServer).getWebServerId(we

bServerName)

zcreateRestRequest+9 do ##class(xobw.error.DialogError).forceError(186005_"

^"_webServerName)

zcreateRestRequest+11 set webServer=##class(xobw.WebServer).%OpenId(webServerI

d)

zcreateRestRequest+14 do ##class(xobw.error.DialogError).forceError(186002_"^

"_webServer.name)

zgetRestRequest+1 set factory=##class(xobw.RestRequestFactory).%New(webServiceNa

me)

zsetUpCredentials+1 set authorizedWebServiceId=##class(xobw.WebServicesAuthorize

d).getAuthorizedWebServiceId(webServer,..webServiceMetadata)

zsetUpCredentials+4 do ##class(xobw.error.DialogError).forceError(186003_"^"_..

webServiceMetadata.name_"^"_webServer.name)

zsetUpCredentials+6 set authorizedWebService=##class(xobw.WebServicesAuthorized)

.%OpenId(authorizedWebServiceId)

zsetUpCredentials+9 do ##class(xobw.error.DialogError).forceError(186004_"^"_..

webServiceMetadata.name_"^"_webServer.name)

zwebServiceMetadataGetSwizzled+2 Set oref=##class(xobw.WebServiceMetadata).%Open

($select($zobjval(,/*webServiceMetadata*/1,0,3,1)="":"",1:$listbuild

($zobjval(,/*webServiceMetadata*/1,0,3,1)_""))) If oref="" Quit ""

zwebServiceMetadataNewObject+1 Set newobject=##class(xobw.WebServiceMetadata).%N

ew("") If newobject="" Quit ""

xobw.VistaInfoHeader.1.INT

zWriteHeader+6 If '$isobject($get(namespaces)) Set namespaces=##class(%XML.Names

paces).%New()

zXMLDTD+1 Quit ##class(%XML.Implementation).XMLDTD("xobw.VistaInfoHeader",.top

,.format,.input,.dtdlist)

zXMLExportToStream+3 Set export=##class(%Library.FileCharacterStream).%New()

zXMLExportToStream+12 Set stream=##class(%Library.FileCharacterStream).%New()

zXMLGetSchemaImports+1 Quit ##class(%XML.Implementation).XMLGetSchemaImports("xo

bw.VistaInfoHeader",.imports,.classes)

XMLLOOP+39 Set data="" If '##class(%XML.ImportHandler).Seri

alizeNode(tree,ref,0,0,.data) Goto XMLImportErr

zXMLNew+1 Quit (##class(xobw.VistaInfoHeader).%New())

zXMLSchema+1 Quit ##class(%XML.Implementation).XMLSchema("xobw.VistaInfoHeader",

top,format,namespacePrefix,input,refOnly,.schema)

zattachHeader+1 set hdr=##class(xobw.VistaInfoHeader).%New()

zFaultNewObject+1 Set newobject=##class(%SOAP.Fault).%New("") If newobject="" Qu

it ""

zvistaInfoBuildValueArray+1 Quit ##class(%Collection.ArrayOfDT).BuildValueArray(

value,.array)

zvistaInfoGetSwizzled+1 Set oref=##class(%Collection.ArrayOfDT).%New() If oref="

" Quit ""

xobw.WebServer.1.INT

%1Check+1 Set exists=##class(xobw.WebServer).%ExistsId(id) Quit:'exists $selec

t('lockonly:$$Error^%apiOBJ(5797,"xobw.WebServer"_","_"",id),1:1) Se

t status=##class(xobw.WebServer).%LockId(id,1) Quit:('status) status

If 'lockonly { Set exists=##class(xobw.WebServer).%ExistsId(id) Do

##class(xobw.WebServer).%UnlockId(id,1,0) Quit $select('exists:$$Err

or^%apiOBJ(5797,"xobw.WebServer"_","_"",id),1:1) } Else { Do ##class

(xobw.WebServer).%UnlockId(id,1,0) Quit 1 } }

%ComposeOid+1 Quit $Select(##class(xobw.WebServer).%ExistsId(id):$select(id="":"

",1:$listbuild(id_"","xobw.WebServer")),1:"")

%Delete+8 Set sc=##class("xobw.WebServicesAuthorized").webServerRefRExec(.qh,i

d) Goto:('sc) %DeleteEnd

%Delete+9 For Set sc=##class("xobw.WebServicesAuthorized").webServerRefRFetch

(.qh,0,.robjs,.fc,.end) Do Quit:('sc)||(end)

%Delete+10 . For ptr=1:1:fc Set sc=##class("xobw.WebServicesAuthorized").%Delet

e($select($list(robjs,ptr)="":"",1:$listbuild($list(robjs,ptr)_"")),

concurrency) Quit:('sc)

%Delete+11 Do ##class("xobw.WebServicesAuthorized").webServerRefRClose(.qh)

%Delete+16 Set sc=##class(xobw.WebServer).%DeleteData(id,concurrency)

%DeleteExtent+4 Set sc=##class(xobw.WebServer).ExtentExecute(.qh) Quit:('sc) sc

%DeleteExtent+5 For Set sc=##class(xobw.WebServer).ExtentFetch(.qh,.row,.atend)

Quit:$select(row="":1,('sc):1,1:0) Set id=$listget(row) If id'=""

Set sc=##class(xobw.WebServer).%Delete($listbuild(id),concurrency) S

et instancecount=instancecount+1 Set:(+sc) deletecount=deletecount+1

Quit:atend

%DeleteExtent+6 Do ##class(xobw.WebServer).ExtentClose(qh)

%DeleteExtent+7 If instancecount = deletecount { do ##class(xobw.WebServer).%Kil

lExtent() set sc = 1 } else { set sc = $$Error^%apiOBJ(5764,"xobw.We

bServer") }

%DeleteId+1 Quit ##class(xobw.WebServer).%Delete($select(id="":"",1:$listbuild(i

d_"")),.concurrency) }

%Exists+1 Quit $isobject(##class(xobw.WebServer).%Open(oid,0)) }

%ExistsId+1 Quit ##class(xobw.WebServer).%Exists($listbuild(id)) }

%KillExtent+1 if ($s($d(^oddCOM("xobw.WebServicesAuthorized","m","%KillExtent",4

4))#2:^(44),$d(^oddCOM($g(^(2),"xobw.WebServicesAuthorized"),"m","%K

illExtent",44))#2:^(44),1:$s($d(^oddDEF($g(^oddCOM("xobw.WebServices

Authorized","m","%KillExtent",2),"xobw.WebServicesAuthorized"),"m","

%KillExtent",44))#2:^(44),1:$g(^%qCacheObjectKey(1,"m",44))))) & ($

Data(^rOBJ($zutil(135,23,"xobw.WebServicesAuthorized")_"."_(+0)))) {

set sc=##class(xobw.WebServicesAuthorized).%KillExtent() }

%KillExtent+3 set sc=##class(xobw.WebServer).%PurgeIndices()

%KillExtent+4 If (+sc) { Set sc=##class(xobw.WebServer).%KillExtentData() }

%GetLock+1 Kill:'$TLEVEL %0CacheLock If $increment(%0CacheLock("xobw.WebServer"

))>$zutil(115,6) { If (+##class(xobw.WebServer).%LockExtent(shared))

{ Quit 2 } Else { Quit 0 } } Quit:(+##class(xobw.WebServer).%LockId

(id,shared)) 1 Quit 0 }

%OpenId+1 Quit ##class(xobw.WebServer).%Open($select(id="":"",1:$listbuild(id_

"")),.concurrency,.sc) }

zcheckWebServicesAvailability+3 set result=##class(%Library.ListOfDataTypes).%Ne

w()

zcheckWebServicesAvailability+18 set webService=##class(xobw.WebServiceMetadat

a).%OpenId(authorizedWebService.webServiceIen)

zcheckWebServicesAvailability+21 if ##class(xobw.WebServiceMetadata).checkRe

sourceAvailability(%this,authorizedWebService,webService,.httpStatus

Code) {

zgetWebServerId+2 do ##class(xobw.error.DialogError).forceError(186005_"^<em

pty string>")

zsetUpHttpRequest+2 do ##class(xobw.error.DialogError).forceError(186002_"^"_$z

objval(,/*name*/7,0,3,7)_" (SSL is disabled on VMS)")

zauthorizedWebServicesGetSwizzl+4 Set oref=##class("%Library.RelationshipObject

").%Open(oid) If oref="" Quit ""

zauthorizedWebServicesGetSwizzl+5 } Else { Set oref=##class("%Library.Relationsh

ipObject").%New($listbuild("xobw.WebServicesAuthorized","webServerRe

f",+%this,"children",1,1)) If oref="" Quit "" }

zauthorizedWebServicesNewObject+1 Set newobject=##class("%Library.RelationshipOb

ject").%New($listbuild("xobw.WebServicesAuthorized","webServerRef",+

%this,"children",1,1)) If newobject="" Quit ""

SPInnerLoop Set rc=##class(xobw.WebServer).ExtentFetch(.qHandle,.row,.atend)

zienIndexCheck+1 s id=K1,exists=##class(xobw.WebServer).%ExistsId(id) q:'exists

$s('lockonly:$$Error^%apiOBJ(5797,"xobw.WebServer","ienIndex",id),1:

1) s status=##class(xobw.WebServer).%LockId(id,1) q:('status) status

if 'lockonly { s exists=##class(xobw.WebServer).%ExistsId(id) d ##c

lass(xobw.WebServer).%UnlockId(id,1,0) quit $s('exists:$$Error^%apiO

BJ(5797,"xobw.WebServer","ienIndex",id),1:1) } else { d ##class(xobw

.WebServer).%UnlockId(id,1,0) q 1 } }

zienIndexDelete+1 Quit ##class(xobw.WebServer).%DeleteId(.K1,concurrency) }

zienIndexExists+1 s id=K1 q ##class(xobw.WebServer).%ExistsId(K1)

zienIndexOpen+1 Quit ##class(xobw.WebServer).%OpenId(.K1,concurrency,.sc) }

xobw.WebServiceMetadata.1.INT

%1Check+1 Set exists=##class(xobw.WebServiceMetadata).%ExistsId(id) Quit:'exis

ts $select('lockonly:$$Error^%apiOBJ(5797,"xobw.WebServiceMetadata"_

","_"",id),1:1) Set status=##class(xobw.WebServiceMetadata).%LockId(

id,1) Quit:('status) status If 'lockonly { Set exists=##class(xobw.W

ebServiceMetadata).%ExistsId(id) Do ##class(xobw.WebServiceMetadata)

.%UnlockId(id,1,0) Quit $select('exists:$$Error^%apiOBJ(5797,"xobw.W

ebServiceMetadata"_","_"",id),1:1) } Else { Do ##class(xobw.WebServi

ceMetadata).%UnlockId(id,1,0) Quit 1 } }

%ComposeOid+1 Quit $Select(##class(xobw.WebServiceMetadata).%ExistsId(id):$selec

t(id="":"",1:$listbuild(id_"","xobw.WebServiceMetadata")),1:"")

%Delete+11 Set sc=##class(xobw.WebServiceMetadata).%DeleteData(id,concurrency)

%DeleteExtent+4 Set sc=##class(xobw.WebServiceMetadata).ExtentExecute(.qh) Quit:

('sc) sc

%DeleteExtent+5 For Set sc=##class(xobw.WebServiceMetadata).ExtentFetch(.qh,.ro

w,.atend) Quit:$select(row="":1,('sc):1,1:0) Set id=$listget(row) I

f id'="" Set sc=##class(xobw.WebServiceMetadata).%Delete($listbuild(

id),concurrency) Set instancecount=instancecount+1 Set:(+sc) deletec

ount=deletecount+1 Quit:atend

%DeleteExtent+6 Do ##class(xobw.WebServiceMetadata).ExtentClose(qh)

%DeleteExtent+7 If instancecount = deletecount { do ##class(xobw.WebServiceMetad

ata).%KillExtent() set sc = 1 } else { set sc = $$Error^%apiOBJ(5764

,"xobw.WebServiceMetadata") }

%DeleteId+1 Quit ##class(xobw.WebServiceMetadata).%Delete($select(id="":"",1:$li

stbuild(id_"")),.concurrency) }

%Exists+1 Quit $isobject(##class(xobw.WebServiceMetadata).%Open(oid,0)) }

%ExistsId+1 Quit ##class(xobw.WebServiceMetadata).%Exists($listbuild(id)) }

%KillExtent+2 set sc=##class(xobw.WebServiceMetadata).%PurgeIndices()

%KillExtent+3 If (+sc) { Set sc=##class(xobw.WebServiceMetadata).%KillExtentData

() }

%GetLock+1 Kill:'$TLEVEL %0CacheLock If $increment(%0CacheLock("xobw.WebService

Metadata"))>$zutil(115,6) { If (+##class(xobw.WebServiceMetadata).%L

ockExtent(shared)) { Quit 2 } Else { Quit 0 } } Quit:(+##class(xobw.

WebServiceMetadata).%LockId(id,shared)) 1 Quit 0 }

%OpenId+1 Quit ##class(xobw.WebServiceMetadata).%Open($select(id="":"",1:$list

build(id_"")),.concurrency,.sc) }

zXMLDTD+1 Quit ##class(%XML.Implementation).XMLDTD("xobw.WebServiceMetadata",.

top,.format,.input,.dtdlist)

zXMLExportToStream+3 Set export=##class(%Library.FileCharacterStream).%New()

zXMLExportToStream+12 Set stream=##class(%Library.FileCharacterStream).%New()

zXMLGetSchemaImports+1 Quit ##class(%XML.Implementation).XMLGetSchemaImports("xo

bw.WebServiceMetadata",.imports,.classes)

XMLLOOP+14 Set data="" If '##class(%XML.ImportHandler).SerializeN

ode(tree,ref,0,0,.data) Goto XMLImportErr

XMLLOOP+32 Set data="" If '##class(%XML.ImportHandler).SerializeN

ode(tree,ref,0,0,.data) Goto XMLImportErr

XMLLOOP+50 Set data="" If '##class(%XML.ImportHandler).SerializeN

ode(tree,ref,0,0,.data) Goto XMLImportErr

XMLLOOP+68 Set data="" If '##class(%XML.ImportHandler).SerializeN

ode(tree,ref,0,0,.data) Goto XMLImportErr

XMLLOOP+85 Set data="" If '##class(%XML.ImportHandler).SerializeN

ode(tree,ref,0,0,.data) Goto XMLImportErr

XMLLOOP+102 Set data="" If '##class(%XML.ImportHandler).SerializeN

ode(tree,ref,0,0,.data) Goto XMLImportErr

zXMLNew+1 Quit (##class(xobw.WebServiceMetadata).%New())

zXMLSchema+1 Quit ##class(%XML.Implementation).XMLSchema("xobw.WebServiceMetadat

a",top,format,namespacePrefix,input,refOnly,.schema)

zcheckResourceAvailability+1 set httpRequest=##class(%Net.HttpRequest).%New()

zgetWebServiceId+2 do ##class(xobw.error.DialogError).forceError(186006_"^<e

mpty string>")

SPInnerLoop Set rc=##class(xobw.WebServiceMetadata).ExtentFetch(.qHandle,.row,.a

tend)

zienIndexCheck+1 s id=K1,exists=##class(xobw.WebServiceMetadata).%ExistsId(id) q

:'exists $s('lockonly:$$Error^%apiOBJ(5797,"xobw.WebServiceMetadata"

,"ienIndex",id),1:1) s status=##class(xobw.WebServiceMetadata).%Lock

Id(id,1) q:('status) status if 'lockonly { s exists=##class(xobw.Web

ServiceMetadata).%ExistsId(id) d ##class(xobw.WebServiceMetadata).%U

nlockId(id,1,0) quit $s('exists:$$Error^%apiOBJ(5797,"xobw.WebServic

eMetadata","ienIndex",id),1:1) } else { d ##class(xobw.WebServiceMet

adata).%UnlockId(id,1,0) q 1 } }

zienIndexDelete+1 Quit ##class(xobw.WebServiceMetadata).%DeleteId(.K1,concurrenc

y) }

zienIndexExists+1 s id=K1 q ##class(xobw.WebServiceMetadata).%ExistsId(K1)

zienIndexOpen+1 Quit ##class(xobw.WebServiceMetadata).%OpenId(.K1,concurrency,.s

c) }

xobw.WebServiceProxyFactory.1.INT

%OnNew+1 set webServiceId=##class(xobw.WebServiceMetadata).getWebServiceId(we

bServiceName)

%OnNew+3 do ##class(xobw.error.DialogError).forceError(186006_"^"_webServ

iceName)

%OnNew+5 set ..webServiceMetadata=##class(xobw.WebServiceMetadata).%OpenId(we

bServiceId)

zgetProxy+4 do ##class(xobw.error.DialogError).forceError(186007)

zgetProxy+6 xecute "set %proxy=##class("_..webServiceMetadata.proxyClassName_")

.%New()"

zgetProxy+8 set webServerId=##class(xobw.WebServer).getWebServerId(webServerNa

me)

zgetProxy+10 do ##class(xobw.error.DialogError).forceError(186005_"^"_webSe

rverName)

zgetProxy+12 set webServer=##class(xobw.WebServer).%OpenId(webServerId)

zgetProxy+15 do ##class(xobw.error.DialogError).forceError(186002_"^"_webServ

er.name)

zgetWebServiceProxy+1 set factory=##class(xobw.WebServiceProxyFactory).%New(webS

erviceName)

zsetUpCredentials+1 set authorizedWebServiceId=##class(xobw.WebServicesAuthorize

d).getAuthorizedWebServiceId(webServer,..webServiceMetadata)

zsetUpCredentials+4 do ##class(xobw.error.DialogError).forceError(186003_"^"_..

webServiceMetadata.name_"^"_webServer.name)

zsetUpCredentials+6 set authorizedWebService=##class(xobw.WebServicesAuthorized)

.%OpenId(authorizedWebServiceId)

zsetUpCredentials+9 do ##class(xobw.error.DialogError).forceError(186004_"^"_..

webServiceMetadata.name_"^"_webServer.name)

zsetUpLocation+2 do ##class(xobw.error.DialogError).forceError(186002_"^"_webSe

rver.name_" (SSL is disabled on VMS)")

zwebServiceMetadataGetSwizzled+2 Set oref=##class(xobw.WebServiceMetadata).%Open

($select($zobjval(,/*webServiceMetadata*/1,0,3,1)="":"",1:$listbuild

($zobjval(,/*webServiceMetadata*/1,0,3,1)_""))) If oref="" Quit ""

zwebServiceMetadataNewObject+1 Set newobject=##class(xobw.WebServiceMetadata).%N

ew("") If newobject="" Quit ""

xobw.WebServicesAuthorized.1.INT

%1Check+1 Set exists=##class(xobw.WebServicesAuthorized).%ExistsId(id) Quit:'e

xists $select('lockonly:$$Error^%apiOBJ(5797,"xobw.WebServicesAuthor

ized"_","_"",id),1:1) Set status=##class(xobw.WebServicesAuthorized)

.%LockId(id,1) Quit:('status) status If 'lockonly { Set exists=##cla

ss(xobw.WebServicesAuthorized).%ExistsId(id) Do ##class(xobw.WebServ

icesAuthorized).%UnlockId(id,1,0) Quit $select('exists:$$Error^%apiO

BJ(5797,"xobw.WebServicesAuthorized"_","_"",id),1:1) } Else { Do ##c

lass(xobw.WebServicesAuthorized).%UnlockId(id,1,0) Quit 1 } }

%ComposeOid+1 Quit $Select(##class(xobw.WebServicesAuthorized).%ExistsId(id):$se

lect(id="":"",1:$listbuild(id_"","xobw.WebServicesAuthorized")),1:""

)

%Delete+11 Set sc=##class(xobw.WebServicesAuthorized).%DeleteData(id,concurrenc

y)

%DeleteExtent+4 Set sc=##class(xobw.WebServicesAuthorized).ExtentExecute(.qh) Qu

it:('sc) sc

%DeleteExtent+5 For Set sc=##class(xobw.WebServicesAuthorized).ExtentFetch(.qh,

.row,.atend) Quit:$select(row="":1,('sc):1,1:0) Set id=$listget(row

) If id'="" Set sc=##class(xobw.WebServicesAuthorized).%Delete($list

build(id),concurrency) Set instancecount=instancecount+1 Set:(+sc) d

eletecount=deletecount+1 Quit:atend

%DeleteExtent+6 Do ##class(xobw.WebServicesAuthorized).ExtentClose(qh)

%DeleteExtent+7 If instancecount = deletecount { do ##class(xobw.WebServicesAuth

orized).%KillExtent() set sc = 1 } else { set sc = $$Error^%apiOBJ(5

764,"xobw.WebServicesAuthorized") }

%DeleteId+1 Quit ##class(xobw.WebServicesAuthorized).%Delete($select(id="":"",1:

$listbuild(id_"")),.concurrency) }

%Exists+1 Quit $isobject(##class(xobw.WebServicesAuthorized).%Open(oid,0)) }

%ExistsId+1 Quit ##class(xobw.WebServicesAuthorized).%Exists($listbuild(id)) }

%KillExtent+2 set sc=##class(xobw.WebServicesAuthorized).%PurgeIndices()

%KillExtent+3 If (+sc) { Set sc=##class(xobw.WebServicesAuthorized).%KillExtentD

ata() }

%GetLock+1 Kill:'$TLEVEL %0CacheLock If $increment(%0CacheLock("xobw.WebService

sAuthorized"))>$zutil(115,6) { If (+##class(xobw.WebServicesAuthoriz

ed).%LockExtent(shared)) { Quit 2 } Else { Quit 0 } } Quit:(+##class

(xobw.WebServicesAuthorized).%LockId(id,shared)) 1 Quit 0 }

%OpenId+1 Quit ##class(xobw.WebServicesAuthorized).%Open($select(id="":"",1:$l

istbuild(id_"")),.concurrency,.sc) }

zXMLDTD+1 Quit ##class(%XML.Implementation).XMLDTD("xobw.WebServicesAuthorized

",.top,.format,.input,.dtdlist)

zXMLExportToStream+3 Set export=##class(%Library.FileCharacterStream).%New()

zXMLExportToStream+12 Set stream=##class(%Library.FileCharacterStream).%New()

zXMLGetSchemaImports+1 Quit ##class(%XML.Implementation).XMLGetSchemaImports("xo

bw.WebServicesAuthorized",.imports,.classes)

XMLLOOP+15 Set data="" If '##class(%XML.ImportHandler).SerializeN

ode(tree,ref,0,0,.data) Goto XMLImportErr

XMLLOOP+49 Set data="" If '##class(%XML.ImportHandler).SerializeN

ode(tree,ref,0,0,.data) Goto XMLImportErr

zXMLNew+1 Quit (##class(xobw.WebServicesAuthorized).%New())

zXMLSchema+1 Quit ##class(%XML.Implementation).XMLSchema("xobw.WebServicesAuthor

ized",top,format,namespacePrefix,input,refOnly,.schema)

zwebServerRefGetSwizzled+3 Set oref=##class("xobw.WebServer").%Open(oid) If oref

="" Quit ""

zwebServerRefNewObject+1 Set newobject=##class("xobw.WebServer").%New("") If new

object="" Quit ""

SPInnerLoop Set rc=##class(xobw.WebServicesAuthorized).ExtentFetch(.qHandle,.row

,.atend)

zienIndexCheck+1 s id=K1_"||"_K2,exists=##class(xobw.WebServicesAuthorized).%Exi

stsId(id) q:'exists $s('lockonly:$$Error^%apiOBJ(5797,"xobw.WebServi

cesAuthorized","ienIndex",id),1:1) s status=##class(xobw.WebServices

Authorized).%LockId(id,1) q:('status) status if 'lockonly { s exists

=##class(xobw.WebServicesAuthorized).%ExistsId(id) d ##class(xobw.We

bServicesAuthorized).%UnlockId(id,1,0) quit $s('exists:$$Error^%apiO

BJ(5797,"xobw.WebServicesAuthorized","ienIndex",id),1:1) } else { d

##class(xobw.WebServicesAuthorized).%UnlockId(id,1,0) q 1 } }

zienIndexDelete+1 Quit ##class(xobw.WebServicesAuthorized).%DeleteId(K1_"||"_K2,

concurrency) }

zienIndexExists+1 s id=K1_"||"_K2 q ##class(xobw.WebServicesAuthorized).%ExistsI

d(K1_"||"_K2)

zienIndexOpen+1 Quit ##class(xobw.WebServicesAuthorized).%OpenId(K1_"||"_K2,conc

urrency,.sc) }

xobw.WsdlHandler.1.INT

zgetInfoFromFile+1 set status = ##class(%XML.TextReader).ParseFile(wsdlFile,.rea

der)

zgetInfoFromFile+3 quit ##class(xobw.WsdlHandler).parse(reader)

zgetInfoFromStream+1 set status = ##class(%XML.TextReader).ParseStream(wsdlStrea

m,.reader)

zgetInfoFromStream+3 quit ##class(xobw.WsdlHandler).parse(reader)

zgetInfoFromString+1 set status = ##class(%XML.TextReader).ParseString(wsdlStrin

g,.reader)

zgetInfoFromString+3 quit ##class(xobw.WsdlHandler).parse(reader)

xobw.error.AbstractError.1.INT

ztextBuildValueArray+1 Quit ##class(%Collection.ListOfDT).BuildValueArray(value,

.array)

ztextGetSwizzled+1 Set oref=##class(%Collection.ListOfDT).%New() If oref="" Quit

""

xobw.error.BasicError.1.INT

ztextBuildValueArray+1 Quit ##class(%Collection.ListOfDT).BuildValueArray(value,

.array)

ztextGetSwizzled+1 Set oref=##class(%Collection.ListOfDT).%New() If oref="" Quit

""

xobw.error.DialogError.1.INT

ztextBuildValueArray+1 Quit ##class(%Collection.ListOfDT).BuildValueArray(value,

.array)

ztextGetSwizzled+1 Set oref=##class(%Collection.ListOfDT).%New() If oref="" Quit

""

xobw.error.HttpError.1.INT

ztextBuildValueArray+1 Quit ##class(%Collection.ListOfDT).BuildValueArray(value,

.array)

ztextGetSwizzled+1 Set oref=##class(%Collection.ListOfDT).%New() If oref="" Quit

""

xobw.error.ObjectError.1.INT

ztextBuildValueArray+1 Quit ##class(%Collection.ListOfDT).BuildValueArray(value,

.array)