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

FSCLMPQA.m

Go to the documentation of this file.
  1. FSCLMPQA ;SLC/STAFF-NOIS List Manager Protocol Query Add ;3/24/98 11:47
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. ADD ; from FSCLMP
  1. N DIR,FSCLIMIT,SELECT,X,Y K DIR
  1. S VALMCNT=+$P(^TMP("FSC LIST CALLS",$J),U,2) I VALMCNT=0 K ^($J) S ^($J)="0^0"
  1. S DIR(0)="SAMO^S:Selected Calls;L:Lists;Q:Query;E:Expand"
  1. S DIR("A")="Add using: " W !,"(S)elected Calls, (L)ists, (Q)uery, (E)xpand"
  1. S DIR("?",1)="Enter S to add to the list specific calls."
  1. S DIR("?",2)="Enter L to add to the list calls from other lists."
  1. S DIR("?",3)="Enter Q to add to the list calls meeting a specific criteria."
  1. S DIR("?",4)="Enter E to to expand list to all duplicates."
  1. S DIR("?",5)="Note: changing a list does not change calls 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="E" D Q
  1. ..N CALL,PRIMARY,SECOND K ^TMP("FSC MERGE",$J)
  1. ..M ^TMP("FSC MERGE",$J)=^TMP("FSC LIST CALLS",$J,"CX")
  1. ..K ^TMP("FSC LIST CALLS",$J)
  1. ..S ^TMP("FSC LIST CALLS",$J)="0^0"
  1. ..S VALMCNT=0
  1. ..S CALL=0 F S CALL=$O(^TMP("FSC MERGE",$J,CALL)) Q:CALL<1 D
  1. ...S PRIMARY=+$P($G(^FSCD("CALL",CALL,120)),U,24) I 'PRIMARY Q
  1. ...S ^TMP("FSC MERGE",$J,"CX",PRIMARY)=""
  1. ..S CALL=0 F S CALL=$O(^TMP("FSC MERGE",$J,"CX",CALL)) Q:CALL<1 D
  1. ...S ^TMP("FSC MERGE",$J,CALL)=""
  1. ..S CALL=0 F S CALL=$O(^TMP("FSC MERGE",$J,"CX",CALL)) Q:CALL<1 D
  1. ...S SECOND=0 F S SECOND=$O(^FSCD("CALL","APRIMARY",CALL,SECOND)) Q:SECOND<1 D
  1. ....S ^TMP("FSC MERGE",$J,SECOND)=""
  1. ..S CALL="A" F S CALL=$O(^TMP("FSC MERGE",$J,CALL),-1) Q:CALL="" D
  1. ...D SETUP^FSCLMPQU(.VALMCNT,CALL)
  1. ..D COUNT^FSCLMPQU(VALMCNT)
  1. ..D HDR^FSCLMPQU
  1. ..K ^TMP("FSC MERGE",$J)
  1. .I SELECT="S" D Q
  1. ..N CALL,CALLS,DIC,Y K CALLS,DIC
  1. ..S DIC=7100,DIC(0)="AEMOQ",DIC("A")="Select Call: "
  1. ..F D ^DIC Q:Y<1 S CALLS(+Y)=""
  1. ..K DIC
  1. ..I '$O(CALLS(0)) Q
  1. ..S CALL=0 F S CALL=$O(CALLS(CALL)) Q:CALL<1 I '$D(^TMP("FSC LIST CALLS",$J,"CX",CALL)) D SETUP^FSCLMPQU(.VALMCNT,CALL)
  1. ..D COUNT^FSCLMPQU(VALMCNT)
  1. .I SELECT="L" D Q
  1. ..N CALL,LIMIT,LIMITS,LINDX,LISTNUM,LISTS,LNAME,LNUM,OK,RLIST,TIME K LIMITS,LISTS
  1. ..D LIST^FSCLMPQU(.LISTS,.LIMITS,.OK)
  1. ..I 'OK Q
  1. ..I '$O(LISTS(0)) Q
  1. ..S LISTNUM=0 F S LISTNUM=$O(LISTS(LISTNUM)) Q:LISTNUM<1 S RLIST=LISTS(LISTNUM),FSCLIMIT=LIMITS(LISTNUM) D I $D(VALMQUIT) Q
  1. ...S LNAME=$P(^FSC("LIST",+$P(LISTNUM,"."),0),U),LINDX=+$P(LISTNUM,".",2)
  1. ...I LNAME="MRE:" D Q
  1. ....S (LIMIT,LNUM)=0,TIME="" F S TIME=$O(^FSCD("MRE","AUTC",LINDX,TIME)) Q:TIME="" D Q:LIMIT
  1. .....S CALL=0 F S CALL=$O(^FSCD("MRE","AUTC",LINDX,TIME,CALL)) Q:CALL<1 I '$D(^TMP("FSC LIST CALLS",$J,"CX",CALL)) D CHECK(.VALMCNT,CALL,.LIMIT,.LNUM) Q:LIMIT
  1. ...I LNAME="MRA:" D Q
  1. ....S (LIMIT,LNUM)=0,TIME="" F S TIME=$O(^FSCD("MRA","AUTC",LINDX,TIME)) Q:TIME="" D Q:LIMIT
  1. .....S CALL=0 F S CALL=$O(^FSCD("MRA","AUTC",LINDX,TIME,CALL)) Q:CALL<1 I '$D(^TMP("FSC LIST CALLS",$J,"CX",CALL)) D CHECK(.VALMCNT,CALL,.LIMIT,.LNUM) Q:LIMIT
  1. ...S (LIMIT,LNUM)=0,CALL="A" F S CALL=$O(@RLIST@(CALL),-1) Q:CALL<1 I '$D(^TMP("FSC LIST CALLS",$J,"CX",CALL)) D CHECK(.VALMCNT,CALL,.LIMIT,.LNUM) Q:LIMIT I (VALMCNT#10)=0 D CHECK^FSCLML(.VALMQUIT) I $D(VALMQUIT) S VALMBCK="Q" Q
  1. ..D COUNT^FSCLMPQU(VALMCNT)
  1. .I SELECT="Q" D Q
  1. ..D QUERY^FSCLMPQU("Add")
  1. I '$D(VALMQUIT) D EMPTY^FSCLMPQU
  1. S VALMBG=1
  1. Q
  1. ;
  1. CHECK(VALMCNT,CALL,LIMIT,LNUM) ;
  1. N DATEO,LIMITOK
  1. I $G(FSCLIMIT) S LIMITOK=1 D Q:'LIMITOK
  1. .I $P(FSCLIMIT,U,2) S:LNUM'<$P(FSCLIMIT,U,2) LIMIT=1,LIMITOK=0 Q
  1. .S DATEO=$P(^FSCD("CALL",CALL,0),U,3)
  1. .I DATEO<$P(FSCLIMIT,U,3) S LIMITOK=0 Q
  1. .I DATEO>$P(FSCLIMIT,U,4) S LIMITOK=0 Q
  1. S LNUM=LNUM+1
  1. D SETUP^FSCLMPQU(.VALMCNT,CALL)
  1. Q