source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCOPTU.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 965 bytes
Line 
1FSCOPTU ;SLC/STAFF-NOIS Option Uitility ;1/13/98 22:33
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4SETUP1(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 ;
17CLEANUP ; 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 ;
26TMP ; 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
Note: See TracBrowser for help on using the repository browser.