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 / CPatient.cls < prev    next >
Text File  |  2005-12-27  |  6KB  |  248 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "CPatient"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15.  
  16. Dim m_HospNo As Integer
  17. Dim m_SName As String
  18. Dim m_FName As String
  19. Dim m_DoB As String
  20. Dim m_Sex As String
  21.  
  22. Dim m_HomeAdd As String
  23. Dim m_StateOfOrigin As String
  24. Dim m_Occupation As String
  25.  
  26. Dim m_NameNoK As String
  27. Dim m_RelaNok As String
  28. Dim m_AddNok As String
  29.  
  30. Dim m_SponsorName As String
  31. Dim m_SponsorAdd As String
  32.  
  33. Dim m_LabRefNo As Integer
  34. Dim m_BloodGrp As String
  35. Dim m_RHFactor As String
  36. Dim m_Allergy As String
  37.  
  38. Dim m_AdmissionDate As String
  39. Dim m_DischargeDate As String
  40.  
  41. Dim m_CaseRefNo As Integer
  42. Dim m_AdmissionStatus As String
  43. Dim m_DocName As String
  44. Dim m_Diagnosis As String
  45. Dim m_DateDischarged As String
  46. Dim m_DischargeStatus As String
  47.  
  48. Public Property Get HospNo() As Integer
  49.  HospNo = m_HospNo
  50. End Property
  51.  
  52. Public Property Let HospNo(ByVal vHospNo As Integer)
  53.  m_HospNo = vHospNo
  54. End Property
  55.  
  56. Public Property Get SName() As String
  57.  SName = m_SName
  58. End Property
  59.  
  60. Public Property Let SName(ByVal vSName As String)
  61.  m_SName = vSName
  62. End Property
  63.  
  64. Public Property Get FName() As String
  65.  FName = m_FName
  66. End Property
  67.  
  68. Public Property Let FName(ByVal vFName As String)
  69.  m_FName = vFName
  70. End Property
  71.  
  72. Public Property Get DoB() As String
  73.  DoB = m_DoB
  74. End Property
  75.  
  76. Public Property Let DoB(ByVal vDoB As String)
  77.  m_DoB = vDoB
  78. End Property
  79.  
  80. Public Property Get Sex() As String
  81.  Sex = m_Sex
  82. End Property
  83.  
  84. Public Property Let Sex(ByVal vSex As String)
  85.  m_Sex = vSex
  86. End Property
  87.  
  88. Public Property Get HomeAdd() As String
  89.  HomeAdd = m_HomeAdd
  90. End Property
  91.  
  92. Public Property Let HomeAdd(ByVal vHomeAdd As String)
  93.  m_HomeAdd = vHomeAdd
  94. End Property
  95.  
  96. Public Property Get StateOfOrigin() As String
  97.  StateOfOrigin = m_StateOfOrigin
  98. End Property
  99.  
  100. Public Property Let StateOfOrigin(ByVal vStateOfOrigin As String)
  101.  m_StateOfOrigin = vStateOfOrigin
  102. End Property
  103.  
  104. Public Property Get Occupation() As String
  105.  Occupation = m_Occupation
  106. End Property
  107.  
  108. Public Property Let Occupation(ByVal vOccupation As String)
  109.  m_Occupation = vOccupation
  110. End Property
  111.  
  112. Public Property Get NameNoK() As String
  113.  NameNoK = m_NameNoK
  114. End Property
  115.  
  116. Public Property Let NameNoK(ByVal vNameNoK As String)
  117. m_NameNoK = vNameNoK
  118. End Property
  119.  
  120. Public Property Get RelaNok() As String
  121.  RelaNok = m_RelaNok
  122. End Property
  123.  
  124. Public Property Let RelaNok(ByVal vRelaNok As String)
  125.  m_RelaNok = vRelaNok
  126. End Property
  127.  
  128. Public Property Get AddNok() As String
  129.  AddNok = m_AddNok
  130. End Property
  131.  
  132. Public Property Let AddNok(ByVal vAddNok As String)
  133.  m_AddNok = vAddNok
  134. End Property
  135.  
  136. Public Property Get SponsorName() As String
  137.  SponsorName = m_SponsorName
  138. End Property
  139.  
  140. Public Property Let SponsorName(ByVal vSponsorName As String)
  141.  m_SponsorName = vSponsorName
  142. End Property
  143.  
  144. Public Property Get SponsorAdd() As String
  145.  SponsorAdd = m_SponsorAdd
  146. End Property
  147.  
  148. Public Property Let SponsorAdd(ByVal vSponsorAdd As String)
  149.  m_SponsorAdd = vSponsorAdd
  150. End Property
  151.  
  152. Public Property Get LabRefNo() As Integer
  153.  LabRefNo = m_LabRefNo
  154. End Property
  155.  
  156. Public Property Let LabRefNo(ByVal vLabRefNo As Integer)
  157.  m_LabRefNo = vLabRefNo
  158. End Property
  159.  
  160. Public Property Get BloodGrp() As String
  161.  BloodGrp = m_BloodGrp
  162. End Property
  163.  
  164. Public Property Let BloodGrp(ByVal vBloodGrp As String)
  165.  m_BloodGrp = vBloodGrp
  166. End Property
  167.  
  168. Public Property Get RHFactor() As String
  169.  RHFactor = m_RHFactor
  170. End Property
  171.  
  172. Public Property Let RHFactor(ByVal vRHFactor As String)
  173.  m_RHFactor = vRHFactor
  174. End Property
  175.  
  176. Public Property Get Allergy() As String
  177.  Allergy = m_Allergy
  178. End Property
  179.  
  180. Public Property Let Allergy(ByVal vAllergy As String)
  181.  m_Allergy = vAllergy
  182. End Property
  183.  
  184. Public Property Get AdmissionDate() As String
  185.  AdmissionDate = m_AdmissionDate
  186. End Property
  187.  
  188. Public Property Let AdmissionDate(ByVal vAdmissionDate As String)
  189.  m_AdmissionDate = vAdmissionDate
  190. End Property
  191.  
  192. Public Property Get DischargeDate() As String
  193.  DischargeDate = m_DischargeDate
  194. End Property
  195.  
  196. Public Property Let DischargeDate(ByVal vDischargeDate As String)
  197.  m_DischargeDate = vDischargeDate
  198. End Property
  199.  
  200. Public Property Get CaseRefNo() As Integer
  201.  CaseRefNo = m_CaseRefNo
  202. End Property
  203.  
  204. Public Property Let CaseRefNo(ByVal vCaseRefNo As Integer)
  205.  m_CaseRefNo = vCaseRefNo
  206. End Property
  207.  
  208. Public Property Get AdmissionStatus() As String
  209.  AdmissionStatus = m_AdmissionStatus
  210. End Property
  211.  
  212. Public Property Let AdmissionStatus(ByVal vAdmissionStatus As String)
  213.  m_AdmissionStatus = vAdmissionStatus
  214. End Property
  215.  
  216. Public Property Get DocName() As String
  217.  DocName = m_DocName
  218. End Property
  219.  
  220. Public Property Let DocName(ByVal vDocName As String)
  221.  m_DocName = vDocName
  222. End Property
  223.  
  224. Public Property Get Diagnosis() As String
  225.  Diagnosis = m_Diagnosis
  226. End Property
  227.  
  228. Public Property Let Diagnosis(ByVal vDiagnosis As String)
  229.  m_Diagnosis = vDiagnosis
  230. End Property
  231.  
  232. Public Property Get DateDischarged() As String
  233.  DateDischarged = m_DateDischarged
  234. End Property
  235.  
  236. Public Property Let DateDischarged(ByVal vDateDischarged As String)
  237.  m_DateDischarged = vDateDischarged
  238. End Property
  239.  
  240. Public Property Get DischargeStatus() As String
  241.  DischargeStatus = m_DischargeStatus
  242. End Property
  243.  
  244. Public Property Let DischargeStatus(ByVal vDischargeStatus As String)
  245.  m_DischargeStatus = vDischargeStatus
  246. End Property
  247.  
  248.