FSCUP.m

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 ---FSCUP   790     printed  Apr 09, 2024@21:23:06                                                                                                                                                                                                        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