1 | FSCTASK ;SLC/STAFF-NOIS Task ;9/6/98 22:14
|
---|
2 | ;;1.1;NOIS;;Sep 06, 1998
|
---|
3 | ;
|
---|
4 | UPDATE(FSCCALL) ; from FSCEB, FSCED, FSCEL, FSCELSNS, FSCEU, FSCLMPE1, FSCRPCEC, FSCRPCEF, FSCRPCF, FSCRPCNC
|
---|
5 | ;D UPDATE^FSCTASKU Q
|
---|
6 | N CALLID,ISC,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE K ZTSAVE
|
---|
7 | Q:'$D(^FSCD("CALL",FSCCALL,0)) S CALLID=$P(^(0),U),ISC=+$P(^(0),U,16)
|
---|
8 | S ZTIO=$$RESOURCE(ISC),ZTRTN="UPDATE^FSCTASKU",ZTDTH=$H,ZTDESC="NOIS Update for call: "_CALLID,ZTSAVE("FSCCALL")=""
|
---|
9 | D ^%ZTLOAD
|
---|
10 | Q
|
---|
11 | ;
|
---|
12 | AGE ; from option FSC TASK AGE
|
---|
13 | N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE K ZTSAVE
|
---|
14 | S ZTIO="",ZTRTN="AGE^FSCTASKA",ZTDTH=$H,ZTDESC="NOIS Update Computed Fields on Calls"
|
---|
15 | D ^%ZTLOAD
|
---|
16 | Q
|
---|
17 | ;
|
---|
18 | RESOURCE(ISC) ; $$(isc) -> name of resource
|
---|
19 | N RESOURCE
|
---|
20 | S RESOURCE=$P($G(^FSC("ISC",+$G(ISC),0)),U,2) I RESOURCE Q $$VALUE^FSCGET(RESOURCE,7105.3,2)
|
---|
21 | S RESOURCE=$P($G(^FSC("PARAM",1,0)),U,3) Q $$VALUE^FSCGET(RESOURCE,7109,3)
|
---|