- 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 Feb 18, 2025@23:44:38 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