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

FSCLMPQR.m

Go to the documentation of this file.
  1. FSCLMPQR ;SLC/STAFF-NOIS List Manager Protocol Query Remove ;1/13/98 13:06
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. REMOVE ; from FSCLMP
  1. I '^TMP("FSC LIST CALLS",$J) W !,$C(7),"You can't delete from an empty list." H 2 Q
  1. N DIR,SELECT,X,Y K DIR
  1. S DIR(0)="SAMO^S:Selected Calls;L:Lists;Q:Query;A:All Calls"
  1. S DIR("A")="Remove using: " W !,"(S)elected Calls, (L)ists, (Q)uery, (A)ll Calls"
  1. S DIR("?",1)="Enter S to a remove selected calls from the last."
  1. S DIR("?",2)="Enter L to remove calls from the list that are on selected lists."
  1. S DIR("?",3)="Enter Q to remove calls from the list using a specific criteria."
  1. S DIR("?",4)="Enter A to remove all calls on the list."
  1. S DIR("?",5)="Note: changing a list does not change what is stored on the list."
  1. S DIR("?",6)="When a list is changed it appears as (MODIFIED)."
  1. S DIR("?",7)="Enter '^' to exit without changing the list or '??' for more help."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. S SELECT=Y
  1. D
  1. .I SELECT="S" D Q
  1. ..N CALL,CHOICE,DEFAULT,LNUM,OK
  1. ..K ^TMP("FSC SELECT",$J,"RVALUES")
  1. ..S CHOICE="1-"_+@VALMAR,DEFAULT="" D SELECT^FSCUL(CHOICE,"",DEFAULT,"RVALUES",.OK)
  1. ..I '$O(^TMP("FSC SELECT",$J,"RVALUES",0)) Q
  1. ..W !
  1. ..S LNUM=0 F S LNUM=$O(^TMP("FSC LIST CALLS",$J,"IDX",LNUM)) Q:LNUM<1 S CALL=+$O(^TMP("FSC LIST CALLS",$J,"ICX",+$O(^(LNUM,0)),0)) D
  1. ...S ^TMP("FSC MERGE",$J,LNUM,CALL)=""
  1. ..K ^TMP("FSC LIST CALLS",$J)
  1. ..S (LNUM,VALMCNT)=0 F S LNUM=$O(^TMP("FSC MERGE",$J,LNUM)) Q:LNUM<1 S CALL=$O(^(LNUM,0)) D
  1. ...I '$D(^TMP("FSC SELECT",$J,"RVALUES",LNUM)) D SETUP^FSCLMPQU(.VALMCNT,CALL)
  1. ..D COUNT^FSCLMPQU(VALMCNT)
  1. ..K ^TMP("FSC MERGE",$J),^TMP("FSC SELECT",$J,"RVALUES")
  1. .I SELECT="A" D Q
  1. ..K ^TMP("FSC LIST CALLS",$J)
  1. ..S ^TMP("FSC LIST CALLS",$J)="0^0"
  1. ..D HDR^FSCLMPQU
  1. .I SELECT="L" D Q
  1. ..N CALL,CALLX,LIMITS,LINDX,LISTNUM,LISTS,LNAME,LNUM,OK,TIME K LIMITS,LISTS
  1. ..D LIST^FSCLMPQU(.LISTS,.LIMITS,.OK)
  1. ..I '$O(LISTS(0)) Q
  1. ..W !
  1. ..S LNUM=0 F S LNUM=$O(^TMP("FSC LIST CALLS",$J,"ICX",LNUM)) Q:LNUM<1 S CALL=+$O(^(LNUM,0)) D
  1. ...S ^TMP("FSC MERGE",$J,LNUM,CALL)=""
  1. ..K ^TMP("FSC LIST CALLS",$J)
  1. ..S (LNUM,VALMCNT)=0 F S LNUM=$O(^TMP("FSC MERGE",$J,LNUM)) Q:LNUM<1 S CALL=$O(^(LNUM,0)) D I $D(VALMQUIT) Q
  1. ...S OK=1,LISTNUM=0 F S LISTNUM=$O(LISTS(LISTNUM)) Q:LISTNUM<1 D I 'OK Q
  1. ....S LNAME=$P(^FSC("LIST",+$P(LISTNUM,"."),0),U),LINDX=+$P(LISTNUM,".",2)
  1. ....I LNAME="MRE:" D Q
  1. .....S TIME="" F S TIME=$O(^FSCD("MRE","AUTC",LINDX,TIME)) Q:TIME="" D Q:'OK
  1. ......S CALLX=0 F S CALLX=$O(^FSCD("MRE","AUTC",LINDX,TIME,CALLX)) Q:CALLX<1 I CALLX=CALL S OK=0 Q
  1. ....I LNAME="MRA:" D Q
  1. .....S TIME="" F S TIME=$O(^FSCD("MRA","AUTC",LINDX,TIME)) Q:TIME="" D Q:'OK
  1. ......S CALLX=0 F S CALLX=$O(^FSCD("MRA","AUTC",LINDX,TIME,CALLX)) Q:CALLX<1 I CALLX=CALL S OK=0 Q
  1. ....I $D(@LISTS(LISTNUM)@(CALL)) D CHECK(CALL,LISTS(LISTNUM),LIMITS(LISTNUM),.OK)
  1. ...I OK D SETUP^FSCLMPQU(.VALMCNT,CALL) I (VALMCNT#10)=0 D CHECK^FSCLML(.VALMQUIT) I $D(VALMQUIT) S VALMBCK="Q" Q
  1. ..D COUNT^FSCLMPQU(VALMCNT)
  1. ..K ^TMP("FSC MERGE",$J)
  1. .I SELECT="Q" D Q
  1. ..D QUERY^FSCLMPQU("Remove")
  1. I '$D(VALMQUIT) D EMPTY^FSCLMPQU
  1. S VALMBG=1
  1. Q
  1. ;
  1. CHECK(CALL,LIST,LIMIT,OK) ;
  1. N CNT,DATEO,NUM
  1. I 'LIMIT S OK=0 Q
  1. S OK=1
  1. I $P(LIMIT,U,2) D Q
  1. .S CNT=0,NUM="A" F S NUM=$O(@LIST@(NUM),-1) Q:NUM<1 S CNT=CNT+1 I NUM=CALL S:CNT'>$P(LIMIT,U,2) OK=0 Q
  1. S DATEO=$P(^FSCD("CALL",CALL,0),U,3)
  1. I DATEO'<$P(LIMIT,U,3),DATEO'>$P(LIMIT,U,4) S OK=0
  1. Q