source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCRPXUS.m@ 767

Last change on this file since 767 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 857 bytes
Line 
1FSCRPXUS ;SLC/STAFF-NOIS Get Call Info - Short Line of Call ;1/13/98 16:41
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4SHORT(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
Note: See TracBrowser for help on using the repository browser.