| 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)
|
|---|
