source: FOIAVistA/trunk/r/NOIS-FSC/FSCWKLD.m@ 876

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

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1FSCWKLD ;SLC/STAFF-NOIS Workload ;1/11/98 15:08
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4HC(CALL) ; $$(call) -> # hrs
5 I '$D(^FSCD("CALL",+CALL,0)) Q ""
6 N TOTAL,WKLD
7 S TOTAL=0
8 S WKLD=0 F S WKLD=$O(^FSCD("WKLD","B",CALL,WKLD)) Q:WKLD<1 D
9 .I $G(^FSCD("WKLD",WKLD,0)),'$P(^(0),U,5) S TOTAL=TOTAL+$P(^(0),U,4)
10 Q TOTAL
11 ;
12HCUD(CALL,USER,DATE) ; $$(call,user,date) -> # hrs
13 N TOTAL,WKLD
14 S TOTAL=0
15 S WKLD=+$G(^FSCD("WKLD","AK",CALL,USER,DATE)) I 'WKLD Q ""
16 I '$P($G(^FSCD("WKLD",WKLD,0)),U,5) S TOTAL=$P(^(0),U,4)
17 Q TOTAL
18 ;
19HCD(CALL,DATE) ; $$(call,date) -> # hrs
20 N TOTAL,WKLD
21 S TOTAL=0
22 S WKLD=0 F S WKLD=$O(^FSCD("WKLD","B",CALL,WKLD)) Q:WKLD<1 D
23 .I $P(^FSCD("WKLD",WKLD,0),U,3)=DATE,'$P(^(0),U,5) S TOTAL=TOTAL+$P(^(0),U,4)
24 Q TOTAL
25 ;
26HD(DATE) ; $$(date) -> # hrs
27 N TOTAL,WKLD
28 S TOTAL=0
29 S WKLD=0 F S WKLD=$O(^FSCD("WKLD","D",DATE,WKLD)) Q:WKLD<1 D
30 .I '$P(^FSCD("WKLD",WKLD,0),U,5) S TOTAL=TOTAL+$P(^FSCD("WKLD",WKLD,0),U,4)
31 Q TOTAL
32 ;
33HUD(USER,DATE) ; $$(user,date) -> # hrs
34 I '$G(USER) Q ""
35 I '$G(DATE) Q ""
36 N TOTAL,WKLD
37 S TOTAL=0
38 S WKLD=0 F S WKLD=$O(^FSCD("WKLD","AUD",USER,DATE,WKLD)) Q:WKLD<1 D
39 .I $G(^FSCD("WKLD",WKLD,0)),'$P(^(0),U,5) S TOTAL=TOTAL+$P(^(0),U,4)
40 Q TOTAL
41 ;
42HUC(USER,CALL) ; $$(user,call) -> # hrs
43 N DATE,TOTAL,WKLD
44 S TOTAL=0
45 S DATE=0 F S DATE=$O(^FSCD("WKLD","AK",CALL,USER,DATE)) Q:DATE<1 S WKLD=+^(DATE) D
46 .I '$P(^FSCD("WKLD",WKLD,0),U,5) S TOTAL=TOTAL+$P(^(0),U,4)
47 Q TOTAL
Note: See TracBrowser for help on using the repository browser.