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

FSCLMPNF.m

Go to the documentation of this file.
  1. FSCLMPNF ;SLC/STAFF NOIS List Manager Protocol Notification Find ;1/13/98 12:58
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. NOTIFY ; from FSCLMPN
  1. N OK,TYPE,USER,USERNAME K ^TMP("FSC LIST",$J)
  1. S USER=DUZ D USER(.USER,.USERNAME,.OK)
  1. I 'OK Q
  1. S TYPE="ONLY" D CALLS(.TYPE,USERNAME,.OK)
  1. I 'OK Q
  1. I TYPE="ALL" D ALL(USER)
  1. I TYPE="ONLY" D ONLY(USER)
  1. S FSCQUERY=1 S:FSCLNAME'["(MODIFIED)" FSCLNAME=FSCLNAME_" (MODIFIED)"
  1. S VALMBG=1 K VALMQUIT D ENTRY^FSCLML I $D(VALMQUIT) S VALMBCK="Q" Q
  1. D HEADER^FSCLML
  1. Q
  1. ;
  1. USER(USER,USERNAME,OK) ;
  1. N DIC,X,Y K DIC S OK=0
  1. S DIC=200,DIC(0)="AEMQ",DIC("A")="Notification user: ",DIC("B")=$$VALUE^FSCGET(USER,7100,2.1)
  1. D ^DIC K DIC
  1. I Y<1 Q
  1. S USER=+Y,USERNAME=$P(Y,U,2),OK=1
  1. Q
  1. ;
  1. CALLS(TYPE,USERNAME,OK) ;
  1. N DIR,X,Y K DIR S OK=0
  1. S DIR(0)="SAMO^ALL:ALL;ONLY:ONLY"
  1. S DIR("A")="Find (A)ll calls for "_USERNAME_" or (O)nly those calls on this list? ",DIR("B")=TYPE
  1. S DIR("?",1)="Enter ALL to find all calls scheduled for this person."
  1. S DIR("?",2)="Enter ONLY to find only those calls scheduled for this person"
  1. S DIR("?",3)="that are on this list."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I $D(DTOUT)!$D(DUOUT) Q
  1. S TYPE=Y,OK=1
  1. Q
  1. ;
  1. ALL(USER) ; from FSCRPCN
  1. N CALL,LNUM,NUM
  1. S NUM=0 F S NUM=$O(^FSCD("NOTIFY","AUSER",USER,NUM)) Q:NUM<1 D
  1. .S CALL=+$G(^FSCD("NOTIFY",NUM,0)) I 'CALL Q
  1. .S ^TMP("FSC LIST",$J,CALL)=""
  1. S LNUM=0 F S LNUM=$O(^FSC("LIST","C",USER,LNUM)) Q:LNUM<1 D
  1. .S NUM=0 F S NUM=$O(^FSCD("NOTIFY","ALIST",LNUM,NUM)) Q:NUM<1 D
  1. ..S CALL=+$G(^FSCD("NOTIFY",NUM,0)) I 'CALL Q
  1. ..S ^TMP("FSC LIST",$J,CALL)=""
  1. Q
  1. ;
  1. ONLY(USER) ;
  1. N CALL,DONE,LNUM
  1. S CALL=0 F S CALL=$O(^TMP("FSC LIST CALLS",$J,"CX",CALL)) Q:CALL<1 D
  1. .I $D(^FSCD("NOTIFY","ACUSER",CALL,USER)) S ^TMP("FSC LIST",$J,CALL)="" Q
  1. .S (DONE,LNUM)=0 F S LNUM=$O(^FSCD("NOTIFY","ACLIST",CALL,LNUM)) Q:LNUM<1 D Q:DONE
  1. ..I $D(^FSC("LIST","C",USER,LNUM)) S ^TMP("FSC LIST",$J,CALL)="",DONE=1
  1. Q