source: FOIAVistA/trunk/r/NOIS-FSC/FSCOP.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1FSCOP ;SLC/STAFF-NOIS Option ;12/8/97 13:54
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4OPT(TAG,ACCESS) ; from NOIS option actions
5 I '$$ACCESS^FSCU(DUZ,$G(ACCESS)) D NOACCESS^FSCLMPU Q
6 D COUNTS^FSCLMPU("OPTION "_TAG,DUZ)
7 D
8 .I TAG="NEW" D NEW^FSCOPT Q
9 .I TAG="EDIT" D EDIT^FSCOPT Q
10 .I TAG="CLOSE" D CLOSE^FSCOPT Q
11 .I TAG="VIEW" D VIEW^FSCOPT Q
12 .I TAG="LIST" D LIST^FSCOPT Q
13 .I TAG="QUERY" D QUERY^FSCOPT Q
14 .I TAG="REPORTS" D REPORTS^FSCOPT Q
15 .I TAG="FILES" D FILES^FSCOPT Q
16 .I TAG="EVENT" D EVENT^FSCOPT Q
17 Q
18 ;
19ENTRY ; from entry action on option FSC MENU NOIS
20 D TMP^FSCOPTU
21 K ^TMP("FSC SESSION",$J)
22 N CNT,LINE,NUM
23 I $D(^FSC("SPEC",DUZ,0))#2 D
24 .S $P(^FSC("SPEC",DUZ,0),U,5)=$P($$NOW^XLFDT,".")
25 .S DTIME=$S($P(^(0),U,12):$P(^(0),U,12),1:DTIME)
26 .S ^TMP("FSC SESSION",$J)=DUZ_U_$P(^VA(200,DUZ,0),U)
27 W !
28 S (CNT,NUM)=0 F S NUM=$O(^FSC("PARAM",1,1,NUM)) Q:NUM<1 S LINE=^(NUM,0) D I CNT>9 Q
29 .S CNT=CNT+1
30 .W !,LINE
31 Q
32 ;
33EXIT ; from exit action on option FSC MENU NOIS
34 S DTIME=$$DTIME^XUP(DUZ)
35 K ^TMP("FSC SESSION",$J)
36 Q
Note: See TracBrowser for help on using the repository browser.