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.
  1. FSCXREFP ;SLC/STAFF-NOIS Xrefs Personal Fields ;5/17/98 18:46
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. AUC(OP,FIELD,VALUE,IEN) ; from dd 7100.6
  1. N CALL,USER
  1. I OP="SET" D Q
  1. .I FIELD="CALL" D Q
  1. ..I VALUE S USER=$P(^FSCD("CALL USER",IEN,0),U,2) I USER S ^FSCD("CALL","AUC",USER,VALUE)=IEN
  1. .I FIELD="USER" D Q
  1. ..I VALUE S CALL=$P(^FSCD("CALL USER",IEN,0),U) I CALL S ^FSCD("CALL USER","AUC",VALUE,CALL)=IEN
  1. I OP="KILL" D Q
  1. .I FIELD="CALL" D Q
  1. ..S USER=$P(^FSCD("CALL USER",IEN,0),U,2) I USER K ^FSCD("CALL USER","AUC",USER,VALUE)
  1. .I FIELD="USER" D Q
  1. ..S CALL=$P(^FSCD("CALL USER",IEN,0),U) I CALL K ^FSCD("CALL USER","AUC",VALUE,CALL)
  1. Q