FSCRPXUS ;SLC/STAFF-NOIS Get Call Info - Short Line of Call ;1/13/98 16:41
;;1.1;NOIS;;Sep 06, 1998
;
SHORT(CALL,USER) ; $$(call number,user) -> delimited call title line for user
N CALLID,DEF,DEV,LINE,MOD,PRI,SPEC,SPECD,SUBJECT,SUP
Q:'$D(^FSCD("CALL",+CALL,0)) "" S SUBJECT=$G(^(1)),CALLID=$P(^(0),U)
S DEF=$P($G(^FSC("SPEC",+USER,0)),U,11)
I '$L(DEF) S DEF="SMU" ;*** S LINE=CALLID_U_SUBJECT Q LINE
S DEF="SMU" ;********
S SUP=$P(^FSCD("CALL",+CALL,0),U,2),DEV=$P(^(0),U,17),SPEC=$P(^(0),U,9),SPECD=$P(^(0),U,21),MOD=$P(^(0),U,8),PRI=$P(^(0),U,10)
S LINE=CALLID
I DEF["S" S LINE=LINE_U_$P($$STAT^FSCESU(SUP,DEV),U,2)
I DEF["M" S LINE=LINE_U_$$MODINI^FSCUF(MOD)
I DEF["U" S LINE=LINE_U_$$USERINI^FSCUF(SPEC)
I DEF["R" S LINE=LINE_U_$$USERINI^FSCUF(SPECD)
I DEF["P" S LINE=LINE_U_$E($$VALUE^FSCGET(PRI,7100,6))
S LINE=LINE_U_SUBJECT
Q LINE
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCRPXUS 875 printed Oct 16, 2024@18:20:43 Page 2
FSCRPXUS ;SLC/STAFF-NOIS Get Call Info - Short Line of Call ;1/13/98 16:41
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
SHORT(CALL,USER) ; $$(call number,user) -> delimited call title line for user
+1 NEW CALLID,DEF,DEV,LINE,MOD,PRI,SPEC,SPECD,SUBJECT,SUP
+2 if '$DATA(^FSCD("CALL",+CALL,0))
QUIT ""
SET SUBJECT=$GET(^(1))
SET CALLID=$PIECE(^(0),U)
+3 SET DEF=$PIECE($GET(^FSC("SPEC",+USER,0)),U,11)
+4 ;*** S LINE=CALLID_U_SUBJECT Q LINE
IF '$LENGTH(DEF)
SET DEF="SMU"
+5 ;********
SET DEF="SMU"
+6 SET SUP=$PIECE(^FSCD("CALL",+CALL,0),U,2)
SET DEV=$PIECE(^(0),U,17)
SET SPEC=$PIECE(^(0),U,9)
SET SPECD=$PIECE(^(0),U,21)
SET MOD=$PIECE(^(0),U,8)
SET PRI=$PIECE(^(0),U,10)
+7 SET LINE=CALLID
+8 IF DEF["S"
SET LINE=LINE_U_$PIECE($$STAT^FSCESU(SUP,DEV),U,2)
+9 IF DEF["M"
SET LINE=LINE_U_$$MODINI^FSCUF(MOD)
+10 IF DEF["U"
SET LINE=LINE_U_$$USERINI^FSCUF(SPEC)
+11 IF DEF["R"
SET LINE=LINE_U_$$USERINI^FSCUF(SPECD)
+12 IF DEF["P"
SET LINE=LINE_U_$EXTRACT($$VALUE^FSCGET(PRI,7100,6))
+13 SET LINE=LINE_U_SUBJECT
+14 QUIT LINE
