FSCRPC ;SLC/STAFF-NOIS RPC ;5/29/98  12:20
 ;;1.1;NOIS;;Sep 06, 1998
 ;;
STARTUP(IN,OUT) ; from FSCRPX (RPCStartUp)
 N CNT,NOW,NUM,TWO,WEB,ZERO
 S NOW=$$NOW^XLFDT
 I $D(^FSC("SPEC",DUZ,0))#2 S $P(^FSC("SPEC",DUZ,0),U,5)=$P(NOW,".")
 D TMP^FSCOPTU
 S ZERO=$G(^FSC("PARAM",1,0)),TWO=$G(^(2)),WEB=$G(^(1.9))
 S ^TMP("FSCRPC",$J,"OUTPUT",1)=DT_U_ZERO
 S $P(TWO,U,7)=WEB
 S ^TMP("FSCRPC",$J,"OUTPUT",2)=TWO
 S CNT=2,NUM=0 F  S NUM=$O(^FSC("PARAM",1,1,NUM)) Q:NUM<1  S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=^(NUM,0)
 Q
 ;
WEB(IN,OUT) ; from FSCRPX (RPCWebDirectory)
 S ^TMP("FSCRPC",$J,"OUTPUT",1)=$G(^FSC("PARAM",1,1.8))
 Q
 ;
EXIT(IN,OUT) ; from FSCRPX (RPCExit)
 D TMP^FSCOPTU
 Q
 ;
HIDDEN(IN,OUT) ; from FSCRPX (RPCHidden)
 N CNT,NUM
 S CNT=0,NUM=0 F  S NUM=$O(^FSC("PARAM",1,4,NUM)) Q:NUM<1  S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=^(NUM,0)
 Q
 ;
ALERTCHK(IN,OUT) ; from FSCRPX (RPCAlertCheck)
 Q