TForm *TSpecDefinition::initForm()
{
TForm *f = new TForm();
TPage *p;
TMeasurements m = TMeasurements();
/* Contructing Page 1... */
p = new TPage( "Mitarbeiter" );
m.reset();
p->insert( new TTextField( m, "Titel", 10 ) );
p->insert( new TNameField( m, "Name ", 30 ) );
p->insert( new TNameField( m, "Vorname", 15, moNoSpace ) );
p->insert( new TDateField( m, "Geburtsdatum", 10, "TT.MM.JJJJ", moHor ) );
p->lastInserted->setInfoLevel( ilNormal );
/* p->insert( new TRadioField( m, "Geschlecht",
2,
new TSItem( "M�nnlich",
new TSItem( "Weiblich",
new TSItem( "S�ugling m�nnlich",
new TSItem( "S�ugling weiblich",
0 )))),
new TSItem( "M",
new TSItem( "W",
new TSItem( "SM",
new TSItem( "SW",
0 )))),
moDown ) ); */
p->insert( new TTextField( m, "Abteilung/Kostenstelle", 30, moVert ) );
p->insert( new TTextField( m, "Funktion", 30, moVert ) );
p->insert( new TTextField( m, "Zuordnung ", 5, moHor ) );
p->insert( new TTextField( m, "Berechtigung", 2, moHor | moDown | moNoSpace ) );
m.control.a.y += 3;
m.control.b.y += 3;
f->insert( p );
/* Contructing Page 2... */
p = new TPage( "Passwort" );
m.reset();
// m.control.a.y -= 2;
// m.control.b.y -= 2;
p->insert( new TTextField( m, "Passwort", 8 ) );
p->insert( new THiddenConstField( m, "", 288 ) );
p->insert( new THiddenConstField( m, "#S#", 3 ) );
f->insert( p );
return f;
}
TForm *TSpecDefinition::initForm()
{
TForm *f = new TForm();
TPage *p;
TMeasurements m = TMeasurements();
/* Contructing Page 1... */
p = new TPage( "Kostenstelle" );
m.reset();
p->insert( new TSpecCardTextField( m, "Nummer", 3 ) );
p->lastInserted->makeNecessary();
p->lastInserted->enableCard( 12, 0 );
p->lastInserted->enableCardLabel( 0, 1 );
p->lastInserted->setInfoLevel( ilNormal );
p->insert( new TSpecCardTextField( m, "Bezeichnung", 29, moVert ) );
p->lastInserted->makeNecessary();
p->lastInserted->enableCardLabel( 0, 0 );
p->lastInserted->setInfoLevel( ilNormal );
p->insert( new THiddenConstField( m, "KOSTENSTELLE", 12 ) );
p->lastInserted->enableCard( 0, 0 );
p->insert( new THiddenConstField( m, "KOSTENSTELLE", 12 ) );
p->lastInserted->enableCard( 0, 1 );
p->insert( new THiddenConstField( m, "KOSTENSTELLE", 12 ) );
p->lastInserted->enableCard( 0, 2 );
f->insert( p );
return f;
}
TForm *TSpecDefinition::initForm()
{
TForm *f = new TForm();
TPage *p;
TMeasurements m = TMeasurements();
/* Contructing Page 1... */
p = new TPage( "Aufnahme" );
m.reset();
p->insert( new TNameField( m, "Name ", 30 ) );
p->lastInserted->makeNecessary();
p->insert( new TNameField( m, "Vorname", 15, moNoSpace ) );
p->lastInserted->makeNecessary();
m.control.a.y --; //!!!
m.control.b.y --; //!!!
p->insert( new TBirthDateField( m, "Geb.datum", 10, "TT.MM.JJJJ" ) );
p->lastInserted->setInfoLevel( ilNormal );
p->lastInserted->makeNecessary();
p->insert( new TRadioField( m, "Geschlecht",
1,
new TSItem( "M�nnlich",
new TSItem( "Weiblich", 0 )),
new TSItem( "M",
new TSItem( "W", 0 )),
moDown | moNoSpace ) );
m.control.a.y ++;
m.control.b.y ++;
m.control.a.y --; //!!!
m.control.b.y --; //!!!
p->insert( new TPNumberField( m, "Aufnahmenr.", 8, "Bereich.Ini",
moDown | moVert ) );
p->lastInserted->setInfoLevel( ilNormal );
p->lastInserted->makeNecessary();
p->insert( new TSystemDateField( m, "Datum", 8, "TT.MM.JJ" ) );
p->lastInserted->makeNecessary();
p->insert( new TSystemTimeField( m, "Zeit" ) );
p->lastInserted->makeNecessary();
p->insert( new TTextField( m, "Strasse", 30, moHor ) );
p->lastInserted->makeNecessary();
p->insert( new TTextField( m, "PLZ", 8, moHor | moNoSpace ) );
p->lastInserted->makeNecessary();
p->insert( new TTextField( m, "Ort", 20, moHor | moNoSpace | moRight ) );
p->lastInserted->makeNecessary();
m.control.a.y --; //!!!
m.control.b.y --; //!!!
p->insert( new TTextField( m, "Kassennr.", 7, moVert ) );
p->insert( new TTextField( m, "Krankenkassenname", 28, moRight ) );
m.control.a.y --; //!!!
m.control.b.y --; //!!!
p->insert( new TTextField( m, "VersNr.", 12, moHor ) );
p->insert( new TTextField( m, "Status", 7, moRight ) );
p->insert( new TRadioField( m, "Allgemein/Privat", 10,
new TSItem( "",
new TSItem( "Allgemein",
new TSItem( "Privat", 0 ))),
new TSItem( "",
new TSItem( "Akut 2",
new TSItem( "Akut ML 1", 0 ))),
moHor ) );
p->lastInserted->makeNecessary();
m.control.a.y += 2;
m.control.b.y += 2;
f->insert( p );
/* Contructing Page 3... */
p = new TPage( "Kostentr�ger" );
m.reset();
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TListField( m, "Kostentr�ger", 25,
"KOSTENTR.LST", 11, moDown | moVert ) );
p->lastInserted->makeNecessary();
m.control.a.y += 10;
m.control.b.y += 10;
p->insert( new TTextField( m, "Zusatzinfo (z.B. K�rzel, Adresse)", 38,
moVert ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
f->insert( p );
/* Contructing Page 2... */
p = new TPage( "Station" );
m.reset();
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TListField( m, "Befund an/Entlassen auf:", 24,
"STATION.LST", 16, moDown | moVert ) );
p->lastInserted->setInfoLevel( ilNormal );
p->lastInserted->makeNecessary();
f->insert( p );
/* Contructing Page 3... */
p = new TPage( "Personalien" );
m.reset();
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TRadioField( m, "Eingeliefert durch",
20,
new TSItem( "Selbst",
new TSItem( "Rettungswagen",
new TSItem( "Notarztwagen",
new TSItem( "Hubschrauber", 0 )))),
new TSItem( "Selbst",
new TSItem( "Rettungswagen",
new TSItem( "Notarztwagen",
new TSItem( "Hubschrauber", 0 )))),
moDown | moVert ) );
m.control.a.y += 3;
m.control.b.y += 3;
p->insert( new TTextField( m, "Arbeitgeber Name, Str., PLZ, Ort", 30,
moVert ) );
p->insert( new TTextField( m, 0, 30, moNoSpace ) );
p->insert( new TTextField( m, 0, 28, moNoSpace ) );
f->insert( p );
/* Contructing Page 4... */
p = new TPage( "Anamnese" );
m.reset();
// m.control.a.y ++;
// m.control.b.y ++;
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TTextField( m, "Hauptversicherter", 30, moHor ) );
p->insert( new TBirthDateField( m, "Geb.datum ", 10, "TT.MM.JJJJ",
moHor | moNoSpace ) );
p->insert( new TRadioField( m, "Status",
3,
new TSItem( "HV",
new TSItem( "FAM",
new TSItem( "REN", 0 ))),
new TSItem( "HV",
new TSItem( "FAM",
new TSItem( "REN", 0 ))),
moDown | moHor ) );
m.control.a.y += 2;
m.control.b.y += 2;
p->insert( new THiddenConstField( m, "Anamnese", 8 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TTextField( m, "Anamnese", 38, moVert ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
f->insert( p );
/* Contructing Page 5... */
p = new TPage( "Aufnahmebefund" );
m.reset();
// m.control.a.y ++;
// m.control.b.y ++;
p->insert( new THiddenConstField( m, "Aufnahmebefund", 14 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TTextField( m, "Aufnahmebefund", 38, moVert ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
f->insert( p );
/* Contructing Page 6... */
p = new TPage( "Diagnose/Behandlung" );
m.reset();
// m.control.a.y ++;
// m.control.b.y ++;
p->insert( new THiddenConstField( m, "Diagnose", 8 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TTextField( m, "Aufnahmediagnose", 38, moVert ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new THiddenConstField( m, "Behandlung", 10 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TTextField( m, "Behandlung", 38, moVert ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
f->insert( p );
/* Contructing Page 7... */
p = new TPage( "Sonstiges" );
m.reset();
// m.control.a.y ++;
// m.control.b.y ++;
// m.control.a.y -= 2;
// m.control.b.y -= 2;
p->insert( new THiddenConstField( m, "Medikamente + Leistungen", 24 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TTextField( m, "Medikamente + Leistungen", 38, moVert ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 38, moNoSpace ) );
p->insert( new TTextField( m, 0, 40, moNoSpace ) );
p->insert( new THiddenConstField( m, " ", 2 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
// p->insert( new TRadioField( m, "D13-Eigenunfall",
// 4,
// new TSItem( "Nein",
// new TSItem( "Ja", 0 )),
// new TSItem( "Nein",
// new TSItem( "Ja", 0 )),
// moHor | moDown ) );
// m.control.a.y ++;
// m.control.b.y ++;
p->insert( new TDateField( m, "Nachschau am", 8, "TT.MM.JJ", moHor | moDown ) );
p->insert( new TNumericField( m, "Uhr", 5, ":" ) );
p->insert( new TControlField( m, "Ambulant/Station�r",
1,
new TSItem( "in Behandlung",
new TSItem( "entlassen",
new TSItem( "station�r",
new TSItem( "D13 Eigenunfall entl.",
new TSItem( "D13 Eigenunfall stat.",
new TSItem( "D13 entlassen",
new TSItem( "D13 station�r", 0 ))))))),
new TSItem( "1",
new TSItem( "2",
new TSItem( "3",
new TSItem( "4",
new TSItem( "5",
new TSItem( "6",
new TSItem( "7", 0 ))))))),
moDown | moVert ) );
f->insert( p );
/* Contructing Page 7... */
p = new TPage( "Konsil�rzte" );
m.reset();
m.control.a.y ++;
m.control.b.y ++;
p->insert( new TTextField( m, "Arzt Name", 30, moVert ) );
p->insert( new TTextField( m, "Konsilarzt 1", 30 ) );
p->insert( new TTextField( m, "Konsilarzt 2", 30 ) );
p->insert( new TTextField( m, "Konsilarzt 3", 30 ) );
p->insert( new TTextField( m, "Konsilarzt 4", 30 ) );
f->insert( p );
return f;
}
TForm *TSpecDefinition::initForm()
{
TForm *f = new TForm();
TPage *p;
TMeasurements m = TMeasurements();
/* Contructing Page 1... */
p = new TPage( "Personalien I" );
m.reset();
p->insert( new TNumericField( m, "Patientennr.", 10, "." ) );
p->lastInserted->makeNecessary();
// p->lastInserted->enableCard( 0, 1 );
p->lastInserted->enableCard( 29, 1 );
p->lastInserted->enableCardLabel( 18, 4 );
p->insert( new TNameField( m, "Name ", 26 ) );
p->lastInserted->makeNecessary();
p->lastInserted->enableCard( 0, 0 );
p->lastInserted->enableCardLabel( 1, 0 );
p->insert( new TNameField( m, "Vorname", 12, moNoSpace ) );
p->lastInserted->makeNecessary();
p->lastInserted->enableCard( 26, 0 );
p->lastInserted->enableCardLabel( 1, 1 );
p->insert( new TTextField( m, "Strasse, Nr.", 26 ) );
p->lastInserted->enableCard( 64, 0 );
p->insert( new TTextField( m, "PLZ, Ort ", 26, moNoSpace ) );
p->lastInserted->makeNecessary();
p->lastInserted->enableCard( 38, 0 );
p->lastInserted->enableCardLabel( 1, 2 );
p->insert( new TNumericField( m, "Steuer-Code", 3, " ", moVert ) );
p->insert( new TTextField( m, "Heimatort/Nat.", 18, moVert | moRight ) );
p->insert( new TDateField( m, "Geburtsdatum", 10, "TT.MM.JJJJ", moHor ) );
p->lastInserted->makeNecessary();
p->lastInserted->enableCard( 9, 1 );
p->lastInserted->enableCardLabel( 1, 3 );
p->lastInserted->setInfoLevel( ilNormal );
p->insert( new TRadioField( m, "Geschlecht",
2,
new TSItem( "M�nnlich",
new TSItem( "Weiblich",
new TSItem( "S�ugling m�nnlich",
new TSItem( "S�ugling weiblich",
0 )))),
new TSItem( "M",
new TSItem( "W",
new TSItem( "SM",
new TSItem( "SW",
0 )))),
moDown ) );
p->lastInserted->makeNecessary();
p->lastInserted->enableCard( 19, 1 );
p->lastInserted->enableCardLabel( 13, 3 );
m.control.a.y += 3;
m.control.b.y += 3;
f->insert( p );
/* Contructing Page 2... */
p = new TPage( "Personalien II" );
m.reset();
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TRadioField( m, "Zivilstand",
5,
new TSItem( "ledig",
new TSItem( "verheiratet",
new TSItem( "geschieden",
new TSItem( "getrennt",
new TSItem( "verwitwet", 0 ))))),
new TSItem( "LEDIG",
new TSItem( "VERH.",
new TSItem( "GESCH",
new TSItem( "GETR.",
new TSItem( "VERW.", 0 ))))),
moDown ) );
m.control.a.y += 4;
m.control.b.y += 4;
p->insert( new TRadioField( m, "Konfession",
5,
new TSItem( "reformiert",
new TSItem( "r�misch-katholisch",
new TSItem( "christlich-katholisch",
new TSItem( "neuapostolisch",
new TSItem( "freikirchlich",
new TSItem( "j�disch",
new TSItem( "islamisch",
new TSItem( "budhistisch",
new TSItem( "andere",
new TSItem( "keine", 0 )))))))))),
new TSItem( "REF",
new TSItem( "RK",
new TSItem( "CHK",
new TSItem( "NAP",
new TSItem( "FK",
new TSItem( "J�D",
new TSItem( "ISLAM",
new TSItem( "BUDHA",
new TSItem( "AND",
new TSItem( "KEINE", 0 )))))))))),
moDown ) );
f->insert( p );
/* Contructing Page 3... */
p = new TPage( "Personalien III" );
m.reset();
p->insert( new TNumericField( m, "Telefon Privat", 13, " -/" ) );
p->insert( new TTextField( m, "Ehepartner", 26 ) );
p->insert( new TTextField( m, "Beruf", 18 ) );
p->insert( new TTextField( m, "Arbeitgeber ", 34 ) );
p->insert( new TNumericField( m, "Telefon Arb.", 13, " -/", moNoSpace ) );
p->insert( new TTextField( m, "Angeh�rige 1", 34 ) );
p->insert( new TNumericField( m, "Telefon Ang.", 13, " -/", moNoSpace ) );
p->insert( new TTextField( m, "Angeh�rige 2", 34 ) );
p->insert( new TNumericField( m, "Telefon Ang.", 13, " -/", moNoSpace ) );
p->insert( new TTextField( m, "Angeh�rige 3", 34 ) );
p->insert( new TNumericField( m, "Telefon Ang.", 13, " -/", moNoSpace ) );
f->insert( p );
/* Contructing Page 4... */
p = new TPage( "Eintritt" );
m.reset();
p->insert( new TTextField( m, "Klasse ", 1 ) );
p->lastInserted->makeNecessary();
p->lastInserted->enableCard( 94, 0 );
p->lastInserted->enableCardLabel( 13, 4 );
p->insert( new TTextField( m, "Abteilung ", 4 ) );
p->lastInserted->enableCard( 90, 0 );
p->lastInserted->enableCardLabel( 1, 4 );
p->insert( new TTextField( m, "Station", 1 ) );
p->insert( new TTextField( m, "Zimmer-Nr.", 3 ) );
p->insert( new TTextField( m, "Eintritts-Code", 1 ) );
p->insert( new TDateField( m, "Eintr.Datum", 8, "TT.MM.JJ" ) );
p->lastInserted->makeNecessary();
p->lastInserted->enableCard( 21, 1 );
p->lastInserted->enableCardLabel( 20, 3 );
p->insert( new TNumericField( m, "Zeit", 5, ".", moRight ) );
p->insert( new TTextField( m, "Eintr.Grund", 15 ) );
p->insert( new TNumericField( m, "Fr�h.Aufenthalt", 7, " ,/-" ) );
p->insert( new TTextField( m, "Taxkat.", 2 ) );
p->insert( new TTextField( m, "Garant 1", 34 ) );
p->insert( new TTextField( m, "Mitglied-Nr.", 15, moNoSpace ) );
p->insert( new TTextField( m, "Garant 2", 34 ) );
p->insert( new TTextField( m, "Mitglied-Nr.", 15, moNoSpace ) );
f->insert( p );
/* Contructing Page 5... */
p = new TPage( "�rzte" );
m.reset();
m.control.a.y++;
m.control.b.y++;
p->insert( new TTextField( m, "Zustelladresse", 34, moVert ) );
p->insert( new TTextField( m, 0, 34, moNoSpace ) );
p->insert( new TTextField( m, 0, 34, moNoSpace ) );
p->insert( new TTextField( m, "Einweisender Arzt", 34, moVert ) );
p->insert( new TTextField( m, "Hausarzt ", 34, moVert ) );
p->insert( new TTextField( m, "Behandelnder Arzt", 15 ) );
m.control.a.y++;
m.control.b.y++;
p->insert( new TTextField( m, "Aufgenommen durch", 5, moHor ) );
f->insert( p );
return f;
}
TForm *TSpecDefinition::initForm()
{
TForm *f = new TForm();
TPage *p;
TMeasurements m = TMeasurements();
/* Contructing Page 1... */
p = new TPage( "Personalien I" );
m.reset();
p->insert( new TNameField( m, "Name ", 25 ) );
p->lastInserted->makeNecessary();
p->lastInserted->enableCard( 10, 0 );
p->lastInserted->enableCardLabel( 0, 0 );
p->insert( new TNameField( m, "Vorname", 18, moNoSpace ) );
p->lastInserted->makeNecessary();
p->lastInserted->enableCard( 35, 0 );
p->lastInserted->enableCardLabel( 0, 1, 15 );
p->insert( new TRadioField( m, "Geschlecht",
1,
new TSItem( "M�nnlich",
new TSItem( "Weiblich", 0 )),
new TSItem( "M",
new TSItem( "W", 0 )),
moDown ) );
p->lastInserted->enableCard( 63, 0 );
p->lastInserted->enableCardLabel( 11, 2 );
m.control.a.y++;
m.control.b.y++;
p->insert( new TDateField( m, "Geburtsdatum", 10, "TT.MM.JJJJ" ) );
p->lastInserted->makeNecessary();
p->lastInserted->enableCard( 53, 0 );
p->lastInserted->enableCardLabel( 0, 2 );
p->lastInserted->setInfoLevel( ilNormal );
p->insert( new TRadioField( m, "Religion",
3,
new TSItem( "-",
new TSItem( "r�m.kath.",
new TSItem( "evangelisch",
new TSItem( "orthodox",
new TSItem( "Moslem",
new TSItem( "andere",
new TSItem( "konf.-los", 0 ))))))),
new TSItem( "-",
new TSItem( "RK",
new TSItem( "EVA",
new TSItem( "ORT",
new TSItem( "MOS",
new TSItem( "APND",
new TSItem( "KEI", 0 ))))))),
moDown ) );
p->lastInserted->enableCard( 67, 0 );
m.control.a.y += 5;
m.control.b.y += 5;
f->insert( p );
/* Contructing Page 2... */
p = new TPage( "Adresse/Eintritt" );
m.reset();
// m.control.a.y -= 2;
// m.control.b.y -= 2;
p->insert( new TTextField( m, "Strasse", 25 ) );
p->lastInserted->enableCard( 70, 0 );
p->insert( new TTextField( m, "PLZ", 5 ) );
p->lastInserted->enableCard( 95, 0 );
p->insert( new TTextField( m, "Ort", 20 ) );
p->lastInserted->enableCard( 100, 0 );
p->insert( new TRadioField( m, "Eintritts-Typ",
4,
new TSItem( "NOTF",
new TSItem( "ACHI",
new TSItem( "AMB",
new TSItem( "APG�",
new TSItem( "APHO",
new TSItem( "APLI",
new TSItem( "APWE",
new TSItem( "ATAG",
new TSItem( "SCHR",
new TSItem( "STAT",
new TSItem( "VOR", 0 ))))))))))),
new TSItem( "NOTF",
new TSItem( "ACHI",
new TSItem( "AMB",
new TSItem( "APG�",
new TSItem( "APHO",
new TSItem( "APLI",
new TSItem( "APWE",
new TSItem( "ATAG",
new TSItem( "SCHR",
new TSItem( "STAT",
new TSItem( "VOR", 0 ))))))))))),
moDown ) );
p->lastInserted->enableCard( 125, 1 );
m.control.a.y += 10;
m.control.b.y += 10;
p->insert( new TDateField( m, "Eintrittsdatum", 8, "TT.MM.JJ" ) );
p->lastInserted->enableCard( 129, 1 );
p->lastInserted->enableCardLabel( lineLength - 8, 2 );
// p->insert( new TNumericField( m, "Eintrittszeit", 5, ".:" ) );
f->insert( p );
/* Contructing Page 3... */
p = new TPage( "Eintr.Art/Fall" );
m.reset();
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TRadioField( m, "Eintritts-Art ",
8,
new TSItem( "Chroni.",
new TSItem( "Geb/Saeg",
new TSItem( "Krankh.",
new TSItem( "Mutters.",
new TSItem( "Schwang.",
new TSItem( "Unfall", 0 )))))),
new TSItem( "Chroni.",
new TSItem( "Geb/Saeg",
new TSItem( "Krankh.",
new TSItem( "Mutters.",
new TSItem( "Schwang.",
new TSItem( "Unfall", 0 )))))),
moDown ) );
p->lastInserted->enableCard( 18, 2 );
m.control.a.y += 2;
m.control.b.y += 2;
p->insert( new TRadioField( m, "Fall",
4,
new TSItem( "CHI",
new TSItem( "GER",
new TSItem( "GYN",
new TSItem( "MED",
new TSItem( "OPH",
new TSItem( "ORL",
new TSItem( "ORT",
new TSItem( "PED",
new TSItem( "SAEZ",
new TSItem( "URO", 0 )))))))))),
new TSItem( "CHI",
new TSItem( "GER",
new TSItem( "GYN",
new TSItem( "MED",
new TSItem( "OPH",
new TSItem( "ORL",
new TSItem( "ORT",
new TSItem( "PED",
new TSItem( "SAEZ",
new TSItem( "URO", 0 )))))))))),
moDown ) );
p->lastInserted->enableCard( 26, 2 );
m.control.a.y += 9;
m.control.b.y += 9;
p->insert( new THiddenConstField( m, "PR", 2 ) );
p->lastInserted->enableCard( 140, 2 );
p->lastInserted->enableCardLabel( lineLength - 4 - 7 - 3, 1 );
p->insert( new TSchwyzPNumberField( m, "Patientennr.", 7, "Bereich.Ini",
moDown ) );
p->lastInserted->enableCard( 0, 0 );
p->lastInserted->enableCardLabel( lineLength - 4 - 7, 1 );
p->insert( new THiddenConstField( m, ".", 1 ) );
p->lastInserted->enableCardLabel( lineLength - 4, 1 );
p->insert( new THiddenConstField( m, "001", 3 ) );
p->lastInserted->enableCard( 7, 0 );
p->lastInserted->enableCardLabel( lineLength - 3, 1 );
p->insert( new THiddenConstField( m, "/", 1 ) );
p->lastInserted->enableCardLabel( 10, 2 );
f->insert( p );
return f;
}
TForm *TSpecDefinition::initForm()
{
TForm *f = new TForm();
TPage *p;
TMeasurements m = TMeasurements();
/* Contructing Page 1... */
p = new TPage( "Personalien I" );
m.reset();
p->insert( new TNameField( m, "Name", 28 ) );
// p->lastInserted->enableCard( 0, 0 );
// p->lastInserted->enableCardLabel( 0, 0, 27 );
p->insert( new TTextField( m, "Geb./Ledigername", 20 ) );
// p->lastInserted->enableCard( 30, 0 );
// p->lastInserted->enableCardLabel( 0, 1 );
p->insert( new THiddenConstField( m, "", 8 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TNameField( m, "Vorname", 18 ) );
p->insert( new THiddenConstField( m, "", 10 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TTextField( m, "Anrede", 20 ) );
p->insert( new TTextField( m, "Pflegeklasse", 10 ) );
p->insert( new THiddenConstField( m, "", 10 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TDateField( m, "Geb.Datum", 10, "TT.MM.JJJJ" ) );
p->insert( new TDateField( m, "E-Datum", 10, "TT.MM.JJJJ", moVert | moDown ) );
p->insert( new TTextField( m, "Fallnummer", 8, moVert ) );
p->insert( new TTextField( m, "PLZ, Ort", 30, moHor ) );
p->insert( new TTextField( m, "Strasse ", 24, moNoSpace ) );
p->insert( new THiddenConstField( m, "", 6 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
f->insert( p );
/* Contructing Page 2... */
p = new TPage( "Personalien II" );
m.reset();
p->insert( new TTextField( m, "Geschlecht", 1 ) );
// p->insert( new TRadioField( m, "Geschlecht",
// 1,
// new TSItem( "M�nnlich",
// new TSItem( "Weiblich", 0 )),
// new TSItem( "M",
// new TSItem( "W", 0 )),
// moDown ) );
p->insert( new THiddenConstField( m, "", 9 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TTextField( m, "Behand.Bereich-Text", 10 ) );
p->insert( new THiddenConstField( m, "", 96 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TTextField( m, "Einweisender Arzt", 28 ) );
p->insert( new TTextField( m, "Hausarzt", 28 ) );
p->insert( new THiddenConstField( m, "", 20 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TTextField( m, "Konfession", 10 ) );
p->insert( new THiddenConstField( m, "", 10 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TTextField( m, "Beruf", 20 ) );
p->insert( new THiddenConstField( m, "", 8 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TTextField( m, "Telefon priv.", 15 ) );
p->insert( new THiddenConstField( m, "", 113 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
f->insert( p );
/* Contructing Page 3... */
p = new TPage( "Personalien III" );
m.reset();
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TTextField( m, "Arbeitgeber", 28 ) );
p->insert( new TTextField( m, "Angeh�riger", 28 ) );
p->insert( new TTextField( m, "PLZ, Ort Angeh�riger", 20 ) );
p->insert( new TTextField( m, "Telefon Angeh�riger", 15 ) );
p->insert( new THiddenConstField( m, "", 73 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TTextField( m, "Garant 1", 28 ) );
p->insert( new THiddenConstField( m, "", 4 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TTextField( m, "Behandelte Abteilung", 8 ) );
p->insert( new THiddenConstField( m, "", 1258 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new THiddenConstField( m, "$BC", 3 ) );
m.control.a.y -= 2;
m.control.b.y -= 2;
f->insert( p );
return f;
}
TForm *TSpecDefinition::initForm()
{
TForm *f = new TForm();
TPage *p;
TMeasurements m = TMeasurements();
/* Contructing Page 1... */
p = new TPage( "Patientendaten I" );
m.reset();
p->insert( new TTextField( m, "Aufnahmenummer", 8 ) );
p->insert( new TNameField( m, "Name", 32, moVert ) );
p->insert( new TTextField( m, "Geburtsname", 20, moHor ) );
p->insert( new TTextField( m, "Geburtsdatum", 8 ) );
p->insert( new TTextField( m, "PLZ", 5, moDown ) );
p->insert( new TTextField( m, "Wohnort", 23 ) );
p->insert( new TTextField( m, "Strasse", 29 ) );
p->insert( new TTextField( m, "Familienstand", 1 ) );
p->insert( new TTextField( m, "Geschlecht", 1, moRight ) );
f->insert( p );
/* Contructing Page 2... */
p = new TPage( "Patientendaten II" );
m.reset();
p->insert( new TTextField( m, "Herkunftsschl�ssel", 2 ) );
p->insert( new TTextField( m, "Staatsangeh�rigkeit", 2, moDown ) );
p->insert( new TTextField( m, "Religion", 1, moDown ) );
p->insert( new TTextField( m, "Einweisungsart", 2, moDown ) );
p->insert( new TTextField( m, "Aufnahmedatum", 6, moDown ) );
p->insert( new TTextField( m, "Aufnahmeuhrzeit", 4, moDown ) );
p->insert( new TTextField( m, "Klinik/Station", 4, moDown ) );
p->insert( new TTextField( m, "Pflegesatzschl�ssel", 2, moDown ) );
p->insert( new TTextField( m, "Zimmerzuschlagkennz.", 2, moDown ) );
f->insert( p );
/* Contructing Page 3... */
p = new TPage( "Entlass./Kostentr." );
m.reset();
p->insert( new TTextField( m, "Liquidationskennz.", 2 ) );
p->insert( new TTextField( m, "Entlassungsdatum", 4 ) );
p->insert( new TTextField( m, "Entlassungsuhrzeit", 4 ) );
p->insert( new TTextField( m, "Entlassungsart", 1 ) );
p->insert( new TTextField( m, "Externes Krankenhaus", 1 ) );
p->insert( new TTextField( m, "Kostentr�gerschl�ssel", 4 ) );
p->insert( new TTextField( m, "Kostentr�gername", 29, moVert ) );
p->insert( new TTextField( m, "PLZ", 5, moVert ) );
p->insert( new TTextField( m, "Ort", 11 ) );
f->insert( p );
/* Contructing Page 4... */
p = new TPage( "Stammversicherter" );
m.reset();
m.control.a.y++; m.control.b.y++;
p->insert( new TTextField( m, "Aktenzeichen Kostentr�ger", 30, moVert ) );
p->insert( new TTextField( m, "Mitgliedsart", 1, moHor ) );
p->insert( new TTextField( m, "Name Stammversicherter", 26, moVert ) );
p->insert( new TTextField( m, "Geburtsdatum Stammvers.", 8, moHor ) );
p->insert( new TTextField( m, "Beruf Stammvers.", 20, moVert ) );
p->insert( new TTextField( m, "Arbeitgeber Stammvers.", 25, moVert ) );
f->insert( p );
/* Contructing Page 5... */
p = new TPage( "Angeh�rige/Arzt" );
m.reset();
m.control.a.y++; m.control.b.y++;
p->insert( new TTextField( m, "Name n�chster Angeh�riger", 32, moVert ) );
p->insert( new TTextField( m, "PLZ", 5, moVert ) );
p->insert( new TTextField( m, "Wohnort", 23 ) );
p->insert( new TTextField( m, "Strasse", 30 ) );
p->insert( new TTextField( m, "Telefon Angeh.", 12, moHor ) );
p->insert( new TTextField( m, "Schl�ssel einweisender Arzt", 4 ) );
p->insert( new TTextField( m, "Name einweisender Arzt", 28, moVert ) );
f->insert( p );
return f;
}
TForm *TSpecDefinition::initForm()
{
TForm *f = new TForm();
TPage *p;
TMeasurements m = TMeasurements();
/* Contructing Page 1... */
p = new TPage( "Personalien I" );
m.reset();
p->insert( new TNumericField( m, "Patientennr.", 8, "." ) );
p->lastInserted->enableCard( 0, 1 );
p->lastInserted->enableCardLabel( 20, 4 );
p->insert( new TNameField( m, "Name, Vorname", 30, moVert ) );
p->lastInserted->enableCard( 0, 0 );
p->lastInserted->enableCardLabel( 0, 1, 28 );
p->insert( new TTextField( m, "Strasse, Nr.", 30, moVert ) );
p->lastInserted->enableCard( 30, 0 );
p->lastInserted->enableCardLabel( 0, 2, 28 );
p->insert( new TTextField( m, "PLZ, Wohnort", 30, moVert ) );
p->lastInserted->enableCard( 60, 0 );
p->lastInserted->enableCardLabel( 0, 3, 28 );
p->insert( new TDateField( m, "Geburtsdatum", 10, "TT.MM.JJJJ", moDown ) );
p->lastInserted->enableCard( 105, 0 );
p->lastInserted->enableCardLabel( 0, 4 );
p->insert( new TTextField( m, "Geschlecht", 1, moHor ) );
p->lastInserted->enableCard( 115, 0 );
p->lastInserted->enableCardLabel( 11, 4 );
p->insert( new TDateField( m, "Eintrittsdatum", 10, "TT.MM.JJJJ",
moDown ) );
p->lastInserted->enableCard( 98, 1 );
m.control.a.y += 3;
m.control.b.y += 3;
f->insert( p );
/* Contructing Page 2... */
p = new TPage( "Personalien II" );
m.reset();
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TRadioField( m, "Zivilstand",
5,
new TSItem( "ledig",
new TSItem( "verheiratet",
new TSItem( "geschieden",
new TSItem( "getrennt",
new TSItem( "verwitwet", 0 ))))),
new TSItem( "ledig ",
new TSItem( "verheiratet ",
new TSItem( "geschieden ",
new TSItem( "getrennt ",
new TSItem( "verwitwet ", 0 ))))),
moDown ) );
p->lastInserted->enableCard( 0, 2 );
m.control.a.y += 4;
m.control.b.y += 4;
p->insert( new TRadioField( m, "Klasse ",
5,
new TSItem( "PRIV.",
new TSItem( "PRIV. AKUT",
new TSItem( "PRIV. E",
new TSItem( "HALBPRIV.",
new TSItem( "HP AKUT",
new TSItem( "HP E+B4",
new TSItem( "ALLG.",
new TSItem( "ALLG. AKUT",
new TSItem( "BLI",
new TSItem( "UNBEK.", 0 )))))))))),
new TSItem( "PRIVAT ",
new TSItem( "PRIVAT AKUT ",
new TSItem( "PRIVAT E ",
new TSItem( "HALBPRIVAT ",
new TSItem( "HP AKUT ",
new TSItem( "HP E+E4 ",
new TSItem( "ALLGEMEIN ",
new TSItem( "ALLG. AKUT ",
new TSItem( "BLI ",
new TSItem( "UNBEKANNT ", 0 )))))))))),
moDown ) );
p->lastInserted->enableCard( 108, 1);
f->insert( p );
return f;
}
TForm *TSpecDefinition::initForm()
{
TForm *f = new TForm();
TPage *p;
TMeasurements m = TMeasurements();
/* Contructing Page 1... */
p = new TPage( "Personalien I" );
m.reset();
p->insert( new TNumericField( m, "Patientennr. ", 7, "." ) );
p->lastInserted->enableCard( 0, 1 );
p->lastInserted->enableCardLabel( 20, 1 );
p->insert( new TNameField( m, "Name ", 30 ) );
p->lastInserted->enableCard( 0, 0 );
p->lastInserted->enableCardLabel( 0, 0, 27 );
p->insert( new TNameField( m, "Vorname", 18 ) );
p->lastInserted->enableCard( 30, 0 );
p->lastInserted->enableCardLabel( 0, 1 );
p->insert( new TTextField( m, "Strasse, Nr.", 24 ) );
p->lastInserted->enableCard( 48, 0 );
p->insert( new TTextField( m, "PLZ, Ort ", 24 ) );
p->lastInserted->enableCard( 72, 0 );
p->insert( new TRadioField( m, "Geschlecht",
1,
new TSItem( "M�nnlich",
new TSItem( "Weiblich", 0 )),
new TSItem( "M",
new TSItem( "W", 0 )),
moDown ) );
p->lastInserted->enableCard( 115, 2 );
p->lastInserted->enableCardLabel( 26, 2 );
m.control.a.y ++;
m.control.b.y ++;
p->insert( new TDateField( m, "Geburtsdatum ", 8, "TT.MM.JJ", moDown ) );
p->lastInserted->enableCard( 7, 1 );
p->lastInserted->enableCardLabel( 15, 2 );
p->insert( new TNumericField( m, "Telefon Privat", 15, " .-/" ) );
p->lastInserted->enableCard( 96, 2 );
f->insert( p );
/* Contructing Page 2... */
p = new TPage( "Konf./Zivilst." );
m.reset();
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TRadioField( m, "Konfession",
1,
new TSItem( " ",
new TSItem( "reformiert",
new TSItem( "katholisch",
new TSItem( "orthodox",
new TSItem( "neuap.",
new TSItem( "diverse",
new TSItem( "konfessionslos", 0 ))))))),
new TSItem( " ",
new TSItem( "R",
new TSItem( "K",
new TSItem( "O",
new TSItem( "N",
new TSItem( "D",
new TSItem( "-", 0 ))))))),
moDown ) );
m.control.a.y += 6;
m.control.b.y += 6;
p->insert( new TRadioField( m, "Zivilstand",
3,
new TSItem( " ",
new TSItem( "ledig",
new TSItem( "verheiratet",
new TSItem( "verwitwet",
new TSItem( "geschieden",
new TSItem( "keine Angaben", 0 )))))),
new TSItem( " ",
new TSItem( "led",
new TSItem( "vrh",
new TSItem( "vrw",
new TSItem( "gsc",
new TSItem( "k.A", 0 )))))),
moDown ) );
m.control.a.y += 5;
m.control.b.y += 5;
f->insert( p );
/* Contructing Page 3... */
p = new TPage( "Arbeitgeber/�rzte" );
m.reset();
p->insert( new TTextField( m, "Beruf", 23 ) );
p->lastInserted->enableCard( 96, 0 );
p->insert( new TTextField( m, "Arbeitgeber Name", 24, moVert ) );
p->lastInserted->enableCard( 48, 2 );
p->insert( new TTextField( m, "Arbeitgeber Wohnort", 24, moNoSpace ) );
p->lastInserted->enableCard( 72, 2 );
p->insert( new TTextField( m, "Einw. Arzt Name", 24, moVert ) );
p->lastInserted->enableCard( 23, 1 );
p->insert( new TTextField( m, "Einw. Arzt Wohnort", 24, moNoSpace ) );
p->lastInserted->enableCard( 47, 1 );
p->insert( new TTextField( m, "Hausarzt Name", 24, moVert ) );
p->lastInserted->enableCard( 71, 1 );
p->insert( new TTextField( m, "Hausarzt Wohnort", 24, moNoSpace ) );
p->lastInserted->enableCard( 95, 1 );
f->insert( p );
/* Contructing Page 4... */
p = new TPage( "Eintritt" );
m.reset();
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TDateField( m, "Eintrittsdatum", 8, "TT.MM.JJ",
moDown ) );
p->lastInserted->enableCard( 15, 1 );
p->lastInserted->enableCardLabel( 0, 2 );
p->insert( new TNumericField( m, "Eintrittszeit ", 5, ": " ) );
p->insert( new TRadioField( m, "Eintrittscode ",
1,
new TSItem( "Krankheit",
new TSItem( "Unfall",
new TSItem( "Geburt", 0 ))),
new TSItem( "K",
new TSItem( "U",
new TSItem( "G", 0 ))),
moDown ) );
p->lastInserted->enableCard( 116, 2 );
m.control.a.y += 2;
m.control.b.y += 2;
p->insert( new TRadioField( m, "Klasse ",
4,
new TSItem( "1er P.",
new TSItem( "2er P.",
new TSItem( "Allg.",
new TSItem( "Ambulant", 0 )))),
new TSItem( "1erP",
new TSItem( "2erP",
new TSItem( "Allg",
new TSItem( " ", 0 )))),
moDown ) );
p->lastInserted->enableCard( 111, 2 );
p->lastInserted->enableCardLabel( 9, 2 );
m.control.a.y += 3;
m.control.b.y += 3;
p->insert( new TRadioField( m, "Stat./Ambulant",
9,
new TSItem( "station�r",
new TSItem( "ambulant", 0 )),
new TSItem( "Station�r",
new TSItem( "Ambulant", 0 )),
moDown ) );
p->lastInserted->enableCardLabel( 9, 3 );
m.control.a.y += 1;
m.control.b.y += 1;
f->insert( p );
/* Contructing Page 5... */
p = new TPage( "Diverses" );
m.reset();
m.control.a.y -= 2;
m.control.b.y -= 2;
p->insert( new TRadioField( m, "Taxkatogorie",
1,
new TSItem( " ",
new TSItem( "Selbstzahler",
new TSItem( "Krankenkasse",
new TSItem( "SUVA",
new TSItem( "IV",
new TSItem( "EMU",
new TSItem( "Priv.V.",
new TSItem( "F�rsorge", 0 )))))))),
new TSItem( " ",
new TSItem( "S",
new TSItem( "K",
new TSItem( "S",
new TSItem( "I",
new TSItem( "E",
new TSItem( "P",
new TSItem( "F", 0 )))))))),
moDown ) );
p->lastInserted->enableCard( 111, 2 );
m.control.a.y += 7;
m.control.b.y += 7;
p->insert( new TTextField( m, "Kostenstelle", 30, moDown | moVert ) );
p->insert( new TTextField( m, "Kostentr�ger Name", 24, moVert ) );
p->lastInserted->enableCard( 0, 2 );
p->insert( new TTextField( m, "Kostentr�ger Wohnort", 24, moNoSpace ) );
p->lastInserted->enableCard( 24, 2 );
p->insert( new THiddenConstField( m, "", 2 ) );
p->lastInserted->enableCard( 117, 2 );
p->insert( new THiddenConstField( m, "", 1 ) );
p->lastInserted->enableCard( 119, 0 );
p->insert( new THiddenConstField( m, "", 1 ) );
p->lastInserted->enableCard( 119, 1 );
p->insert( new THiddenConstField( m, "", 1 ) );
p->lastInserted->enableCard( 119, 2 );
p->insert( new THiddenConstField( m, "/", 1 ) );
p->lastInserted->enableCardLabel( 25, 2 );
f->insert( p );
return f;
}
