FSCUF.m

FSCUF ;SLC/STAFF-NOIS Utilities Functions ;7/21/95  15:24

 ;;1.1;NOIS;;Sep 06, 1998

 ;

DEFLIST(USER) ; $$(user) -> user's default list

 N LIST

 S LIST=+$P($G(^FSC("SPEC",+$O(^FSC("SPEC","B",USER,0)),0)),U,9)

 I 'LIST Q ""

 Q LIST_U_$$VALUE^FSCGET(LIST,7105.2,9)

 ;

CAP(TYPE,STYLE,LISTNUM) ; $$(type,style,list number) -> caption

 N CAPTION,FORMAT,VALUES

 I TYPE="L" Q " #      Call ID                    Call Subject                                  "

 S VALUES=$G(^TMP("FSC SELECT",$J,$S(TYPE="E":"EVALUES",1:"VVALUES")))

 S CAPTION=$S(VALUES=+VALUES:"     Call "_VALUES,1:$S($G(LISTNUM):"     Call "_LISTNUM_" of",1:"     Calls")_" ("_VALUES_")")

 I '$O(^TMP("FSC LIST CALLS",$J,0)) S CAPTION=" "

 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      ")

 Q $$SETSTR^VALM1(FORMAT,CAPTION,62,$L(FORMAT))

 ;

STYLE(STYLE) ; $$(style) -> style name

 Q $S(STYLE="B":"BRIEF",STYLE="D":"DETAIL",STYLE="F":"FORMAT",STYLE="S":"STAT",STYLE="C":"CUSTOM",1:"")

 ;

ACCESS(USER,ACCESS) ; $$(user,access) -> 1 or 0

 ; access uses hierarchy of user, spec, super

 I '$L(ACCESS) Q 1

 I ACCESS="USER" Q 1

 N USERACC

 S USERACC=$$PRIV(USER)

 I ACCESS="SUPER",USERACC="SUPER" Q 1

 I ACCESS="SPEC",USERACC="SUPER" Q 1

 I ACCESS="SPEC",USERACC="SPEC" Q 1

 Q 0

 ;

PRIV(USER) ; -> $$(user) -> user, spec, or super

 Q:'$D(^FSC("SPEC",USER,0)) "USER" Q:$P(^(0),U,7) "SUPER" Q "SPEC"

 ;

USERINI(USER) ; $$(user) -> user's initials

 Q $P($G(^VA(200,+USER,0)),U,2)

 ;

MODINI(MOD) ; $$(module) -> module's initials (naming convention)

 Q $P($G(^FSC("MOD",+MOD,0)),U,7)

 ;

VFORMAT(USER) ; $$(user) -> default format type for view screen

 N FTYPE

 S FTYPE=$P($G(^FSC("SPEC",USER,0)),U,17) I 'FTYPE Q "DETAIL"

 S FTYPE=$P($G(^FSC("FTYPE",FTYPE,0)),U,2) I '$L(FTYPE) Q "DETAIL"

 Q FTYPE

 ;

EFORMAT(USER) ; $$(user) -> default format type for edit screen

 N FTYPE

 S FTYPE=$P($G(^FSC("SPEC",USER,0)),U,18) I 'FTYPE Q "BRIEF"

 S FTYPE=$P($G(^FSC("FTYPE",FTYPE,0)),U,2) I '$L(FTYPE) Q "BRIEF"

 Q FTYPE

 ;

EXIT(USER) ; $$(user) -> 1 or 0, default to exit or quit on NOIS screens

 Q +$P($G(^FSC("SPEC",USER,0)),U,19)

ALERT(USER) ; $$(user) -> action on alerts

 N ACTION

 S ACTION=$P($G(^FSC("SPEC",USER,0)),U,20)

 I ACTION="VIEW" Q "View"

 Q "Edit"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FSCUF   2440     printed  Apr 09, 2024@21:23:24                                                                                                                                                                                                       Page 2

FSCUF     ;SLC/STAFF-NOIS Utilities Functions ;7/21/95  15:24

 +1       ;;1.1;NOIS;;Sep 06, 1998

 +2       ;

DEFLIST(USER) ; $$(user) -> user's default list

 +1        NEW LIST

 +2        SET LIST=+$PIECE($GET(^FSC("SPEC",+$ORDER(^FSC("SPEC","B",USER,0)),0)),U,9)

 +3        IF 'LIST

               QUIT ""

 +4        QUIT LIST_U_$$VALUE^FSCGET(LIST,7105.2,9)

 +5       ;

