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

FSCUCD.m

Go to the documentation of this file.
  1. FSCUCD ;SLC/STAFF-NOIS Utilities Call Delete ;9/6/98 22:18
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. DELETE(CALL) ; from FSCTASKA, FSCUM
  1. L +^FSCD("CALL",CALL):5 I '$T Q
  1. D NOTIFY(CALL)
  1. D SEND(CALL)
  1. D ALERT(CALL)
  1. D LIST(CALL)
  1. D WKLD(CALL)
  1. D MRE(CALL)
  1. D MRA(CALL)
  1. D PRIMARY(CALL)
  1. D PFIELDS(CALL)
  1. D CALL(CALL)
  1. D STATHIST(CALL)
  1. L -^FSCD("CALL",CALL)
  1. Q
  1. ;
  1. NOTIFY(CALL) ;
  1. N NUM
  1. S NUM=0 F S NUM=$O(^FSCD("NOTIFY","B",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""NOTIFY"",",NUM)
  1. Q
  1. ;
  1. SEND(CALL) ;
  1. N NUM
  1. S NUM=0 F S NUM=$O(^FSCD("SEND","AC",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""SEND"",",NUM)
  1. Q
  1. ;
  1. ALERT(CALL) ;
  1. N NUM
  1. S NUM=0 F S NUM=$O(^FSCD("ALERT",NUM)) Q:NUM<1 I $P(^(NUM,0),U,2)=CALL D DEL("^FSCD(""ALERT"",",NUM)
  1. Q
  1. ;
  1. LIST(CALL) ;
  1. N NUM
  1. S NUM=0 F S NUM=$O(^FSCD("LISTS","B",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""LISTS"",",NUM)
  1. Q
  1. ;
  1. WKLD(CALL) ;
  1. N NUM
  1. S NUM=0 F S NUM=$O(^FSCD("WKLD","B",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""WKLD"",",NUM)
  1. Q
  1. ;
  1. MRE(CALL) ;
  1. N NUM
  1. S NUM=0 F S NUM=$O(^FSCD("MRE","AC",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""MRE"",",NUM)
  1. Q
  1. ;
  1. MRA(CALL) ;
  1. N NUM
  1. S NUM=0 F S NUM=$O(^FSCD("MRA","AC",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""MRA"",",NUM)
  1. Q
  1. ;
  1. STATHIST(CALL) ;
  1. N NUM
  1. S NUM=0 F S NUM=$O(^FSCD("STATUS HIST","B",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""STATUS HIST"",",NUM)
  1. Q
  1. ;
  1. PRIMARY(CALL) ;
  1. N SECOND
  1. S SECOND=0 F S SECOND=$O(^FSCD("CALL","APRIMARY",CALL,SECOND)) Q:SECOND<1 D
  1. .D ASSOC^FSCLMPEA(SECOND,SECOND)
  1. Q
  1. ;
  1. PFIELDS(CALL) ;
  1. N NUM
  1. S NUM=0 F S NUM=$O(^FSCD("CALL USER","B",CALL,NUM)) Q:NUM<1 D DEL("^FSCD(""CALL USER"",",NUM)
  1. Q
  1. ;
  1. CALL(CALL) ;
  1. D DEL("^FSCD(""CALL"",",CALL)
  1. Q
  1. ;
  1. DEL(DIK,DA) ; from FSCAFFIL, FSCLDR, FSCLMPE1, FSCMRK, FSCRPCEB, FSCRPCPF, FSCRPCUF, FSCRPCUR, FSCRPCWS
  1. D ^DIK
  1. Q