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

FSCEUD.m

Go to the documentation of this file.
  1. FSCEUD ;SLC/STAFF-NOIS Edit User Defaults ;1/10/96 11:46
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. MOD(USER) ; $$(user) -> preferred module default
  1. N ACTION,DEF,VALUE S DEF=""
  1. D DEFAULT(USER,"MOD",.ACTION,.VALUE)
  1. S ACTION=$G(ACTION,"P") I '$L(ACTION) S ACTION="P"
  1. D
  1. .I '$D(VALUE) S VALUE=DEF Q
  1. .I '$L(VALUE) S VALUE=DEF Q
  1. .I '$O(^FSC("MOD","B",VALUE,0)) S ACTION="P" Q
  1. I ACTION="S",VALUE="" S ACTION="P"
  1. Q ACTION_U_VALUE
  1. ;
  1. SPEC(USER) ; $$(user) -> preferred specialist default
  1. N ACTION,DEF,VALUE S DEF=USER
  1. D DEFAULT(USER,"SPEC",.ACTION,.VALUE)
  1. S ACTION=$G(ACTION,"S") I '$L(ACTION) S ACTION="P"
  1. S VALUE=DEF
  1. Q ACTION_U_VALUE
  1. ;
  1. SUBJECT(USER) ; $$(user) -> preferred subject default
  1. N ACTION,DEF,VALUE S DEF=""
  1. D DEFAULT(USER,"SUBJECT",.ACTION,.VALUE)
  1. S ACTION=$G(ACTION,"P") I '$L(ACTION) S ACTION="P"
  1. D
  1. .I '$D(VALUE) S VALUE=DEF Q
  1. .I '$L(VALUE) S VALUE=DEF Q
  1. I ACTION="S",VALUE="" S ACTION="P"
  1. Q ACTION_U_VALUE
  1. ;
  1. CONTACT(SITE0,USER) ; $$(site zero node,user) -> preferred site contact default
  1. N ACTION,DEF,VALUE S DEF=$$VALUE^FSCGET($P(SITE0,U,6),7100,2.1)
  1. D DEFAULT(USER,"IRM",.ACTION,.VALUE)
  1. S ACTION=$G(ACTION,"P") I '$L(ACTION) S ACTION="P"
  1. S VALUE=DEF
  1. Q ACTION_U_VALUE
  1. ;
  1. PHONE(SITE0,USER) ; $$(site zero node,user) -> preferred site phone default
  1. N ACTION,DEF,VALUE S DEF=$S($P(SITE0,U,7):$P(SITE0,U,7),1:$P(SITE0,U,8))
  1. D DEFAULT(USER,"PHONE",.ACTION,.VALUE)
  1. S ACTION=$G(ACTION,"P") I '$L(ACTION) S ACTION="P"
  1. S VALUE=DEF
  1. I ACTION="S",VALUE="" S ACTION="P"
  1. Q ACTION_U_VALUE
  1. ;
  1. PRIORITY(USER) ; $$(user) -> preferred edit
  1. N ACTION,DEF,VALUE S DEF="ROUTINE"
  1. D DEFAULT(USER,"PRI",.ACTION,.VALUE)
  1. S ACTION=$G(ACTION,"P") I '$L(ACTION) S ACTION="P"
  1. D
  1. .I '$D(VALUE) S VALUE=DEF Q
  1. .I '$L(VALUE) S VALUE=DEF Q
  1. .I '$O(^FSC("PRI","B",VALUE,0)) S ACTION="P" Q
  1. I ACTION="S",VALUE="" S ACTION="P"
  1. Q ACTION_U_VALUE
  1. ;
  1. PATCH(USER) ; $$(user) -> preferred patch default (prompt or not)
  1. N ACTION,DEF,VALUE S DEF=""
  1. D DEFAULT(USER,"PATCH",.ACTION,.VALUE)
  1. Q $S($L($G(ACTION)):"P",1:"")
  1. ;
  1. SUB(USER) ; $$(user) -> preferred subcomponent default (prompt or not)
  1. N ACTION,DEF,VALUE S DEF=""
  1. D DEFAULT(USER,"DEVSUB",.ACTION,.VALUE)
  1. Q $S($L($G(ACTION)):"P",1:"")
  1. ;
  1. KEYWORDS(USER) ; $$(user) -> preferred keywords default (prompt or not)
  1. N ACTION,DEF,VALUE S DEF=""
  1. D DEFAULT(USER,"KEYWORDS",.ACTION,.VALUE)
  1. Q $S($L($G(ACTION)):"P",1:"")
  1. ;
  1. WKLD(USER) ; $$(user) -> 1 to prompt hrs on editing else 0
  1. I $L($P($G(^FSC("SPEC",USER,0)),U,21)) Q $P(^(0),U,21)
  1. Q +$P($G(^FSC("PARAM",1,0)),U,9)
  1. ;
  1. CDATE(USER) ; $$(user) -> preferred close date default
  1. N ACTION,DEF,VALUE S DEF="TODAY"
  1. D DEFAULT(USER,"DATEC",.ACTION,.VALUE)
  1. S ACTION=$G(ACTION,"P") I '$L(ACTION) S ACTION="P"
  1. D
  1. .I '$D(VALUE) S VALUE=DEF Q
  1. .I '$L(VALUE) S VALUE=DEF Q
  1. .N X,Y S X=VALUE D ^%DT I Y=-1 S ACTION="P" Q
  1. I ACTION="S",VALUE="" S ACTION="P"
  1. Q ACTION_U_VALUE
  1. ;
  1. FUNC(USER) ; $$(user) -> preferred functional area default
  1. N ACTION,DEF,VALUE S DEF=$S($P($G(^FSC("SPEC",USER,0)),U,4):$$VALUE^FSCGET($P(^(0),U,4),7105.2,4),1:"SUPPORT")
  1. D DEFAULT(USER,"FUNC",.ACTION,.VALUE)
  1. S ACTION=$G(ACTION,"P") I '$L(ACTION) S ACTION="P"
  1. D
  1. .I '$D(VALUE) S VALUE=DEF Q
  1. .I '$L(VALUE) S VALUE=DEF Q
  1. .I '$O(^FSC("FUNC","B",VALUE,0)) S ACTION="P" Q
  1. I ACTION="S",VALUE="" S ACTION="P"
  1. Q ACTION_U_VALUE
  1. ;
  1. TASK(USER) ; $$(user) -> preferred task default
  1. N ACTION,DEF,VALUE S DEF="PROBLEM RESOLUTION"
  1. D DEFAULT(USER,"TASK",.ACTION,.VALUE)
  1. S ACTION=$G(ACTION,"P") I '$L(ACTION) S ACTION="P"
  1. D
  1. .I '$D(VALUE) S VALUE=DEF Q
  1. .I '$L(VALUE) S VALUE=DEF Q
  1. .I '$O(^FSC("TASK","B",VALUE,0)) S ACTION="P" Q
  1. I ACTION="S",VALUE="" S ACTION="P"
  1. Q ACTION_U_VALUE
  1. ;
  1. DEFAULT(USER,FIELD,ACTION,VALUE) ;
  1. N FLD,NUM
  1. S FLD=+$O(^FSC("FLD","AC",FIELD,0)) I 'FLD Q
  1. S NUM=+$O(^FSC("SPEC",USER,50,"B",FLD,0)) I 'NUM Q
  1. S ACTION=$P($G(^FSC("SPEC",USER,50,NUM,0)),U,2),VALUE=$P($G(^(0)),U,3)
  1. I ACTION="I",FIELD'="SPEC" S ACTION="P" ; *** kludge to allow 'ignore' only on specialist
  1. Q