FSCTASK ;SLC/STAFF-NOIS Task ;9/6/98 22:14
;;1.1;NOIS;;Sep 06, 1998
;
UPDATE(FSCCALL) ; from FSCEB, FSCED, FSCEL, FSCELSNS, FSCEU, FSCLMPE1, FSCRPCEC, FSCRPCEF, FSCRPCF, FSCRPCNC
;D UPDATE^FSCTASKU Q
N CALLID,ISC,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE K ZTSAVE
Q:'$D(^FSCD("CALL",FSCCALL,0)) S CALLID=$P(^(0),U),ISC=+$P(^(0),U,16)
S ZTIO=$$RESOURCE(ISC),ZTRTN="UPDATE^FSCTASKU",ZTDTH=$H,ZTDESC="NOIS Update for call: "_CALLID,ZTSAVE("FSCCALL")=""
D ^%ZTLOAD
Q
;
AGE ; from option FSC TASK AGE
N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE K ZTSAVE
S ZTIO="",ZTRTN="AGE^FSCTASKA",ZTDTH=$H,ZTDESC="NOIS Update Computed Fields on Calls"
D ^%ZTLOAD
Q
;
RESOURCE(ISC) ; $$(isc) -> name of resource
N RESOURCE
S RESOURCE=$P($G(^FSC("ISC",+$G(ISC),0)),U,2) I RESOURCE Q $$VALUE^FSCGET(RESOURCE,7105.3,2)
S RESOURCE=$P($G(^FSC("PARAM",1,0)),U,3) Q $$VALUE^FSCGET(RESOURCE,7109,3)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCTASK 891 printed Oct 16, 2024@18:20:53 Page 2
FSCTASK ;SLC/STAFF-NOIS Task ;9/6/98 22:14
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
UPDATE(FSCCALL) ; from FSCEB, FSCED, FSCEL, FSCELSNS, FSCEU, FSCLMPE1, FSCRPCEC, FSCRPCEF, FSCRPCF, FSCRPCNC
+1 ;D UPDATE^FSCTASKU Q
+2 NEW CALLID,ISC,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
KILL ZTSAVE
+3 if '$DATA(^FSCD("CALL",FSCCALL,0))
QUIT
SET CALLID=$PIECE(^(0),U)
SET ISC=+$PIECE(^(0),U,16)
+4 SET ZTIO=$$RESOURCE(ISC)
SET ZTRTN="UPDATE^FSCTASKU"
SET ZTDTH=$HOROLOG
SET ZTDESC="NOIS Update for call: "_CALLID
SET ZTSAVE("FSCCALL")=""
+5 DO ^%ZTLOAD
+6 QUIT
+7 ;
AGE ; from option FSC TASK AGE
+1 NEW ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
KILL ZTSAVE
+2 SET ZTIO=""
SET ZTRTN="AGE^FSCTASKA"
SET ZTDTH=$HOROLOG
SET ZTDESC="NOIS Update Computed Fields on Calls"
+3 DO ^%ZTLOAD
+4 QUIT
+5 ;
RESOURCE(ISC) ; $$(isc) -> name of resource
+1 NEW RESOURCE
+2 SET RESOURCE=$PIECE($GET(^FSC("ISC",+$GET(ISC),0)),U,2)
IF RESOURCE
QUIT $$VALUE^FSCGET(RESOURCE,7105.3,2)
+3 SET RESOURCE=$PIECE($GET(^FSC("PARAM",1,0)),U,3)
QUIT $$VALUE^FSCGET(RESOURCE,7109,3)
