source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCLMPOW.m@ 767

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

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1FSCLMPOW ;SLC/STAFF-NOIS List Manager Protocol Other Workload ;1/11/98 18:37
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4WKLD(CALL) ; from FSCLMPO
5 N CNT,DATE,HRS,OK,TOTHRS,USER,WKLD
6 K ^TMP("FSCWKLD",$J)
7 S OK=1,TOTHRS=+$P(^FSCD("CALL",CALL,0),U,13)
8 I 'TOTHRS D
9 .W !,"No time entries."
10 E D
11 .W !?5,"Total hours: ",TOTHRS
12 .S WKLD=0 F S WKLD=$O(^FSCD("WKLD","B",CALL,WKLD)) Q:WKLD<1 D
13 ..S DATE=$P(^FSCD("WKLD",WKLD,0),U,3),HRS=+$P(^(0),U,4),USER=$P(^(0),U,2),USER=$$VALUE^FSCGET(USER,7103.5,1)
14 ..I $L(DATE),$L(USER) D
15 ...S ^TMP("FSCWKLD",$J,"DU",DATE,USER)=HRS
16 ...S ^TMP("FSCWKLD",$J,"UD",USER,DATE)=HRS
17 ...S ^(DATE)=$G(^TMP("FSCWKLD",$J,"D",DATE))+HRS
18 ...S ^(USER)=$G(^TMP("FSCWKLD",$J,"U",USER))+HRS
19 .W !,"By Date | Specialist:"
20 .S CNT=3
21 .S DATE=0 F S DATE=$O(^TMP("FSCWKLD",$J,"DU",DATE)) Q:DATE<1 D I 'OK Q
22 ..W !?5,$$FMTE^XLFDT(DATE)," (",^TMP("FSCWKLD",$J,"D",DATE),")"
23 ..S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q
24 ..S USER="" F S USER=$O(^TMP("FSCWKLD",$J,"DU",DATE,USER)) Q:USER="" S HRS=^(USER) D I 'OK Q
25 ...W !,?20,USER,?50,HRS
26 ...S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q
27 .W !,"By Specialist | Date:"
28 .S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q
29 .S USER="" F S USER=$O(^TMP("FSCWKLD",$J,"UD",USER)) Q:USER="" D I 'OK Q
30 ..W !?5,USER," (",^TMP("FSCWKLD",$J,"U",USER),")"
31 ..S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q
32 ..S DATE=0 F S DATE=$O(^TMP("FSCWKLD",$J,"UD",USER,DATE)) Q:DATE<1 S HRS=^(DATE) D I 'OK Q
33 ...W !,?20,$$FMTE^XLFDT(DATE),?50,HRS
34 ...S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q
35 K ^TMP("FSCWKLD",$J)
36 I 'OK Q
37 D PAUSE^FSCU(.OK)
38 Q
Note: See TracBrowser for help on using the repository browser.