source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCRPC.m@ 701

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

initial load of WorldVistAEHR

File size: 902 bytes
Line 
1FSCRPC ;SLC/STAFF-NOIS RPC ;5/29/98 12:20
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;;
4STARTUP(IN,OUT) ; from FSCRPX (RPCStartUp)
5 N CNT,NOW,NUM,TWO,WEB,ZERO
6 S NOW=$$NOW^XLFDT
7 I $D(^FSC("SPEC",DUZ,0))#2 S $P(^FSC("SPEC",DUZ,0),U,5)=$P(NOW,".")
8 D TMP^FSCOPTU
9 S ZERO=$G(^FSC("PARAM",1,0)),TWO=$G(^(2)),WEB=$G(^(1.9))
10 S ^TMP("FSCRPC",$J,"OUTPUT",1)=DT_U_ZERO
11 S $P(TWO,U,7)=WEB
12 S ^TMP("FSCRPC",$J,"OUTPUT",2)=TWO
13 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)
14 Q
15 ;
16WEB(IN,OUT) ; from FSCRPX (RPCWebDirectory)
17 S ^TMP("FSCRPC",$J,"OUTPUT",1)=$G(^FSC("PARAM",1,1.8))
18 Q
19 ;
20EXIT(IN,OUT) ; from FSCRPX (RPCExit)
21 D TMP^FSCOPTU
22 Q
23 ;
24HIDDEN(IN,OUT) ; from FSCRPX (RPCHidden)
25 N CNT,NUM
26 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)
27 Q
28 ;
29ALERTCHK(IN,OUT) ; from FSCRPX (RPCAlertCheck)
30 Q
Note: See TracBrowser for help on using the repository browser.