Last change
on this file since 691 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
664 bytes
|
Rev | Line | |
---|
[613] | 1 | FSCXREFL ;SLC/STAFF-NOIS Xrefs List ;4/22/94 14:32
|
---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
---|
| 3 | ;
|
---|
| 4 | ALC(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.