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

FSCLMV.m

Go to the documentation of this file.
  1. FSCLMV ;SLC/STAFF-NOIS List Manager - View ;1/13/98 13:12
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. ENTRY ; from list template - entry code, FSCELL
  1. N CALLCNT,CALLLINE,CALLNUM,LISTNUM,MAXLINE,OVERFLOW
  1. 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)
  1. S VALMCNT=0
  1. S VALMCAP=$$CAP^FSCU("V",.FSCSTYLE)
  1. I '$G(FSCDEV) W !
  1. S MAXLINE=$$MAXLINE^FSCUP,OVERFLOW=0
  1. S (CALLCNT,LISTNUM)=0 F S LISTNUM=$O(^TMP("FSC SELECT",$J,LISTSEL,LISTNUM)) Q:LISTNUM<1 D Q:$D(DTOUT) Q:OVERFLOW
  1. .S CALLCNT=CALLCNT+1
  1. .S CALLLINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",LISTNUM,0))
  1. .S CALLNUM=+$O(^TMP("FSC LIST CALLS",$J,"ICX",CALLLINE,0))
  1. .D BUILD^FSCFORM(CALLLINE,CALLNUM,.FSCFMT,.VALMCNT,"FSC VIEW ")
  1. .I VALMCNT>MAXLINE D
  1. ..S OVERFLOW=1
  1. ..W !,"List is restricted to ",MAXLINE," lines.",$C(7) H 2
  1. S VALMAR="^TMP(""FSC VIEW "_FSCFMT_""",$J)"
  1. S @VALMAR=CALLCNT_U_VALMCNT
  1. D VIDEOOFF^FSCU
  1. I $D(FSCFMT("E")) S VALMQUIT=1,VALMBCK="Q"
  1. I $D(FSCFMT("T")) S VALMQUIT=1,VALMBCK="Q"
  1. Q
  1. ;
  1. S VALMHDR(1)=$$SETSTR^VALM1("# of calls: "_+@VALMAR,"List: "_FSCLNAME,62,18)
  1. Q
  1. ;
  1. EXIT ; from list template - exit code
  1. I $G(FSC1) D CLEAR^VALM1
  1. K ^TMP("FSC VIEW",$J)
  1. K ^TMP("FSC VIEW BRIEF",$J)
  1. K ^TMP("FSC VIEW DETAIL",$J)
  1. K ^TMP("FSC VIEW FORMAT",$J)
  1. K ^TMP("FSC VIEW STAT",$J)
  1. K ^TMP("FSC VIEW CUSTOM",$J)
  1. K ^TMP("FSC SELECT",$J,"VVALUES")
  1. Q
  1. ;
  1. HELP ; from list template - help code
  1. I $G(X)'["?" Q
  1. S VALMBCK="R"
  1. N XQH
  1. I X="?" S XQH="FSC MENU VIEW" D EN^XQH Q
  1. I X="???" S VALMANS="?" D CLEAR^VALM1 S XQH="FSC U1 NOIS" D EN^XQH Q
  1. Q