source: WorldVistAEHR/trunk/r/ASISTS-OOPS/OOPSVAL1.m@ 861

OOPSVAL1 ;HINES/WAA,GTD-Validate and Sign data Routines ;3/25/98
 ;;2.0;ASISTS;;Jun 03, 2002
 ;;
 ;  Note:  At EMP+18 added check to see if code being executed from
 ;         the broker.  ASISTS V2.0
 ;
EN1(CALLER) ;  Main Entry Point
 ;INPUT:
 ;     CALLER = "E" FOR EMPLOYEE
 ;            = "S" FOR SUPERVISOR
 ;            = "O" FOR SAFETY OFFICER
 ;            = "W" FOR WORKER'S COMP
 ;
 N SSN,IEN,SIGN,EDIT,FORM,GRP,SUP,I,CIT,HSA,STA,ZIP
 S IEN=0
 Q:DUZ<1
 Q:$G(^VA(200,DUZ,1))=""
 I CALLER="E" S SSN=$P(^VA(200,DUZ,1),U,9) Q:$D(^OOPS(2260,"SSN",SSN))<1
 D  Q:IEN<1
 .N DIC,X
 .S DIC="^OOPS(2260,"
 .I CALLER="E" S DIC("S")="I $$EMPSCR^OOPSVAL1(Y)"
 .I CALLER="S" S DIC("S")="I $$SUPSCR^OOPSVAL1(Y)"
 .I CALLER="O" S DIC("S")="I $$SAFSCR^OOPSVAL1(Y)"
 .I CALLER="W" S DIC("S")="I $$WCSCR^OOPSVAL1(Y)"
 .S DIC("S")=DIC("S")_",'$$GET1^DIQ(2260,Y,51,""I"")"
 .S DIC(0)="AEMNZ",DIC("A")="   Select Case: "
 .D ^DIC
 .Q:Y<1
 .Q:$D(DTOUT)!($D(DUOUT))
 .S IEN=$P(Y,U)
 .Q
 I CALLER="O" D
 .S FORM="2162"
 .D FORM
 .Q
 I CALLER="E" D
 .S FORM=$$GET1^DIQ(2260,IEN,52,"I")
 .S FORM=$S(FORM=1:"CA1",FORM=2:"CA2",1:"")
 .I FORM'="" D FORM
 .Q
 I CALLER="S" D
 .N CNT,PAUSE,OUT,FORM,EDIT
 .S (PAUSE,OUT)=0
 .; Do block below needed so that for loop below only runs for "S"
 .D
 ..N INC,STAT,ESTAT
 ..S INC=$$GET1^DIQ(2260,IEN,52,"I")
 ..S STAT=$$EDSTA^OOPSUTL1(IEN,"S")
 ..; added check for employee having signed CA1
 ..S ESTAT=$$EDSTA^OOPSUTL1(IEN,"E")
 ..; if employee signed ok to let super select if no forms signed
 ..I $P(ESTAT,U,INC) D
 ...I '$P(STAT,U,INC),'$P(STAT,U,3) D SELECT^OOPSSUP1 Q
 ...S EDIT=$S('$P(STAT,U,3):2162,'$P(STAT,U,INC):$P("CA1^CA2",U,INC),1:"")
 ..I '$P(ESTAT,U,INC) D  ;  Employee has not signed CA1/CA2
 ...I '$P(STAT,U,3) S EDIT=2162 Q
 ...S EDIT=""
 .I EDIT="" Q
 .F CNT=1:1 S FORM=$P(EDIT,U,CNT) Q:FORM=""  D:PAUSE END Q:OUT  D
 ..D FORM S PAUSE=1
 ..Q
 .Q
 I CALLER="W" D
 .S FORM=$$GET1^DIQ(2260,IEN,52,"I")
 .S FORM=$S(FORM=1:"CA1",FORM=2:"CA2",1:"")
 . N DIR,Y
 . S WOK=1
 . W !
 . S DIR("A")="OK to transmit to DOL"
 . S DIR(0)="SBM^Y:Yes;N:No"
 . D ^DIR
 . I Y="Y",FORM'="" D FORM
 .Q
EXIT ;
 K SUP,WOK                      ; left over from ^OOPSDIS
 Q
EMPSCR(IEN) ;
 N VIEW
 S VIEW=1
 I '$$EMP^OOPSUTL1(IEN,SSN) S VIEW=0
 E  D
 .N INC
 .S INC=$$GET1^DIQ(2260,IEN,52,"I")
 .I $P($$EDSTA^OOPSUTL1(IEN,"E"),U,INC) S VIEW=0
 .Q
 Q VIEW
