source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCXREFD.m@ 1714

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1FSCXREFD ;SLC/STAFF-NOIS Xrefs Call Dev Status ;1/11/98 15:26
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4ADM(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","ADM",MOD,CALL)=""
9 .I FIELD="MOD" D Q
10 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,17) I STATUS=1 S ^FSCD("CALL","ADM",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","ADM",MOD,CALL)
14 .I FIELD="MOD" D Q
15 ..K ^FSCD("CALL","ADM",VALUE,CALL)
16 Q
17 ;
18ADP(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","ADP",PACK,CALL)=""
23 .I FIELD="PACK" D Q
24 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,17) I STATUS=1 S ^FSCD("CALL","ADP",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","ADP",PACK,CALL)
28 .I FIELD="PACK" D Q
29 ..K ^FSCD("CALL","ADP",VALUE,CALL)
30 Q
31 ;
32ADS(OP,FIELD,VALUE,CALL) ;
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","ADS",SITE,CALL)=""
37 .I FIELD="SITE" D Q
38 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,17) I STATUS=1 S ^FSCD("CALL","ADS",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","ADS",SITE,CALL)
42 .I FIELD="SITE" D Q
43 ..K ^FSCD("CALL","ADS",VALUE,CALL)
44 Q
45 ;
46ADID(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,20) I ISC S ^FSCD("CALL","ADID",ISC,CALL)=""
51 .I FIELD="ISC" D Q
52 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,17) I STATUS=1 S ^FSCD("CALL","ADID",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","ADID",ISC,CALL)
56 .I FIELD="ISC" D Q
57 ..K ^FSCD("CALL","ADID",VALUE,CALL)
58 Q
Note: See TracBrowser for help on using the repository browser.