source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCED.m@ 701

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

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1FSCED ;SLC/STAFF-NOIS List Edit Duplicate ;8/30/97 17:02
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4DUP ; 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
Note: See TracBrowser for help on using the repository browser.