Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCLMPU

FSCLMPU.m

Go to the documentation of this file.
  1. FSCLMPU ;SLC/STAFF-NOIS List Manager Protocol Utility ;12/8/97 13:40
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. SETUP(ACTION,USER) ; from FSCLMP
  1. ; give full scroll and refresh on return
  1. D COUNTS(ACTION,USER)
  1. D FULL^VALM1
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. COUNTS(ACTION,USER) ; from FSCOP, count actions
  1. L +^XTMP("FSC COUNTS"):5 I '$T Q
  1. S ^("TOTAL")=$G(^XTMP("FSC COUNTS","TOTAL"))+1
  1. S ^(ACTION)=$G(^XTMP("FSC COUNTS","ACTION",ACTION))+1
  1. S ^(ACTION)=$G(^XTMP("FSC COUNTS","USER ACTION",USER,ACTION))+1
  1. L -^XTMP("FSC COUNTS")
  1. Q
  1. ;
  1. COUNT ;
  1. N ACTION,COUNT,NUM,USER K ^TMP("FSC COUNT",$J)
  1. S ^XTMP("FSC COUNTS",0)=$$FMADD^XLFDT(DT,7)_U_DT
  1. W !,"TOTAL: ",$G(^XTMP("FSC COUNTS","TOTAL"))
  1. W !,"ACTIONS:"
  1. S ACTION="" F S ACTION=$O(^XTMP("FSC COUNTS","ACTION",ACTION)) Q:ACTION="" W !,ACTION,?15," ",+^(ACTION) S ^TMP("FSC COUNT",$J,"CA",+^(ACTION),ACTION)=""
  1. W !,"ACTIONS BY COUNT:"
  1. S COUNT="" F S COUNT=$O(^TMP("FSC COUNT",$J,"CA",COUNT),-1) Q:COUNT="" D
  1. .S ACTION="" F S ACTION=$O(^TMP("FSC COUNT",$J,"CA",COUNT,ACTION)) Q:ACTION="" W !,COUNT,?6,ACTION
  1. W !,"USER ACTIONS:"
  1. S USER="" F S USER=$O(^XTMP("FSC COUNTS","USER ACTION",USER)) Q:USER="" D
  1. .S ACTION="" F S ACTION=$O(^XTMP("FSC COUNTS","USER ACTION",USER,ACTION)) Q:ACTION="" S NUM=+^(ACTION) D
  1. ..W !,$$VALUE^FSCGET(USER,7100,2.1),?25," ",ACTION,?41," ",NUM
  1. .
  1. K ^TMP("FSC COUNT",$J)
  1. Q
  1. ;
  1. NOACCESS ; from FSCLMP, FSCOP
  1. ; msg when no access allowed
  1. W !,"You don't have access to perform this function.",!,$C(7)
  1. H 2
  1. S VALMBCK=""
  1. Q