source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCUCD.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1FSCUCD ;SLC/STAFF-NOIS Utilities Call Delete ;9/6/98 22:18
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4DELETE(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 ;
20NOTIFY(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 ;
25SEND(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 ;
30ALERT(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 ;
35LIST(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 ;
40WKLD(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 ;
45MRE(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 ;
50MRA(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 ;
55STATHIST(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 ;
60PRIMARY(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 ;
66PFIELDS(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 ;
71CALL(CALL) ;
72 D DEL("^FSCD(""CALL"",",CALL)
73 Q
74 ;
75DEL(DIK,DA) ; from FSCAFFIL, FSCLDR, FSCLMPE1, FSCMRK, FSCRPCEB, FSCRPCPF, FSCRPCUF, FSCRPCUR, FSCRPCWS
76 D ^DIK
77 Q
Note: See TracBrowser for help on using the repository browser.