Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCLMPC

FSCLMPC.m

Go to the documentation of this file.
  1. FSCLMPC ;SLC/STAFF-NOIS List Manager Protocol Change ;1/13/98 12:39
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. LIST ; from FSCLMP
  1. N FSCLIMIT,LIST,OK
  1. D LIST^FSCULOOK(.LIST,.FSCLIMIT,.OK)
  1. I 'OK Q
  1. N FSCINDX
  1. S FSCLNAME=$P(LIST,U,2),FSCLNUM=+LIST,FSCL0=$G(^FSC("LIST",FSCLNUM,0))
  1. I $P(FSCL0,U,5) D INDEX^FSCLM(.FSCLNAME,.FSCINDX,FSCL0) Q:'$G(FSCINDX)
  1. D MRU^FSCMR(DUZ,FSCLNUM,+$G(FSCINDX))
  1. S VALMSG="",VALMBG=1 K VALMQUIT D ENTRY^FSCLML I $D(VALMQUIT) S VALMBCK="Q" Q
  1. D HEADER^FSCLML
  1. Q
  1. ;
  1. LD ; from FSCLMP
  1. I $D(FSCQEDIT) D ASKLIST^FSCLMPD
  1. N LIST,OK
  1. D LOOKUP^FSCULOOK("LIST",.LIST,"AEMOQ",.OK)
  1. I OK D MODIFY^FSCLM($P(LIST,U,2),+LIST) S VALMBCK="Q" Q
  1. Q
  1. ;
  1. STYLE ; from FSCLMP
  1. N OK
  1. S FSCSTYLE=$E(FSCSTYLE)
  1. D EXPAND^FSCUX(.FSCSTYLE,.OK)
  1. I OK D
  1. .S FSCSTYLE=$$STYLE^FSCU(FSCSTYLE)
  1. .S VALMAR="^TMP("_"""FSC MULT "_FSCSTYLE_""""_",$J,+$G(FSCCNT))"
  1. .S VALMCNT=0 D BUILD^FSCFORM(FSCCNT,+$G(^TMP("FSC MULT",$J,FSCCNT)),.FSCSTYLE,.VALMCNT,"FSC MULT ")
  1. .S VALMBG=1
  1. .S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
  1. S VALMBCK=$S($G(FSCEXIT):"Q",$D(FSCSTYLE("E")):"Q",$D(FSCSTYLE("T")):"Q",1:"R")
  1. Q
  1. ;
  1. VC ; from FSCLMP
  1. N AVAIL,OK S AVAIL=$G(^TMP("FSC SELECT",$J,"VVALUES"))
  1. I '$L(AVAIL) Q
  1. D SELECT^FSCUL(AVAIL,"S","","OTHER",.OK)
  1. I OK D
  1. .S VALMBG=+$O(@VALMAR@("IDX",+$O(^TMP("FSC LIST CALLS",$J,"IDX",+^TMP("FSC SELECT",$J,"OTHER"),0)),0))
  1. Q
  1. ;
  1. VIEW ; from FSCLMP
  1. N CALLCNT,CALLNUM,FIELD,FORMAT,LASTCNUM,LINENUM,LISTNUM,LISTSEL,NUM,OK K FORMAT
  1. S FORMAT="",OK=1 D EXPAND^FSCUX(.FORMAT,.OK) I 'OK Q
  1. K FSCFMT S (FSCFMT,FSCSTYLE)=$$STYLE^FSCU(FORMAT),FIELD="" F S FIELD=$O(FORMAT(FIELD)) Q:FIELD="" S FSCFMT(FIELD)=FORMAT(FIELD)
  1. 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
  1. S LASTCNUM=+$O(@VALMAR@("IDX",LASTCNUM),-1)
  1. I $O(^TMP("FSC VIEW "_FSCFMT,$J,0)),FSCFMT="BRIEF"!(FSCFMT="DETAIL") D Q
  1. .S VALMAR="^TMP(""FSC VIEW "_FSCFMT_""",$J)"
  1. .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)
  1. K ^TMP("FSC VIEW "_FSCFMT,$J)
  1. S LISTSEL="VVALUES"
  1. S VALMCNT=0
  1. S VALMCAP=$$CAP^FSCU("V",.FSCSTYLE)
  1. W !
  1. S (CALLCNT,LISTNUM)=0 F S LISTNUM=$O(^TMP("FSC SELECT",$J,LISTSEL,LISTNUM)) Q:LISTNUM<1 D
  1. .S CALLCNT=CALLCNT+1
  1. .S LINENUM=+$O(^TMP("FSC LIST CALLS",$J,"IDX",LISTNUM,0)),CALLNUM=+$O(^TMP("FSC LIST CALLS",$J,"ICX",LINENUM,0))
  1. .D BUILD^FSCFORM(LINENUM,CALLNUM,.FSCFMT,.VALMCNT,"FSC VIEW ")
  1. S VALMAR="^TMP(""FSC VIEW "_FSCFMT_""",$J)"
  1. S @VALMAR=CALLCNT_U_VALMCNT
  1. S VALMBG=$S(LASTCNUM:+$O(@VALMAR@("IDX",LASTCNUM,0)),1:1)
  1. I VALMBG<17,$P(@VALMAR,U,2)<17 S VALMBG=1
  1. D VIDEOOFF^FSCU
  1. S VALMBCK=$S($G(FSCEXIT):"Q",$D(FSCFMT("E")):"Q",$D(FSCFMT("T")):"Q",1:"R")
  1. Q