SWPGETPID() / SWPGETPIDBAS()  Determine if given program is parent to current program.
------------------------------------------------------------------------------

 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)