home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Intelligen196974232006.psc / IHMS_Test1 / class.txt next >
Text File  |  2005-12-14  |  610b  |  30 lines
  1. Dim m_HospNo As Integer
  2. Dim m_SName As String
  3. Dim m_FName As String
  4. Dim m_DoB As Date
  5. Dim m_Sex As String
  6.  
  7. Dim m_HomeAdd As String
  8. Dim m_StateOfOrigin As String
  9. Dim m_Occupation As String
  10.  
  11. Dim m_NameNoK As String
  12. Dim m_RelaNok As String
  13. Dim m_AddNok As String
  14.  
  15. Dim m_NameSponsor As String
  16. Dim m_AddSponsor As String
  17.  
  18. Dim m_LabRefNo As Integer
  19. Dim m_BloodGrp As String
  20. Dim m_RHFactor As String
  21. Dim m_Allergy As String
  22.  
  23. Dim m_AdmissionDate As Date
  24. Dim m_DischargeDate As Date
  25.  
  26. Dim m_CaseRefNo As Long
  27. Dim m_DocName As String
  28. Dim m_Diagnosis As String
  29. Dim m_DischargeStatus As String
  30.