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

FSCOP.m

Go to the documentation of this file.
  1. FSCOP ;SLC/STAFF-NOIS Option ;12/8/97 13:54
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. OPT(TAG,ACCESS) ; from NOIS option actions
  1. I '$$ACCESS^FSCU(DUZ,$G(ACCESS)) D NOACCESS^FSCLMPU Q
  1. D COUNTS^FSCLMPU("OPTION "_TAG,DUZ)
  1. D
  1. .I TAG="NEW" D NEW^FSCOPT Q
  1. .I TAG="EDIT" D EDIT^FSCOPT Q
  1. .I TAG="CLOSE" D CLOSE^FSCOPT Q
  1. .I TAG="VIEW" D VIEW^FSCOPT Q
  1. .I TAG="LIST" D LIST^FSCOPT Q
  1. .I TAG="QUERY" D QUERY^FSCOPT Q
  1. .I TAG="REPORTS" D REPORTS^FSCOPT Q
  1. .I TAG="FILES" D FILES^FSCOPT Q
  1. .I TAG="EVENT" D EVENT^FSCOPT Q
  1. Q
  1. ;
  1. ENTRY ; from entry action on option FSC MENU NOIS
  1. D TMP^FSCOPTU
  1. K ^TMP("FSC SESSION",$J)
  1. N CNT,LINE,NUM
  1. I $D(^FSC("SPEC",DUZ,0))#2 D
  1. .S $P(^FSC("SPEC",DUZ,0),U,5)=$P($$NOW^XLFDT,".")
  1. .S DTIME=$S($P(^(0),U,12):$P(^(0),U,12),1:DTIME)
  1. .S ^TMP("FSC SESSION",$J)=DUZ_U_$P(^VA(200,DUZ,0),U)
  1. W !
  1. 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
  1. .S CNT=CNT+1
  1. .W !,LINE
  1. Q
  1. ;
  1. EXIT ; from exit action on option FSC MENU NOIS
  1. S DTIME=$$DTIME^XUP(DUZ)
  1. K ^TMP("FSC SESSION",$J)
  1. Q