SUPSCR(IEN) ;
 N VIEW
 S VIEW=1
 I '$$SUPSCR^OOPSUTL2(DUZ,IEN) S VIEW=0
 E  D
 .N INC,STAT,ESTAT,CAT
 .S CAT=$$GET1^DIQ(2260,IEN,2,"I")              ; Personnel status
 .S INC=$$GET1^DIQ(2260,IEN,52,"I")             ; Injury/Illness
 .S STAT=$$EDSTA^OOPSUTL1(IEN,"S")              ; sup signed forms
 .S ESTAT=$$EDSTA^OOPSUTL1(IEN,"E")             ; emp signed forms
 .; Added Non-PAID employee to check, not emp, 2162 signed
 .; Patch 5 - logic changed for new Personnel Categories
 .I '$$ISEMP^OOPSUTL4(IEN),$P(STAT,U,3) S VIEW=0 Q
 .; super signed 2162 and CA1/CA2
 .I $P(STAT,U,INC),$P(STAT,U,3) S VIEW=0 Q
 .; emp not signed CA1/CA2, super signed 2162, not signed CA1/CA2 - no
 .I '$P(ESTAT,U,INC),$P(STAT,U,3),'$P(STAT,U,INC) S VIEW=0 Q
 .Q
 Q VIEW
WCSCR(IEN) ; Patch 8 - Worker's Comp Screen
 N INC,VIEW,ESTAT,STAT
 S VIEW=1
 S INC=$$GET1^DIQ(2260,IEN,52,"I")
 S ESTAT=$$EDSTA^OOPSUTL1(IEN,"E")             ;really defensive code
 I '$P(ESTAT,U,INC) S VIEW=0                   ;should never be needed
 S STAT=$$EDSTA^OOPSUTL1(IEN,"S")              ;super must have signed
 I '$P(STAT,U,INC) S VIEW=0
 I $$GET1^DIQ(2260,IEN,66)'="" S VIEW=0        ;Case sent to DOL
 I $$GET1^DIQ(2260,IEN,67)'="" S VIEW=0        ;WC already signed
 I $$GET1^DIQ(2260,IEN,51,"I")'=0 S VIEW=0     ;Case is not open
 I '$$ISEMP^OOPSUTL4(IEN) S VIEW=0             ;not employee
 Q VIEW
SAFSCR(IEN) ;
 N VIEW
 S VIEW=1
 I '$$SAFETY^OOPSUTL2(IEN) S VIEW=0
 I $$EDSTA^OOPSUTL1(IEN,"O") S VIEW=0
 Q VIEW
END ;End of Form pause
 N DIR
 W !
 S DIR(0)="E" D ^DIR
 S:$D(DIRUT) OUT=1 Q
 Q
FORM ;Select Form
 D:'$G(PAUSE,0) ^OOPSDIS
 N OUT
 I CALLER="E" D  Q:$G(OUT)
 . I $$GET1^DIQ(2260,IEN,71,"I")'="Y" D BOR^OOPSEMP1
 . I $$GET1^DIQ(2260,IEN,71,"I")'="Y" D  Q
 .. W !?5,"Claim cannot be signed until the Bill of Rights Statement is understood."
 .. D WCPBOR^OOPSMBUL(IEN)
 .. S OUT=1
 I '$G(OUT) D SIGN(FORM) Q:(+SIGN=0)
 I CALLER="E",($$GET1^DIQ(2260,IEN,71,"I")="Y") D EMP
 I CALLER="S" D SUP
 I CALLER="O" D SAF
 I CALLER="W" D WCP
 Q
SIGN(FORM) ; Sign/validate Document
 N EMP,INC,VALID,OUT
 S VALID=0,SIGN=""
 S INC=$$GET1^DIQ(2260,IEN,52,"I")
 D VALIDATE^OOPSUTL4(IEN,FORM,CALLER,.VALID)
 I 'VALID D END Q
 S SIGN=$$SIG^OOPSESIG(DUZ,IEN)
 Q
