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

FSCUP.m

Go to the documentation of this file.
  1. FSCUP ;SLC/STAFF-NOIS Utilities Parameters ;1/11/98 15:25
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. WEDATE() ; $$ -> workload edit date
  1. N WED
  1. S WED=+$P($G(^FSC("PARAM",1,0)),U,10)
  1. Q $$FMADD^XLFDT(DT,-WED)
  1. ;
  1. MAXCALL() ; $$ -> max calls allowed in a list
  1. N MAXCALL
  1. S MAXCALL=$P($G(^FSC("PARAM",1,0)),U,11)
  1. I 'MAXCALL Q 1000000
  1. Q MAXCALL
  1. ;
  1. MAXLINE() ; $$ -> max lines allowed in viewing calls
  1. N MAXLINE
  1. S MAXLINE=$P($G(^FSC("PARAM",1,0)),U,12)
  1. I 'MAXLINE S MAXLINE=1000000
  1. Q MAXLINE
  1. ;
  1. NSALERT() ; $$ -> non spec entry alert (I,P, or F)
  1. N NSALERT
  1. S NSALERT=$P($G(^FSC("PARAM",1,0)),U,13)
  1. I '$L(NSALERT) Q "P"
  1. Q NSALERT
  1. ;
  1. CONALERT() ; $$ -> contact alert (I,P, or F)
  1. N CONALERT
  1. S CONALERT=$P($G(^FSC("PARAM",1,0)),U,14)
  1. I '$L(CONALERT) Q "P"
  1. Q CONALERT