| 1 | FSCRPXUS ;SLC/STAFF-NOIS Get Call Info - Short Line of Call ;1/13/98 16:41
|
---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
---|
| 3 | ;
|
---|
| 4 | SHORT(CALL,USER) ; $$(call number,user) -> delimited call title line for user
|
---|
| 5 | N CALLID,DEF,DEV,LINE,MOD,PRI,SPEC,SPECD,SUBJECT,SUP
|
---|
| 6 | Q:'$D(^FSCD("CALL",+CALL,0)) "" S SUBJECT=$G(^(1)),CALLID=$P(^(0),U)
|
---|
| 7 | S DEF=$P($G(^FSC("SPEC",+USER,0)),U,11)
|
---|
| 8 | I '$L(DEF) S DEF="SMU" ;*** S LINE=CALLID_U_SUBJECT Q LINE
|
---|
| 9 | S DEF="SMU" ;********
|
---|
| 10 | 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)
|
---|
| 11 | S LINE=CALLID
|
---|
| 12 | I DEF["S" S LINE=LINE_U_$P($$STAT^FSCESU(SUP,DEV),U,2)
|
---|
| 13 | I DEF["M" S LINE=LINE_U_$$MODINI^FSCUF(MOD)
|
---|
| 14 | I DEF["U" S LINE=LINE_U_$$USERINI^FSCUF(SPEC)
|
---|
| 15 | I DEF["R" S LINE=LINE_U_$$USERINI^FSCUF(SPECD)
|
---|
| 16 | I DEF["P" S LINE=LINE_U_$E($$VALUE^FSCGET(PRI,7100,6))
|
---|
| 17 | S LINE=LINE_U_SUBJECT
|
---|
| 18 | Q LINE
|
---|