Aile hekimliği

[Berdem]

merhba ,
Aile hekimliği ilgili soap denemelerim var.
http://212.174.135.181/Mvs/Mvs.asmx
HastaAtama bölümününde deneme yapmak istedim.

Kod: Tümünü seç

var
cc:HastaAtamaIstek;
bb:MvsInterface;
der:HastaAtamaCevap;
begin
  cc:=HastaAtamaIstek.Create;
  bb:=GetMvsInterface(false, '', HTTPRIO1);
  cc.KOD:=????;  ---Mvs.KOD istiyor.....
  cc.ACIKLAMA:='';
  cc.ID:='';
  cc.TARIH:='';
  cc.GIZLILIK_DERECESI:='';
  cc.HASTA_ATAMA_BILGISI:='';
  cc.KULLANICI:='';
  der:=bb.HastaAtama(cc);
  der.KOD:=
  der.ACIKLAMA:=
  der.TARIH:=
  der.GIZLILIK_DERECESI:=
  der.KULLANICI:=
  der.SONUC:=

örnek cc.KOD bölümünde mvs.KOD atama yapılmasını istiyor...mvs.KOD ise mvs ünitinde

Kod: Tümünü seç

// ************************************************************************ //
  // XML       : KOD, global, <complexType>
  // Namespace : http://schemas.saglik.gov.tr/MVS/1.0.0.0/Veri.xsd
  // ************************************************************************ //
  KOD = class(TRemotable)
  private
    FKodSistemKod: KODSETKOD;
    FKodSistemKod_Specified: boolean;
    FKodSistemAd: KODSETAD;
    FKodSistemAd_Specified: boolean;
    FLoincKod: strLOINCKOD;
    FLoincKod_Specified: boolean;
    FLoincAd: strAD;
    FLoincAd_Specified: boolean;
    procedure SetKodSistemKod(Index: Integer; const AKODSETKOD: KODSETKOD);
    function  KodSistemKod_Specified(Index: Integer): boolean;
    procedure SetKodSistemAd(Index: Integer; const AKODSETAD: KODSETAD);
    function  KodSistemAd_Specified(Index: Integer): boolean;
    procedure SetLoincKod(Index: Integer; const AstrLOINCKOD: strLOINCKOD);
    function  LoincKod_Specified(Index: Integer): boolean;
    procedure SetLoincAd(Index: Integer; const AstrAD: strAD);
    function  LoincAd_Specified(Index: Integer): boolean;
  published
    property KodSistemKod: KODSETKOD    Index (IS_ATTR or IS_OPTN) read FKodSistemKod write SetKodSistemKod stored KodSistemKod_Specified;
    property KodSistemAd:  KODSETAD     Index (IS_ATTR or IS_OPTN) read FKodSistemAd write SetKodSistemAd stored KodSistemAd_Specified;
    property LoincKod:     strLOINCKOD  Index (IS_ATTR or IS_OPTN) read FLoincKod write SetLoincKod stored LoincKod_Specified;
    property LoincAd:      strAD        Index (IS_ATTR or IS_OPTN) read FLoincAd write SetLoincAd stored LoincAd_Specified;
  end;

  DOGUMYERITIPKOD =  type strLOINCKOD;      { "http://schemas.saglik.gov.tr/MVS/1.0.0.0/Veri.xsd"[GblSmpl] }

olarak gösteriyor.Mvs ünitindeki atamalrı nasıl yapabilirim.Veya mantık olarak hangi yolu izlemeliyim..Teşekkürler...

[aslangeri]

s.a.
önce kod tipinde bir değişken tanımlayacaksın sonra o değişkeni create edip gerekli atamalarını yaptıktan sonra hastaatamaistek deki ilgili yere create ettiğin değişkeni atayacaksın.
kolay gelsin.
eğer hazır program istersen yardımcı olabilirim..

[Berdem]

Çok teşekkür ediyorum.Bir kaç sorum daha olacak...

1.Label6.Caption:=der.SONUC; bölümünde DURUMKAYDI_HASTAATAMA isteniyor.

