|
Last change
on this file since 949 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
639 bytes
|
| Line | |
|---|
| 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.
