Egység uTextReplacer
Megjegyzés
This item has no description.
Uses
Áttekintés
Osztályok, Kapcsolódási felületek és Objektumok
Függvények és Eljárások
Konstansok
bnosql = ' SELECT D.ESETKOD, D.TIPUS, T.KOD, T.NEV ' +
' FROM DIAG D ' +
' JOIN BNO T ON T.KOD=D.BNO ' +
' WHERE (D.ESETKOD =:ESETKOD) AND (D.AKTIVREKORD = 1) ' +
' ORDER BY D.TIPUS, D.BNO ' ; |
whosql = ' SELECT J.ESETKOD, J.WHO, J.DB, T.NEV, T.PONT, J.DB*T.PONT OSSZPONT ' +
' FROM JARO J ' +
' JOIN J_WHO T ON T.KOD = J.WHO ' +
' WHERE (ESETKOD =:ESETKOD) AND (T.AKTIVREKORD = 1) ' ; |
prescriptionssql = 'SELECT ESETKOD, LATINNEV, OEP_NEV, MENNYISEG, DB, DS FROM RECEPT WHERE ( ESETKOD = :ESETKOD ) AND (AKTIVREKORD = 1)'; |
baseprescriptionssql = 'SELECT ESETKOD, LATINNEV, OEP_NEV, MENNYISEG, DB, DS FROM ALAPRECEPT WHERE ( SZEMKOD = :SZEMKOD ) AND (AKTIVREKORD = 1)'; |
feorsql = 'SELECT S.FEOR, F.MEGNEVEZES FROM SZEMELY S JOIN FEOR F ON S.FEOR=F.FEOR WHERE (SZEMKOD=:SZEMKOD) '; |
alapbetegsegsql = ' SELECT B.BNO, T.NEV, B.BETEGSEG, B.KEZDET, B.VEGE, B.LEFOLYAS ' +
' FROM ALAPBETEGSEG B ' +
' LEFT JOIN BNO T ON T.KOD=B.BNO ' +
' WHERE (B.SZEMKOD =:SZEMKOD) AND (B.AKTIVREKORD = 1) ' +
' ORDER BY B.KEZDET ' ; |
Változók
Megjegyzés
Függvények és Eljárások
function TextReplace(_instr:string; _egysegkod, _orvoskod, _esetkod, _szemkod, _intezetkod : integer ):string; |
|
This item has no description. |
Konstansok
bnosql = ' SELECT D.ESETKOD, D.TIPUS, T.KOD, T.NEV ' +
' FROM DIAG D ' +
' JOIN BNO T ON T.KOD=D.BNO ' +
' WHERE (D.ESETKOD =:ESETKOD) AND (D.AKTIVREKORD = 1) ' +
' ORDER BY D.TIPUS, D.BNO ' ; |
|
This item has no description. |
whosql = ' SELECT J.ESETKOD, J.WHO, J.DB, T.NEV, T.PONT, J.DB*T.PONT OSSZPONT ' +
' FROM JARO J ' +
' JOIN J_WHO T ON T.KOD = J.WHO ' +
' WHERE (ESETKOD =:ESETKOD) AND (T.AKTIVREKORD = 1) ' ; |
|
This item has no description. |
prescriptionssql = 'SELECT ESETKOD, LATINNEV, OEP_NEV, MENNYISEG, DB, DS FROM RECEPT WHERE ( ESETKOD = :ESETKOD ) AND (AKTIVREKORD = 1)'; |
|
This item has no description. |
baseprescriptionssql = 'SELECT ESETKOD, LATINNEV, OEP_NEV, MENNYISEG, DB, DS FROM ALAPRECEPT WHERE ( SZEMKOD = :SZEMKOD ) AND (AKTIVREKORD = 1)'; |
|
This item has no description. |
feorsql = 'SELECT S.FEOR, F.MEGNEVEZES FROM SZEMELY S JOIN FEOR F ON S.FEOR=F.FEOR WHERE (SZEMKOD=:SZEMKOD) '; |
|
This item has no description. |
alapbetegsegsql = ' SELECT B.BNO, T.NEV, B.BETEGSEG, B.KEZDET, B.VEGE, B.LEFOLYAS ' +
' FROM ALAPBETEGSEG B ' +
' LEFT JOIN BNO T ON T.KOD=B.BNO ' +
' WHERE (B.SZEMKOD =:SZEMKOD) AND (B.AKTIVREKORD = 1) ' +
' ORDER BY B.KEZDET ' ; |
|
This item has no description. |
Változók
Query: TFDQuery; |
|
This item has no description. |
DataQuery: TFDQuery; |
|
This item has no description. |
TEXTKOD: integer; |
|
This item has no description. |
EGYSEG: integer; |
|
This item has no description. |
ORVOS: integer; |
|
This item has no description. |
ESETKOD: integer; |
|
This item has no description. |
SZEMKOD: integer; |
|
This item has no description. |
INTEZETKOD: integer; |
|
This item has no description. |
responsetxt: string; |
|
This item has no description. |
cserelt: string; |
|
This item has no description. |
aktorvos: integer; |
|
This item has no description. |
aktegyseg: integer; |
|
This item has no description. |
akteset: integer; |
|
This item has no description. |
aktszemely: integer; |
|
This item has no description. |
csereMezok: array of TCsereMezo; |
|
This item has no description. |
csereTablak: array of string; |
|
This item has no description. |
csereTablaMezok: array of string; |
|
This item has no description. |
csereTablaIndexek: array of integer; |
|
This item has no description. |
mezonevek: array of array of string; |
|
This item has no description. |
mezoertekek: array of array of string; |
|
This item has no description. |
Tables: array [0..5] of string ; |
|
This item has no description. |
ids: array [0..5] of string ; |
|
This item has no description. |
Készítette PasDoc 0.16.0-snapshot.