Last change
on this file since 1569 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
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.