FSCUP ;SLC/STAFF-NOIS Utilities Parameters ;1/11/98 15:25
;;1.1;NOIS;;Sep 06, 1998
;
WEDATE() ; $$ -> workload edit date
N WED
S WED=+$P($G(^FSC("PARAM",1,0)),U,10)
Q $$FMADD^XLFDT(DT,-WED)
;
MAXCALL() ; $$ -> max calls allowed in a list
N MAXCALL
S MAXCALL=$P($G(^FSC("PARAM",1,0)),U,11)
I 'MAXCALL Q 1000000
Q MAXCALL
;
MAXLINE() ; $$ -> max lines allowed in viewing calls
N MAXLINE
S MAXLINE=$P($G(^FSC("PARAM",1,0)),U,12)
I 'MAXLINE S MAXLINE=1000000
Q MAXLINE
;
NSALERT() ; $$ -> non spec entry alert (I,P, or F)
N NSALERT
S NSALERT=$P($G(^FSC("PARAM",1,0)),U,13)
I '$L(NSALERT) Q "P"
Q NSALERT
;
CONALERT() ; $$ -> contact alert (I,P, or F)
N CONALERT
S CONALERT=$P($G(^FSC("PARAM",1,0)),U,14)
I '$L(CONALERT) Q "P"
Q CONALERT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCUP 790 printed Dec 13, 2024@02:20:29 Page 2
FSCUP ;SLC/STAFF-NOIS Utilities Parameters ;1/11/98 15:25
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
WEDATE() ; $$ -> workload edit date
+1 NEW WED
+2 SET WED=+$PIECE($GET(^FSC("PARAM",1,0)),U,10)
+3 QUIT $$FMADD^XLFDT(DT,-WED)
+4 ;
MAXCALL() ; $$ -> max calls allowed in a list
+1 NEW MAXCALL
+2 SET MAXCALL=$PIECE($GET(^FSC("PARAM",1,0)),U,11)
+3 IF 'MAXCALL
QUIT 1000000
+4 QUIT MAXCALL
+5 ;
MAXLINE() ; $$ -> max lines allowed in viewing calls
+1 NEW MAXLINE
+2 SET MAXLINE=$PIECE($GET(^FSC("PARAM",1,0)),U,12)
+3 IF 'MAXLINE
SET MAXLINE=1000000
+4 QUIT MAXLINE
+5 ;
NSALERT() ; $$ -> non spec entry alert (I,P, or F)
+1 NEW NSALERT
+2 SET NSALERT=$PIECE($GET(^FSC("PARAM",1,0)),U,13)
+3 IF '$LENGTH(NSALERT)
QUIT "P"
+4 QUIT NSALERT
+5 ;
CONALERT() ; $$ -> contact alert (I,P, or F)
+1 NEW CONALERT
+2 SET CONALERT=$PIECE($GET(^FSC("PARAM",1,0)),U,14)
+3 IF '$LENGTH(CONALERT)
QUIT "P"
+4 QUIT CONALERT
