FSCRPCEW ;SLC/STAFF-NOIS RPC Edit Workload ;2/16/97  16:58
 ;;1.1;NOIS;;Sep 06, 1998
 ;
WKLD(IN,OUT) ; from FSCRPX (RPCEditWorkload)
 N CALL,DATE,HRS,USER
 S CALL=+$G(^TMP("FSCRPC",$J,"INPUT",1)),DATE=+$P($G(^(1)),U,2),HRS=+$P($G(^(1)),U,3),USER=+$P($G(^(1)),U,4)
 I 'HRS Q
 I 'USER S USER=DUZ
 D UPDATE^FSCEWKLD(CALL,HRS,DATE,USER)
 Q