source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCXREFL.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: 664 bytes
Line 
1FSCXREFL ;SLC/STAFF-NOIS Xrefs List ;4/22/94 14:32
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4ALC(OP,FIELD,VALUE,LISTSNUM) ; from dd 7102
5 N CALL,LIST
6 I OP="SET" D Q
7 .I FIELD="CALL" D Q
8 ..I VALUE S LIST=$P(^FSCD("LISTS",LISTSNUM,0),U,2) I LIST S ^FSCD("LISTS","ALC",LIST,VALUE,LISTSNUM)=""
9 .I FIELD="LIST" D Q
10 ..I VALUE S CALL=+^FSCD("LISTS",LISTSNUM,0) I CALL S ^FSCD("LISTS","ALC",VALUE,CALL,LISTSNUM)=""
11 I OP="KILL" D Q
12 .I FIELD="CALL" D Q
13 ..I VALUE S LIST=$P(^FSCD("LISTS",LISTSNUM,0),U,2) I LIST K ^FSCD("LISTS","ALC",LIST,VALUE,LISTSNUM)
14 .I FIELD="LIST" D Q
15 ..I VALUE S CALL=+^FSCD("LISTS",LISTSNUM,0) I CALL K ^FSCD("LISTS","ALC",VALUE,CALL,LISTSNUM)
16 Q
Note: See TracBrowser for help on using the repository browser.