source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCXREFO.m@ 846

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

initial load of WorldVistAEHR
File size: 1.6 KB
Line 
1FSCXREFO ;SLC/STAFF-NOIS Xrefs Call Open and Referred ;1/11/98 15:27
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4AOLTYPE(OP,FIELD,VALUE,CALL) ; from dd 7100
5 N LTYPE,STATUS
6 I OP="SET" D Q
7 .I FIELD="STATUS" D Q
8 ..I VALUE=1 S LTYPE=$P(^FSCD("CALL",CALL,120),U,12) I LTYPE S ^FSCD("CALL","AOLTYPE",LTYPE,CALL)=""
9 .I FIELD="LTYPE" D Q
10 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOLTYPE",VALUE,CALL)=""
11 I OP="KILL" D Q
12 .I FIELD="STATUS" D Q
13 ..S LTYPE=$P(^FSCD("CALL",CALL,120),U,12) I LTYPE K ^FSCD("CALL","AOLTYPE",LTYPE,CALL)
14 .I FIELD="LTYPE" D Q
15 ..K ^FSCD("CALL","AOLTYPE",VALUE,CALL)
16 Q
17 ;
18AOPACKG(OP,FIELD,VALUE,CALL) ; from dd 7100
19 N PACKG,STATUS
20 I OP="SET" D Q
21 .I FIELD="STATUS" D Q
22 ..I VALUE=1 S PACKG=$P(^FSCD("CALL",CALL,120),U,13) I PACKG S ^FSCD("CALL","AOPACKG",PACKG,CALL)=""
23 .I FIELD="PACKG" D Q
24 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOPACKG",VALUE,CALL)=""
25 I OP="KILL" D Q
26 .I FIELD="STATUS" D Q
27 ..S PACKG=$P(^FSCD("CALL",CALL,120),U,13) I PACKG K ^FSCD("CALL","AOPACKG",PACKG,CALL)
28 .I FIELD="PACKG" D Q
29 ..K ^FSCD("CALL","AOPACKG",VALUE,CALL)
30 Q
31 ;
32ARPACKG(OP,FIELD,VALUE,CALL) ; from dd 7100
33 N PACKG,STATUS
34 I OP="SET" D Q
35 .I FIELD="STATUS" D Q
36 ..I VALUE=3 S PACKG=$P(^FSCD("CALL",CALL,120),U,13) I PACKG S ^FSCD("CALL","ARPACKG",PACKG,CALL)=""
37 .I FIELD="PACKG" D Q
38 ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=3 S ^FSCD("CALL","ARPACKG",VALUE,CALL)=""
39 I OP="KILL" D Q
40 .I FIELD="STATUS" D Q
41 ..S PACKG=$P(^FSCD("CALL",CALL,120),U,13) I PACKG K ^FSCD("CALL","ARPACKG",PACKG,CALL)
42 .I FIELD="PACKG" D Q
43 ..K ^FSCD("CALL","ARPACKG",VALUE,CALL)
44 Q
Note: See TracBrowser for help on using the repository browser.