| 1 | FSCLMV ;SLC/STAFF-NOIS List Manager - View ;1/13/98 13:12
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | ENTRY ; 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 | ;
|
|---|
| 26 | HEADER ; from list template - header code, FSCELL
|
|---|
| 27 | S VALMHDR(1)=$$SETSTR^VALM1("# of calls: "_+@VALMAR,"List: "_FSCLNAME,62,18)
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | EXIT ; 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 | ;
|
|---|
| 41 | HELP ; 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
|
|---|
