# # # Operace - zápis operačního protokolu. # Komentář: # 1.Inicializuje se generátor náhodných čísel a načtou se data o pacientovi. # 2.Má-li vyplněn už odchod, jedná se o chybu a musí se to dělat jiným scénářem ... # 3.Nastaví se defaulty pro proměnné a sejme se formulář. Zde náhodou je rovnou mezi standardními # formuláři v souboru wizards.prm a volá se rovnou jménem. # 4.Operace se zapíše do tabulky (proměnná X jenom odlišuje situaci, kdy má stejný pacient ve stejný den # několik operací - mizivé procento případů, ale je potřeba to ošetřit. # 5.Text popisující operaci se příkazem fold naformátuje na sloupec cca 70 snaků široký a pak se už jenom # provede substituce do mustru a zobrazí se protokol pro tisk. # # randomize+random context.use load.sql !select * from Hospitalizace where Hospid='$(Hospid)' if @DatOdchod <> void then exit.show.message Pacient má už vyplněn odchod. Nejedná se o omyl ? Pokud ne, zkuste funkci zápisu operace starému pacientovi. set Datum,$(Today),Diagnoza,,Odbornost,506,X,$(Random) wizard Operace,ZacatekOperace exit.iffalse insert Operace dump operace fold Text,TextFolded,70 subst mustry\operace_tisk.mus,c:\tmp\operace.raw indent c:\tmp\operace.raw,c:\tmp\operace.txt,4 view.inner c:\tmp\operace.txt exit # # wizard vypadá takto: # Operace Prijmeni Caption = Info Comment = Zde se zobrazuje pro kontrolu identifikace pacienta, nemá smyslu ji měnit ... Type = String Jmeno Caption = Info Comment = Zde se zobrazuje pro kontrolu identifikace pacienta, nemá smyslu ji měnit ... Type = String Datum Caption = Datum Comment = Datum operace ... Type = String ZacatekOperace Caption = Začátek Comment = Začátek operace ve tveru HHMM ... Type = String Definition = 0000 Check = !void & digits & time KonecOperace Caption = Konec Comment = Konec operace ve tveru HHMM ... Definition = 0000 Type = String Check = !void & digits & time OsC Caption = Lékař - OsC Comment = Vyplňuje se osobní číslo lékaře, který výkon vykazuje. Check = !void Type = Lookup Definition Database = DefaultVaxNtDb Key = Osc Sql = select * from Lekari order by poradi Fields = Lekar;Prijmeni;Jmeno;Titul;Osc Odbornost Caption = Odbornost Comment = Odbornost Type = string Klasifikace Caption = Klasifikace Comment = Klasifikace podle zkratek v seznamu Type = Lookup Definition Database = DefaultVaxNtDb Key = Zkratka Sql = select Zkratka,Text from Zkratky where Tp='Klasifikace' order by Zkratka Fields = Zkratka;Text Check = !void & script(lbr/vykony.prg) Klasifikace2 Caption = Klasifikace2 Comment = Klasifikace podle celostátního číselníku Type = Lookup Definition Database = DefaultVaxNtDb Key = klasifikace2 Sql = select klasifikace2,Txt from klasifikace2 order by 1 Fields = klasifikace2;Txt Check = !void Vykon1 Caption = Výkon Comment = Vyplňuje se kód výkonu, je možno napsat i V x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Kod Sql = select * from VykonyTypicke order by Kod Fields = Kod;Text Vykon2 Caption = Výkon Comment = Vyplňuje se kód výkonu, je možno napsat i V x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Kod Sql = select * from VykonyTypicke order by Kod Fields = Kod;Text Vykon3 Caption = Výkon Comment = Vyplňuje se kód výkonu, je možno napsat i V x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Kod Sql = select * from VykonyTypicke order by Kod Fields = Kod;Text Vykon4 Caption = Výkon Comment = Vyplňuje se kód výkonu, je možno napsat i V x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Kod Sql = select * from VykonyTypicke order by Kod Fields = Kod;Text Vykon5 Caption = Výkon Comment = Vyplňuje se kód výkonu, je možno napsat i V x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Kod Sql = select * from VykonyTypicke order by Kod Fields = Kod;Text Vykon6 Caption = Výkon Comment = Vyplňuje se kód výkonu, je možno napsat i V x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Kod Sql = select * from VykonyTypicke order by Kod Fields = Kod;Text Vykon7 Caption = Výkon Comment = Vyplňuje se kód výkonu, je možno napsat i V x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Kod Sql = select * from VykonyTypicke order by Kod Fields = Kod;Text Vykon8 Caption = Výkon Comment = Vyplňuje se kód výkonu, je možno napsat i V x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Kod Sql = select * from VykonyTypicke order by Kod Fields = Kod;Text Zum1 Caption = Zum Comment = Vyplňuje se kód zumu, je možno napsat i Z x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Zum Sql = select * from Zumy Fields = Zum;Text Zum2 Caption = Zum Comment = Vyplňuje se kód zumu, je možno napsat i Z x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Zum Sql = select * from Zumy Fields = Zum;Text Zum3 Caption = Zum Comment = Vyplňuje se kód zumu, je možno napsat i Z x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Zum Sql = select * from Zumy Fields = Zum;Text Zum4 Caption = Zum Comment = Vyplňuje se kód zumu, je možno napsat i Z x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Zum Sql = select * from Zumy Fields = Zum;Text Zum5 Caption = Zum Comment = Vyplňuje se kód zumu, je možno napsat i Z x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Zum Sql = select * from Zumy Fields = Zum;Text Zum6 Caption = Zum Comment = Vyplňuje se kód zumu, je možno napsat i Z x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Zum Sql = select * from Zumy Fields = Zum;Text Zum7 Caption = Zum Comment = Vyplňuje se kód zumu, je možno napsat i Z x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Zum Sql = select * from Zumy Fields = Zum;Text Zum8 Caption = Zum Comment = Vyplňuje se kód zumu, je možno napsat i Z x četnost, tedy například 40098x3 Type = Lookup Definition Database = DefaultVaxNtDb Key = Zum Sql = select * from Zumy Fields = Zum;Text DiagnozaOp Caption = Diagnoza Comment = Vyplníme diagnozu volným textem Type = MEMO Definition WantReturns = 1 WordWrap = 1 WantTabs = 0 OperacniVykon Caption = Operační výkon Comment = Vyplníme operační výkon volným textem Type = MEMO Definition WantReturns = 1 WordWrap = 1 WantTabs = 0 Operater Caption = Operatér Comment = Vyplňuje se lékař podle seznamu Check = !void Type = Lookup Definition Database = DefaultVaxNtDb Key = lekar Sql = select * from Lekari order by poradi Fields = Lekar;Prijmeni;Jmeno;Titul;Osc Asistent Caption = Asistent Comment = Vyplňuje se lékař podle seznamu Type = Lookup Definition Database = DefaultVaxNtDb Key = lekar Sql = select * from Lekari order by poradi Fields = Lekar;Prijmeni;Jmeno;Titul;Osc Asistent2 Caption = Asistent2 Comment = Vyplňuje se lékař podle seznamu Type = Lookup Definition Database = DefaultVaxNtDb Key = lekar Sql = select * from Lekari order by poradi Fields = Lekar;Prijmeni;Jmeno;Titul;Osc Instrumentarka Caption = Instrumentářka Comment = Vyplňuje se podle seznamu Type = Lookup Definition Database = DefaultVaxNtDb Key = Instrumentarka Sql = select * from Instrumentarky order by Instrumentarka Fields = Instrumentarka Anesteziolog Caption = Anesteziolog Comment = Vyplňuje se podle seznamu Type = Lookup Definition Database = DefaultVaxNtDb Key = Anesteziolog Sql = select * from Anesteziologove order by Anesteziolog Fields = Anesteziolog AnestSestra Caption = Anest. sestra Comment = Vyplňuje se podle seznamu Type = Lookup Definition Database = DefaultVaxNtDb Key = AnestSestra Sql = select * from AnestSestry order by AnestSestra Fields = AnestSestra Text Caption = Text Comment = Vyplníme popis operace volným textem Type = MEMO Definition WantReturns = 1 WordWrap = 1 WantTabs = 0