FSCLMPCC ;SLC/STAFF-NOIS List Manager Protocol Change Call ;4/22/94 11:01
;;1.1;NOIS;;Sep 06, 1998
;
GOTO ; from FSCLMP
N AVAIL,OK S AVAIL=$G(^TMP("FSC SELECT",$J,"EVALUES"))
I '$L(AVAIL) Q
D SELECT^FSCUL(AVAIL,"S","","OTHER",.OK)
I 'OK Q
S FSCCNT=^TMP("FSC SELECT",$J,"OTHER")
I $O(@VALMAR@(0)) D VIDEOOFF^FSCU
I '$O(@VALMAR@(0)) D BUILD^FSCFORM(FSCCNT,+$G(^TMP("FSC MULT",$J,FSCCNT)),.FSCSTYLE,0,"FSC MULT ")
S VALMHDR(1)=$P($G(^TMP("FSC MULT",$J,FSCCNT)),U,2,99)
S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
S VALMCNT=+$P(@VALMAR,U,2)
S VALMBG=1
Q
;
NEXT ; from FSCLMP
N NEXT
S NEXT=+$O(^TMP("FSC MULT",$J,+$G(FSCCNT)))
I 'NEXT W $C(7) Q
I NEXT D
.S FSCCNT=NEXT
.I $O(@VALMAR@(0)) D VIDEOOFF^FSCU
.I '$O(@VALMAR@(0)) D BUILD^FSCFORM(FSCCNT,+$G(^TMP("FSC MULT",$J,FSCCNT)),.FSCSTYLE,0,"FSC MULT ")
.S VALMHDR(1)=$P($G(^TMP("FSC MULT",$J,FSCCNT)),U,2,99)
.S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
.S VALMCNT=+$P(@VALMAR,U,2)
.S VALMBG=1
Q
;
PREV ; from FSCLMP
N PREV
S PREV=+$O(^TMP("FSC MULT",$J,+$G(FSCCNT)),-1)
I 'PREV W $C(7) Q
I PREV D
.S FSCCNT=PREV
.I $O(@VALMAR@(0)) D VIDEOOFF^FSCU
.I '$O(@VALMAR@(0)) D BUILD^FSCFORM(FSCCNT,+$G(^TMP("FSC MULT",$J,FSCCNT)),.FSCSTYLE,0,"FSC MULT ")
.S VALMHDR(1)=$P($G(^TMP("FSC MULT",$J,FSCCNT)),U,2,99)
.S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
.S VALMCNT=+$P(@VALMAR,U,2)
.S VALMBG=1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCLMPCC 1419 printed Nov 22, 2024@17:28:12 Page 2
FSCLMPCC ;SLC/STAFF-NOIS List Manager Protocol Change Call ;4/22/94 11:01
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
GOTO ; from FSCLMP
+1 NEW AVAIL,OK
SET AVAIL=$GET(^TMP("FSC SELECT",$JOB,"EVALUES"))
+2 IF '$LENGTH(AVAIL)
QUIT
+3 DO SELECT^FSCUL(AVAIL,"S","","OTHER",.OK)
+4 IF 'OK
QUIT
+5 SET FSCCNT=^TMP("FSC SELECT",$JOB,"OTHER")
+6 IF $ORDER(@VALMAR@(0))
DO VIDEOOFF^FSCU
+7 IF '$ORDER(@VALMAR@(0))
DO BUILD^FSCFORM(FSCCNT,+$GET(^TMP("FSC MULT",$JOB,FSCCNT)),.FSCSTYLE,0,"FSC MULT ")
+8 SET VALMHDR(1)=$PIECE($GET(^TMP("FSC MULT",$JOB,FSCCNT)),U,2,99)
+9 SET VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
+10 SET VALMCNT=+$PIECE(@VALMAR,U,2)
+11 SET VALMBG=1
+12 QUIT
+13 ;
NEXT ; from FSCLMP
+1 NEW NEXT
+2 SET NEXT=+$ORDER(^TMP("FSC MULT",$JOB,+$GET(FSCCNT)))
+3 IF 'NEXT
WRITE $CHAR(7)
QUIT
+4 IF NEXT
Begin DoDot:1
+5 SET FSCCNT=NEXT
+6 IF $ORDER(@VALMAR@(0))
DO VIDEOOFF^FSCU
+7 IF '$ORDER(@VALMAR@(0))
DO BUILD^FSCFORM(FSCCNT,+$GET(^TMP("FSC MULT",$JOB,FSCCNT)),.FSCSTYLE,0,"FSC MULT ")
+8 SET VALMHDR(1)=$PIECE($GET(^TMP("FSC MULT",$JOB,FSCCNT)),U,2,99)
+9 SET VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
+10 SET VALMCNT=+$PIECE(@VALMAR,U,2)
+11 SET VALMBG=1
End DoDot:1
+12 QUIT
+13 ;
PREV ; from FSCLMP
+1 NEW PREV
+2 SET PREV=+$ORDER(^TMP("FSC MULT",$JOB,+$GET(FSCCNT)),-1)
+3 IF 'PREV
WRITE $CHAR(7)
QUIT
+4 IF PREV
Begin DoDot:1
+5 SET FSCCNT=PREV
+6 IF $ORDER(@VALMAR@(0))
DO VIDEOOFF^FSCU
+7 IF '$ORDER(@VALMAR@(0))
DO BUILD^FSCFORM(FSCCNT,+$GET(^TMP("FSC MULT",$JOB,FSCCNT)),.FSCSTYLE,0,"FSC MULT ")
+8 SET VALMHDR(1)=$PIECE($GET(^TMP("FSC MULT",$JOB,FSCCNT)),U,2,99)
+9 SET VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
+10 SET VALMCNT=+$PIECE(@VALMAR,U,2)
+11 SET VALMBG=1
End DoDot:1
+12 QUIT
