| 1 | FSCMU1 ;SLC/STAFF-NOIS Modify Utilities continued ;4/22/94 11:44
|
---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
---|
| 3 | ;
|
---|
| 4 | METHOD(OLD,NEW,OK) ; from FSCLD
|
---|
| 5 | I $L(OLD),'(OLD="MAIL"!(OLD="ALERT")) S NEW="",OK=1 Q
|
---|
| 6 | S NEW="",OK=1
|
---|
| 7 | N DIR,Y K DIR
|
---|
| 8 | 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:"")
|
---|
| 9 | S DIR("?",1)="Enter MAIL for notification to be sent by mail."
|
---|
| 10 | S DIR("?",2)="Enter ALERT for notification to be sent by menu alert."
|
---|
| 11 | S DIR("?")="^D HELP^FSCU(.DIR)"
|
---|
| 12 | S DIR("??")="FSC U1 NOIS"
|
---|
| 13 | W !,"Notification Method"
|
---|
| 14 | D ^DIR K DIR
|
---|
| 15 | I $D(DIRUT) S:$D(DTOUT) OK=0 Q
|
---|
| 16 | S NEW=Y
|
---|
| 17 | Q
|
---|
| 18 | ;
|
---|
| 19 | EVENT(OLD,NEW,OK) ; from FSCLD
|
---|
| 20 | I $L(OLD),'(OLD="EDITED"!(OLD="STATUS CHANGED")!(OLD="ADDED")) S NEW="",OK=1 Q
|
---|
| 21 | S NEW="",OK=1
|
---|
| 22 | N DIR,Y K DIR
|
---|
| 23 | 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: "
|
---|
| 24 | I $L(OLD) S DIR("B")=$S(OLD="EDITED":OLD,OLD="STATUS CHANGED":OLD,OLD="ADDED":OLD,1:"")
|
---|
| 25 | S DIR("?",1)="Enter EDITED for notification to occur when the call is edited."
|
---|
| 26 | S DIR("?",2)="Enter STATUS CHANGED for notification to occur when the status changes."
|
---|
| 27 | S DIR("?",3)="Enter ADDED for notification to only occur when added to the list."
|
---|
| 28 | S DIR("?")="^D HELP^FSCU(.DIR)"
|
---|
| 29 | S DIR("??")="FSC U1 NOIS"
|
---|
| 30 | W !,"Notification Event"
|
---|
| 31 | D ^DIR K DIR
|
---|
| 32 | I $D(DIRUT) S:$D(DTOUT) OK=1 Q
|
---|
| 33 | S NEW=Y
|
---|
| 34 | Q
|
---|
| 35 | ;
|
---|
| 36 | DESC(LISTNUM,NEW,OK) ; from FSCLD
|
---|
| 37 | N CNT,OLD K OLD,NEW S OK=0
|
---|
| 38 | S CNT=0 F S CNT=$O(^FSC("LIST",+LISTNUM,2,CNT)) Q:CNT<1 S (NEW(CNT,0),OLD(CNT,0))=^(CNT,0)
|
---|
| 39 | D EDITWP^FSCEU("NEW","List Description:")
|
---|
| 40 | I $D(DTOUT) S OK="" Q
|
---|
| 41 | I $O(OLD(0)),'$O(NEW(0)) S NEW=0 ; wp entry was deleted
|
---|
| 42 | S CNT=0 F S CNT=$O(NEW(CNT)) Q:CNT<1 I NEW(CNT,0)'=$G(OLD(CNT,0)) S OK=1 Q
|
---|
| 43 | I $O(NEW("A"),-1)'=$O(OLD("A"),-1) S OK=1 Q
|
---|
| 44 | Q
|
---|