Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCTASK

FSCTASK.m

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