Egység uStandardFunctions

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.

Uses

Áttekintés

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

function Std_GetParamStrF(AParamName:String; isBlankAllowed:boolean; ALength:integer; var resultstr : string ): string;

procedure Std_GetParamStr(AParamName:String; isBlankAllowed:boolean; ALength:integer; var resultstr : string);

procedure Std_GetParamStrHTML(AParamName:String; isBlankAllowed:boolean; ALength:integer; var resultstr : string);

function Std_GetParamIntF(AParamName:String;isBlankAllowed:boolean;defaultValue:integer; var resultstr : string):integer;

procedure Std_GetParamInt(AParamName:String;isBlankAllowed:boolean;defaultValue:integer; var resultstr : string);

function Std_GetParamDateTimeF(AParamName:String;isBlankAllowed:boolean;defaultValue:tdatetime; var resultstr : string; _SetEndOfTheDay : boolean = false):TDateTime;

procedure Std_GetParamDateTime(AParamName:String;isBlankAllowed:boolean;defaultValue:tdatetime; var resultstr : string; SetEndOfTheDay : boolean = false);

procedure Std_PutParamsToQuery(query: TFDQuery );

function RaiseExceptionLog( errortext:string ):string;

Function NullavalTolt(const szoveg : string; hossz : Integer) : string;

function JSONStrToDateTime(str:string):TDateTime;

function SLToDB( connectionname, tablename, idname : string; sl:TStringList ):integer;

function SeIDSearch(intezet:integer):integer;

function GetResponseObject(_code, _message,_function,_type, _translate:string):TResponseObject;

function GetResponseObjectPerf(_code, _message,_function,_type, _translate:string; calltime : TDateTime):TResponseObject;

function GetEESZTObject(_id, _version:string):TResponseObject;

procedure AddKATToControl( Event : THISEvent ; mode : string);

procedure AddEHRToControl( Event : THISEvent ; mode : string);

function FolderFilelist(folder, extension:string):TStringList;

function SaveDataFile(ADate: TDateTime; AFileName: string; AContent: string): boolean;

function GetParamINT(AParamName:String):integer;

function GetParamStr(AParamName:String):string;

function GetParamDateTime(AParamName:String):TDateTime;

procedure LoadParams;

function LoadAndReplaceTemplate(const FileName : string; replacestrings: TStringList ):string;

procedure FileReplaceStrings(const FileName : string; replacestrings: TStringList);

function ReplaceStringsinString(const instr : string; replacestrings: TStringList):string;

function GetTAJUserPassFromDoctorID(const orvos:integer; var user, pass:string):boolean;

function GetInvoicerFromUnitID(const UnitID:integer; var user, pass, keychain, blokk_id, block_name:string;var invoicer: integer):boolean;

function _CacheQuery( ATableName: string; query:TFDQuery): boolean;

procedure InitCache_Gyogyszer;

procedure GetMedicinesDB;

procedure InitCache_BNO;

function _CacheSystemTable(ADatabaseName, ATableName: string):boolean;

function _CacheSystem(ADatabaseName, ACACHEName, SQL: string):boolean;

function _CacheTableRefresh(ADatabaseName, ATableName: string):boolean;

function _CacheRefresh(ADatabaseName, ACacheName: string):boolean;

function GetEPTaxCode(id:integer; var ep_partner_id, ep_trax_code : string ):boolean;

Konstansok

addKATsql = '    	INSERT INTO EESZT_CONTROL ' +
        ' (SOURCE_ID, MODULE, RECORDTYPE_ID, STATUS, ESETKOD, ORVOSKOD, SZEMELYKOD, EGYSEGKOD, CREATED, ' +
        ' FDATUM,  TDATUM, FTIP, FMOD, TMOD, BEUTALO, BORV, BADAT,  BBNO,  TORSZAM,  SORSZAM, EBEUTALOID,  NAPLOSZAM, EESZT_ID, EESZT_VERSION ) '+
        ' VALUES ' +
        ' (:ESETKOD, ''KAT'', :RECORDTYPE_ID, 99, :ESETKOD, :ORVOSKOD, :SZEMELYKOD, :EGYSEGKOD, ''NOW'', ' +
        ' :FDATUM,  :TDATUM, :FTIP, :FMOD, :TMOD, :BEUTALO, :BORV, :BADAT,  :BBNO, :TORSZAM,  :SORSZAM, :EBEUTALOID,  :NAPLOSZAM, :EESZT_ID, :EESZT_VERSION ); ';

