source: FOIAVistA/trunk/r/NOIS-FSC/FSCUP.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 759 bytes
Line 
1FSCUP ;SLC/STAFF-NOIS Utilities Parameters ;1/11/98 15:25
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4WEDATE() ; $$ -> workload edit date
5 N WED
6 S WED=+$P($G(^FSC("PARAM",1,0)),U,10)
7 Q $$FMADD^XLFDT(DT,-WED)
8 ;
9MAXCALL() ; $$ -> max calls allowed in a list
10 N MAXCALL
11 S MAXCALL=$P($G(^FSC("PARAM",1,0)),U,11)
12 I 'MAXCALL Q 1000000
13 Q MAXCALL
14 ;
15MAXLINE() ; $$ -> max lines allowed in viewing calls
16 N MAXLINE
17 S MAXLINE=$P($G(^FSC("PARAM",1,0)),U,12)
18 I 'MAXLINE S MAXLINE=1000000
19 Q MAXLINE
20 ;
21NSALERT() ; $$ -> non spec entry alert (I,P, or F)
22 N NSALERT
23 S NSALERT=$P($G(^FSC("PARAM",1,0)),U,13)
24 I '$L(NSALERT) Q "P"
25 Q NSALERT
26 ;
27CONALERT() ; $$ -> contact alert (I,P, or F)
28 N CONALERT
29 S CONALERT=$P($G(^FSC("PARAM",1,0)),U,14)
30 I '$L(CONALERT) Q "P"
31 Q CONALERT
Note: See TracBrowser for help on using the repository browser.