SWPGETPID / SWPGETPIDBAS
------------------------------------------------------------------------------

  Function : Determine if a given program is a parent
             to the current program.

  Syntax   : lValue = SWPGETPID(cIdString)

  Return   : Logical value indicating whether the passed string
             was set as a program ID by a parent process.

  Determine if cIdString was a parent (at any previous level) of the
  currently executing application. cIdString must be 31 characters or
  less, or the function will return a false value. The string must exactly
  match an Id set by a parent program using a call to SWPSETPID().  This
  can be useful in preventing two copies of the same application from
  being executed.

  Example  :
  IdStr = "Test Program"
  IF SWPGETPID(IdStr)
      ? IdStr + " is already executing!"
      QUIT
  ENDIF
  SWPSETPID(IdStr)