Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCOPTU

FSCOPTU.m

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