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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCMRK 1722 printed Apr 09, 2024@21:20:40 Page 2
FSCMRK ;SLC/STAFF-NOIS Most Recent Cleanup ;1/11/98 18:41
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
MRE ; from FSCTASKA
+1 NEW CALL,COUNT,LIMIT,NUM,TIME,USER
+2 SET LIMIT=+$PIECE($GET(^FSC("PARAM",1,0)),U,15)
+3 SET USER=0
FOR
SET USER=$ORDER(^FSCD("MRE","AUTC",USER))
if USER<.1
QUIT
Begin DoDot:1
+4 SET COUNT=0
+5 SET TIME=""
FOR
SET TIME=$ORDER(^FSCD("MRE","AUTC",USER,TIME))
if TIME=""
QUIT
Begin DoDot:2
+6 SET CALL=0
FOR
SET CALL=$ORDER(^FSCD("MRE","AUTC",USER,TIME,CALL))
if CALL<1
QUIT
SET NUM=+^(CALL)
Begin DoDot:3
+7 SET COUNT=COUNT+1
+8 IF COUNT>LIMIT
DO DEL^FSCUCD("^FSCD(""MRE"",",NUM)
End DoDot:3
End DoDot:2
End DoDot:1
+9 QUIT
+10 ;
MRA ; from FSCTASKA
+1 NEW CALL,COUNT,LIMIT,NUM,TIME,USER
+2 SET LIMIT=+$PIECE($GET(^FSC("PARAM",1,0)),U,16)
+3 SET USER=0
FOR
SET USER=$ORDER(^FSCD("MRA","AUTC",USER))
if USER<.1
QUIT
Begin DoDot:1
+4 SET COUNT=0
+5 SET TIME=""
FOR
SET TIME=$ORDER(^FSCD("MRA","AUTC",USER,TIME))
if TIME=""
QUIT
Begin DoDot:2
+6 SET CALL=0
FOR
SET CALL=$ORDER(^FSCD("MRA","AUTC",USER,TIME,CALL))
if CALL<1
QUIT
SET NUM=+^(CALL)
Begin DoDot:3
+7 SET COUNT=COUNT+1
+8 IF COUNT>LIMIT
DO DEL^FSCUCD("^FSCD(""MRA"",",NUM)
End DoDot:3
End DoDot:2
End DoDot:1
+9 QUIT
+10 ;
MRU ; from FSCTASKA
+1 NEW COUNT,INDEX,LIMIT,LIST,NUM,TIME,USER
+2 SET LIMIT=+$PIECE($GET(^FSC("PARAM",1,0)),U,17)
+3 SET USER=0
FOR
SET USER=$ORDER(^FSCD("MRU","AUTL",USER))
if USER<.1
QUIT
Begin DoDot:1
+4 SET COUNT=0
+5 SET TIME=""
FOR
SET TIME=$ORDER(^FSCD("MRU","AUTL",USER,TIME))
if TIME=""
QUIT
Begin DoDot:2
+6 SET LIST=0
FOR
SET LIST=$ORDER(^FSCD("MRU","AUTL",USER,TIME,LIST))
if LIST<1
QUIT
Begin DoDot:3
+7 SET INDEX=""
FOR
SET INDEX=$ORDER(^FSCD("MRU","AUTL",USER,TIME,LIST,INDEX))
if INDEX=""
QUIT
SET NUM=+^(INDEX)
Begin DoDot:4
+8 SET COUNT=COUNT+1
+9 IF COUNT>LIMIT
DO DEL^FSCUCD("^FSCD(""MRU"",",NUM)
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+10 QUIT
+11 ;
ZZ ;
+1 SET NAME="CIOFO-ALB"
FOR
SET NAME=$ORDER(^FSC("LIST","B",NAME))
if NAME=""
QUIT
if NAME]"CIOFO-WASHZ"
QUIT
Begin DoDot:1
+2 WRITE !,NAME
+3 SET LNUM=0
FOR
SET LNUM=$ORDER(^FSC("LIST","B",NAME,LNUM))
if LNUM<1
QUIT
Begin DoDot:2
+4 SET NUM=0
FOR
SET NUM=$ORDER(^FSCD("MRU","AL",LNUM,NUM))
if NUM<1
QUIT
Begin DoDot:3
+5 WRITE "."
DO DEL^FSCUCD("^FSCD(""MRU"",",NUM)
End DoDot:3
End DoDot:2
End DoDot:1
+6 QUIT
