| [613] | 1 | FSCED ;SLC/STAFF-NOIS List Edit Duplicate ;8/30/97 17:02
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | DUP ; from FSCLMP
|
|---|
| 5 | N ABBREV,ASK,CALLID,CALLNUM,DA,DIE,DR,OK,OLDCALL,OLDV,SITE,SITE0,STATUS,STUFF,RDATE K OLDV
|
|---|
| 6 | D ID^FSCELID(.SITE,.RDATE,.CALLID,.CALLNUM,.OK)
|
|---|
| 7 | I 'OK Q
|
|---|
| 8 | W !?5,"Call ID: ",CALLID
|
|---|
| 9 | S SITE0=^FSC("SITE",SITE,0)
|
|---|
| 10 | S OLDCALL=$$CALL^FSCLMPE1(FSCCNT)
|
|---|
| 11 | F ABBREV="DESC","DEVSTAT","DEVSUB","FUNC","HRS","KEYWORDS","MOD","PRI","STATUS","SUBJECT","SUM","TASK" S OLDV(ABBREV)=""
|
|---|
| 12 | D GET^FSCGET("CUSTOM",OLDCALL,.OLDV)
|
|---|
| 13 | S DA=CALLNUM,DIE="^FSCD(""CALL"",",DR="2///`"_SITE_";10///"_RDATE_";120///NOW",(ASK,STUFF)=""
|
|---|
| 14 | D
|
|---|
| 15 | .I OLDV("MOD") S STUFF=STUFF_";3///`"_+OLDV("MOD") Q
|
|---|
| 16 | .S ASK=ASK_";3T"
|
|---|
| 17 | D STRING^FSCELS($$SPEC^FSCELS(DUZ),.STUFF,.ASK)
|
|---|
| 18 | D
|
|---|
| 19 | .I $L(OLDV("SUBJECT")) S STUFF=STUFF_";1///"_OLDV("SUBJECT") Q
|
|---|
| 20 | .S ASK=ASK_";1T"
|
|---|
| 21 | I 'OLDV("DESC") S ASK=ASK_";30Problem Description"
|
|---|
| 22 | D STRING^FSCELS($$CONTACT^FSCELS(SITE0,DUZ),.STUFF,.ASK)
|
|---|
| 23 | ;D STRING^FSCELS($$PHONE^FSCEUD(SITE0,DUZ),.STUFF,.ASK)
|
|---|
| 24 | D
|
|---|
| 25 | .I OLDV("PRI") S STUFF=STUFF_";6///`"_+OLDV("PRI") Q
|
|---|
| 26 | .S ASK=ASK_";6T"
|
|---|
| 27 | I OLDV("DEVSUB") S STUFF=STUFF_";3.2///`"_+OLDV("DEVSUB")
|
|---|
| 28 | I $L($P(OLDV("KEYWORDS"),U)) S STUFF=STUFF_";1.5///"_$P(OLDV("KEYWORDS"),U)
|
|---|
| 29 | S DR=DR_STUFF_ASK
|
|---|
| 30 | L +^FSCD("CALL",CALLNUM):30 I '$T D SOMEONE^FSCLMPE1 Q
|
|---|
| 31 | I OLDV("DESC") M ^FSCD("CALL",CALLNUM,30)=^FSCD("CALL",OLDCALL,30)
|
|---|
| 32 | D ^DIE
|
|---|
| 33 | L -^FSCD("CALL",CALLNUM)
|
|---|
| 34 | D PICKUP^FSCES(CALLNUM)
|
|---|
| 35 | S STATUS=+$$STAT^FSCESU($P(OLDV("STATUS"),U),$P(OLDV("DEVSTAT"),U))
|
|---|
| 36 | I STATUS=2 D
|
|---|
| 37 | .D CLOSE^FSCEDC(CALLNUM,OLDCALL,.OLDV,.STATUS)
|
|---|
| 38 | .I STATUS'=2 W !,"This duplicate call is NOT closed.",$C(7) H 2
|
|---|
| 39 | D STATUS^FSCES(CALLNUM,"",STATUS)
|
|---|
| 40 | D UPDATE^FSCTASK(CALLNUM)
|
|---|
| 41 | D LIST^FSCELL(CALLNUM)
|
|---|
| 42 | Q
|
|---|
