source: FOIAVistA/trunk/r/NOIS-FSC/FSCLMPCC.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1FSCLMPCC ;SLC/STAFF-NOIS List Manager Protocol Change Call ;4/22/94 11:01
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4GOTO ; from FSCLMP
5 N AVAIL,OK S AVAIL=$G(^TMP("FSC SELECT",$J,"EVALUES"))
6 I '$L(AVAIL) Q
7 D SELECT^FSCUL(AVAIL,"S","","OTHER",.OK)
8 I 'OK Q
9 S FSCCNT=^TMP("FSC SELECT",$J,"OTHER")
10 I $O(@VALMAR@(0)) D VIDEOOFF^FSCU
11 I '$O(@VALMAR@(0)) D BUILD^FSCFORM(FSCCNT,+$G(^TMP("FSC MULT",$J,FSCCNT)),.FSCSTYLE,0,"FSC MULT ")
12 S VALMHDR(1)=$P($G(^TMP("FSC MULT",$J,FSCCNT)),U,2,99)
13 S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
14 S VALMCNT=+$P(@VALMAR,U,2)
15 S VALMBG=1
16 Q
17 ;
18NEXT ; from FSCLMP
19 N NEXT
20 S NEXT=+$O(^TMP("FSC MULT",$J,+$G(FSCCNT)))
21 I 'NEXT W $C(7) Q
22 I NEXT D
23 .S FSCCNT=NEXT
24 .I $O(@VALMAR@(0)) D VIDEOOFF^FSCU
25 .I '$O(@VALMAR@(0)) D BUILD^FSCFORM(FSCCNT,+$G(^TMP("FSC MULT",$J,FSCCNT)),.FSCSTYLE,0,"FSC MULT ")
26 .S VALMHDR(1)=$P($G(^TMP("FSC MULT",$J,FSCCNT)),U,2,99)
27 .S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
28 .S VALMCNT=+$P(@VALMAR,U,2)
29 .S VALMBG=1
30 Q
31 ;
32PREV ; from FSCLMP
33 N PREV
34 S PREV=+$O(^TMP("FSC MULT",$J,+$G(FSCCNT)),-1)
35 I 'PREV W $C(7) Q
36 I PREV D
37 .S FSCCNT=PREV
38 .I $O(@VALMAR@(0)) D VIDEOOFF^FSCU
39 .I '$O(@VALMAR@(0)) D BUILD^FSCFORM(FSCCNT,+$G(^TMP("FSC MULT",$J,FSCCNT)),.FSCSTYLE,0,"FSC MULT ")
40 .S VALMHDR(1)=$P($G(^TMP("FSC MULT",$J,FSCCNT)),U,2,99)
41 .S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
42 .S VALMCNT=+$P(@VALMAR,U,2)
43 .S VALMBG=1
44 Q
Note: See TracBrowser for help on using the repository browser.