source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCXREFR.m@ 1046

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

initial load of WorldVistAEHR
File size: 3.4 KB
Line 
1FSCXREFR ;SLC/STAFF-NOIS Xrefs Call Refer Status ;1/11/98 15:27
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4ARM(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=3 S MOD=$P(^FSCD("CALL",CALL,0),U,8) I MOD S ^FSCD("CALL","ARM",MOD,CALL)=""
9 .I FIELD="MOD" D Q
10 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=3 S ^FSCD("CALL","ARM",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","ARM",MOD,CALL)
14 .I FIELD="MOD" D Q
15 ..K ^FSCD("CALL","ARM",VALUE,CALL)
16 Q
17 ;
18ARP(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=3 S PACK=$P(^FSCD("CALL",CALL,120),U,9) I PACK S ^FSCD("CALL","ARP",PACK,CALL)=""
23 .I FIELD="PACK" D Q
24 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=3 S ^FSCD("CALL","ARP",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","ARP",PACK,CALL)
28 .I FIELD="PACK" D Q
29 ..K ^FSCD("CALL","ARP",VALUE,CALL)
30 Q
31 ;
32ARU(OP,FIELD,VALUE,CALL) ; from dd 7100
33 N SPEC,STATUS
34 I OP="SET" D Q
35 .I FIELD="STATUS" D Q
36 ..I VALUE=3 S SPEC=$P(^FSCD("CALL",CALL,0),U,9) I SPEC S ^FSCD("CALL","ARU",SPEC,CALL)=""
37 .I FIELD="SPEC" D Q
38 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=3 S ^FSCD("CALL","ARU",VALUE,CALL)=""
39 I OP="KILL" D Q
40 .I FIELD="STATUS" D Q
41 ..S SPEC=$P(^FSCD("CALL",CALL,0),U,9) I SPEC K ^FSCD("CALL","ARU",SPEC,CALL)
42 .I FIELD="SPEC" D Q
43 ..K ^FSCD("CALL","ARU",VALUE,CALL)
44 Q
45 ;
46ARID(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=3 S ISC=$P(^FSCD("CALL",CALL,0),U,20) I ISC S ^FSCD("CALL","ARID",ISC,CALL)=""
51 .I FIELD="ISC" D Q
52 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=3 S ^FSCD("CALL","ARID",VALUE,CALL)=""
53 I OP="KILL" D Q
54 .I FIELD="STATUS" D Q
55 ..S ISC=$P(^FSCD("CALL",CALL,0),U,20) I ISC K ^FSCD("CALL","ARID",ISC,CALL)
56 .I FIELD="ISC" D Q
57 ..K ^FSCD("CALL","ARID",VALUE,CALL)
58 Q
59 ;
60ARIS(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=3 S ISC=$P(^FSCD("CALL",CALL,0),U,16) I ISC S ^FSCD("CALL","ARIS",ISC,CALL)=""
65 .I FIELD="ISC" D Q
66 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=3 S ^FSCD("CALL","ARIS",VALUE,CALL)=""
67 I OP="KILL" D Q
68 .I FIELD="STATUS" D Q
69 ..S ISC=$P(^FSCD("CALL",CALL,0),U,16) I ISC K ^FSCD("CALL","ARIS",ISC,CALL)
70 .I FIELD="ISC" D Q
71 ..K ^FSCD("CALL","ARIS",VALUE,CALL)
72 Q
73 ;
74ARISP(OP,FIELD,VALUE,CALL) ; from dd 7100
75 N ISC,STATUS
76 I OP="SET" D Q
77 .I FIELD="STATUS" D Q
78 ..I VALUE=3 S ISC=$P(^FSCD("CALL",CALL,120),U,10) I ISC S ^FSCD("CALL","ARISP",ISC,CALL)=""
79 .I FIELD="ISC" D Q
80 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=3 S ^FSCD("CALL","ARISP",VALUE,CALL)=""
81 I OP="KILL" D Q
82 .I FIELD="STATUS" D Q
83 ..S ISC=$P(^FSCD("CALL",CALL,120),U,10) I ISC K ^FSCD("CALL","ARISP",ISC,CALL)
84 .I FIELD="ISC" D Q
85 ..K ^FSCD("CALL","ARISP",VALUE,CALL)
86 Q
87 ;
88ARSC(OP,FIELD,VALUE,CALL) ; from dd 7100
89 N SUB,STATUS
90 I OP="SET" D Q
91 .I FIELD="STATUS" D Q
92 ..I VALUE=3 S SUB=$P(^FSCD("CALL",CALL,120),U,11) I SUB S ^FSCD("CALL","ARSC",SUB,CALL)=""
93 .I FIELD="SUB" D Q
94 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=3 S ^FSCD("CALL","ARSC",VALUE,CALL)=""
95 I OP="KILL" D Q
96 .I FIELD="STATUS" D Q
97 ..S SUB=$P(^FSCD("CALL",CALL,120),U,11) I SUB K ^FSCD("CALL","ARSC",SUB,CALL)
98 .I FIELD="SUB" D Q
99 ..K ^FSCD("CALL","ARSC",VALUE,CALL)
100 Q
Note: See TracBrowser for help on using the repository browser.