Attribute VB_Name = "A_NOTES_README"
'Sample Code

'    With pclsUser.MEDSYSClasses
'
'        .Sstationname = "OPD"
'        .SstationID = "OPD Registration"
'
'        .SetPatient 168815, 553566 ',pattype, showform
'
'    End With
'