Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
759 bytes
|
Rev | Line | |
---|
[628] | 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.