| 1 | FSCLME ;SLC/STAFF-NOIS List Manager - Edit ;1/13/98 22:03
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | ENTRY ; 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 | ;
|
|---|
| 24 | HEADER ; from list template - header code
|
|---|
| 25 | S VALMHDR(1)=""
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | EXIT ; 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 | ;
|
|---|
| 34 | KILLTMP ;
|
|---|
| 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 | ;
|
|---|
| 44 | HELP ; 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
|
|---|
