><?xml version="1.0" encoding="utf-8"?> > ><soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" >xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" >xmlns:xsd="http://www.w3.org/2001/XMLSchema" >xmlns:enc="http://schemas.xmlsoap.org/soap/encoding" > > ><soap:Body> > ><impl:hastaKabul xmlns:impl="http://servisler.ws.gss.sgk.gov.tr"> > ><provizyonGiris> > ><devredilenKurum>3</devredilenKurum><hastaKarneNo>111111216</hastaKarneNo><h >astaSosyalGuvNo>1111111111126</hastaSosyalGuvNo><hastaTCKimlikNo>4900071 >astaSosyalGuvNo>9000 ></hastaTCKimlikNo><provizyonTarihi>22.12.2006</provizyonTarihi><provizyonTip >i>N</provizyonTipi><saglikTesisKodu>10662</saglikTesisKodu><sigortaliTur >i>u>2< >/sigortaliTuru><takipNo></takipNo><takipTuru>1</takipTuru><yakinlikKodu></ya >kinlikKodu> > ></provizyonGiris> > ></impl:hastaKabul> > ></soap:Body> > ></soap:Envelope> >>
>LOCAL loProvizyonIslemleri AS "XML Web Service" >LOCAL loException, lcErrorMsg, loWSHandler TRY > loWSHandler = >NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx") > loProvizyonIslemleri = >loWSHandler.SetupClient("http://43000210000:43000210000@test.sgk.gov.tr/sagl >ikws/services/ProvizyonIslemleri/wsdl/ProvizyonIslemleri.wsdl", >"ProvizyonIslemleriService", "ProvizyonIslemleri") > > leResult = loProvizyonIslemleri.hastaKabul(lcXml) > >CATCH TO loException > lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message > DO CASE > CASE VARTYPE(loProvizyonIslemleri)#"O" > * Handle SOAP error connecting to web service > CASE !EMPTY(loProvizyonIslemleri.FaultCode) > * Handle SOAP error calling method > lcErrorMsg=lcErrorMsg+CHR(13)+loProvizyonIslemleri.Detail > OTHERWISE > * Handle other error > ENDCASE > * Use for debugging purposes > MESSAGEBOX(lcErrorMsg) >FINALLY >ENDTRY >