FSCRPCT ;SLC/STAFF-NOIS RPC Test ;1/11/98  15:43
 ;;1.1;NOIS;;Sep 06, 1998
 ;;
TEST(IN,OUT) ; from FSCRPX
 S ^TMP("FSCRPC",$J,"OUTPUT",1)="TEST"
 Q