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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCOPTU 994 printed Dec 13, 2024@02:18:50 Page 2
FSCOPTU ;SLC/STAFF-NOIS Option Uitility ;1/13/98 22:33
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
SETUP1(CALL) ; from FSCOPT
+1 ; sets up editing for one call
+2 KILL ^TMP("FSC LIST CALLS",$JOB)
+3 KILL ^TMP("FSC SELECT",$JOB)
+4 SET ^TMP("FSC SELECT",$JOB,"EVALUES")=1
SET ^("EVALUES",1)=""
+5 SET ^TMP("FSC LIST CALLS",$JOB)="1^1"
SET ^($JOB,1)=1
+6 SET ^TMP("FSC LIST CALLS",$JOB,1,0)=$$SHORT^FSCGETS(CALL,1)
+7 SET ^TMP("FSC LIST CALLS",$JOB,"IDX",1,1)=""
+8 SET ^TMP("FSC LIST CALLS",$JOB,"ICX",1,CALL)=""
+9 SET ^TMP("FSC LIST CALLS",$JOB,"CX",CALL)=""
+10 SET (FSC1,FSCCNT)=1
+11 QUIT
+12 ;
CLEANUP ; from FSCOPT, FSCRUDQ
+1 ; cleans up FSC variables
+2 KILL FSC1,FSCCALL,FSCCALLS,FSCCNT,FSCDEV,FSCEDIT,FSCEXIT,FSCINDX,FSCL0,FSCLNAME,FSCLNUM,FSCQUERY,FSCSTU,FSCSTYLE,FSCUD
+3 KILL D,DIC,DIR,X,Y,ZTSK
+4 KILL ^TMP("FSC LIST CALLS",$JOB)
+5 KILL ^TMP("FSC NEWLIST",$JOB)
+6 KILL ^TMP("FSC SELECT",$JOB)
+7 QUIT
+8 ;
TMP ; from FSCNAR, FSCOP, FSCOPT, FSCRPC
+1 ; clean TMP nodes
+2 NEW NODE
SET NODE="FSC"
FOR
SET NODE=$ORDER(^TMP(NODE))
if NODE=""
QUIT
if NODE]"FSCZ"
QUIT
IF NODE'="FSC SESSION"
KILL ^TMP(NODE,$JOB)
+3 QUIT
