Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: FSCRPCLD

FSCRPCLD.m

Go to the documentation of this file.

FSCRPCLD ;SLC/STAFF-NOIS RPC List Definition ;1/18/97  15:42

 ;;1.1;NOIS;;Sep 06, 1998

LISTDEF(IN,OUT) ; from FSCRPX (RPCListObject)

 N LIST

 S LIST=+$G(^TMP("FSCRPC",$J,"INPUT",1))

 I 'LIST Q

 S ^TMP("FSCRPC",$J,"OUTPUT",1)=LIST_U_$G(^FSC("LIST",+LIST,0))

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCRPCLD   272     printed  Apr 09, 2024@21:22:32                                                                                                                                                                                                     Page 2

FSCRPCLD  ;SLC/STAFF-NOIS RPC List Definition ;1/18/97  15:42

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

 +2       ;

LISTDEF(IN,OUT) ; from FSCRPX (RPCListObject)

 +1        NEW LIST

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

 +3        IF 'LIST

               QUIT

 +4        SET ^TMP("FSCRPC",$JOB,"OUTPUT",1)=LIST_U_$GET(^FSC("LIST",+LIST,0))

 +5        QUIT