|
Last change
on this file since 762 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
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.
