Point.ChangeApprovalInfo (property, read)

Syntax Point.ChangeApprovalInfo
Description Integer. To determine the level of change approval that is required to perform an operation.
Example 
Sub OnMouseUp(x As Long, y As Long, flags As Long)
   Dim MyPoint As New Point
'Init Point
   Set MyPoint.Id = "MYPOINT"
'Check ChangeApprovalInfo to see what is required for approval
   Select Case MyPoint.ChangeApprovalInfo
     Case CP_CHANGEAPPROVALPERFORM   
         MsgBox "This Point requires a Performer for approval!"
     Case CP_CHANGEAPPROVALPERFORMVERIFY
         MsgBox "This Point requires a Performer and Verifier for approval!"
     Case CP_CHANGEAPPROVALNONE
         MsgBox "This Point does not require ChangeApproval!"
   End Select
 
End Sub
See also AlarmUpdateCA (Method),  CimChangeApprovalData (Object), Point.ChangeApproval (property, write)