ISCountryInfo.ValidatePatientId

Description

This function returns True if the specified patient ID is valid for the health system with the specified code.

Syntax

object.ValidatePatientId(aValue, aSystem[, aForceValidation = false])

Part	Attribute	Type	Description
`object`	Required	ISCountryInfo	The `object` always implements the ISCountryInfo interface
`aValue`	In, Required	string	The patient ID for the validation check
`aSystem`	In, Required	string	The health system code
`aForceValidation`	In, Optional Default value is false	bool	If aForceValidation = True, it disables NHI Validating

Return Value

bool

Returns True if the specified patient ID is valid for the health system with the specified code.

Example

Display the validation result, the patient ID and the system code for different cases.

sub main

  Dim aMessage
 
  aMessage = _
  TryValidatePatientId("", "AB") &_
  TryValidatePatientId("536413920", "AB") &_
  TryValidatePatientId("674536700", "AB") &_
  TryValidatePatientId("151027810", "AB") &_
  TryValidatePatientId("618122810", "AB") &_
  TryValidatePatientId("12345678", "AB") &_
  TryValidatePatientId("0123456789", "AB") &_
  TryValidatePatientId("0A2345678", "AB") &_
  TryValidatePatientId("", "BC") &_
  TryValidatePatientId("9012372173", "BC") &_
  TryValidatePatientId("901272173", "BC") &_
  TryValidatePatientId("90123721734", "BC") &_
  TryValidatePatientId("8012372173", "BC") &_
  TryValidatePatientId("9012374173", "BC") &_
  TryValidatePatientId("12345678", "MB") &_
  TryValidatePatientId("0123456789", "MB") &_
  TryValidatePatientId("0A2345678", "MB") &_
  TryValidatePatientId("", "NL") &_
  TryValidatePatientId("169571495509", "NL") &_
  TryValidatePatientId("459353235011", "NL") &_
  TryValidatePatientId("12345678901", "NL") &_
  TryValidatePatientId("0123456789011", "NL") &_
  TryValidatePatientId("0A2345678901", "NL") &_
  TryValidatePatientId("", "NB") &_
  TryValidatePatientId("911514925", "NB") &_
  TryValidatePatientId("917805848", "NB") &_
  TryValidatePatientId("920406139", "NB") &_
  TryValidatePatientId("12345678", "NB") &_
  TryValidatePatientId("0123456789", "NB") &_
  TryValidatePatientId("0A2345678", "NB") &_  
  TryValidatePatientId("", "NT") &_
  TryValidatePatientId("N5258249", "NT") &_
  TryValidatePatientId("M7010846", "NT") &_
  TryValidatePatientId("T6653190", "NT") &_
  TryValidatePatientId("D6653190", "NT") &_
  TryValidatePatientId("H6653190", "NT") &_
  TryValidatePatientId("A6653190", "NT") &_
  TryValidatePatientId("AB123456", "NT") &_
  TryValidatePatientId("90123456", "NT") &_
  TryValidatePatientId("N01234567", "NT") &_
  TryValidatePatientId("N012345", "NT") &_
  TryValidatePatientId("5258249", "NT") &_
  TryValidatePatientId("N6739908", "NT") &_
  TryValidatePatientId("N6739906", "NT") &_
  TryValidatePatientId("N911514925", "NT") &_
  TryValidatePatientId("123456789", "NS") &_
  TryValidatePatientId("01234567890", "NS") &_
  TryValidatePatientId("0A23456789", "NS") &_
  TryValidatePatientId("", "ON") &_
  TryValidatePatientId("0123456782", "ON") &_
  TryValidatePatientId("123456789", "ON") &_
  TryValidatePatientId("0123456789", "ON") &_
  TryValidatePatientId("01234567890", "ON") &_
  TryValidatePatientId("0A23456789", "ON") &_  
  TryValidatePatientId("", "PE") &_
  TryValidatePatientId("00184507", "PE") &_
  TryValidatePatientId("865516413", "PE") &_
  TryValidatePatientId("12345678", "PE") &_
  TryValidatePatientId("0123456789", "PE") &_
  TryValidatePatientId("0A2345678", "PE") &_
  TryValidatePatientId("ABCDE1234567", "QC") &_
  TryValidatePatientId("ABC901234567", "QC") &_
  TryValidatePatientId("ABCD012345678", "QC") &_
  TryValidatePatientId("ABCD0123456", "QC") &_
  TryValidatePatientId("", "SK") &_
  TryValidatePatientId("588120081", "SK") &_
  TryValidatePatientId("259293911", "SK") &_
  TryValidatePatientId("300209398", "SK") &_
  TryValidatePatientId("123456798", "SK") &_
  TryValidatePatientId("01234567890", "SK") &_
  TryValidatePatientId("0A23456789", "SK") &_
  TryValidatePatientId("", "YT") &_
  TryValidatePatientId("002414589", "YT") &_
  TryValidatePatientId("002669125", "YT") &_
  TryValidatePatientId("002165942", "YT") &_
  TryValidatePatientId("12345678", "YT") &_
  TryValidatePatientId("0123456789", "YT") &_
  TryValidatePatientId("0A2345678", "YT")  

  Profile.MsgBox(aMessage)
end sub


function TryValidatePatientId(aValue, aSystem)
  Dim aCountryInfo
  Dim aIsValid
  Dim aMessage 
 
  set aCountryInfo = Profile.CountryInfo 
  aIsValid = aCountryInfo.ValidatePatientId(aValue, aSystem)
  aMessage = aMessage & vbNewLine &_
    "Valid: " & aIsValid & vbTab &_
    "Value: " & aValue & vbTab &_
    "System: " & aSystem            
  TryValidatePatientId = aMessage  
end function

Note:

In Profile Client v8 on User Interface Country Info can be found in Organisation > Preferences > Health System.

Version information

Added in v7.9.0

parameter aForceValidation added in v8.2.3