OOPSWCSE.m

OOPSWCSE ;WIOFO/LLH-Workers' Comp Sign for Employee ;01/20/01

 ;;2.0;ASISTS;;Jun 03, 2002

 ;

EN1(CALLER) ; Entry point for routine

 ;  Input:   CALLER = "S" for Safety Officer

 ;                    "H" for Employee Health

 ;                    "W" for Workers' Comp

 ;

 N DIC,IEN,FORM,PRM1,PRM2,SIGN,VALID,Y

 Q:DUZ<1

 Q:$G(^VA(200,DUZ,1))=""

 S IEN=0

 S DIC="^OOPS(2260,"

 S DIC("S")="I $$SCR^OOPSWCSE(Y)"_",'$$GET1^DIQ(2260,Y,51,""I"")"

 S DIC(0)="AEMNZ",DIC("A")="   Select Case: "

 D ^DIC

 I (Y<1)!$D(DTOUT)!($D(DUOUT)) Q

 S IEN=$P(Y,U)

 S FORM=$$GET1^DIQ(2260,IEN,52,"I")

 S FORM=$S(FORM=1:"CA1",FORM=2:"CA2",1:"")

 I $G(FORM)="" Q

 D ^OOPSDIS

 S PRM1=$S(CALLER="S":"Safety Officer",CALLER="H":"Employee Health",1:0)

 S PRM2=PRM1_" approves the WCP signing for the Employee: "

 S SIGN=""

 I CALLER="W" G WCPS4E

 I $$VALID^OOPSWCSE() D

 . W !,PRM2

 . S SIGN=$$SIG^OOPSESIG(DUZ,IEN)

 . Q:+SIGN=0                          ; form not signed

 . I CALLER="S" S $P(^OOPS(2260,IEN,"WCSE"),U,1,3)=SIGN

 . I CALLER="H" S $P(^OOPS(2260,IEN,"WCSE"),U,4,6)=SIGN

 G EXIT

WCPS4E ; allow WCP to sign for employee if all approvals given

 N CONT,EHS,SIGN,SOS,VALID,VIEW

 S SIGN=0,VALID=0,VIEW=1

 S SOS=$$GET1^DIQ(2260,IEN,76,"I")

 S EHS=$$GET1^DIQ(2260,IEN,79,"I")

 S CONT=$S(DUZ=SOS:"S",DUZ=EHS:"H",1:"")

 I (CONT="S")!(CONT="H") D

 . W !,"You have approved as "_$S(CONT="S":"Safety Officer",CONT="H":"Emp Health Rep",1:"")

 . W " and cannot sign as Employee."

 . W !,"Three different individuals must be involved."

 . S VIEW=0

 I '$G(SOS) S VIEW=0 W !,"Safety Officer has not approved WCP signing for employee."

 I '$G(EHS) S VIEW=0 W !,"Employee Health has not approved WCP signing for employee."

 I VIEW D

 . ; Allow clearing WCP signature, employee may be able to sign

 . I $$GET1^DIQ(2260,IEN,119,"I") D CLRES^OOPSUTL1(IEN,"E",FORM)

 . W ! D VALIDATE^OOPSUTL4(IEN,FORM,"E",.VALID)

 . I 'VALID Q

 . S SIGN=$$SIG^OOPSESIG(DUZ,IEN)

 . Q:+SIGN=0

 . D EMP^OOPSVAL1

EXIT ;

 K DTOUT,DUOUT,SUP                           ; left over from OOPSDIS

 Q

VALID() ; make sure same person is not signing for both safety and EH and if

 ; signed from menu option being called not needed again - so quit

 N CONT,EHAPP,ERR,SOAPP,VALID

 S VALID=1,ERR=0

 S SOAPP=$P($G(^OOPS(2260,IEN,"WCSE")),U)

 S EHAPP=$P($G(^OOPS(2260,IEN,"WCSE")),U,4)

 S CONT=$S(DUZ=SOAPP:"S",DUZ=EHAPP:"H",1:"")

 I CALLER="S" D

 . I CONT="S" S ERR=1

 . I $G(EHAPP)=DUZ S ERR=2

 . I $G(SOAPP)&($G(CONT)="") S ERR=3

 I CALLER="H" D

 . I CONT="H" S ERR=1

 . I $G(SOAPP)=DUZ S ERR=2

 . I $G(EHAPP)&($G(CONT)="") S ERR=3

 I ERR=1 D

 . W !,"You have signed as "_PRM1_" if you continue, your ES will be removed"

 . N DIR,FLD,Y

 . W !

 . S DIR("A")="Continue",DIR(0)="SBM^Y:Yes;N:No"

 . D ^DIR

 . I Y="Y" D

 .. S FLD=$S(CALLER="S":"1,3",CALLER="H":"4,6",1:"")

 .. F I=$P(FLD,","):1:$P(FLD,",",2) S $P(^OOPS(2260,IEN,"WCSE"),U,I)=""

 . I Y'="Y" S VALID=0

 I ERR=2 D

 . W !,"You have already signed as "

 . W $S(CALLER="S":"Employee Health",CALLER="H":"Safety Officer",1:0)

 . W ".",!,"Both signatures cannot be made by the same person."

 . S VALID=0

 I ERR=3 D

 . W !,PRM1_" has already signed, re-signing is not required."

 . S VALID=0

 Q VALID

