- 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 Mar 13, 2025@21:23:39 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
