source: FOIAVistA/tag/r/NOIS-FSC/FSCXREFP.m@ 949

Last change on this file since 949 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 639 bytes
Line 
1FSCXREFP ;SLC/STAFF-NOIS Xrefs Personal Fields ;5/17/98 18:46
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4AUC(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.