| [613] | 1 | FSCOPTU ;SLC/STAFF-NOIS Option Uitility ;1/13/98 22:33
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | SETUP1(CALL) ; from FSCOPT
|
|---|
| 5 | ; sets up editing for one call
|
|---|
| 6 | K ^TMP("FSC LIST CALLS",$J)
|
|---|
| 7 | K ^TMP("FSC SELECT",$J)
|
|---|
| 8 | S ^TMP("FSC SELECT",$J,"EVALUES")=1,^("EVALUES",1)=""
|
|---|
| 9 | S ^TMP("FSC LIST CALLS",$J)="1^1",^($J,1)=1
|
|---|
| 10 | S ^TMP("FSC LIST CALLS",$J,1,0)=$$SHORT^FSCGETS(CALL,1)
|
|---|
| 11 | S ^TMP("FSC LIST CALLS",$J,"IDX",1,1)=""
|
|---|
| 12 | S ^TMP("FSC LIST CALLS",$J,"ICX",1,CALL)=""
|
|---|
| 13 | S ^TMP("FSC LIST CALLS",$J,"CX",CALL)=""
|
|---|
| 14 | S (FSC1,FSCCNT)=1
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | CLEANUP ; from FSCOPT, FSCRUDQ
|
|---|
| 18 | ; cleans up FSC variables
|
|---|
| 19 | K FSC1,FSCCALL,FSCCALLS,FSCCNT,FSCDEV,FSCEDIT,FSCEXIT,FSCINDX,FSCL0,FSCLNAME,FSCLNUM,FSCQUERY,FSCSTU,FSCSTYLE,FSCUD
|
|---|
| 20 | K D,DIC,DIR,X,Y,ZTSK
|
|---|
| 21 | K ^TMP("FSC LIST CALLS",$J)
|
|---|
| 22 | K ^TMP("FSC NEWLIST",$J)
|
|---|
| 23 | K ^TMP("FSC SELECT",$J)
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | TMP ; from FSCNAR, FSCOP, FSCOPT, FSCRPC
|
|---|
| 27 | ; clean TMP nodes
|
|---|
| 28 | N NODE S NODE="FSC" F S NODE=$O(^TMP(NODE)) Q:NODE="" Q:NODE]"FSCZ" I NODE'="FSC SESSION" K ^TMP(NODE,$J)
|
|---|
| 29 | Q
|
|---|
