- 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 Jan 18, 2025@03:20:02 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