FSCRPC.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FSCRPC   932     printed  Apr 09, 2024@21:22:28                                                                                                                                                                                                       Page 2

FSCRPC    ;SLC/STAFF-NOIS RPC ;5/29/98  12:20

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

 +2       ;;

STARTUP(IN,OUT) ; from FSCRPX (RPCStartUp)

 +1        NEW CNT,NOW,NUM,TWO,WEB,ZERO

 +2        SET NOW=$$NOW^XLFDT

 +3        IF $DATA(^FSC("SPEC",DUZ,0))#2

               SET $PIECE(^FSC("SPEC",DUZ,0),U,5)=$PIECE(NOW,".")

 +4        DO TMP^FSCOPTU

 +5        SET ZERO=$GET(^FSC("PARAM",1,0))

           SET TWO=$GET(^(2))

           SET WEB=$GET(^(1.9))

 +6        SET ^TMP("FSCRPC",$JOB,"OUTPUT",1)=DT_U_ZERO

 +7        SET $PIECE(TWO,U,7)=WEB

 +8        SET ^TMP("FSCRPC",$JOB,"OUTPUT",2)=TWO

 +9        SET CNT=2

           SET NUM=0

           FOR 

               SET NUM=$ORDER(^FSC("PARAM",1,1,NUM))

               if NUM<1

                   QUIT 

               SET CNT=CNT+1

               SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)=^(NUM,0)

 +10       QUIT 

 +11      ;

WEB(IN,OUT) ; from FSCRPX (RPCWebDirectory)

 +1        SET ^TMP("FSCRPC",$JOB,"OUTPUT",1)=$GET(^FSC("PARAM",1,1.8))

 +2        QUIT 

 +3       ;

EXIT(IN,OUT) ; from FSCRPX (RPCExit)

 +1        DO TMP^FSCOPTU

 +2        QUIT 

 +3       ;

HIDDEN(IN,OUT) ; from FSCRPX (RPCHidden)

 +1        NEW CNT,NUM

 +2        SET CNT=0

           SET NUM=0

           FOR 

               SET NUM=$ORDER(^FSC("PARAM",1,4,NUM))

               if NUM<1

                   QUIT 

               SET CNT=CNT+1

               SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)=^(NUM,0)

 +3        QUIT 

 +4       ;

ALERTCHK(IN,OUT) ; from FSCRPX (RPCAlertCheck)

 +1        QUIT