- 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 Jan 18, 2025@03:21:17 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