source: FOIAVistA/trunk/r/NOIS-FSC/FSCRPCLD.m@ 1800

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

initial load of FOIAVistA 6/30/08 version

File size: 263 bytes
Line 
1FSCRPCLD ;SLC/STAFF-NOIS RPC List Definition ;1/18/97 15:42
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4LISTDEF(IN,OUT) ; from FSCRPX (RPCListObject)
5 N LIST
6 S LIST=+$G(^TMP("FSCRPC",$J,"INPUT",1))
7 I 'LIST Q
8 S ^TMP("FSCRPC",$J,"OUTPUT",1)=LIST_U_$G(^FSC("LIST",+LIST,0))
9 Q
Note: See TracBrowser for help on using the repository browser.