30 lines
965 B
Mathematica
30 lines
965 B
Mathematica
FSCOPTU ;SLC/STAFF-NOIS Option Uitility ;1/13/98 22:33
|
|
;;1.1;NOIS;;Sep 06, 1998
|
|
;
|
|
SETUP1(CALL) ; from FSCOPT
|
|
; sets up editing for one call
|
|
K ^TMP("FSC LIST CALLS",$J)
|
|
K ^TMP("FSC SELECT",$J)
|
|
S ^TMP("FSC SELECT",$J,"EVALUES")=1,^("EVALUES",1)=""
|
|
S ^TMP("FSC LIST CALLS",$J)="1^1",^($J,1)=1
|
|
S ^TMP("FSC LIST CALLS",$J,1,0)=$$SHORT^FSCGETS(CALL,1)
|
|
S ^TMP("FSC LIST CALLS",$J,"IDX",1,1)=""
|
|
S ^TMP("FSC LIST CALLS",$J,"ICX",1,CALL)=""
|
|
S ^TMP("FSC LIST CALLS",$J,"CX",CALL)=""
|
|
S (FSC1,FSCCNT)=1
|
|
Q
|
|
;
|
|
CLEANUP ; from FSCOPT, FSCRUDQ
|
|
; cleans up FSC variables
|
|
K FSC1,FSCCALL,FSCCALLS,FSCCNT,FSCDEV,FSCEDIT,FSCEXIT,FSCINDX,FSCL0,FSCLNAME,FSCLNUM,FSCQUERY,FSCSTU,FSCSTYLE,FSCUD
|
|
K D,DIC,DIR,X,Y,ZTSK
|
|
K ^TMP("FSC LIST CALLS",$J)
|
|
K ^TMP("FSC NEWLIST",$J)
|
|
K ^TMP("FSC SELECT",$J)
|
|
Q
|
|
;
|
|
TMP ; from FSCNAR, FSCOP, FSCOPT, FSCRPC
|
|
; clean TMP nodes
|
|
N NODE S NODE="FSC" F S NODE=$O(^TMP(NODE)) Q:NODE="" Q:NODE]"FSCZ" I NODE'="FSC SESSION" K ^TMP(NODE,$J)
|
|
Q
|