- FSCLME ;SLC/STAFF-NOIS List Manager - Edit ;1/13/98 22:03
- ;;1.1;NOIS;;Sep 06, 1998
- ;
- ENTRY ; from list template - entry code
- N CALLNUM,CALLLINE,REFLINE,LASTLINE,LISTCNT,LISTNUM,STYLE
- D KILLTMP
- I '$G(FSCDEV) W "."
- S FSCSTYLE=$$EFORMAT^FSCUF(DUZ)
- S VALMAR="^TMP(""FSC MULT "_FSCSTYLE_""",$J,+$G(FSCCNT))" ;*** use current value or user default??
- S VALMCNT=0
- S (LISTCNT,LISTNUM)=0 F S LISTNUM=$O(^TMP("FSC SELECT",$J,FSCCALLS,LISTNUM)) Q:LISTNUM<1 D
- .S LISTCNT=LISTCNT+1
- .S CALLLINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",LISTNUM,0))
- .S CALLNUM=+$O(^TMP("FSC LIST CALLS",$J,"ICX",CALLLINE,0))
- .S REFLINE=^TMP("FSC LIST CALLS",$J,CALLLINE,0)
- .S ^TMP("FSC MULT",$J,LISTNUM)=CALLNUM_U_REFLINE
- .I LISTCNT=1 S LASTLINE=0 D BUILD^FSCFORM(LISTNUM,CALLNUM,.FSCSTYLE,0,"FSC MULT ") S FSCCNT=LISTNUM
- S STYLE="FSC MULT "_FSCSTYLE
- S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
- S VALMCNT=+$P(^TMP(STYLE,$J,FSCCNT),U,2),VALMHDR(1)=$P(^TMP("FSC MULT",$J,FSCCNT),U,2,99)
- I '$O(^TMP("FSC MULT",$J,0)) S FSCCNT=1,@VALMAR@(1,0)=" ",@VALMAR@(2,0)=" No calls meet criteria.",VALMCNT=2
- Q
- ;
- S VALMHDR(1)=""
- Q
- ;
- EXIT ; from list template - exit code
- I $G(FSC1) D CLEAR^VALM1
- D KILLTMP
- K ^TMP("FSC SELECT",$J,"EVALUES")
- Q
- ;
- KILLTMP ;
- K ^TMP("FSC MULT",$J)
- K ^TMP("FSC MULT BRIEF",$J)
- K ^TMP("FSC MULT DETAIL",$J)
- K ^TMP("FSC MULT FORMAT",$J)
- K ^TMP("FSC MULT STAT",$J)
- K ^TMP("FSC MULT CUSTOM",$J)
- K ^TMP("FSC TEXT",$J)
- Q
- ;
- HELP ; from list template - help code
- I $G(X)'["?" Q
- S VALMBCK="R"
- N XQH
- I X="?" S XQH="FSC MENU EDIT" 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[HFSCLME 1716 printed Feb 18, 2025@23:44:32 Page 2
- FSCLME ;SLC/STAFF-NOIS List Manager - Edit ;1/13/98 22:03
- +1 ;;1.1;NOIS;;Sep 06, 1998
- +2 ;
- ENTRY ; from list template - entry code
- +1 NEW CALLNUM,CALLLINE,REFLINE,LASTLINE,LISTCNT,LISTNUM,STYLE
- +2 DO KILLTMP
- +3 IF '$GET(FSCDEV)
- WRITE "."
- +4 SET FSCSTYLE=$$EFORMAT^FSCUF(DUZ)
- +5 ;*** use current value or user default??
- SET VALMAR="^TMP(""FSC MULT "_FSCSTYLE_""",$J,+$G(FSCCNT))"
- +6 SET VALMCNT=0
- +7 SET (LISTCNT,LISTNUM)=0
- FOR
- SET LISTNUM=$ORDER(^TMP("FSC SELECT",$JOB,FSCCALLS,LISTNUM))
- if LISTNUM<1
- QUIT
- Begin DoDot:1
- +8 SET LISTCNT=LISTCNT+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 SET REFLINE=^TMP("FSC LIST CALLS",$JOB,CALLLINE,0)
- +12 SET ^TMP("FSC MULT",$JOB,LISTNUM)=CALLNUM_U_REFLINE
- +13 IF LISTCNT=1
- SET LASTLINE=0
- DO BUILD^FSCFORM(LISTNUM,CALLNUM,.FSCSTYLE,0,"FSC MULT ")
- SET FSCCNT=LISTNUM
- End DoDot:1
- +14 SET STYLE="FSC MULT "_FSCSTYLE
- +15 SET VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
- +16 SET VALMCNT=+$PIECE(^TMP(STYLE,$JOB,FSCCNT),U,2)
- SET VALMHDR(1)=$PIECE(^TMP("FSC MULT",$JOB,FSCCNT),U,2,99)
- +17 IF '$ORDER(^TMP("FSC MULT",$JOB,0))
- SET FSCCNT=1
- SET @VALMAR@(1,0)=" "
- SET @VALMAR@(2,0)=" No calls meet criteria."
- SET VALMCNT=2
- +18 QUIT
- +19 ;
- +1 SET VALMHDR(1)=""
- +2 QUIT
- +3 ;
- EXIT ; from list template - exit code
- +1 IF $GET(FSC1)
- DO CLEAR^VALM1
- +2 DO KILLTMP
- +3 KILL ^TMP("FSC SELECT",$JOB,"EVALUES")
- +4 QUIT
- +5 ;
- KILLTMP ;
- +1 KILL ^TMP("FSC MULT",$JOB)
- +2 KILL ^TMP("FSC MULT BRIEF",$JOB)
- +3 KILL ^TMP("FSC MULT DETAIL",$JOB)
- +4 KILL ^TMP("FSC MULT FORMAT",$JOB)
- +5 KILL ^TMP("FSC MULT STAT",$JOB)
- +6 KILL ^TMP("FSC MULT CUSTOM",$JOB)
- +7 KILL ^TMP("FSC TEXT",$JOB)
- +8 QUIT
- +9 ;
- 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 EDIT"
- DO EN^XQH
- QUIT
- +5 IF X="???"
- SET VALMANS="?"
- DO CLEAR^VALM1
- SET XQH="FSC U1 NOIS"
- DO EN^XQH
- QUIT
- +6 QUIT