EPTaxcodeQuerysql = 'SELECT PARTNER_ID, ADOSZAM FROM EGESZSEGPENZTAR WHERE EPKOD=:ID';

NullDate = -700000.0;

sesql ='SELECT PATIENT_INSTITUTE FROM INTEZET WHERE (INTEZETKOD = :INTEZETKOD) ';

Változók

strs: array of Tstrs;

ints: array of Tints;

dates: array of Tdates;

Megjegyzés

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

function Std_GetParamStrF(AParamName:String; isBlankAllowed:boolean; ALength:integer; var resultstr : string ): string;

const DATAROOTDIR = 'C:\HIS\HISAPI_DEMO\data\'; funckió string paraméter betöltésére és hosszának az ellenorzésére

procedure Std_GetParamStr(AParamName:String; isBlankAllowed:boolean; ALength:integer; var resultstr : string);

This item has no description.

procedure Std_GetParamStrHTML(AParamName:String; isBlankAllowed:boolean; ALength:integer; var resultstr : string);

This item has no description.

function Std_GetParamIntF(AParamName:String;isBlankAllowed:boolean;defaultValue:integer; var resultstr : string):integer;

funckió integer paraméter betöltésére és ellenorzésére

procedure Std_GetParamInt(AParamName:String;isBlankAllowed:boolean;defaultValue:integer; var resultstr : string);

This item has no description.

function Std_GetParamDateTimeF(AParamName:String;isBlankAllowed:boolean;defaultValue:tdatetime; var resultstr : string; _SetEndOfTheDay : boolean = false):TDateTime;

This item has no description.

procedure Std_GetParamDateTime(AParamName:String;isBlankAllowed:boolean;defaultValue:tdatetime; var resultstr : string; SetEndOfTheDay : boolean = false);

This item has no description.

procedure Std_PutParamsToQuery(query: TFDQuery );

This item has no description.

function RaiseExceptionLog( errortext:string ):string;

This item has no description.

Function NullavalTolt(const szoveg : string; hossz : Integer) : string;

This item has no description.

function JSONStrToDateTime(str:string):TDateTime;

This item has no description.

function SLToDB( connectionname, tablename, idname : string; sl:TStringList ):integer;

This item has no description.

function SeIDSearch(intezet:integer):integer;

This item has no description.

function GetResponseObject(_code, _message,_function,_type, _translate:string):TResponseObject;

This item has no description.

function GetResponseObjectPerf(_code, _message,_function,_type, _translate:string; calltime : TDateTime):TResponseObject;

This item has no description.

function GetEESZTObject(_id, _version:string):TResponseObject;

This item has no description.

procedure AddKATToControl( Event : THISEvent ; mode : string);

ÁTKERÜLT az uHISFunctions-be function GetEventDiagnosis3( id : integer ):string;

var searchQuery: TFDQuery; bnokeressql : string; begin

//log ('bnokeres'); bnokeressql := ' SELECT ' + ' BNO FROM DIAG WHERE (ESETKOD = :ESETKOD) AND (AKTIVREKORD = 1 ) AND ( TIPUS IN (''3'',''5'')) ORDER BY TIPUS ' ;

searchQuery := TFDQuery.Create(nil);

searchQuery.Connection := GetDBConnection('BETEG'); //log(bnokeressql);

searchQuery.sql.add(bnokeressql);

searchQuery.parambyname('ESETKOD').AsInteger := id;

searchQuery.open;

searchQuery.first;

if not(searchQuery.isempty) then begin

if searchQuery.FieldByName('BNO').value <> '' then

result := trim(searchQuery.FieldByName('BNO').AsString) else

result := '';

end else result := '';

log('GetEventDiagnosis3 Id: ' + inttostr(id) + ' bno: ' + searchQuery.FieldByName('BNO').AsString);

searchQuery.free end;

procedure AddEHRToControl( Event : THISEvent ; mode : string);

This item has no description.

