- 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 Jan 18, 2025@03:21:27 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)