Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
639 bytes
|
Rev | Line | |
---|
[613] | 1 | FSCXREFP ;SLC/STAFF-NOIS Xrefs Personal Fields ;5/17/98 18:46
|
---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
---|
| 3 | ;
|
---|
| 4 | AUC(OP,FIELD,VALUE,IEN) ; from dd 7100.6
|
---|
| 5 | N CALL,USER
|
---|
| 6 | I OP="SET" D Q
|
---|
| 7 | .I FIELD="CALL" D Q
|
---|
| 8 | ..I VALUE S USER=$P(^FSCD("CALL USER",IEN,0),U,2) I USER S ^FSCD("CALL","AUC",USER,VALUE)=IEN
|
---|
| 9 | .I FIELD="USER" D Q
|
---|
| 10 | ..I VALUE S CALL=$P(^FSCD("CALL USER",IEN,0),U) I CALL S ^FSCD("CALL USER","AUC",VALUE,CALL)=IEN
|
---|
| 11 | I OP="KILL" D Q
|
---|
| 12 | .I FIELD="CALL" D Q
|
---|
| 13 | ..S USER=$P(^FSCD("CALL USER",IEN,0),U,2) I USER K ^FSCD("CALL USER","AUC",USER,VALUE)
|
---|
| 14 | .I FIELD="USER" D Q
|
---|
| 15 | ..S CALL=$P(^FSCD("CALL USER",IEN,0),U) I CALL K ^FSCD("CALL USER","AUC",VALUE,CALL)
|
---|
| 16 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.