FSCOP ;SLC/STAFF-NOIS Option ;12/8/97 13:54
;;1.1;NOIS;;Sep 06, 1998
;
OPT(TAG,ACCESS) ; from NOIS option actions
I '$$ACCESS^FSCU(DUZ,$G(ACCESS)) D NOACCESS^FSCLMPU Q
D COUNTS^FSCLMPU("OPTION "_TAG,DUZ)
D
.I TAG="NEW" D NEW^FSCOPT Q
.I TAG="EDIT" D EDIT^FSCOPT Q
.I TAG="CLOSE" D CLOSE^FSCOPT Q
.I TAG="VIEW" D VIEW^FSCOPT Q
.I TAG="LIST" D LIST^FSCOPT Q
.I TAG="QUERY" D QUERY^FSCOPT Q
.I TAG="REPORTS" D REPORTS^FSCOPT Q
.I TAG="FILES" D FILES^FSCOPT Q
.I TAG="EVENT" D EVENT^FSCOPT Q
Q
;
ENTRY ; from entry action on option FSC MENU NOIS
D TMP^FSCOPTU
K ^TMP("FSC SESSION",$J)
N CNT,LINE,NUM
I $D(^FSC("SPEC",DUZ,0))#2 D
.S $P(^FSC("SPEC",DUZ,0),U,5)=$P($$NOW^XLFDT,".")
.S DTIME=$S($P(^(0),U,12):$P(^(0),U,12),1:DTIME)
.S ^TMP("FSC SESSION",$J)=DUZ_U_$P(^VA(200,DUZ,0),U)
W !
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
.S CNT=CNT+1
.W !,LINE
Q
;
EXIT ; from exit action on option FSC MENU NOIS
S DTIME=$$DTIME^XUP(DUZ)
K ^TMP("FSC SESSION",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCOP 1064 printed Dec 13, 2024@02:18:49 Page 2
FSCOP ;SLC/STAFF-NOIS Option ;12/8/97 13:54
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
OPT(TAG,ACCESS) ; from NOIS option actions
+1 IF '$$ACCESS^FSCU(DUZ,$GET(ACCESS))
DO NOACCESS^FSCLMPU
QUIT
+2 DO COUNTS^FSCLMPU("OPTION "_TAG,DUZ)
+3 Begin DoDot:1
+4 IF TAG="NEW"
DO NEW^FSCOPT
QUIT
+5 IF TAG="EDIT"
DO EDIT^FSCOPT
QUIT
+6 IF TAG="CLOSE"
DO CLOSE^FSCOPT
QUIT
+7 IF TAG="VIEW"
DO VIEW^FSCOPT
QUIT
+8 IF TAG="LIST"
DO LIST^FSCOPT
QUIT
+9 IF TAG="QUERY"
DO QUERY^FSCOPT
QUIT
+10 IF TAG="REPORTS"
DO REPORTS^FSCOPT
QUIT
+11 IF TAG="FILES"
DO FILES^FSCOPT
QUIT
+12 IF TAG="EVENT"
DO EVENT^FSCOPT
QUIT
End DoDot:1
+13 QUIT
+14 ;
ENTRY ; from entry action on option FSC MENU NOIS
+1 DO TMP^FSCOPTU
+2 KILL ^TMP("FSC SESSION",$JOB)
+3 NEW CNT,LINE,NUM
+4 IF $DATA(^FSC("SPEC",DUZ,0))#2
Begin DoDot:1
+5 SET $PIECE(^FSC("SPEC",DUZ,0),U,5)=$PIECE($$NOW^XLFDT,".")
+6 SET DTIME=$SELECT($PIECE(^(0),U,12):$PIECE(^(0),U,12),1:DTIME)
+7 SET ^TMP("FSC SESSION",$JOB)=DUZ_U_$PIECE(^VA(200,DUZ,0),U)
End DoDot:1
+8 WRITE !
+9 SET (CNT,NUM)=0
FOR
SET NUM=$ORDER(^FSC("PARAM",1,1,NUM))
if NUM<1
QUIT
SET LINE=^(NUM,0)
Begin DoDot:1
+10 SET CNT=CNT+1
+11 WRITE !,LINE
End DoDot:1
IF CNT>9
QUIT
+12 QUIT
+13 ;
EXIT ; from exit action on option FSC MENU NOIS
+1 SET DTIME=$$DTIME^XUP(DUZ)
+2 KILL ^TMP("FSC SESSION",$JOB)
+3 QUIT
