| [613] | 1 | FSCOP ;SLC/STAFF-NOIS Option ;12/8/97 13:54
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | OPT(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 | ;
|
|---|
| 19 | ENTRY ; 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 | ;
|
|---|
| 33 | EXIT ; from exit action on option FSC MENU NOIS
|
|---|
| 34 | S DTIME=$$DTIME^XUP(DUZ)
|
|---|
| 35 | K ^TMP("FSC SESSION",$J)
|
|---|
| 36 | Q
|
|---|
