source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCMRK.m@ 767

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

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1FSCMRK ;SLC/STAFF-NOIS Most Recent Cleanup ;1/11/98 18:41
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4MRE ; 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 ;
15MRA ; 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 ;
26MRU ; 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 ;
38ZZ ;
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
Note: See TracBrowser for help on using the repository browser.