| 1 | FSCLMPU ;SLC/STAFF-NOIS List Manager Protocol Utility ;12/8/97 13:40
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | SETUP(ACTION,USER) ; from FSCLMP
|
|---|
| 5 | ; give full scroll and refresh on return
|
|---|
| 6 | D COUNTS(ACTION,USER)
|
|---|
| 7 | D FULL^VALM1
|
|---|
| 8 | S VALMBCK="R"
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | COUNTS(ACTION,USER) ; from FSCOP, count actions
|
|---|
| 12 | L +^XTMP("FSC COUNTS"):5 I '$T Q
|
|---|
| 13 | S ^("TOTAL")=$G(^XTMP("FSC COUNTS","TOTAL"))+1
|
|---|
| 14 | S ^(ACTION)=$G(^XTMP("FSC COUNTS","ACTION",ACTION))+1
|
|---|
| 15 | S ^(ACTION)=$G(^XTMP("FSC COUNTS","USER ACTION",USER,ACTION))+1
|
|---|
| 16 | L -^XTMP("FSC COUNTS")
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | COUNT ;
|
|---|
| 20 | N ACTION,COUNT,NUM,USER K ^TMP("FSC COUNT",$J)
|
|---|
| 21 | S ^XTMP("FSC COUNTS",0)=$$FMADD^XLFDT(DT,7)_U_DT
|
|---|
| 22 | W !,"TOTAL: ",$G(^XTMP("FSC COUNTS","TOTAL"))
|
|---|
| 23 | W !,"ACTIONS:"
|
|---|
| 24 | 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)=""
|
|---|
| 25 | W !,"ACTIONS BY COUNT:"
|
|---|
| 26 | S COUNT="" F S COUNT=$O(^TMP("FSC COUNT",$J,"CA",COUNT),-1) Q:COUNT="" D
|
|---|
| 27 | .S ACTION="" F S ACTION=$O(^TMP("FSC COUNT",$J,"CA",COUNT,ACTION)) Q:ACTION="" W !,COUNT,?6,ACTION
|
|---|
| 28 | W !,"USER ACTIONS:"
|
|---|
| 29 | S USER="" F S USER=$O(^XTMP("FSC COUNTS","USER ACTION",USER)) Q:USER="" D
|
|---|
| 30 | .S ACTION="" F S ACTION=$O(^XTMP("FSC COUNTS","USER ACTION",USER,ACTION)) Q:ACTION="" S NUM=+^(ACTION) D
|
|---|
| 31 | ..W !,$$VALUE^FSCGET(USER,7100,2.1),?25," ",ACTION,?41," ",NUM
|
|---|
| 32 | .
|
|---|
| 33 | K ^TMP("FSC COUNT",$J)
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | NOACCESS ; from FSCLMP, FSCOP
|
|---|
| 37 | ; msg when no access allowed
|
|---|
| 38 | W !,"You don't have access to perform this function.",!,$C(7)
|
|---|
| 39 | H 2
|
|---|
| 40 | S VALMBCK=""
|
|---|
| 41 | Q
|
|---|
