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 Dec 13, 2024@02:18:05 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
