source: FOIAVistA/trunk/r/NOIS-FSC/FSCTASK.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 870 bytes
Line 
1FSCTASK ;SLC/STAFF-NOIS Task ;9/6/98 22:14
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4UPDATE(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 ;
12AGE ; 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 ;
18RESOURCE(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)
Note: See TracBrowser for help on using the repository browser.