function FolderFilelist(folder, extension:string):TStringList;

This item has no description.

function SaveDataFile(ADate: TDateTime; AFileName: string; AContent: string): boolean;

This item has no description.

function GetParamINT(AParamName:String):integer;

This item has no description.

function GetParamStr(AParamName:String):string;

This item has no description.

function GetParamDateTime(AParamName:String):TDateTime;

This item has no description.

procedure LoadParams;

This item has no description.

function LoadAndReplaceTemplate(const FileName : string; replacestrings: TStringList ):string;

This item has no description.

procedure FileReplaceStrings(const FileName : string; replacestrings: TStringList);

This item has no description.

function ReplaceStringsinString(const instr : string; replacestrings: TStringList):string;

This item has no description.

function GetTAJUserPassFromDoctorID(const orvos:integer; var user, pass:string):boolean;

function _CacheSystemTable(ADatabaseName, ATableName: string): boolean; funkció orvos kódból TAJ lekérdezés user/pass visszakérdezésére. Cache Table létrehozás szükséges elotte!!!

function GetInvoicerFromUnitID(const UnitID:integer; var user, pass, keychain, blokk_id, block_name:string;var invoicer: integer):boolean;

funkció egység kódból a számlázó adatok visszakérdezésére. Cache létrehozás szükséges elotte!!!

function _CacheQuery( ATableName: string; query:TFDQuery): boolean;

This item has no description.

procedure InitCache_Gyogyszer;

This item has no description.

procedure GetMedicinesDB;

This item has no description.

procedure InitCache_BNO;

This item has no description.

function _CacheSystemTable(ADatabaseName, ATableName: string):boolean;

CACHE tábla létrehozása

function _CacheSystem(ADatabaseName, ACACHEName, SQL: string):boolean;

CACHE létrehozása

function _CacheTableRefresh(ADatabaseName, ATableName: string):boolean;

CACHE tábla frissítése

function _CacheRefresh(ADatabaseName, ACacheName: string):boolean;

CACHE frissítése

function GetEPTaxCode(id:integer; var ep_partner_id, ep_trax_code : string ):boolean;

EP adószám és partner_id visszakeresés EP adószám visszakeresés

Konstansok

addKATsql = '    	INSERT INTO EESZT_CONTROL ' +
        ' (SOURCE_ID, MODULE, RECORDTYPE_ID, STATUS, ESETKOD, ORVOSKOD, SZEMELYKOD, EGYSEGKOD, CREATED, ' +
        ' FDATUM,  TDATUM, FTIP, FMOD, TMOD, BEUTALO, BORV, BADAT,  BBNO,  TORSZAM,  SORSZAM, EBEUTALOID,  NAPLOSZAM, EESZT_ID, EESZT_VERSION ) '+
        ' VALUES ' +
        ' (:ESETKOD, ''KAT'', :RECORDTYPE_ID, 99, :ESETKOD, :ORVOSKOD, :SZEMELYKOD, :EGYSEGKOD, ''NOW'', ' +
        ' :FDATUM,  :TDATUM, :FTIP, :FMOD, :TMOD, :BEUTALO, :BORV, :BADAT,  :BBNO, :TORSZAM,  :SORSZAM, :EBEUTALOID,  :NAPLOSZAM, :EESZT_ID, :EESZT_VERSION ); ';

This item has no description.

EPTaxcodeQuerysql = 'SELECT PARTNER_ID, ADOSZAM FROM EGESZSEGPENZTAR WHERE EPKOD=:ID';

This item has no description.

NullDate = -700000.0;

ÁTKERÜLT az uHISFunctions-be function GetEventDiagnosis3( id : integer ):string;

sesql ='SELECT PATIENT_INSTITUTE FROM INTEZET WHERE (INTEZETKOD = :INTEZETKOD) ';

This item has no description.

Változók

strs: array of Tstrs;

This item has no description.

ints: array of Tints;

This item has no description.

dates: array of Tdates;

This item has no description.

Készítette PasDoc 0.16.0-snapshot.

AppServer 2025.7.23.1: API(DEV)

Egység uStandardFunctions

Megjegyzés

Uses

Áttekintés

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

Konstansok

Változók

Megjegyzés

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

Konstansok

Változók