| [613] | 1 | FSCMRK ;SLC/STAFF-NOIS Most Recent Cleanup ;1/11/98 18:41
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | MRE ; from FSCTASKA
|
|---|
| 5 | N CALL,COUNT,LIMIT,NUM,TIME,USER
|
|---|
| 6 | S LIMIT=+$P($G(^FSC("PARAM",1,0)),U,15)
|
|---|
| 7 | S USER=0 F S USER=$O(^FSCD("MRE","AUTC",USER)) Q:USER<.1 D
|
|---|
| 8 | .S COUNT=0
|
|---|
| 9 | .S TIME="" F S TIME=$O(^FSCD("MRE","AUTC",USER,TIME)) Q:TIME="" D
|
|---|
| 10 | ..S CALL=0 F S CALL=$O(^FSCD("MRE","AUTC",USER,TIME,CALL)) Q:CALL<1 S NUM=+^(CALL) D
|
|---|
| 11 | ...S COUNT=COUNT+1
|
|---|
| 12 | ...I COUNT>LIMIT D DEL^FSCUCD("^FSCD(""MRE"",",NUM)
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | MRA ; from FSCTASKA
|
|---|
| 16 | N CALL,COUNT,LIMIT,NUM,TIME,USER
|
|---|
| 17 | S LIMIT=+$P($G(^FSC("PARAM",1,0)),U,16)
|
|---|
| 18 | S USER=0 F S USER=$O(^FSCD("MRA","AUTC",USER)) Q:USER<.1 D
|
|---|
| 19 | .S COUNT=0
|
|---|
| 20 | .S TIME="" F S TIME=$O(^FSCD("MRA","AUTC",USER,TIME)) Q:TIME="" D
|
|---|
| 21 | ..S CALL=0 F S CALL=$O(^FSCD("MRA","AUTC",USER,TIME,CALL)) Q:CALL<1 S NUM=+^(CALL) D
|
|---|
| 22 | ...S COUNT=COUNT+1
|
|---|
| 23 | ...I COUNT>LIMIT D DEL^FSCUCD("^FSCD(""MRA"",",NUM)
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | MRU ; from FSCTASKA
|
|---|
| 27 | N COUNT,INDEX,LIMIT,LIST,NUM,TIME,USER
|
|---|
| 28 | S LIMIT=+$P($G(^FSC("PARAM",1,0)),U,17)
|
|---|
| 29 | S USER=0 F S USER=$O(^FSCD("MRU","AUTL",USER)) Q:USER<.1 D
|
|---|
| 30 | .S COUNT=0
|
|---|
| 31 | .S TIME="" F S TIME=$O(^FSCD("MRU","AUTL",USER,TIME)) Q:TIME="" D
|
|---|
| 32 | ..S LIST=0 F S LIST=$O(^FSCD("MRU","AUTL",USER,TIME,LIST)) Q:LIST<1 D
|
|---|
| 33 | ...S INDEX="" F S INDEX=$O(^FSCD("MRU","AUTL",USER,TIME,LIST,INDEX)) Q:INDEX="" S NUM=+^(INDEX) D
|
|---|
| 34 | ....S COUNT=COUNT+1
|
|---|
| 35 | ....I COUNT>LIMIT D DEL^FSCUCD("^FSCD(""MRU"",",NUM)
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | ZZ ;
|
|---|
| 39 | S NAME="CIOFO-ALB" F S NAME=$O(^FSC("LIST","B",NAME)) Q:NAME="" Q:NAME]"CIOFO-WASHZ" D
|
|---|
| 40 | .W !,NAME
|
|---|
| 41 | .S LNUM=0 F S LNUM=$O(^FSC("LIST","B",NAME,LNUM)) Q:LNUM<1 D
|
|---|
| 42 | ..S NUM=0 F S NUM=$O(^FSCD("MRU","AL",LNUM,NUM)) Q:NUM<1 D
|
|---|
| 43 | ...W "." D DEL^FSCUCD("^FSCD(""MRU"",",NUM)
|
|---|
| 44 | Q
|
|---|
