Last change
on this file since 1005 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
759 bytes
|
Line | |
---|
1 | FSCUP ;SLC/STAFF-NOIS Utilities Parameters ;1/11/98 15:25
|
---|
2 | ;;1.1;NOIS;;Sep 06, 1998
|
---|
3 | ;
|
---|
4 | WEDATE() ; $$ -> workload edit date
|
---|
5 | N WED
|
---|
6 | S WED=+$P($G(^FSC("PARAM",1,0)),U,10)
|
---|
7 | Q $$FMADD^XLFDT(DT,-WED)
|
---|
8 | ;
|
---|
9 | MAXCALL() ; $$ -> 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 | ;
|
---|
15 | MAXLINE() ; $$ -> 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 | ;
|
---|
21 | NSALERT() ; $$ -> 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 | ;
|
---|
27 | CONALERT() ; $$ -> 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.