Visual Basic 4 Power Pack

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / schedvbx / samples.z / PATLIST.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1995-03-14 | 9.0 KB | 224 lines

PatientListForm Patients Form15X PatList Panel3D1 SSPanel# Notes Status PrimaryDoc InsuranceCompany PhoneWork PhoneHome State PatientName Address PatNumber PatNumber Label10 Notes: Label9 Status: Label8 Primary Doctor: Label7 Insurance Co: Label6 Work: Label5 Phone-Home: ZipLabel Label4 State: Label1 Name: Label2 Address: Label3 City: E&xit Delete &Delete @ Form_Loadv LoadDocList LoadPatList DoctorListForm DocListK DoctorsForm SchedVBX1 ResMaxa ResName PatList5 LookupCriteria iSelDoctor ListIndex iDoctoru Screen MousePointer Appts8 Recordset NoMatch Doctors ResDeleteu DoctorP RecordX Patients PatientListFormE Exit_Click PatList_Click iIndexY DocNumber, DoctorsName PhoneHomek ResUser1 PhoneOffice ResUser2a PatNumber# Addressh City{ State PhoneWork InsuranceCompany/ DocPatients PrimaryDoc Statusf Notes ListItem PatientName PatientName_Change Address_Change Address_KeyDown KeyCode8 Shift Address_LostFocusG City_Change City_LinkClose City_LostFocus Label1_Click State_Changee State_LinkClose State_LostFocus Zip_Change Zip_LinkClose$ Zip_LostFocus PhoneHome_Change# PhoneHome_LinkCloseN PhoneHome_LostFocus7 PhoneWork_Change PhoneWork_LinkClose PhoneWork_LostFocus InsuranceCompany_Change InsuranceCompany_LinkClose InsuranceCompany_LostFocus Status_Change4 Status_LinkClose% Status_LostFocus Notes_Changey Panel3D1_DragDrop4 Source Control PrimaryDoc_Change PrimaryDoc_LostFocus Notes_LostFocus Delete_Click iSelPatient iPatient Remove Resource Schedule LoadTimeBlocks @ Add_Click iResult SchedVBXAddResource RecordCountA iPatientNumR Patientss iNumberOfDocsk PatientName_LostFocus SetBarText PrimayDoc SetFocue Add_Click get next Patient # from databaseB add record to Patients Table in databasee Patient Number Address State Phone-Home Phone-Work Insurance Company Primary Doctor Status Notes Address_LostFocus update patient database Address City_LostFocus update patient database Delete_Click No Patient Selected Change pointer to hourglass.e First, check for exiting appointments for this Patient [Patient Number] = Return pointer to normal. Warning - that Patient has Appointments! - Delete Appointments first. Now, delete the Patient Recordp [Patient Number] = Return pointer to normal. Warning - that Patient was not found in the Patients table! Next, move all "Patient Number"s down to matcha [Patient Number] > Patient Number Patient Number Finally, move all "Patient Number"s in Appts Table down to matchm [Patient Number] > Patient Number Patient Number Reload the TimeBlocks into Schedule/VBX Reload List Return pointer to normal. Exit_Click Form_Load InsuranceCompany_LostFocus update patient database Insurance Company LoadPatList Change pointer to hourglass.t Load Patient list from Patients Table Load Primary Doctor ComboList Return pointer to normal. Notes_LostFocus update patient database Notes PatientName_LostFocus update patient database PatList_Click Position Patient Table Datacontrol to this record [Patient Number] = Warning - that Patient was not found in the Patients table! Address State Phone-Home Phone-Work Insurance Company Primary Doctor Status Notes PhoneHome_LostFocus update patient database Phone-Home PhoneWork_LostFocus update patient database Phone-Work PrimaryDoc_LostFocus update patient database Primary Doctor State_LostFocus update patient database State Status_LostFocus update patient database Status Zip_LostFocus update patient database