| 1 | FSCUCD ;SLC/STAFF-NOIS Utilities Call Delete ;9/6/98 22:18
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | DELETE(CALL) ; from FSCTASKA, FSCUM
|
|---|
| 5 | L +^FSCD("CALL",CALL):5 I '$T Q
|
|---|
| 6 | D NOTIFY(CALL)
|
|---|
| 7 | D SEND(CALL)
|
|---|
| 8 | D ALERT(CALL)
|
|---|
| 9 | D LIST(CALL)
|
|---|
| 10 | D WKLD(CALL)
|
|---|
| 11 | D MRE(CALL)
|
|---|
| 12 | D MRA(CALL)
|
|---|
| 13 | D PRIMARY(CALL)
|
|---|
| 14 | D PFIELDS(CALL)
|
|---|
| 15 | D CALL(CALL)
|
|---|
| 16 | D STATHIST(CALL)
|
|---|
| 17 | L -^FSCD("CALL",CALL)
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | NOTIFY(CALL) ;
|
|---|
| 21 | N NUM
|
|---|
| 22 | S NUM=0 F S NUM=$O(^FSCD("NOTIFY","B",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""NOTIFY"",",NUM)
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | SEND(CALL) ;
|
|---|
| 26 | N NUM
|
|---|
| 27 | S NUM=0 F S NUM=$O(^FSCD("SEND","AC",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""SEND"",",NUM)
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | ALERT(CALL) ;
|
|---|
| 31 | N NUM
|
|---|
| 32 | S NUM=0 F S NUM=$O(^FSCD("ALERT",NUM)) Q:NUM<1 I $P(^(NUM,0),U,2)=CALL D DEL("^FSCD(""ALERT"",",NUM)
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | LIST(CALL) ;
|
|---|
| 36 | N NUM
|
|---|
| 37 | S NUM=0 F S NUM=$O(^FSCD("LISTS","B",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""LISTS"",",NUM)
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | WKLD(CALL) ;
|
|---|
| 41 | N NUM
|
|---|
| 42 | S NUM=0 F S NUM=$O(^FSCD("WKLD","B",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""WKLD"",",NUM)
|
|---|
| 43 | Q
|
|---|
| 44 | ;
|
|---|
| 45 | MRE(CALL) ;
|
|---|
| 46 | N NUM
|
|---|
| 47 | S NUM=0 F S NUM=$O(^FSCD("MRE","AC",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""MRE"",",NUM)
|
|---|
| 48 | Q
|
|---|
| 49 | ;
|
|---|
| 50 | MRA(CALL) ;
|
|---|
| 51 | N NUM
|
|---|
| 52 | S NUM=0 F S NUM=$O(^FSCD("MRA","AC",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""MRA"",",NUM)
|
|---|
| 53 | Q
|
|---|
| 54 | ;
|
|---|
| 55 | STATHIST(CALL) ;
|
|---|
| 56 | N NUM
|
|---|
| 57 | S NUM=0 F S NUM=$O(^FSCD("STATUS HIST","B",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""STATUS HIST"",",NUM)
|
|---|
| 58 | Q
|
|---|
| 59 | ;
|
|---|
| 60 | PRIMARY(CALL) ;
|
|---|
| 61 | N SECOND
|
|---|
| 62 | S SECOND=0 F S SECOND=$O(^FSCD("CALL","APRIMARY",CALL,SECOND)) Q:SECOND<1 D
|
|---|
| 63 | .D ASSOC^FSCLMPEA(SECOND,SECOND)
|
|---|
| 64 | Q
|
|---|
| 65 | ;
|
|---|
| 66 | PFIELDS(CALL) ;
|
|---|
| 67 | N NUM
|
|---|
| 68 | S NUM=0 F S NUM=$O(^FSCD("CALL USER","B",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""CALL USER"",",NUM)
|
|---|
| 69 | Q
|
|---|
| 70 | ;
|
|---|
| 71 | CALL(CALL) ;
|
|---|
| 72 | D DEL("^FSCD(""CALL"",",CALL)
|
|---|
| 73 | Q
|
|---|
| 74 | ;
|
|---|
| 75 | DEL(DIK,DA) ; from FSCAFFIL, FSCLDR, FSCLMPE1, FSCMRK, FSCRPCEB, FSCRPCPF, FSCRPCUF, FSCRPCUR, FSCRPCWS
|
|---|
| 76 | D ^DIK
|
|---|
| 77 | Q
|
|---|