EMP ; Employee Sign off
 N RECORD,UNIREP,X,X1,X2
 S UNIREP=""
 S RECORD=$G(^OOPS(2260,IEN,"CA"))
 S X=$P($G(^VA(200,DUZ,20)),U,2)
 S X1=DUZ
 I FORM="CA1" D
 . I '$$BROKER^XWBLIB S $P(^OOPS(2260,IEN,"CA1ES"),U,1,3)=SIGN
 . S X2=$$CA1SUM^OOPSUTL6()
 I FORM="CA2" D
 . I '$$BROKER^XWBLIB S $P(^OOPS(2260,IEN,"CA2ES"),U,1,3)=SIGN
 . S X2=$$CA2SUM^OOPSUTL6()
 D EN^XUSHSHP
 S $P(RECORD,U,9)=1
 S $P(RECORD,U,7)=X
 S ^OOPS(2260,IEN,"CA")=RECORD
 D EMP^OOPSMBUL(IEN)
 ; patch 10 - bill of rights enhancement
 I (CALLER="E")&('$$BROKER^XWBLIB) D
 . D CONSENT
 . I $$GET1^DIQ(2260,IEN,72,"I")="Y" D UNION
 . I UNIREP D CONSENT^OOPSMBUL(IEN,UNIREP)
 Q
SUP ;Supervisor Sign off
 I FORM="CA1" S $P(^OOPS(2260,IEN,"CA1ES"),U,4,6)=SIGN
 I FORM="CA2" S $P(^OOPS(2260,IEN,"CA2ES"),U,4,6)=SIGN
 I FORM="2162" S $P(^OOPS(2260,IEN,"2162ES"),U,1,3)=SIGN D SAFETY^OOPSMBUL(IEN)
 ; Patch 8
 I FORM'="2162" D SUPS^OOPSMBUL(IEN),UNION^OOPSMBUL(IEN)
 Q
WCP ; Patch 8
 I FORM="CA1" S $P(^OOPS(2260,IEN,"WCES"),U,1,3)=SIGN
 I FORM="CA2" S $P(^OOPS(2260,IEN,"WCES"),U,1,3)=SIGN
 N DA,DR,DIE
 I $P(SIGN,U) D
 . S DR="",DIE="^OOPS(2260,",DA=IEN
 . S DR(1,2260,1)="67////^S X=$P(SIGN,U)"
 . S DR(1,2260,5)="68////^S X=$P(SIGN,U,2)"
 . S DR(1,2260,10)="69////^S X=$P(SIGN,U,3)"
 . D ^DIE
 D WCP^OOPSMBUL(IEN,"S")
 Q
SAF ; Safety Officer Sign off
 I FORM="2162" S $P(^OOPS(2260,IEN,"2162ES"),U,4,6)=SIGN
 Q
CONSENT ; patch 10 - Employee consent to release information to union
 N DIC,DIE,DA,DR,OOPS
 S DA=IEN,DIC="^OOPS(2260,",OUT=""
 K DIQ S DIQ(0)="IE"
 S DIQ="OOPS",DR=".01;2;3;4;7;13;14;16;17;18;52;53;53.1" D EN^DIQ1
 S DR=""
 W !!,"My consent is given for the release of case number "_OOPS(2260,IEN,.01,"E")
 W !,"information for review by local bargaining units for accident and"
 W !,"illness tracking purposes only.  Name, address, social security "
 W !,"number, date of birth, and telephone number will not be included"
 W !,"in the information provided to the bargaining units."
 W !!,"With your consent, the following information will be provided"
 W !,"to the local bargaining unit for your review."
 W !!,"Dt/Tme Occurrence: ",OOPS(2260,IEN,4,"E")
 W ?40,"   Inj/Ill: ",OOPS(2260,IEN,52,"E")
 W !," Personnel Status: ",OOPS(2260,IEN,2,"E")
 W ?40,"       Sex: ",OOPS(2260,IEN,7,"E")
 W !,"   Station Number: ",OOPS(2260,IEN,13,"I")
 W ?40," Education: ",$E(OOPS(2260,IEN,18,"E"),1,26)
 W !,"  Cost Center/Org: ",OOPS(2260,IEN,14,"E")
 W ?40," Grade/Stp: ",OOPS(2260,IEN,16,"E")_"/"_OOPS(2260,IEN,17,"E")
 W !,"       Supervisor: ",$E(OOPS(2260,IEN,53,"E"),1,19)
 W ?40,"Type Incid: ",$E(OOPS(2260,IEN,3,"E"),1,26)
 W !,"  Secondary Super: ",$E(OOPS(2260,IEN,53.1,"E"),1,20),!
 S DR(1,2260,1)="72Consent Given://^S X=""N"""
 W !!?5,"If you give consent, you will be prompted to select the"
 W !?5,"Union to send the bulletin to.  The bulletin will be sent"
 W !?5,"immediately after the Union has been selected.",!
 S DIE="^OOPS(2260,"
 D ^DIE I $D(Y) S OUT=1
 Q
UNION ; Get the Union Representative's DUZ
 N DIC,DA,Y
 S DIC="^OOPS(2263.7,",DIC(0)="AEQZ"
 S DIC("A")="Select UNION to send bulletin to: "
 D ^DIC
 I +Y S UNIREP=$$GET1^DIQ(2263.7,+Y,2,"I")
 I 'UNIREP D
 . W !!?3,"Cannot sent a bulletin to Union, No Union Representative name was selected"
 . W !?3,"or one is not on file.  Contact your Workers' Compensation Specialist."
 Q