- 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 Feb 18, 2025@23:46:56 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