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

FSCMRK ;SLC/STAFF-NOIS Most Recent Cleanup ;1/11/98  18:41
 ;;1.1;NOIS;;Sep 06, 1998
 ;
MRE ; from FSCTASKA
 N CALL,COUNT,LIMIT,NUM,TIME,USER
 S LIMIT=+$P($G(^FSC("PARAM",1,0)),U,15)
 S USER=0 F  S USER=$O(^FSCD("MRE","AUTC",USER)) Q:USER<.1  D
 .S COUNT=0
 .S TIME="" F  S TIME=$O(^FSCD("MRE","AUTC",USER,TIME)) Q:TIME=""  D
 ..S CALL=0 F  S CALL=$O(^FSCD("MRE","AUTC",USER,TIME,CALL)) Q:CALL<1  S NUM=+^(CALL) D
 ...S COUNT=COUNT+1
 ...I COUNT>LIMIT D DEL^FSCUCD("^FSCD(""MRE"",",NUM)
 Q
 ;
MRA ; from FSCTASKA
 N CALL,COUNT,LIMIT,NUM,TIME,USER
 S LIMIT=+$P($G(^FSC("PARAM",1,0)),U,16)
 S USER=0 F  S USER=$O(^FSCD("MRA","AUTC",USER)) Q:USER<.1  D
 .S COUNT=0
 .S TIME="" F  S TIME=$O(^FSCD("MRA","AUTC",USER,TIME)) Q:TIME=""  D
 ..S CALL=0 F  S CALL=$O(^FSCD("MRA","AUTC",USER,TIME,CALL)) Q:CALL<1  S NUM=+^(CALL) D
 ...S COUNT=COUNT+1
 ...I COUNT>LIMIT D DEL^FSCUCD("^FSCD(""MRA"",",NUM)
 Q
 ;
MRU ; from FSCTASKA
 N COUNT,INDEX,LIMIT,LIST,NUM,TIME,USER
 S LIMIT=+$P($G(^FSC("PARAM",1,0)),U,17)
 S USER=0 F  S USER=$O(^FSCD("MRU","AUTL",USER)) Q:USER<.1  D
 .S COUNT=0
 .S TIME="" F  S TIME=$O(^FSCD("MRU","AUTL",USER,TIME)) Q:TIME=""  D
 ..S LIST=0 F  S LIST=$O(^FSCD("MRU","AUTL",USER,TIME,LIST)) Q:LIST<1  D
 ...S INDEX="" F  S INDEX=$O(^FSCD("MRU","AUTL",USER,TIME,LIST,INDEX)) Q:INDEX=""  S NUM=+^(INDEX) D
 ....S COUNT=COUNT+1
 ....I COUNT>LIMIT D DEL^FSCUCD("^FSCD(""MRU"",",NUM)
 Q
 ;
ZZ ;
 S NAME="CIOFO-ALB" F  S NAME=$O(^FSC("LIST","B",NAME)) Q:NAME=""  Q:NAME]"CIOFO-WASHZ"  D
 .W !,NAME
 .S LNUM=0 F  S LNUM=$O(^FSC("LIST","B",NAME,LNUM)) Q:LNUM<1  D
 ..S NUM=0 F  S NUM=$O(^FSCD("MRU","AL",LNUM,NUM)) Q:NUM<1  D
 ...W "." D DEL^FSCUCD("^FSCD(""MRU"",",NUM)
 Q