A New Zealand specific General Medical Services code is used for Government subsidy programs. Normally Profile calculates the GMS code based on the presence of a community service card and the patient's age.
The first character of the code is a letter based on the patient's age.| Y | A youth aged between 0 and 5 |
| C | A child aged between 6 and 12 |
| J | A junior aged between 13 and 17 |
| A | An adult aged 18 and over |
The second character of the code is a letter or numeral based on the presence of a community service card.
| 1 | The patient has a current CSC card |
| Z | The patient has a current HUC card |
| 3 | The patient has no CSC or HUC cards |
This default behaviour can be over-ridden by specifying the GMS code.
object.GMS
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatientVers interface |
string
Display the GMS code of the patient in the selected patient version.
Dim aPatient
Dim aPatientVers
Dim aMessage
Set aPatient = Profile.SelectPatient
set aPatientVers = aPatient.VersionOnDate(#01/01/2019#)
if aPatientVers is nothing then
aMessage = "There are no patient versions for this date!"
else
aMessage = aMessage & vbNewLine &_
"On 01/01/2019 the patient's GMS code was " &_
aPatientVers.GMS & ", " & "now the patient's GMS code is " &_
aPatient.GMS
end if
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface GMS can be found in .