| 1 | FSCLMPC ;SLC/STAFF-NOIS List Manager Protocol Change ;1/13/98 12:39
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | LIST ; from FSCLMP
|
|---|
| 5 | N FSCLIMIT,LIST,OK
|
|---|
| 6 | D LIST^FSCULOOK(.LIST,.FSCLIMIT,.OK)
|
|---|
| 7 | I 'OK Q
|
|---|
| 8 | N FSCINDX
|
|---|
| 9 | S FSCLNAME=$P(LIST,U,2),FSCLNUM=+LIST,FSCL0=$G(^FSC("LIST",FSCLNUM,0))
|
|---|
| 10 | I $P(FSCL0,U,5) D INDEX^FSCLM(.FSCLNAME,.FSCINDX,FSCL0) Q:'$G(FSCINDX)
|
|---|
| 11 | D MRU^FSCMR(DUZ,FSCLNUM,+$G(FSCINDX))
|
|---|
| 12 | S VALMSG="",VALMBG=1 K VALMQUIT D ENTRY^FSCLML I $D(VALMQUIT) S VALMBCK="Q" Q
|
|---|
| 13 | D HEADER^FSCLML
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | LD ; from FSCLMP
|
|---|
| 17 | I $D(FSCQEDIT) D ASKLIST^FSCLMPD
|
|---|
| 18 | N LIST,OK
|
|---|
| 19 | D LOOKUP^FSCULOOK("LIST",.LIST,"AEMOQ",.OK)
|
|---|
| 20 | I OK D MODIFY^FSCLM($P(LIST,U,2),+LIST) S VALMBCK="Q" Q
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | STYLE ; from FSCLMP
|
|---|
| 24 | N OK
|
|---|
| 25 | S FSCSTYLE=$E(FSCSTYLE)
|
|---|
| 26 | D EXPAND^FSCUX(.FSCSTYLE,.OK)
|
|---|
| 27 | I OK D
|
|---|
| 28 | .S FSCSTYLE=$$STYLE^FSCU(FSCSTYLE)
|
|---|
| 29 | .S VALMAR="^TMP("_"""FSC MULT "_FSCSTYLE_""""_",$J,+$G(FSCCNT))"
|
|---|
| 30 | .S VALMCNT=0 D BUILD^FSCFORM(FSCCNT,+$G(^TMP("FSC MULT",$J,FSCCNT)),.FSCSTYLE,.VALMCNT,"FSC MULT ")
|
|---|
| 31 | .S VALMBG=1
|
|---|
| 32 | .S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
|
|---|
| 33 | S VALMBCK=$S($G(FSCEXIT):"Q",$D(FSCSTYLE("E")):"Q",$D(FSCSTYLE("T")):"Q",1:"R")
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | VC ; from FSCLMP
|
|---|
| 37 | N AVAIL,OK S AVAIL=$G(^TMP("FSC SELECT",$J,"VVALUES"))
|
|---|
| 38 | I '$L(AVAIL) Q
|
|---|
| 39 | D SELECT^FSCUL(AVAIL,"S","","OTHER",.OK)
|
|---|
| 40 | I OK D
|
|---|
| 41 | .S VALMBG=+$O(@VALMAR@("IDX",+$O(^TMP("FSC LIST CALLS",$J,"IDX",+^TMP("FSC SELECT",$J,"OTHER"),0)),0))
|
|---|
| 42 | Q
|
|---|
| 43 | ;
|
|---|
| 44 | VIEW ; from FSCLMP
|
|---|
| 45 | N CALLCNT,CALLNUM,FIELD,FORMAT,LASTCNUM,LINENUM,LISTNUM,LISTSEL,NUM,OK K FORMAT
|
|---|
| 46 | S FORMAT="",OK=1 D EXPAND^FSCUX(.FORMAT,.OK) I 'OK Q
|
|---|
| 47 | K FSCFMT S (FSCFMT,FSCSTYLE)=$$STYLE^FSCU(FORMAT),FIELD="" F S FIELD=$O(FORMAT(FIELD)) Q:FIELD="" S FSCFMT(FIELD)=FORMAT(FIELD)
|
|---|
| 48 | S LASTCNUM=1,NUM=0 F S NUM=$O(@VALMAR@("IDX",NUM)) Q:NUM<1 S LASTCNUM=NUM I $O(@VALMAR@("IDX",NUM,0))>VALMBG Q
|
|---|
| 49 | S LASTCNUM=+$O(@VALMAR@("IDX",LASTCNUM),-1)
|
|---|
| 50 | I $O(^TMP("FSC VIEW "_FSCFMT,$J,0)),FSCFMT="BRIEF"!(FSCFMT="DETAIL") D Q
|
|---|
| 51 | .S VALMAR="^TMP(""FSC VIEW "_FSCFMT_""",$J)"
|
|---|
| 52 | .S VALMCAP=$$CAP^FSCU("V",.FSCSTYLE),CALLCNT=+$P(@VALMAR,U),VALMCNT=+$P(@VALMAR,U,2),VALMBG=$S(LASTCNUM:+$O(@VALMAR@("IDX",LASTCNUM,0)),1:1)
|
|---|
| 53 | K ^TMP("FSC VIEW "_FSCFMT,$J)
|
|---|
| 54 | S LISTSEL="VVALUES"
|
|---|
| 55 | S VALMCNT=0
|
|---|
| 56 | S VALMCAP=$$CAP^FSCU("V",.FSCSTYLE)
|
|---|
| 57 | W !
|
|---|
| 58 | S (CALLCNT,LISTNUM)=0 F S LISTNUM=$O(^TMP("FSC SELECT",$J,LISTSEL,LISTNUM)) Q:LISTNUM<1 D
|
|---|
| 59 | .S CALLCNT=CALLCNT+1
|
|---|
| 60 | .S LINENUM=+$O(^TMP("FSC LIST CALLS",$J,"IDX",LISTNUM,0)),CALLNUM=+$O(^TMP("FSC LIST CALLS",$J,"ICX",LINENUM,0))
|
|---|
| 61 | .D BUILD^FSCFORM(LINENUM,CALLNUM,.FSCFMT,.VALMCNT,"FSC VIEW ")
|
|---|
| 62 | S VALMAR="^TMP(""FSC VIEW "_FSCFMT_""",$J)"
|
|---|
| 63 | S @VALMAR=CALLCNT_U_VALMCNT
|
|---|
| 64 | S VALMBG=$S(LASTCNUM:+$O(@VALMAR@("IDX",LASTCNUM,0)),1:1)
|
|---|
| 65 | I VALMBG<17,$P(@VALMAR,U,2)<17 S VALMBG=1
|
|---|
| 66 | D VIDEOOFF^FSCU
|
|---|
| 67 | S VALMBCK=$S($G(FSCEXIT):"Q",$D(FSCFMT("E")):"Q",$D(FSCFMT("T")):"Q",1:"R")
|
|---|
| 68 | Q
|
|---|
