| 1 | OOPSPC41 ;HIRMFO/YH-EMPLOYEE DATA, CA2 FORM ;6/14/98
|
---|
| 2 | ;;2.0;ASISTS;;Jun 03, 2002
|
---|
| 3 | ;EMPLOYEE DATA
|
---|
| 4 | ;EMPLOYEE'S DATA
|
---|
| 5 | S OOPSDATA=$P($G(^OOPS(2260,IEN,0)),"^",2)
|
---|
| 6 | W !,"PU0.8,25.5;LB"_OOPSDATA_"@;" ;NAME
|
---|
| 7 | S OOPSDATA=$G(^OOPS(2260,IEN,"2162A"))
|
---|
| 8 | S OOPSP=$P(OOPSDATA,"^") I OOPSP'["-" S OOPSP=$E(OOPSP,1,3)_"-"_$E(OOPSP,4,5)_"-"_$E(OOPSP,6,13)
|
---|
| 9 | W !,"PU15.9,25.5;LB"_OOPSP_"@;" ;SSN
|
---|
| 10 | S OOPSP=$P(OOPSDATA,"^",2) I OOPSP'="" D WDATE^OOPSPUT1(OOPSP,"3.1,24.8","3.9,24.8","4.8,24.8") ;DATE OF BIRTH
|
---|
| 11 | S OOPSP=$P(OOPSDATA,"^",3) W !,"PU6.5,24.7;LB"_$S(OOPSP=1:"Male",OOPSP=2:"Female",1:" ")_"@;" ;SEX
|
---|
| 12 | N PHN
|
---|
| 13 | S PHN=$TR($P(OOPSDATA,"^",8),"/-*#","")
|
---|
| 14 | W !,"PU8.7,24.7;LB"_$E(PHN,1,3)_"-"_$E(PHN,4,6)_"-",$E(PHN,7,10)_"@;"
|
---|
| 15 | W !,"PU16.6,24.7;LB"_$S($P(OOPSDATA,"^",12)'="":+$P(OOPSDATA,"^",12),1:"")_"@;PU18.7,24.7;LB"_$P(OOPSDATA,"^",13)_"@;" ;GRADE AND STEP
|
---|
| 16 | W !,"PU0.8,23.5;LB"_$P(OOPSDATA,"^",4)_"@;PU0.8,22.7;LB"_$P(OOPSDATA,"^",5)_", "_$S($D(^DIC(5,+$P(OOPSDATA,"^",6),0)):$P(^DIC(5,+$P(OOPSDATA,"^",6),0),"^"),1:"")_"@"
|
---|
| 17 | W !,"PU12.8,22.7;LB"_$P(OOPSDATA,"^",7)_"@;" ;ADDRESS
|
---|
| 18 | S OOPSP=+$P($G(^OOPS(2260,IEN,"CA2A")),"^",8) ;DEPENDENTS
|
---|
| 19 | I OOPSP>0,OOPSP<6 W !,$S(OOPSP=1:"PU16.2,23.8;LBX@;",OOPSP=2:"PU16.2,23.4;LBX@;",OOPSP=3:"PU16.2,23;LBX@;",OOPSP=4:"PU16.2,23.8;LBX@;PU16.2,23.4;LBX@;",OOPSP=5:"PU16.2,23.8;LBX@;PU16.2,23;LBX@;",1:"")
|
---|
| 20 | I OOPSP>5,OOPSP<8 W !,$S(OOPSP=6:"PU16.2,23.4;LBX@;PU16.2,23;LBX@;",1:"PU16.2,23.8;LBX@;PU16.2,23.4;LBX@;PU16.2,23;LBX@;")
|
---|
| 21 | W !,"PU0.8,20.9;LB"_$P($G(^OOPS(2260,IEN,"CA2A")),"^",9)_"@;"
|
---|
| 22 | ; Patch 8
|
---|
| 23 | S OCC=$$GET1^DIQ(2260,IEN,15,"E")
|
---|
| 24 | S OCC=$S(OCC<2200:"G"_OCC,(OCC>2499&(OCC<9001)):"W"_OCC,(OCC=9999):"Z"_OCC,1:"")
|
---|
| 25 | W "PU16.2,21.1;LB"_OCC_"@;" K OCC ; OCCUPATION CODE
|
---|
| 26 | S OOPSDATA=$G(^OOPS(2260,IEN,"CA2B"))
|
---|
| 27 | W !,"PU0.8,19.7;LB"_$P(OOPSDATA,"^")_" "_$P(OOPSDATA,"^",2)_"@;" ;LOCATION ILLNESS OCCURRED
|
---|
| 28 | W !,"PU0.8,18.8;LB"_$P(OOPSDATA,"^",3)_", "_$P($G(^DIC(5,+$P(OOPSDATA,"^",4),0)),"^")_" "_$P(OOPSDATA,"^",5)_"@;"
|
---|
| 29 | S OOPSP=$P(OOPSDATA,"^",6) I OOPSP'="" D WDATE^OOPSPUT1(OOPSP,"16.5,18.8","17.4,18.8","18.1,18.8") ;DATE AWARE OF ILLNESS
|
---|
| 30 | S OOPSP=$P(OOPSDATA,"^",7) I OOPSP'="" D WDATE^OOPSPUT1(OOPSP,"4.9,17.5","5.8,17.5","6.5,17.5") ;DATE REALIZED ILLNESS CAUSED BY EMPLOYMENT
|
---|
| 31 | ;EXPLAIN THE RELATIONSHIP TO YOUR EMPLOYMENT
|
---|
| 32 | S OOPSNODE="CA2C",OOPSDIWL=1,OOPSDIWR="",OOPSDIWF="C100",OOPSBS=6
|
---|
| 33 | S OOPSSEL="W !,$S(II=1:""PU0.8,16.9;LB"",II=2:""PU0.8,16.5;LB"",II=3:""PU0.8,16.1;LB"",II=4:""PU0.8,15.7;LB"",II=5:""PU0.8,15.3;LB"",II=6:""PU0.8,14.9;LB"",1:"""")_$G(^UTILITY($J,""W"",1,II,0))_""@;"""
|
---|
| 34 | S OOPSAT="W !,""PU7.9,17.6;LBSee Attached@;"""
|
---|
| 35 | S OOPSLBL="13. Explain the relationship to your employment, and why you came to this realization."
|
---|
| 36 | I $D(^OOPS(2260,IEN,OOPSNODE,0)) D
|
---|
| 37 | .D WP^OOPSPCA(OOPSDIWL,OOPSDIWR,OOPSDIWF,OOPSBS,OOPSNODE,OOPSSEL,OOPSAT,OOPSLBL)
|
---|
| 38 | ;NATURE OF DISEASE OR ILLNESS
|
---|
| 39 | S OOPSNODE="CA2D",OOPSDIWL=1,OOPSDIWR="",OOPSDIWF="C85",OOPSBS=3
|
---|
| 40 | S OOPSSEL="W !,$S(II=1:""PU1,13.7;LB"",II=2:""PU1,13.3;LB"",II=3:""PU1,12.9;LB"",1:"""")_$G(^UTILITY($J,""W"",1,II,0))_""@;"""
|
---|
| 41 | S OOPSAT="W !,""PU1,13.6;LBSee Attached@;"""
|
---|
| 42 | S OOPSLBL="14. Nature of disease or illness."
|
---|
| 43 | I $D(^OOPS(2260,IEN,OOPSNODE,0)) D
|
---|
| 44 | .D WP^OOPSPCA(OOPSDIWL,OOPSDIWR,OOPSDIWF,OOPSBS,OOPSNODE,OOPSSEL,OOPSAT,OOPSLBL)
|
---|
| 45 | ; Patch 8 - add NOI code, type and source code
|
---|
| 46 | S OOPSNOI=$$GET1^DIQ(2260,IEN,"62:1")
|
---|
| 47 | S OOPSTYP=$$GET1^DIQ(2260,IEN,"226:1")
|
---|
| 48 | S OOPSSOR=$$GET1^DIQ(2260,IEN,"227:1")
|
---|
| 49 | W "PU16.2,13.9;LB"_OOPSNOI_"@;"
|
---|
| 50 | W !,"PU16.2,13.0;LB"_OOPSTYP_"@;"_"PU18.0,13.0;LB"_OOPSSOR_"@;"
|
---|
| 51 | K OOPSNOI,OOPSTYP,OOPSSOR
|
---|
| 52 | ;REASON FOR THE DELAY
|
---|
| 53 | S OOPSNODE="CA2E",OOPSDIWL=1,OOPSDIWR="",OOPSDIWF="C100",OOPSBS=3
|
---|
| 54 | S OOPSSEL="W !,$S(II=1:""PU1,12;LB"",II=2:""PU1,11.6;LB"",II=3:""PU1,11.2;LB"",1:"""")_$G(^UTILITY($J,""W"",1,II,0))_""@;"""
|
---|
| 55 | S OOPSAT="W !,""PU1,12;LBSee Attached@;"""
|
---|
| 56 | S OOPSLBL="15. If this notice and claim was not filed with the employing agency within"
|
---|
| 57 | I $D(^OOPS(2260,IEN,OOPSNODE,0)) D
|
---|
| 58 | .D WP^OOPSPCA(OOPSDIWL,OOPSDIWR,OOPSDIWF,OOPSBS,OOPSNODE,OOPSSEL,OOPSAT,OOPSLBL)
|
---|
| 59 | S OOPSNODE="CA2F",OOPSDIWL=1,OOPSDIWR="",OOPSDIWF="C100",OOPSBS=3
|
---|
| 60 | S OOPSSEL="W !,$S(II=1:""PU1,10.3;LB"",II=2:""PU1,9.9;LB"",II=3:""PU1,9.5;LB"",1:"""")_$G(^UTILITY($J,""W"",1,II,0))_""@;"""
|
---|
| 61 | S OOPSAT="W !,""PU1,10.3LBSee Attached@;"""
|
---|
| 62 | S OOPSLBL="16. If the statement requested in item 1 of the attached instructions is not"
|
---|
| 63 | I $D(^OOPS(2260,IEN,OOPSNODE,0)) D
|
---|
| 64 | .D WP^OOPSPCA(OOPSDIWL,OOPSDIWR,OOPSDIWF,OOPSBS,OOPSNODE,OOPSSEL,OOPSAT,OOPSLBL)
|
---|
| 65 | ;ITEM 2 OF ATTACHED INSTRUCTIONS ARE NOT SUBMITTED
|
---|
| 66 | S OOPSNODE="CA2G",OOPSDIWL=1,OOPSDIWR="",OOPSDIWF="C100",OOPSBS=3
|
---|
| 67 | S OOPSSEL="W !,$S(II=1:""PU1,8.6;LB"",II=2:""PU1,8.2;LB"",II=3:""PU1,7.8;LB"",1:"""")_$G(^UTILITY($J,""W"",1,II,0))_""@;"""
|
---|
| 68 | S OOPSAT="W !,""PU1,8.6LBSee Attached@;"""
|
---|
| 69 | S OOPSLBL="17. If the medical reports requested in item 2 of attached instructions"
|
---|
| 70 | I $D(^OOPS(2260,IEN,OOPSNODE,0)) D
|
---|
| 71 | .D WP^OOPSPCA(OOPSDIWL,OOPSDIWR,OOPSDIWF,OOPSBS,OOPSNODE,OOPSSEL,OOPSAT,OOPSLBL)
|
---|
| 72 | ; Patch 8, e-sign encrypted, make sure data valid when printing
|
---|
| 73 | N X,X1,X2,STR,VER
|
---|
| 74 | S STR=$G(^OOPS(2260,IEN,"CA")),VER=$P(STR,"^",9),X=$P(STR,"^",7)
|
---|
| 75 | I $G(VER)=1&($G(X)'="") D
|
---|
| 76 | . S X1=$$GET1^DIQ(2260,IEN,221,"I"),X2=$$CA2SUM^OOPSUTL6()
|
---|
| 77 | . D DE^XUSHSHP
|
---|
| 78 | . W !,"PU9.5,4.5;LB/ES/ "_X_"@;"
|
---|
| 79 | S OOPSDATA=$G(^OOPS(2260,IEN,"CA2ES"))
|
---|
| 80 | I $P(OOPSDATA,"^",2)'="",+$P(OOPSDATA,"^",3)>0 W !,"PU17.3,4.5;LB"_$$FMTE^XLFDT($P(OOPSDATA,"^",3),1)_"@;" ;DATE SIGNED
|
---|
| 81 | K I,J,OOPSQ Q
|
---|