Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCEWKLD

FSCEWKLD.m

Go to the documentation of this file.
  1. FSCEWKLD ;SLC/STAFF-NOIS Edit Workload ;9/6/98 20:42
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. WKLD(CALL,CHECK) ; from FSCEL, FSCEN, FSCLMPE1, FSCLMPES
  1. I '$$ACCESS^FSCU(DUZ,"SPEC") Q ;I '$D(^FSC("SPEC",DUZ,0)) Q
  1. Q:'$D(^FSCD("CALL",CALL,0)) Q:$P(^(0),U,2)=99
  1. I $G(CHECK),'$$WKLD^FSCEUD(DUZ) Q
  1. N DATE,HRS,OK,OLDHRS
  1. W !!,"Workload Time"
  1. D DATE(CALL,.DATE,.OK) I 'OK Q
  1. S (OLDHRS,HRS)=$$HCUD^FSCWKLD(CALL,DUZ,DATE)
  1. D HRS(CALL,DATE,.HRS,.OK) I 'OK Q
  1. I HRS D UPDATE(CALL,HRS,DATE,DUZ)
  1. Q
  1. ;
  1. DATE(CALL,DATE,OK) ;
  1. N CDATE,DIR,RDATE,WEDATE,X,Y K DIR
  1. S OK=1
  1. S RDATE=$P($G(^FSCD("CALL",CALL,0)),U,3)
  1. I 'RDATE S OK=0 Q
  1. S CDATE=$P($G(^FSCD("CALL",CALL,0)),U,4)
  1. I 'CDATE S CDATE=DT
  1. S WEDATE=$$WEDATE^FSCUP
  1. I WEDATE,RDATE>WEDATE S RDATE=WEDATE
  1. I RDATE>CDATE W !,"Unable to edit workload for this call",$C(7) S OK=0 Q
  1. S DIR(0)="DA^"_RDATE_":"_CDATE_":EX",DIR("A")="Date of action: ",DIR("B")="TODAY"
  1. S DIR("?",1)="Enter the date for this particular action."
  1. S DIR("?",2)="Date must be from "_$$FMTE^XLFDT(RDATE)_" to "_$$FMTE^XLFDT(CDATE)_"."
  1. S DIR("?",3)="Date must be from when call was open to closed and cannot"
  1. S DIR("?",4)="be before T-"_+$P($G(^FSC("PARAM",1,0)),U,10)_"."
  1. S DIR("?")="^D HELP^%DTC,HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I $D(DIRUT) S OK=0 Q
  1. S DATE=Y
  1. Q
  1. ;
  1. HRS(CALL,DATE,HRS,OK) ;
  1. N DIR,HC,HUC,HUD,HIGHHRS,LOWHRS,X,Y K DIR
  1. S OK=1
  1. S HC=$$HC^FSCWKLD(CALL),HUC=$$HUC^FSCWKLD(DUZ,CALL),HUD=$$HUD^FSCWKLD(DUZ,DATE)
  1. I HUD W !,"Your hours on all calls for this date is ",HUD,"."
  1. I HC W !,"Total hours on this call is ",HC,"."
  1. I HUC W !,"Your hours on this call is ",HUC," (Total)" I $L(HRS) W ", ",HRS," (",$$FMTE^XLFDT(DATE),")."
  1. S HIGHHRS=24-HUD
  1. S LOWHRS=-HRS
  1. S DIR(0)="NAO^"_LOWHRS_":"_HIGHHRS_":2",DIR("A")="Enter any changes for this date: "
  1. S DIR("?",1)="Enter changes to time on this call for this date."
  1. S DIR("?",2)="Enter a number ("_LOWHRS_" to "_HIGHHRS_") with no more than 2 decimal places."
  1. S DIR("?",3)="This time is added to hours spent on the call for "_$$FMTE^XLFDT(DATE)_"."
  1. S DIR("?",4)="Enter '^' to exit without making a note or '??' for more help."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I $D(DIRUT),Y'="" S OK=0 Q
  1. S HRS=Y
  1. Q
  1. ;
  1. UPDATE(CALL,HRS,DATE,USER) ; from FSCRPCEB, FSCRPCEW
  1. Q:'$G(CALL) Q:'$G(HRS) Q:'$G(DATE) Q:'$G(USER)
  1. N DA,DATA,DIK,INVALID,NUM,OK,WKLD
  1. S INVALID=$S($P(^FSCD("CALL",CALL,0),U,2)=11:1,1:"")
  1. S WKLD=$G(^FSCD("WKLD","AK",CALL,USER,DATE))
  1. I 'WKLD S OK=1 D I 'OK Q
  1. .S DATA=CALL_U_USER_U_DATE_U_HRS_U_INVALID
  1. .S NUM=1+$P(^FSCD("WKLD",0),U,3)
  1. .L +^FSCD("WKLD",0):30 I '$T S OK=0 Q ; needs ok
  1. .F Q:'$D(^FSCD("WKLD",NUM,0)) S NUM=NUM+1
  1. .S ^FSCD("WKLD",NUM,0)=DATA
  1. .S $P(^FSCD("WKLD",0),U,3)=NUM,$P(^(0),U,4)=$P(^(0),U,4)+1
  1. .L -^FSCD("WKLD",0)
  1. .S DIK="^FSCD(""WKLD"",",DA=NUM D IX1^DIK
  1. I WKLD D
  1. .S $P(^(0),U,4)=$P(^FSCD("WKLD",WKLD,0),U,4)+HRS
  1. ;S $P(^FSCD("CALL",CALL,0),U,13)=$$HC^FSCWKLD(CALL)
  1. D TOTHRS(CALL,$$HC^FSCWKLD(CALL))
  1. Q
  1. ;
  1. GOODWKLD(CALL) ; from FSCLMPES
  1. I '$D(^FSCD("CALL",CALL,0)) Q
  1. N TOTHRS,WKLD
  1. S (TOTHRS,WKLD)=0 F S WKLD=$O(^FSCD("WKLD","B",CALL,WKLD)) Q:WKLD<1 D
  1. .I $D(^FSCD("WKLD",WKLD,0)) S $P(^(0),U,5)="",TOTHRS=TOTHRS+$P(^(0),U,4)
  1. ;S $P(^FSCD("CALL",CALL,0),U,13)=TOTHRS
  1. D TOTHRS(CALL,TOTHRS)
  1. Q
  1. ;
  1. BADWKLD(CALL) ; from FSCLMPES
  1. I '$D(^FSCD("CALL",CALL,0)) Q
  1. N WKLD
  1. S WKLD=0 F S WKLD=$O(^FSCD("WKLD","B",CALL,WKLD)) Q:WKLD<1 D
  1. .I $D(^FSCD("WKLD",WKLD,0)) S $P(^(0),U,5)=1
  1. ;S $P(^FSCD("CALL",CALL,0),U,13)=0
  1. D TOTHRS(CALL,0)
  1. Q
  1. ;
  1. TOTHRS(DA,HRS) ;
  1. N DR,DIE,X,Y
  1. S DIE="^FSCD(""CALL"","
  1. S DR="20///"_HRS
  1. D ^DIE
  1. Q