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

FSCLME.m

Go to the documentation of this file.
  1. FSCLME ;SLC/STAFF-NOIS List Manager - Edit ;1/13/98 22:03
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. ENTRY ; from list template - entry code
  1. N CALLNUM,CALLLINE,REFLINE,LASTLINE,LISTCNT,LISTNUM,STYLE
  1. D KILLTMP
  1. I '$G(FSCDEV) W "."
  1. S FSCSTYLE=$$EFORMAT^FSCUF(DUZ)
  1. S VALMAR="^TMP(""FSC MULT "_FSCSTYLE_""",$J,+$G(FSCCNT))" ;*** use current value or user default??
  1. S VALMCNT=0
  1. S (LISTCNT,LISTNUM)=0 F S LISTNUM=$O(^TMP("FSC SELECT",$J,FSCCALLS,LISTNUM)) Q:LISTNUM<1 D
  1. .S LISTCNT=LISTCNT+1
  1. .S CALLLINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",LISTNUM,0))
  1. .S CALLNUM=+$O(^TMP("FSC LIST CALLS",$J,"ICX",CALLLINE,0))
  1. .S REFLINE=^TMP("FSC LIST CALLS",$J,CALLLINE,0)
  1. .S ^TMP("FSC MULT",$J,LISTNUM)=CALLNUM_U_REFLINE
  1. .I LISTCNT=1 S LASTLINE=0 D BUILD^FSCFORM(LISTNUM,CALLNUM,.FSCSTYLE,0,"FSC MULT ") S FSCCNT=LISTNUM
  1. S STYLE="FSC MULT "_FSCSTYLE
  1. S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
  1. S VALMCNT=+$P(^TMP(STYLE,$J,FSCCNT),U,2),VALMHDR(1)=$P(^TMP("FSC MULT",$J,FSCCNT),U,2,99)
  1. I '$O(^TMP("FSC MULT",$J,0)) S FSCCNT=1,@VALMAR@(1,0)=" ",@VALMAR@(2,0)=" No calls meet criteria.",VALMCNT=2
  1. Q
  1. ;
  1. S VALMHDR(1)=""
  1. Q
  1. ;
  1. EXIT ; from list template - exit code
  1. I $G(FSC1) D CLEAR^VALM1
  1. D KILLTMP
  1. K ^TMP("FSC SELECT",$J,"EVALUES")
  1. Q
  1. ;
  1. KILLTMP ;
  1. K ^TMP("FSC MULT",$J)
  1. K ^TMP("FSC MULT BRIEF",$J)
  1. K ^TMP("FSC MULT DETAIL",$J)
  1. K ^TMP("FSC MULT FORMAT",$J)
  1. K ^TMP("FSC MULT STAT",$J)
  1. K ^TMP("FSC MULT CUSTOM",$J)
  1. K ^TMP("FSC TEXT",$J)
  1. Q
  1. ;
  1. HELP ; from list template - help code
  1. I $G(X)'["?" Q
  1. S VALMBCK="R"
  1. N XQH
  1. I X="?" S XQH="FSC MENU EDIT" D EN^XQH Q
  1. I X="???" S VALMANS="?" D CLEAR^VALM1 S XQH="FSC U1 NOIS" D EN^XQH Q
  1. Q