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

FSCUF.m

Go to the documentation of this file.
  1. FSCUF ;SLC/STAFF-NOIS Utilities Functions ;7/21/95 15:24
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. DEFLIST(USER) ; $$(user) -> user's default list
  1. N LIST
  1. S LIST=+$P($G(^FSC("SPEC",+$O(^FSC("SPEC","B",USER,0)),0)),U,9)
  1. I 'LIST Q ""
  1. Q LIST_U_$$VALUE^FSCGET(LIST,7105.2,9)
  1. ;
  1. CAP(TYPE,STYLE,LISTNUM) ; $$(type,style,list number) -> caption
  1. N CAPTION,FORMAT,VALUES
  1. I TYPE="L" Q " # Call ID Call Subject "
  1. S VALUES=$G(^TMP("FSC SELECT",$J,$S(TYPE="E":"EVALUES",1:"VVALUES")))
  1. S CAPTION=$S(VALUES=+VALUES:" Call "_VALUES,1:$S($G(LISTNUM):" Call "_LISTNUM_" of",1:" Calls")_" ("_VALUES_")")
  1. I '$O(^TMP("FSC LIST CALLS",$J,0)) S CAPTION=" "
  1. S FORMAT=$S(STYLE="BRIEF":"Brief Format ",STYLE="DETAIL":"Detailed Format ",STYLE="FORMAT":$S($G(STYLE("F")):$P(STYLE("F"),U,2),1:" ")_" Format ",STYLE="STAT":"Statistic Format ",1:"Fields Format ")
  1. Q $$SETSTR^VALM1(FORMAT,CAPTION,62,$L(FORMAT))
  1. ;
  1. STYLE(STYLE) ; $$(style) -> style name
  1. Q $S(STYLE="B":"BRIEF",STYLE="D":"DETAIL",STYLE="F":"FORMAT",STYLE="S":"STAT",STYLE="C":"CUSTOM",1:"")
  1. ;
  1. ACCESS(USER,ACCESS) ; $$(user,access) -> 1 or 0
  1. ; access uses hierarchy of user, spec, super
  1. I '$L(ACCESS) Q 1
  1. I ACCESS="USER" Q 1
  1. N USERACC
  1. S USERACC=$$PRIV(USER)
  1. I ACCESS="SUPER",USERACC="SUPER" Q 1
  1. I ACCESS="SPEC",USERACC="SUPER" Q 1
  1. I ACCESS="SPEC",USERACC="SPEC" Q 1
  1. Q 0
  1. ;
  1. PRIV(USER) ; -> $$(user) -> user, spec, or super
  1. Q:'$D(^FSC("SPEC",USER,0)) "USER" Q:$P(^(0),U,7) "SUPER" Q "SPEC"
  1. ;
  1. USERINI(USER) ; $$(user) -> user's initials
  1. Q $P($G(^VA(200,+USER,0)),U,2)
  1. ;
  1. MODINI(MOD) ; $$(module) -> module's initials (naming convention)
  1. Q $P($G(^FSC("MOD",+MOD,0)),U,7)
  1. ;
  1. VFORMAT(USER) ; $$(user) -> default format type for view screen
  1. N FTYPE
  1. S FTYPE=$P($G(^FSC("SPEC",USER,0)),U,17) I 'FTYPE Q "DETAIL"
  1. S FTYPE=$P($G(^FSC("FTYPE",FTYPE,0)),U,2) I '$L(FTYPE) Q "DETAIL"
  1. Q FTYPE
  1. ;
  1. EFORMAT(USER) ; $$(user) -> default format type for edit screen
  1. N FTYPE
  1. S FTYPE=$P($G(^FSC("SPEC",USER,0)),U,18) I 'FTYPE Q "BRIEF"
  1. S FTYPE=$P($G(^FSC("FTYPE",FTYPE,0)),U,2) I '$L(FTYPE) Q "BRIEF"
  1. Q FTYPE
  1. ;
  1. EXIT(USER) ; $$(user) -> 1 or 0, default to exit or quit on NOIS screens
  1. Q +$P($G(^FSC("SPEC",USER,0)),U,19)
  1. ALERT(USER) ; $$(user) -> action on alerts
  1. N ACTION
  1. S ACTION=$P($G(^FSC("SPEC",USER,0)),U,20)
  1. I ACTION="VIEW" Q "View"
  1. Q "Edit"