- 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 Jan 18, 2025@03:20 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