- 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"
- Q
- ;
- S VALMHDR(1)=$$SETSTR^VALM1("# of calls: "_+@VALMAR,"List: "_FSCLNAME,62,18)
- Q
- ;
- 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")
- Q
- ;
- 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
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCLMV 1706 printed Feb 18, 2025@23:45:06 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 ;
- +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