Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCLMPCC

FSCLMPCC.m

Go to the documentation of this file.
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