SCR(IEN) ; Screen to allow access to claims that have not been

 ; signed by the Employee

 ; Input:  IEN = Internal record number of claim

 N VIEW,EES,ESTAT,FORM,FLD

 S VIEW=1

 S FORM=$$GET1^DIQ(2260,IEN,52,"I")

 I '$$ISEMP^OOPSUTL4(IEN) S VIEW=0                  ; not emp, can't sign

 S ESTAT=$$EDSTA^OOPSUTL1(IEN,"E")                  ; employee signed?

 I CALLER'="W",$P(ESTAT,U,FORM) S VIEW=0            ; employee signed

 I CALLER="W" D                                     ; from WC menu

 . S FLD=$S(FORM=1:119,FORM=2:221,1:"")

 . I 'FLD S VIEW=0 Q

 . S EES=$$GET1^DIQ(2260,IEN,FLD,"I")

 . I 'EES Q                                         ; not signed by emp

 . I EES'=DUZ S VIEW=0 Q                            ; signer = user

 . I $P($$EDSTA^OOPSUTL1(IEN,"S"),U,FORM) S VIEW=0  ; Super Signed

 Q VIEW

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OOPSWCSE   4094     printed  Mar 13, 2025@20:44:35                                                                                                                                                                                                    Page 2

OOPSWCSE  ;WIOFO/LLH-Workers' Comp Sign for Employee ;01/20/01

 +1       ;;2.0;ASISTS;;Jun 03, 2002

 +2       ;

EN1(CALLER) ; Entry point for routine

 +1       ;  Input:   CALLER = "S" for Safety Officer

 +2       ;                    "H" for Employee Health

 +3       ;                    "W" for Workers' Comp

 +4       ;

 +5        NEW DIC,IEN,FORM,PRM1,PRM2,SIGN,VALID,Y

 +6        if DUZ<1

               QUIT 

 +7        if $GET(^VA(200,DUZ,1))=""

               QUIT 

 +8        SET IEN=0

 +9        SET DIC="^OOPS(2260,"

 +10       SET DIC("S")="I $$SCR^OOPSWCSE(Y)"_",'$$GET1^DIQ(2260,Y,51,""I"")"

 +11       SET DIC(0)="AEMNZ"

           SET DIC("A")="   Select Case: "

 +12       DO ^DIC

 +13       IF (Y<1)!$DATA(DTOUT)!($DATA(DUOUT))

               QUIT 

 +14       SET IEN=$PIECE(Y,U)

 +15       SET FORM=$$GET1^DIQ(2260,IEN,52,"I")

 +16       SET FORM=$SELECT(FORM=1:"CA1",FORM=2:"CA2",1:"")

 +17       IF $GET(FORM)=""

               QUIT 

 +18       DO ^OOPSDIS

 +19       SET PRM1=$SELECT(CALLER="S":"Safety Officer",CALLER="H":"Employee Health",1:0)

 +20       SET PRM2=PRM1_" approves the WCP signing for the Employee: "

 +21       SET SIGN=""

 +22       IF CALLER="W"

               GOTO WCPS4E

 +23       IF $$VALID^OOPSWCSE()

               Begin DoDot:1

 +24               WRITE !,PRM2

 +25               SET SIGN=$$SIG^OOPSESIG(DUZ,IEN)

 +26      ; form not signed

                   if +SIGN=0

                       QUIT 

 +27               IF CALLER="S"

                       SET $PIECE(^OOPS(2260,IEN,"WCSE"),U,1,3)=SIGN

 +28               IF CALLER="H"

                       SET $PIECE(^OOPS(2260,IEN,"WCSE"),U,4,6)=SIGN

               End DoDot:1

 +29       GOTO EXIT

WCPS4E    ; allow WCP to sign for employee if all approvals given

 +1        NEW CONT,EHS,SIGN,SOS,VALID,VIEW

 +2        SET SIGN=0

           SET VALID=0

           SET VIEW=1

 +3        SET SOS=$$GET1^DIQ(2260,IEN,76,"I")

 +4        SET EHS=$$GET1^DIQ(2260,IEN,79,"I")

 +5        SET CONT=$SELECT(DUZ=SOS:"S",DUZ=EHS:"H",1:"")

 +6        IF (CONT="S")!(CONT="H")

               Begin DoDot:1

 +7                WRITE !,"You have approved as "_$SELECT(CONT="S":"Safety Officer",CONT="H":"Emp Health Rep",1:"")

 +8                WRITE " and cannot sign as Employee."

 +9                WRITE !,"Three different individuals must be involved."

 +10               SET VIEW=0

               End DoDot:1

 +11       IF '$GET(SOS)

               SET VIEW=0

               WRITE !,"Safety Officer has not approved WCP signing for employee."

 +12       IF '$GET(EHS)

               SET VIEW=0

               WRITE !,"Employee Health has not approved WCP signing for employee."

 +13       IF VIEW

               Begin DoDot:1

 +14      ; Allow clearing WCP signature, employee may be able to sign

 +15               IF $$GET1^DIQ(2260,IEN,119,"I")

                       DO CLRES^OOPSUTL1(IEN,"E",FORM)

 +16               WRITE !

                   DO VALIDATE^OOPSUTL4(IEN,FORM,"E",.VALID)

 +17               IF 'VALID

                       QUIT 

 +18               SET SIGN=$$SIG^OOPSESIG(DUZ,IEN)

 +19               if +SIGN=0

                       QUIT 

 +20               DO EMP^OOPSVAL1

               End DoDot:1

