Egység uHISFunctions

Megjegyzés

Uses

Osztályok, Kapcsolódási felületek és Objektumok

Függvények és Eljárások

Típusok

Konstansok

Változók

Megjegyzés

This item has no description.

Áttekintés

Függvények és Eljárások

function AddorUpdateBNO(DIAGKOD, ESETKOD, SZEMKOD, EGYSEG, ORVOS: integer; DATUM :TDateTime; TIPUS, OLDALISAG, BNO : string):integer;

function DeleteBNO(DIAGKOD:integer):boolean;

function DeleteEsetBNOs(ESETKOD:integer):boolean;

function DeleteEsetPCRs(ESETKOD:integer; isPCR :boolean):boolean;

function GetEKAT_ID( esetkod : integer ):string;

function GetEventDiagnosis0( id : integer ):string;

function GetEventDiagnosis3( id : integer ):string;

procedure UpdateDocEESZTID(textkod:integer;id,version: string);

procedure UpdateDocAttachedEESZTID(textkod:integer;id,version: string);

Konstansok

bnoinsertsql  = 'INSERT INTO DIAG ' +
						' ( ' +
						' ESETKOD, SZEMKOD, EGYSEG, ORVOS, DATUM, TIPUS, O, BNO, AKTIVREKORD ' + 
						' ) ' +
						' VALUES ' +
						' ( ' +
						' :ESETKOD, :SZEMKOD, :EGYSEG, :ORVOS, :DATUM, :TIPUS, :OLDALISAG, :BNO, 1 ' + 
						' ) ' +
						' RETURNING (DIAGKOD) ';

bnoupdatesql = 'UPDATE DIAG ' +
							' SET ' +
							' ESETKOD = :ESETKOD, SZEMKOD = :SZEMKOD, EGYSEG = :EGYSEG, ORVOS = :ORVOS, DATUM = :DATUM, TIPUS = :TIPUS, O = :OLDALISAG, BNO=:BNO ' + 
						' WHERE DIAGKOD = :DIAGKOD';

bnodeletesql = 'UPDATE DIAG ' +
							' SET ' +
							' AKTIVREKORD = 0 ' + 
						' WHERE DIAGKOD = :DIAGKOD';

esetbnodeletesql = 'UPDATE DIAG ' +
							' SET ' +
							' AKTIVREKORD = 0 ' + 
						' WHERE ESETKOD = :ESETKOD';

esetPCRdeletesql = 'UPDATE TEXT ' +
							' SET ' +
							' AKTIVREKORD = 0 ' + 
						' WHERE (ESETKOD = :ESETKOD) AND ( TIPUS BETWEEN :T1 AND :T2 )';

Megjegyzés

Függvények és Eljárások

function AddorUpdateBNO(DIAGKOD, ESETKOD, SZEMKOD, EGYSEG, ORVOS: integer; DATUM :TDateTime; TIPUS, OLDALISAG, BNO : string):integer;

This item has no description.

function DeleteBNO(DIAGKOD:integer):boolean;

This item has no description.

function DeleteEsetBNOs(ESETKOD:integer):boolean;

This item has no description.

function DeleteEsetPCRs(ESETKOD:integer; isPCR :boolean):boolean;

This item has no description.

function GetEKAT_ID( esetkod : integer ):string;

This item has no description.

function GetEventDiagnosis0( id : integer ):string;

This item has no description.

function GetEventDiagnosis3( id : integer ):string;

This item has no description.

procedure UpdateDocEESZTID(textkod:integer;id,version: string);

This item has no description.

procedure UpdateDocAttachedEESZTID(textkod:integer;id,version: string);

This item has no description.

Konstansok

bnoinsertsql  = 'INSERT INTO DIAG ' +
						' ( ' +
						' ESETKOD, SZEMKOD, EGYSEG, ORVOS, DATUM, TIPUS, O, BNO, AKTIVREKORD ' + 
						' ) ' +
						' VALUES ' +
						' ( ' +
						' :ESETKOD, :SZEMKOD, :EGYSEG, :ORVOS, :DATUM, :TIPUS, :OLDALISAG, :BNO, 1 ' + 
						' ) ' +
						' RETURNING (DIAGKOD) ';

This item has no description.

bnoupdatesql = 'UPDATE DIAG ' +
							' SET ' +
							' ESETKOD = :ESETKOD, SZEMKOD = :SZEMKOD, EGYSEG = :EGYSEG, ORVOS = :ORVOS, DATUM = :DATUM, TIPUS = :TIPUS, O = :OLDALISAG, BNO=:BNO ' + 
						' WHERE DIAGKOD = :DIAGKOD';

This item has no description.

bnodeletesql = 'UPDATE DIAG ' +
							' SET ' +
							' AKTIVREKORD = 0 ' + 
						' WHERE DIAGKOD = :DIAGKOD';

This item has no description.

esetbnodeletesql = 'UPDATE DIAG ' +
							' SET ' +
							' AKTIVREKORD = 0 ' + 
						' WHERE ESETKOD = :ESETKOD';

This item has no description.

esetPCRdeletesql = 'UPDATE TEXT ' +
							' SET ' +
							' AKTIVREKORD = 0 ' + 
						' WHERE (ESETKOD = :ESETKOD) AND ( TIPUS BETWEEN :T1 AND :T2 )';

This item has no description.

Készítette PasDoc 0.16.0-snapshot.

AppServer 2025.7.23.1: API(DEV)

Egység uHISFunctions

Megjegyzés

Áttekintés

Függvények és Eljárások

Konstansok

Megjegyzés

Függvények és Eljárások

Konstansok