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

FSCMU1.m

Go to the documentation of this file.
  1. FSCMU1 ;SLC/STAFF-NOIS Modify Utilities continued ;4/22/94 11:44
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. METHOD(OLD,NEW,OK) ; from FSCLD
  1. I $L(OLD),'(OLD="MAIL"!(OLD="ALERT")) S NEW="",OK=1 Q
  1. S NEW="",OK=1
  1. N DIR,Y K DIR
  1. S DIR(0)="SAMO^MAIL:MAIL;ALERT:ALERT",DIR("A")="Select (M)ail or (A)lert: " I $L(OLD) S DIR("B")=$S(OLD="MAIL":"MAIL",OLD="ALERT":"ALERT",1:"")
  1. S DIR("?",1)="Enter MAIL for notification to be sent by mail."
  1. S DIR("?",2)="Enter ALERT for notification to be sent by menu alert."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. W !,"Notification Method"
  1. D ^DIR K DIR
  1. I $D(DIRUT) S:$D(DTOUT) OK=0 Q
  1. S NEW=Y
  1. Q
  1. ;
  1. EVENT(OLD,NEW,OK) ; from FSCLD
  1. I $L(OLD),'(OLD="EDITED"!(OLD="STATUS CHANGED")!(OLD="ADDED")) S NEW="",OK=1 Q
  1. S NEW="",OK=1
  1. N DIR,Y K DIR
  1. S DIR(0)="SAMO^EDITED:EDITED;STATUS CHANGED:STATUS CHANGED;ADDED:ADDED",DIR("A")="Select when (E)dited, (S)tatus Changed, or (A)dded to list: "
  1. I $L(OLD) S DIR("B")=$S(OLD="EDITED":OLD,OLD="STATUS CHANGED":OLD,OLD="ADDED":OLD,1:"")
  1. S DIR("?",1)="Enter EDITED for notification to occur when the call is edited."
  1. S DIR("?",2)="Enter STATUS CHANGED for notification to occur when the status changes."
  1. S DIR("?",3)="Enter ADDED for notification to only occur when added to the list."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. W !,"Notification Event"
  1. D ^DIR K DIR
  1. I $D(DIRUT) S:$D(DTOUT) OK=1 Q
  1. S NEW=Y
  1. Q
  1. ;
  1. DESC(LISTNUM,NEW,OK) ; from FSCLD
  1. N CNT,OLD K OLD,NEW S OK=0
  1. S CNT=0 F S CNT=$O(^FSC("LIST",+LISTNUM,2,CNT)) Q:CNT<1 S (NEW(CNT,0),OLD(CNT,0))=^(CNT,0)
  1. D EDITWP^FSCEU("NEW","List Description:")
  1. I $D(DTOUT) S OK="" Q
  1. I $O(OLD(0)),'$O(NEW(0)) S NEW=0 ; wp entry was deleted
  1. S CNT=0 F S CNT=$O(NEW(CNT)) Q:CNT<1 I NEW(CNT,0)'=$G(OLD(CNT,0)) S OK=1 Q
  1. I $O(NEW("A"),-1)'=$O(OLD("A"),-1) S OK=1 Q
  1. Q