EXIT      ;

 +1       ; left over from OOPSDIS

           KILL DTOUT,DUOUT,SUP

 +2        QUIT 

VALID()   ; make sure same person is not signing for both safety and EH and if

 +1       ; signed from menu option being called not needed again - so quit

 +2        NEW CONT,EHAPP,ERR,SOAPP,VALID

 +3        SET VALID=1

           SET ERR=0

 +4        SET SOAPP=$PIECE($GET(^OOPS(2260,IEN,"WCSE")),U)

 +5        SET EHAPP=$PIECE($GET(^OOPS(2260,IEN,"WCSE")),U,4)

 +6        SET CONT=$SELECT(DUZ=SOAPP:"S",DUZ=EHAPP:"H",1:"")

 +7        IF CALLER="S"

               Begin DoDot:1

 +8                IF CONT="S"

                       SET ERR=1

 +9                IF $GET(EHAPP)=DUZ

                       SET ERR=2

 +10               IF $GET(SOAPP)&($GET(CONT)="")

                       SET ERR=3

               End DoDot:1

 +11       IF CALLER="H"

               Begin DoDot:1

 +12               IF CONT="H"

                       SET ERR=1

 +13               IF $GET(SOAPP)=DUZ

                       SET ERR=2

 +14               IF $GET(EHAPP)&($GET(CONT)="")

                       SET ERR=3

               End DoDot:1

 +15       IF ERR=1

               Begin DoDot:1

 +16               WRITE !,"You have signed as "_PRM1_" if you continue, your ES will be removed"

 +17               NEW DIR,FLD,Y

 +18               WRITE !

 +19               SET DIR("A")="Continue"

                   SET DIR(0)="SBM^Y:Yes;N:No"

 +20               DO ^DIR

 +21               IF Y="Y"

                       Begin DoDot:2

 +22                       SET FLD=$SELECT(CALLER="S":"1,3",CALLER="H":"4,6",1:"")

 +23                       FOR I=$PIECE(FLD,","):1:$PIECE(FLD,",",2)

                               SET $PIECE(^OOPS(2260,IEN,"WCSE"),U,I)=""

                       End DoDot:2

 +24               IF Y'="Y"

                       SET VALID=0

               End DoDot:1

 +25       IF ERR=2

               Begin DoDot:1

 +26               WRITE !,"You have already signed as "

 +27               WRITE $SELECT(CALLER="S":"Employee Health",CALLER="H":"Safety Officer",1:0)

 +28               WRITE ".",!,"Both signatures cannot be made by the same person."

 +29               SET VALID=0

               End DoDot:1

 +30       IF ERR=3

               Begin DoDot:1

 +31               WRITE !,PRM1_" has already signed, re-signing is not required."

 +32               SET VALID=0

               End DoDot:1

 +33       QUIT VALID

SCR(IEN)  ; Screen to allow access to claims that have not been

 +1       ; signed by the Employee

 +2       ; Input:  IEN = Internal record number of claim

 +3        NEW VIEW,EES,ESTAT,FORM,FLD

 +4        SET VIEW=1

 +5        SET FORM=$$GET1^DIQ(2260,IEN,52,"I")

 +6       ; not emp, can't sign

           IF '$$ISEMP^OOPSUTL4(IEN)

               SET VIEW=0

 +7       ; employee signed?

           SET ESTAT=$$EDSTA^OOPSUTL1(IEN,"E")

 +8       ; employee signed

           IF CALLER'="W"

               IF $PIECE(ESTAT,U,FORM)

                   SET VIEW=0

 +9       ; from WC menu

           IF CALLER="W"

               Begin DoDot:1

 +10               SET FLD=$SELECT(FORM=1:119,FORM=2:221,1:"")

 +11               IF 'FLD

                       SET VIEW=0

                       QUIT 

 +12               SET EES=$$GET1^DIQ(2260,IEN,FLD,"I")

 +13      ; not signed by emp

                   IF 'EES

                       QUIT 

 +14      ; signer = user

                   IF EES'=DUZ

                       SET VIEW=0

                       QUIT 

 +15      ; Super Signed

                   IF $PIECE($$EDSTA^OOPSUTL1(IEN,"S"),U,FORM)

                       SET VIEW=0

               End DoDot:1

 +16       QUIT VIEW