FSCRPCEW.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FSCRPCEW   346     printed  Nov 22, 2024@17:29:20                                                                                                                                                                                                     Page 2

FSCRPCEW  ;SLC/STAFF-NOIS RPC Edit Workload ;2/16/97  16:58

 +1       ;;1.1;NOIS;;Sep 06, 1998

 +2       ;

WKLD(IN,OUT) ; from FSCRPX (RPCEditWorkload)

 +1        NEW CALL,DATE,HRS,USER

 +2        SET CALL=+$GET(^TMP("FSCRPC",$JOB,"INPUT",1))

           SET DATE=+$PIECE($GET(^(1)),U,2)

           SET HRS=+$PIECE($GET(^(1)),U,3)

           SET USER=+$PIECE($GET(^(1)),U,4)

 +3        IF 'HRS

               QUIT 

 +4        IF 'USER

               SET USER=DUZ

 +5        DO UPDATE^FSCEWKLD(CALL,HRS,DATE,USER)

 +6        QUIT