source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCXREF.m@ 1000

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

initial load of WorldVistAEHR

File size: 3.9 KB
Line 
1FSCXREF ;SLC/STAFF-NOIS Xrefs Call ;1/11/98 15:26
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4AOM(OP,FIELD,VALUE,CALL) ; from dd 7100
5 N MOD,STATUS
6 I OP="SET" D Q
7 .I FIELD="STATUS" D Q
8 ..I VALUE=1 S MOD=$P(^FSCD("CALL",CALL,0),U,8) I MOD S ^FSCD("CALL","AOM",MOD,CALL)=""
9 .I FIELD="MOD" D Q
10 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOM",VALUE,CALL)=""
11 I OP="KILL" D Q
12 .I FIELD="STATUS" D Q
13 ..S MOD=$P(^FSCD("CALL",CALL,0),U,8) I MOD K ^FSCD("CALL","AOM",MOD,CALL)
14 .I FIELD="MOD" D Q
15 ..K ^FSCD("CALL","AOM",VALUE,CALL)
16 Q
17 ;
18AOP(OP,FIELD,VALUE,CALL) ; from dd 7100
19 N PACK,STATUS
20 I OP="SET" D Q
21 .I FIELD="STATUS" D Q
22 ..I VALUE=1 S PACK=$P(^FSCD("CALL",CALL,120),U,9) I PACK S ^FSCD("CALL","AOP",PACK,CALL)=""
23 .I FIELD="PACK" D Q
24 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOP",VALUE,CALL)=""
25 I OP="KILL" D Q
26 .I FIELD="STATUS" D Q
27 ..S PACK=$P(^FSCD("CALL",CALL,120),U,9) I PACK K ^FSCD("CALL","AOP",PACK,CALL)
28 .I FIELD="PACK" D Q
29 ..K ^FSCD("CALL","AOP",VALUE,CALL)
30 Q
31 ;
32AOS(OP,FIELD,VALUE,CALL) ; from dd 7100
33 N SITE,STATUS
34 I OP="SET" D Q
35 .I FIELD="STATUS" D Q
36 ..I VALUE=1 S SITE=$P(^FSCD("CALL",CALL,0),U,5) I SITE S ^FSCD("CALL","AOS",SITE,CALL)=""
37 .I FIELD="SITE" D Q
38 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOS",VALUE,CALL)=""
39 I OP="KILL" D Q
40 .I FIELD="STATUS" D Q
41 ..S SITE=$P(^FSCD("CALL",CALL,0),U,5) I SITE K ^FSCD("CALL","AOS",SITE,CALL)
42 .I FIELD="SITE" D Q
43 ..K ^FSCD("CALL","AOS",VALUE,CALL)
44 Q
45 ;
46AOIS(OP,FIELD,VALUE,CALL) ; from dd 7100
47 N ISC,STATUS
48 I OP="SET" D Q
49 .I FIELD="STATUS" D Q
50 ..I VALUE=1 S ISC=$P(^FSCD("CALL",CALL,0),U,16) I ISC S ^FSCD("CALL","AOIS",ISC,CALL)=""
51 .I FIELD="ISC" D Q
52 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOIS",VALUE,CALL)=""
53 I OP="KILL" D Q
54 .I FIELD="STATUS" D Q
55 ..S ISC=$P(^FSCD("CALL",CALL,0),U,16) I ISC K ^FSCD("CALL","AOIS",ISC,CALL)
56 .I FIELD="ISC" D Q
57 ..K ^FSCD("CALL","AOIS",VALUE,CALL)
58 Q
59 ;
60AOISP(OP,FIELD,VALUE,CALL) ; from dd 7100
61 N ISC,STATUS
62 I OP="SET" D Q
63 .I FIELD="STATUS" D Q
64 ..I VALUE=1 S ISC=$P(^FSCD("CALL",CALL,120),U,10) I ISC S ^FSCD("CALL","AOISP",ISC,CALL)=""
65 .I FIELD="ISC" D Q
66 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOISP",VALUE,CALL)=""
67 I OP="KILL" D Q
68 .I FIELD="STATUS" D Q
69 ..S ISC=$P(^FSCD("CALL",CALL,120),U,10) I ISC K ^FSCD("CALL","AOISP",ISC,CALL)
70 .I FIELD="ISC" D Q
71 ..K ^FSCD("CALL","AOISP",VALUE,CALL)
72 Q
73 ;
74AOSC(OP,FIELD,VALUE,CALL) ; from dd 7100
75 N SUB,STATUS
76 I OP="SET" D Q
77 .I FIELD="STATUS" D Q
78 ..I VALUE=1 S SUB=$P(^FSCD("CALL",CALL,120),U,11) I SUB S ^FSCD("CALL","AOSC",SUB,CALL)=""
79 .I FIELD="SUB" D Q
80 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOSC",VALUE,CALL)=""
81 I OP="KILL" D Q
82 .I FIELD="STATUS" D Q
83 ..S SUB=$P(^FSCD("CALL",CALL,120),U,11) I SUB K ^FSCD("CALL","AOSC",SUB,CALL)
84 .I FIELD="SUB" D Q
85 ..K ^FSCD("CALL","AOSC",VALUE,CALL)
86 Q
87 ;
88AOID(OP,FIELD,VALUE,CALL) ;
89 N ISC,STATUS
90 I OP="SET" D Q
91 .I FIELD="STATUS" D Q
92 ..I VALUE=1 S ISC=$P(^FSCD("CALL",CALL,0),U,20) I ISC S ^FSCD("CALL","AOID",ISC,CALL)=""
93 .I FIELD="ISC" D Q
94 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOID",VALUE,CALL)=""
95 I OP="KILL" D Q
96 .I FIELD="STATUS" D Q
97 ..S ISC=$P(^FSCD("CALL",CALL,0),U,20) I ISC K ^FSCD("CALL","AOID",ISC,CALL)
98 .I FIELD="ISC" D Q
99 ..K ^FSCD("CALL","AOID",VALUE,CALL)
100 Q
101 ;
102AOU(OP,FIELD,VALUE,CALL) ; from dd 7100
103 N SPEC,STATUS
104 I OP="SET" D Q
105 .I FIELD="STATUS" D Q
106 ..I VALUE=1 S SPEC=$P(^FSCD("CALL",CALL,0),U,9) I SPEC S ^FSCD("CALL","AOU",SPEC,CALL)=""
107 .I FIELD="SPEC" D Q
108 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOU",VALUE,CALL)=""
109 I OP="KILL" D Q
110 .I FIELD="STATUS" D Q
111 ..S SPEC=$P(^FSCD("CALL",CALL,0),U,9) I SPEC K ^FSCD("CALL","AOU",SPEC,CALL)
112 .I FIELD="SPEC" D Q
113 ..K ^FSCD("CALL","AOU",VALUE,CALL)
114 Q
Note: See TracBrowser for help on using the repository browser.