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.
  1. FSCLMPCC ;SLC/STAFF-NOIS List Manager Protocol Change Call ;4/22/94 11:01
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. GOTO ; from FSCLMP
  1. N AVAIL,OK S AVAIL=$G(^TMP("FSC SELECT",$J,"EVALUES"))
  1. I '$L(AVAIL) Q
  1. D SELECT^FSCUL(AVAIL,"S","","OTHER",.OK)
  1. I 'OK Q
  1. S FSCCNT=^TMP("FSC SELECT",$J,"OTHER")
  1. I $O(@VALMAR@(0)) D VIDEOOFF^FSCU
  1. I '$O(@VALMAR@(0)) D BUILD^FSCFORM(FSCCNT,+$G(^TMP("FSC MULT",$J,FSCCNT)),.FSCSTYLE,0,"FSC MULT ")
  1. S VALMHDR(1)=$P($G(^TMP("FSC MULT",$J,FSCCNT)),U,2,99)
  1. S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
  1. S VALMCNT=+$P(@VALMAR,U,2)
  1. S VALMBG=1
  1. Q
  1. ;
  1. NEXT ; from FSCLMP
  1. N NEXT
  1. S NEXT=+$O(^TMP("FSC MULT",$J,+$G(FSCCNT)))
  1. I 'NEXT W $C(7) Q
  1. I NEXT D
  1. .S FSCCNT=NEXT
  1. .I $O(@VALMAR@(0)) D VIDEOOFF^FSCU
  1. .I '$O(@VALMAR@(0)) D BUILD^FSCFORM(FSCCNT,+$G(^TMP("FSC MULT",$J,FSCCNT)),.FSCSTYLE,0,"FSC MULT ")
  1. .S VALMHDR(1)=$P($G(^TMP("FSC MULT",$J,FSCCNT)),U,2,99)
  1. .S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
  1. .S VALMCNT=+$P(@VALMAR,U,2)
  1. .S VALMBG=1
  1. Q
  1. ;
  1. PREV ; from FSCLMP
  1. N PREV
  1. S PREV=+$O(^TMP("FSC MULT",$J,+$G(FSCCNT)),-1)
  1. I 'PREV W $C(7) Q
  1. I PREV D
  1. .S FSCCNT=PREV
  1. .I $O(@VALMAR@(0)) D VIDEOOFF^FSCU
  1. .I '$O(@VALMAR@(0)) D BUILD^FSCFORM(FSCCNT,+$G(^TMP("FSC MULT",$J,FSCCNT)),.FSCSTYLE,0,"FSC MULT ")
  1. .S VALMHDR(1)=$P($G(^TMP("FSC MULT",$J,FSCCNT)),U,2,99)
  1. .S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
  1. .S VALMCNT=+$P(@VALMAR,U,2)
  1. .S VALMBG=1
  1. Q