FSCTASK.m

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 ---FSCTASK   891     printed  Apr 09, 2024@21:22:50                                                                                                                                                                                                      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)