| 1 | FSCWKLD ;SLC/STAFF-NOIS Workload ;1/11/98 15:08
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | HC(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 | ;
|
|---|
| 12 | HCUD(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 | ;
|
|---|
| 19 | HCD(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 | ;
|
|---|
| 26 | HD(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 | ;
|
|---|
| 33 | HUD(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 | ;
|
|---|
| 42 | HUC(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
|
|---|
