source: FOIAVistA/trunk/r/NOIS-FSC/FSCLMV.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1FSCLMV ;SLC/STAFF-NOIS List Manager - View ;1/13/98 13:12
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4ENTRY ; from list template - entry code, FSCELL
5 N CALLCNT,CALLLINE,CALLNUM,LISTNUM,MAXLINE,OVERFLOW
6 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)
7 S VALMCNT=0
8 S VALMCAP=$$CAP^FSCU("V",.FSCSTYLE)
9 I '$G(FSCDEV) W !
10 S MAXLINE=$$MAXLINE^FSCUP,OVERFLOW=0
11 S (CALLCNT,LISTNUM)=0 F S LISTNUM=$O(^TMP("FSC SELECT",$J,LISTSEL,LISTNUM)) Q:LISTNUM<1 D Q:$D(DTOUT) Q:OVERFLOW
12 .S CALLCNT=CALLCNT+1
13 .S CALLLINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",LISTNUM,0))
14 .S CALLNUM=+$O(^TMP("FSC LIST CALLS",$J,"ICX",CALLLINE,0))
15 .D BUILD^FSCFORM(CALLLINE,CALLNUM,.FSCFMT,.VALMCNT,"FSC VIEW ")
16 .I VALMCNT>MAXLINE D
17 ..S OVERFLOW=1
18 ..W !,"List is restricted to ",MAXLINE," lines.",$C(7) H 2
19 S VALMAR="^TMP(""FSC VIEW "_FSCFMT_""",$J)"
20 S @VALMAR=CALLCNT_U_VALMCNT
21 D VIDEOOFF^FSCU
22 I $D(FSCFMT("E")) S VALMQUIT=1,VALMBCK="Q"
23 I $D(FSCFMT("T")) S VALMQUIT=1,VALMBCK="Q"
24 Q
25 ;
26HEADER ; from list template - header code, FSCELL
27 S VALMHDR(1)=$$SETSTR^VALM1("# of calls: "_+@VALMAR,"List: "_FSCLNAME,62,18)
28 Q
29 ;
30EXIT ; from list template - exit code
31 I $G(FSC1) D CLEAR^VALM1
32 K ^TMP("FSC VIEW",$J)
33 K ^TMP("FSC VIEW BRIEF",$J)
34 K ^TMP("FSC VIEW DETAIL",$J)
35 K ^TMP("FSC VIEW FORMAT",$J)
36 K ^TMP("FSC VIEW STAT",$J)
37 K ^TMP("FSC VIEW CUSTOM",$J)
38 K ^TMP("FSC SELECT",$J,"VVALUES")
39 Q
40 ;
41HELP ; from list template - help code
42 I $G(X)'["?" Q
43 S VALMBCK="R"
44 N XQH
45 I X="?" S XQH="FSC MENU VIEW" D EN^XQH Q
46 I X="???" S VALMANS="?" D CLEAR^VALM1 S XQH="FSC U1 NOIS" D EN^XQH Q
47 Q
Note: See TracBrowser for help on using the repository browser.