source: FOIAVistA/trunk/r/NOIS-FSC/FSCLME.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.6 KB
Line 
1FSCLME ;SLC/STAFF-NOIS List Manager - Edit ;1/13/98 22:03
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4ENTRY ; from list template - entry code
5 N CALLNUM,CALLLINE,REFLINE,LASTLINE,LISTCNT,LISTNUM,STYLE
6 D KILLTMP
7 I '$G(FSCDEV) W "."
8 S FSCSTYLE=$$EFORMAT^FSCUF(DUZ)
9 S VALMAR="^TMP(""FSC MULT "_FSCSTYLE_""",$J,+$G(FSCCNT))" ;*** use current value or user default??
10 S VALMCNT=0
11 S (LISTCNT,LISTNUM)=0 F S LISTNUM=$O(^TMP("FSC SELECT",$J,FSCCALLS,LISTNUM)) Q:LISTNUM<1 D
12 .S LISTCNT=LISTCNT+1
13 .S CALLLINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",LISTNUM,0))
14 .S CALLNUM=+$O(^TMP("FSC LIST CALLS",$J,"ICX",CALLLINE,0))
15 .S REFLINE=^TMP("FSC LIST CALLS",$J,CALLLINE,0)
16 .S ^TMP("FSC MULT",$J,LISTNUM)=CALLNUM_U_REFLINE
17 .I LISTCNT=1 S LASTLINE=0 D BUILD^FSCFORM(LISTNUM,CALLNUM,.FSCSTYLE,0,"FSC MULT ") S FSCCNT=LISTNUM
18 S STYLE="FSC MULT "_FSCSTYLE
19 S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
20 S VALMCNT=+$P(^TMP(STYLE,$J,FSCCNT),U,2),VALMHDR(1)=$P(^TMP("FSC MULT",$J,FSCCNT),U,2,99)
21 I '$O(^TMP("FSC MULT",$J,0)) S FSCCNT=1,@VALMAR@(1,0)=" ",@VALMAR@(2,0)=" No calls meet criteria.",VALMCNT=2
22 Q
23 ;
24HEADER ; from list template - header code
25 S VALMHDR(1)=""
26 Q
27 ;
28EXIT ; from list template - exit code
29 I $G(FSC1) D CLEAR^VALM1
30 D KILLTMP
31 K ^TMP("FSC SELECT",$J,"EVALUES")
32 Q
33 ;
34KILLTMP ;
35 K ^TMP("FSC MULT",$J)
36 K ^TMP("FSC MULT BRIEF",$J)
37 K ^TMP("FSC MULT DETAIL",$J)
38 K ^TMP("FSC MULT FORMAT",$J)
39 K ^TMP("FSC MULT STAT",$J)
40 K ^TMP("FSC MULT CUSTOM",$J)
41 K ^TMP("FSC TEXT",$J)
42 Q
43 ;
44HELP ; from list template - help code
45 I $G(X)'["?" Q
46 S VALMBCK="R"
47 N XQH
48 I X="?" S XQH="FSC MENU EDIT" D EN^XQH Q
49 I X="???" S VALMANS="?" D CLEAR^VALM1 S XQH="FSC U1 NOIS" D EN^XQH Q
50 Q
Note: See TracBrowser for help on using the repository browser.