source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCRPCEW.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 336 bytes
Line 
1FSCRPCEW ;SLC/STAFF-NOIS RPC Edit Workload ;2/16/97 16:58
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4WKLD(IN,OUT) ; from FSCRPX (RPCEditWorkload)
5 N CALL,DATE,HRS,USER
6 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)
7 I 'HRS Q
8 I 'USER S USER=DUZ
9 D UPDATE^FSCEWKLD(CALL,HRS,DATE,USER)
10 Q
Note: See TracBrowser for help on using the repository browser.