FSCLMPOW ;SLC/STAFF-NOIS List Manager Protocol Other Workload ;1/11/98 18:37
;;1.1;NOIS;;Sep 06, 1998
;
WKLD(CALL) ; from FSCLMPO
N CNT,DATE,HRS,OK,TOTHRS,USER,WKLD
K ^TMP("FSCWKLD",$J)
S OK=1,TOTHRS=+$P(^FSCD("CALL",CALL,0),U,13)
I 'TOTHRS D
.W !,"No time entries."
E D
.W !?5,"Total hours: ",TOTHRS
.S WKLD=0 F S WKLD=$O(^FSCD("WKLD","B",CALL,WKLD)) Q:WKLD<1 D
..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)
..I $L(DATE),$L(USER) D
...S ^TMP("FSCWKLD",$J,"DU",DATE,USER)=HRS
...S ^TMP("FSCWKLD",$J,"UD",USER,DATE)=HRS
...S ^(DATE)=$G(^TMP("FSCWKLD",$J,"D",DATE))+HRS
...S ^(USER)=$G(^TMP("FSCWKLD",$J,"U",USER))+HRS
.W !,"By Date | Specialist:"
.S CNT=3
.S DATE=0 F S DATE=$O(^TMP("FSCWKLD",$J,"DU",DATE)) Q:DATE<1 D I 'OK Q
..W !?5,$$FMTE^XLFDT(DATE)," (",^TMP("FSCWKLD",$J,"D",DATE),")"
..S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q
..S USER="" F S USER=$O(^TMP("FSCWKLD",$J,"DU",DATE,USER)) Q:USER="" S HRS=^(USER) D I 'OK Q
...W !,?20,USER,?50,HRS
...S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q
.W !,"By Specialist | Date:"
.S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q
.S USER="" F S USER=$O(^TMP("FSCWKLD",$J,"UD",USER)) Q:USER="" D I 'OK Q
..W !?5,USER," (",^TMP("FSCWKLD",$J,"U",USER),")"
..S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q
..S DATE=0 F S DATE=$O(^TMP("FSCWKLD",$J,"UD",USER,DATE)) Q:DATE<1 S HRS=^(DATE) D I 'OK Q
...W !,?20,$$FMTE^XLFDT(DATE),?50,HRS
...S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q
K ^TMP("FSCWKLD",$J)
I 'OK Q
D PAUSE^FSCU(.OK)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCLMPOW 1713 printed Sep 23, 2025@19:54:48 Page 2
FSCLMPOW ;SLC/STAFF-NOIS List Manager Protocol Other Workload ;1/11/98 18:37
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
WKLD(CALL) ; from FSCLMPO
+1 NEW CNT,DATE,HRS,OK,TOTHRS,USER,WKLD
+2 KILL ^TMP("FSCWKLD",$JOB)
+3 SET OK=1
SET TOTHRS=+$PIECE(^FSCD("CALL",CALL,0),U,13)
+4 IF 'TOTHRS
Begin DoDot:1
+5 WRITE !,"No time entries."
End DoDot:1
+6 IF '$TEST
Begin DoDot:1
+7 WRITE !?5,"Total hours: ",TOTHRS
+8 SET WKLD=0
FOR
SET WKLD=$ORDER(^FSCD("WKLD","B",CALL,WKLD))
if WKLD<1
QUIT
Begin DoDot:2
+9 SET DATE=$PIECE(^FSCD("WKLD",WKLD,0),U,3)
SET HRS=+$PIECE(^(0),U,4)
SET USER=$PIECE(^(0),U,2)
SET USER=$$VALUE^FSCGET(USER,7103.5,1)
+10 IF $LENGTH(DATE)
IF $LENGTH(USER)
Begin DoDot:3
+11 SET ^TMP("FSCWKLD",$JOB,"DU",DATE,USER)=HRS
+12 SET ^TMP("FSCWKLD",$JOB,"UD",USER,DATE)=HRS
+13 SET ^(DATE)=$GET(^TMP("FSCWKLD",$JOB,"D",DATE))+HRS
+14 SET ^(USER)=$GET(^TMP("FSCWKLD",$JOB,"U",USER))+HRS
End DoDot:3
End DoDot:2
+15 WRITE !,"By Date | Specialist:"
+16 SET CNT=3
+17 SET DATE=0
FOR
SET DATE=$ORDER(^TMP("FSCWKLD",$JOB,"DU",DATE))
if DATE<1
QUIT
Begin DoDot:2
+18 WRITE !?5,$$FMTE^XLFDT(DATE)," (",^TMP("FSCWKLD",$JOB,"D",DATE),")"
+19 SET CNT=CNT+1
IF CNT'<(IOSL-1)
SET CNT=1
DO PAUSE^FSCU(.OK)
IF 'OK
QUIT
+20 SET USER=""
FOR
SET USER=$ORDER(^TMP("FSCWKLD",$JOB,"DU",DATE,USER))
if USER=""
QUIT
SET HRS=^(USER)
Begin DoDot:3
+21 WRITE !,?20,USER,?50,HRS
+22 SET CNT=CNT+1
IF CNT'<(IOSL-1)
SET CNT=1
DO PAUSE^FSCU(.OK)
IF 'OK
QUIT
End DoDot:3
IF 'OK
QUIT
End DoDot:2
IF 'OK
QUIT
+23 WRITE !,"By Specialist | Date:"
+24 SET CNT=CNT+1
IF CNT'<(IOSL-1)
SET CNT=1
DO PAUSE^FSCU(.OK)
IF 'OK
QUIT
+25 SET USER=""
FOR
SET USER=$ORDER(^TMP("FSCWKLD",$JOB,"UD",USER))
if USER=""
QUIT
Begin DoDot:2
+26 WRITE !?5,USER," (",^TMP("FSCWKLD",$JOB,"U",USER),")"
+27 SET CNT=CNT+1
IF CNT'<(IOSL-1)
SET CNT=1
DO PAUSE^FSCU(.OK)
IF 'OK
QUIT
+28 SET DATE=0
FOR
SET DATE=$ORDER(^TMP("FSCWKLD",$JOB,"UD",USER,DATE))
if DATE<1
QUIT
SET HRS=^(DATE)
Begin DoDot:3
+29 WRITE !,?20,$$FMTE^XLFDT(DATE),?50,HRS
+30 SET CNT=CNT+1
IF CNT'<(IOSL-1)
SET CNT=1
DO PAUSE^FSCU(.OK)
IF 'OK
QUIT
End DoDot:3
IF 'OK
QUIT
End DoDot:2
IF 'OK
QUIT
End DoDot:1
+31 KILL ^TMP("FSCWKLD",$JOB)
+32 IF 'OK
QUIT
+33 DO PAUSE^FSCU(.OK)
+34 QUIT