Kod: Tümünü seç

 DURUMKAYDI_HASTAATAMA = (Atama_Basari_Ile_Tamamlandi, Hasta_Sisteme_Kayitli_Degil_Oncelikle_Hasta_Kayit_Mesaj_Setini_Gonderin5, Sistemde_Kayitli_Olmayan_Bir_Aile_Hekimi__Herhangi_Bir_Hastayla_Iliskilendirilemez, Hasta_Baska_Bir_Aile_Hekimine_Kayitlidir);

Bu bölümü nasıl gösterebiliriz?

2. Class sınıfındakileri ayrı bir procedure açıp create etsem pratik olurmu?
3. veri.xsd veya mesaj.xsd nerde kullanıyoruz.C# bilmiyorum bu yöntem bu işin pratik kullanımı yönünden yapılmış...?

[aslangeri]

s.a.
1.

Kod: Tümünü seç

case der.sonuc of
Atama_Basari_Ile_Tamamlandi:label6.caption:='işlem tamam';
asta_Sisteme_Kayitli_Degil_Oncelikle_Hasta_Kayit_Mesaj_Setini_Gonderin5:....
end;

şeklinde işleyebilirsin.
2.ve 3. sorularını anlamadım.

[Berdem]

A.S.
merak ettiğim konu sanki izlediğim yol bana karışık ve çok detaylıymış gibi geldi. Create edeceğim alanları bir procedure toplasam ayrı ayrı fonksiyonlarda kullansam pratik olur mu? Web servislerinin C# kullanımı daha pratik olduğu söyleniyor. Konu hakkında fikir sahibi değilim. Daha pratik bir yolu varmı onu merak ediyorum.

[Berdem]

Kod: Tümünü seç

 strPROTOKOL     =  type WideString;      { "http://schemas.saglik.gov.tr/MVS/1.0.0.0/Veri.xsd"[GblSmpl] }
  TEMELID         =  type WideString;      { "http://schemas.saglik.gov.tr/MVS/1.0.0.0/Veri.xsd"[GblSmpl] }


  // ************************************************************************ //
  // XML       : ID, global, <complexType>
  // Namespace : http://schemas.saglik.gov.tr/MVS/1.0.0.0/Veri.xsd
  // ************************************************************************ //
  ID = class(TRemotable)
  private
    FANA_ID: TEMELID;
    FANA_ID_Specified: boolean;
    FKOK_ID: TEMELID;
    FKOK_ID_Specified: boolean;
    FPROTOKOL_NO: strPROTOKOL;
    FPROTOKOL_NO_Specified: boolean;
    procedure SetANA_ID(Index: Integer; const ATEMELID: TEMELID);
    function  ANA_ID_Specified(Index: Integer): boolean;
    procedure SetKOK_ID(Index: Integer; const ATEMELID: TEMELID);
    function  KOK_ID_Specified(Index: Integer): boolean;
    procedure SetPROTOKOL_NO(Index: Integer; const AstrPROTOKOL: strPROTOKOL);
    function  PROTOKOL_NO_Specified(Index: Integer): boolean;
  published
    property ANA_ID:      TEMELID      Index (IS_ATTR or IS_OPTN) read FANA_ID write SetANA_ID stored ANA_ID_Specified;
    property KOK_ID:      TEMELID      Index (IS_ATTR or IS_OPTN) read FKOK_ID write SetKOK_ID stored KOK_ID_Specified;
    property PROTOKOL_NO: strPROTOKOL  Index (IS_OPTN) read FPROTOKOL_NO write SetPROTOKOL_NO stored PROTOKOL_NO_Specified;
  end;

S.a.
Aşağıdaki hatayı alıyorum.
Mvs ünitinde Ana_id karşılığı temelid string olarak gösteriliyor.Bu id kavramı nedir.Sağlık bakanlığı dökümanlarına baktım bulamadım.Bu konuda da yardımlarınızı rica ediyorum.

[aslangeri]

sanırım ana_id ye verdiğin değerle ilgili bi problem var.