Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCXREFP

FSCXREFP.m

Go to the documentation of this file.
FSCXREFP ;SLC/STAFF-NOIS Xrefs Personal Fields ;5/17/98  18:46
 ;;1.1;NOIS;;Sep 06, 1998
 ;
AUC(OP,FIELD,VALUE,IEN) ; from dd 7100.6
 N CALL,USER
 I OP="SET" D  Q
 .I FIELD="CALL" D  Q
 ..I VALUE S USER=$P(^FSCD("CALL USER",IEN,0),U,2) I USER S ^FSCD("CALL","AUC",USER,VALUE)=IEN
 .I FIELD="USER" D  Q
 ..I VALUE S CALL=$P(^FSCD("CALL USER",IEN,0),U) I CALL S ^FSCD("CALL USER","AUC",VALUE,CALL)=IEN
 I OP="KILL" D  Q
 .I FIELD="CALL" D  Q
 ..S USER=$P(^FSCD("CALL USER",IEN,0),U,2) I USER K ^FSCD("CALL USER","AUC",USER,VALUE)
 .I FIELD="USER" D  Q
 ..S CALL=$P(^FSCD("CALL USER",IEN,0),U) I CALL K ^FSCD("CALL USER","AUC",VALUE,CALL)
 Q