From the help file:
If you specify –1 for nLevel, PROGRAM( ) returns as a numeric value the current program level. PROGRAM(–1) always returns zero when issued from the Command window.

Therefor:
*Program(program(-1)-1) gets the name of the program which called this program

"It works in my office."

Larry Shirk