CAP(TYPE,STYLE,LISTNUM) ; $$(type,style,list number) -> caption

 +1        NEW CAPTION,FORMAT,VALUES

 +2        IF TYPE="L"

               QUIT " #      Call ID                    Call Subject                                  "

 +3        SET VALUES=$GET(^TMP("FSC SELECT",$JOB,$SELECT(TYPE="E":"EVALUES",1:"VVALUES")))

 +4        SET CAPTION=$SELECT(VALUES=+VALUES:"     Call "_VALUES,1:$SELECT($GET(LISTNUM):"     Call "_LISTNUM_" of",1:"     Calls")_" ("_VALUES_")")

 +5        IF '$ORDER(^TMP("FSC LIST CALLS",$JOB,0))

               SET CAPTION=" "

 +6        SET FORMAT=$SELECT(STYLE="BRIEF":"Brief Format       ",STYLE="DETAIL":"Detailed Format    ",STYLE="FORMAT":$SELECT($GET(STYLE("F")):$PIECE(STYLE("F"),U,2),1:"      ")_" Format       ",STYLE="STAT":"Statistic Format   ",1:"Fields Format      ")

 +7        QUIT $$SETSTR^VALM1(FORMAT,CAPTION,62,$LENGTH(FORMAT))

 +8       ;

STYLE(STYLE) ; $$(style) -> style name

 +1        QUIT $SELECT(STYLE="B":"BRIEF",STYLE="D":"DETAIL",STYLE="F":"FORMAT",STYLE="S":"STAT",STYLE="C":"CUSTOM",1:"")

 +2       ;

ACCESS(USER,ACCESS) ; $$(user,access) -> 1 or 0

 +1       ; access uses hierarchy of user, spec, super

 +2        IF '$LENGTH(ACCESS)

               QUIT 1

 +3        IF ACCESS="USER"

               QUIT 1

 +4        NEW USERACC

 +5        SET USERACC=$$PRIV(USER)

 +6        IF ACCESS="SUPER"

               IF USERACC="SUPER"

                   QUIT 1

 +7        IF ACCESS="SPEC"

               IF USERACC="SUPER"

                   QUIT 1

 +8        IF ACCESS="SPEC"

               IF USERACC="SPEC"

                   QUIT 1

 +9        QUIT 0

 +10      ;

PRIV(USER) ; -> $$(user) -> user, spec, or super

 +1        if '$DATA(^FSC("SPEC",USER,0))

               QUIT "USER"

           if $PIECE(^(0),U,7)

               QUIT "SUPER"

           QUIT "SPEC"

 +2       ;

USERINI(USER) ; $$(user) -> user's initials

 +1        QUIT $PIECE($GET(^VA(200,+USER,0)),U,2)

 +2       ;

MODINI(MOD) ; $$(module) -> module's initials (naming convention)

 +1        QUIT $PIECE($GET(^FSC("MOD",+MOD,0)),U,7)

 +2       ;

VFORMAT(USER) ; $$(user) -> default format type for view screen

 +1        NEW FTYPE

 +2        SET FTYPE=$PIECE($GET(^FSC("SPEC",USER,0)),U,17)

           IF 'FTYPE

               QUIT "DETAIL"

 +3        SET FTYPE=$PIECE($GET(^FSC("FTYPE",FTYPE,0)),U,2)

           IF '$LENGTH(FTYPE)

               QUIT "DETAIL"

 +4        QUIT FTYPE

 +5       ;

EFORMAT(USER) ; $$(user) -> default format type for edit screen

 +1        NEW FTYPE

 +2        SET FTYPE=$PIECE($GET(^FSC("SPEC",USER,0)),U,18)

           IF 'FTYPE

               QUIT "BRIEF"

 +3        SET FTYPE=$PIECE($GET(^FSC("FTYPE",FTYPE,0)),U,2)

           IF '$LENGTH(FTYPE)

               QUIT "BRIEF"

 +4        QUIT FTYPE

 +5       ;

EXIT(USER) ; $$(user) -> 1 or 0, default to exit or quit on NOIS screens

 +1        QUIT +$PIECE($GET(^FSC("SPEC",USER,0)),U,19)

ALERT(USER) ; $$(user) -> action on alerts

 +1        NEW ACTION

 +2        SET ACTION=$PIECE($GET(^FSC("SPEC",USER,0)),U,20)

 +3        IF ACTION="VIEW"

               QUIT "View"

 +4        QUIT "Edit"