FSCOP.m

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 ---FSCOP   1064     printed  Apr 09, 2024@21:21:41                                                                                                                                                                                                       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