Egység uAddEventEESZT
Megjegyzés
This item has no description.
Uses
- uStandardFunctions
- uEESZTHelper
- uVeny
- uHISFunctions
- uMikroXML
Áttekintés
Függvények és Eljárások
function SetEventRecord(Q: TFDQuery):TEvent; |
function AddEventEESZT( esetkod : integer ):string; |
Konstansok
QuerySQL =
' SELECT E.ESETKOD, E.ESETTIP, E.FDATUM, E.TDATUM, E.BEUTALO, E.BORV, E.BADAT, E.BBNO, E.EBEUTALOID, E.NAPLOSZAM, E.TORSZAM, E.SORSZAM, E.FTIP, E.FMOD, E.TMOD, E.KAT_ID, E.EESZT_VERSION, E.OSZTALY, E.ORVOS, E.SZEMKOD, ' +
' S.NEV SZEMELYNEV, S.SZULIDO, S.TAJ, S.AZTIP, S.EBA, S.NEM, S.NACIO, S.IRSZAM, S.LAKHELY, S.LAKCIM, S.KOZGYOGY, S.KOZDAT, S.EGYEBAZONOSITO, ' +
' EG.NEV EGYSEGNEV, EG.EESZT_ID EGEESZT_ID, EG.TBKOD, EG.DIAGTYPE, EG.SZAKMAKOD, EG.EESZT_ESETTIP, ' +
' O.NEV ORVOSNEV, O.EESZT_USER OEESZT_ID, O.PECSETSZAM, ' +
' I.NEV INEV, I.EESZT_ID IEESZT_ID, I.TECHNICAL_USER_ID, I.X509FOLDER ' +
' FROM ESET E ' +
' JOIN SZEMELY S ON E.SZEMKOD = S.SZEMKOD ' +
' JOIN EGYSEG EG ON E.OSZTALY = EG.EGYSEGKOD ' +
' JOIN ORVOS O ON E.ORVOS = O.ORVOSKOD ' +
' JOIN INTEZET I ON EG.INTEZETKOD = I.INTEZETKOD ' +
' WHERE (E.ESETKOD = :ESETKOD) AND (E.AKTIVREKORD = 1) '; |
Változók
Query: TFDQuery; |
doc: TResponseObject; |
responsetxt:string; |
minta:string; |
patient:TPatient; |
session: TSession; |
Event: TEvent; |
EventSL: TStringList; |
count: integer; |
i: integer; |
RECList: TResponseObjectArray; |
sl: TStringList; |
func: string; |
funcmode: string; |
status: integer; |
technical_user_id: string; |
x509folder: string; |
doctorsamlvalid: boolean; |
Megjegyzés
Függvények és Eljárások
function SetEventRecord(Q: TFDQuery):TEvent; |
|
This item has no description. |
function AddEventEESZT( esetkod : integer ):string; |
|
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// |
Konstansok
QuerySQL =
' SELECT E.ESETKOD, E.ESETTIP, E.FDATUM, E.TDATUM, E.BEUTALO, E.BORV, E.BADAT, E.BBNO, E.EBEUTALOID, E.NAPLOSZAM, E.TORSZAM, E.SORSZAM, E.FTIP, E.FMOD, E.TMOD, E.KAT_ID, E.EESZT_VERSION, E.OSZTALY, E.ORVOS, E.SZEMKOD, ' +
' S.NEV SZEMELYNEV, S.SZULIDO, S.TAJ, S.AZTIP, S.EBA, S.NEM, S.NACIO, S.IRSZAM, S.LAKHELY, S.LAKCIM, S.KOZGYOGY, S.KOZDAT, S.EGYEBAZONOSITO, ' +
' EG.NEV EGYSEGNEV, EG.EESZT_ID EGEESZT_ID, EG.TBKOD, EG.DIAGTYPE, EG.SZAKMAKOD, EG.EESZT_ESETTIP, ' +
' O.NEV ORVOSNEV, O.EESZT_USER OEESZT_ID, O.PECSETSZAM, ' +
' I.NEV INEV, I.EESZT_ID IEESZT_ID, I.TECHNICAL_USER_ID, I.X509FOLDER ' +
' FROM ESET E ' +
' JOIN SZEMELY S ON E.SZEMKOD = S.SZEMKOD ' +
' JOIN EGYSEG EG ON E.OSZTALY = EG.EGYSEGKOD ' +
' JOIN ORVOS O ON E.ORVOS = O.ORVOSKOD ' +
' JOIN INTEZET I ON EG.INTEZETKOD = I.INTEZETKOD ' +
' WHERE (E.ESETKOD = :ESETKOD) AND (E.AKTIVREKORD = 1) '; |
|
This item has no description. |
Változók
Query: TFDQuery; |
|
This item has no description. |
doc: TResponseObject; |
|
This item has no description. |
responsetxt:string; |
|
This item has no description. |
minta:string; |
|
This item has no description. |
patient:TPatient; |
|
This item has no description. |
session: TSession; |
|
This item has no description. |
Event: TEvent; |
|
This item has no description. |
EventSL: TStringList; |
|
This item has no description. |
count: integer; |
|
This item has no description. |
i: integer; |
|
This item has no description. |
RECList: TResponseObjectArray; |
|
This item has no description. |
sl: TStringList; |
|
This item has no description. |
func: string; |
|
This item has no description. |
funcmode: string; |
|
This item has no description. |
status: integer; |
|
This item has no description. |
technical_user_id: string; |
|
This item has no description. |
x509folder: string; |
|
This item has no description. |
doctorsamlvalid: boolean; |
|
This item has no description. |
Készítette PasDoc 0.16.0-snapshot.