Routine: FSCLMV

FSCLMV ;SLC/STAFF-NOIS List Manager - View ;1/13/98  13:12

 ;;1.1;NOIS;;Sep 06, 1998

ENTRY ; from list template - entry code, FSCELL

 N CALLCNT,CALLLINE,CALLNUM,LISTNUM,MAXLINE,OVERFLOW

 K ^TMP("FSC VIEW",$J),^TMP("FSC VIEW BRIEF",$J),^TMP("FSC VIEW DETAIL",$J),^TMP("FSC VIEW FORMAT",$J),^TMP("FSC VIEW STAT",$J),^TMP("FSC VIEW CUSTOM",$J)

 S VALMCNT=0

 S VALMCAP=$$CAP^FSCU("V",.FSCSTYLE)

 I '$G(FSCDEV) W !

 S MAXLINE=$$MAXLINE^FSCUP,OVERFLOW=0

 S (CALLCNT,LISTNUM)=0 F  S LISTNUM=$O(^TMP("FSC SELECT",$J,LISTSEL,LISTNUM)) Q:LISTNUM<1  D  Q:$D(DTOUT)  Q:OVERFLOW

 .S CALLCNT=CALLCNT+1

 .S CALLLINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",LISTNUM,0))

 .S CALLNUM=+$O(^TMP("FSC LIST CALLS",$J,"ICX",CALLLINE,0))

 .D BUILD^FSCFORM(CALLLINE,CALLNUM,.FSCFMT,.VALMCNT,"FSC VIEW ")

 .I VALMCNT>MAXLINE D

 ..S OVERFLOW=1

 ..W !,"List is restricted to ",MAXLINE," lines.",$C(7) H 2

 S VALMAR="^TMP(""FSC VIEW "_FSCFMT_""",$J)"

 S @VALMAR=CALLCNT_U_VALMCNT

 D VIDEOOFF^FSCU

 I $D(FSCFMT("E")) S VALMQUIT=1,VALMBCK="Q"

 I $D(FSCFMT("T")) S VALMQUIT=1,VALMBCK="Q"

HEADER ; from list template - header code, FSCELL

 S VALMHDR(1)=$$SETSTR^VALM1("# of calls: "_+@VALMAR,"List: "_FSCLNAME,62,18)

EXIT ; from list template - exit code

 I $G(FSC1) D CLEAR^VALM1

 K ^TMP("FSC VIEW",$J)

 K ^TMP("FSC VIEW BRIEF",$J)

 K ^TMP("FSC VIEW DETAIL",$J)

 K ^TMP("FSC VIEW FORMAT",$J)

 K ^TMP("FSC VIEW STAT",$J)

 K ^TMP("FSC VIEW CUSTOM",$J)

 K ^TMP("FSC SELECT",$J,"VVALUES")

HELP ; from list template - help code

 I $G(X)'["?" Q

 S VALMBCK="R"

 N XQH

 I X="?" S XQH="FSC MENU VIEW" D EN^XQH Q

 I X="???" S VALMANS="?" D CLEAR^VALM1 S XQH="FSC U1 NOIS" D EN^XQH Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCLMV   1706     printed  Apr 09, 2024@21:21:32                                                                                                                                                                                                      Page 2

FSCLMV    ;SLC/STAFF-NOIS List Manager - View ;1/13/98  13:12

 +1       ;;1.1;NOIS;;Sep 06, 1998

 +2       ;

ENTRY     ; from list template - entry code, FSCELL

 +1        NEW CALLCNT,CALLLINE,CALLNUM,LISTNUM,MAXLINE,OVERFLOW

 +2        KILL ^TMP("FSC VIEW",$JOB),^TMP("FSC VIEW BRIEF",$JOB),^TMP("FSC VIEW DETAIL",$JOB),^TMP("FSC VIEW FORMAT",$JOB),^TMP("FSC VIEW STAT",$JOB),^TMP("FSC VIEW CUSTOM",$JOB)

 +3        SET VALMCNT=0

 +4        SET VALMCAP=$$CAP^FSCU("V",.FSCSTYLE)

 +5        IF '$GET(FSCDEV)

               WRITE !

 +6        SET MAXLINE=$$MAXLINE^FSCUP

           SET OVERFLOW=0

 +7        SET (CALLCNT,LISTNUM)=0

FOR

               SET LISTNUM=$ORDER(^TMP("FSC SELECT",$JOB,LISTSEL,LISTNUM))

               if LISTNUM<1

                   QUIT

               Begin DoDot:1

 +8                SET CALLCNT=CALLCNT+1

 +9                SET CALLLINE=+$ORDER(^TMP("FSC LIST CALLS",$JOB,"IDX",LISTNUM,0))

 +10               SET CALLNUM=+$ORDER(^TMP("FSC LIST CALLS",$JOB,"ICX",CALLLINE,0))

 +11               DO BUILD^FSCFORM(CALLLINE,CALLNUM,.FSCFMT,.VALMCNT,"FSC VIEW ")

 +12               IF VALMCNT>MAXLINE

                       Begin DoDot:2

 +13                       SET OVERFLOW=1

 +14                       WRITE !,"List is restricted to ",MAXLINE," lines.",$CHAR(7)

                           HANG 2

                       End DoDot:2

               End DoDot:1

               if $DATA(DTOUT)

                   QUIT

               if OVERFLOW

                   QUIT

 +15       SET VALMAR="^TMP(""FSC VIEW "_FSCFMT_""",$J)"

 +16       SET @VALMAR=CALLCNT_U_VALMCNT

 +17       DO VIDEOOFF^FSCU

 +18       IF $DATA(FSCFMT("E"))

               SET VALMQUIT=1

               SET VALMBCK="Q"

 +19       IF $DATA(FSCFMT("T"))

               SET VALMQUIT=1

               SET VALMBCK="Q"

 +20       QUIT

 +21      ;

HEADER    ; from list template - header code, FSCELL

 +1        SET VALMHDR(1)=$$SETSTR^VALM1("# of calls: "_+@VALMAR,"List: "_FSCLNAME,62,18)

 +2        QUIT

 +3       ;

EXIT      ; from list template - exit code

 +1        IF $GET(FSC1)

               DO CLEAR^VALM1

 +2        KILL ^TMP("FSC VIEW",$JOB)

 +3        KILL ^TMP("FSC VIEW BRIEF",$JOB)

 +4        KILL ^TMP("FSC VIEW DETAIL",$JOB)

 +5        KILL ^TMP("FSC VIEW FORMAT",$JOB)

 +6        KILL ^TMP("FSC VIEW STAT",$JOB)

 +7        KILL ^TMP("FSC VIEW CUSTOM",$JOB)

 +8        KILL ^TMP("FSC SELECT",$JOB,"VVALUES")

 +9        QUIT

 +10      ;

HELP      ; from list template - help code

 +1        IF $GET(X)'["?"

               QUIT

 +2        SET VALMBCK="R"

 +3        NEW XQH

 +4        IF X="?"

               SET XQH="FSC MENU VIEW"

               DO EN^XQH

               QUIT

 +5        IF X="???"

               SET VALMANS="?"

               DO CLEAR^VALM1

               SET XQH="FSC U1 NOIS"

               DO EN^XQH

               QUIT

 +6        QUIT

FSCLMV.m