Routine: OOPSEMP2

OOPSEMP2 ;WIOFO/LLH-E/E Employee CA2 data ;4/24/00

 ;;2.0;ASISTS;;Jun 03, 2002

;;

 ; Employee/Person Address is now only stored in the 2162A node

 ; of file 2260.  Prior to patch 3 it was stored in the CA1A and

 ; CA2A nodes depending on which form was entered.  The address

 ; is only 'pulled' from this location when printing either form.

 W !!," Notice of Occupational Disease and Claim for Compensation (Form CA-2)"

 W !!,"     Employee Data"

 W !,"     -------------"

 K DIQ,DA,DR S DIC="^OOPS(2260,",DR=".01;1;2;5;6;7;16;17",DA=IEN,DIQ="OOPS",DIQ(0)="IE"

 D EN^DIQ1

 K DR,DO,DD

 S DR=""

 S DR(1,2260,1)="63////^S X=PAYP"        ; Pay Plan from PAID

 S DR(1,2260,2)="W !,""  1. NAME OF EMPLOYEE......: "",OOPS(2260,IEN,1,""E"")"

 S DR(1,2260,5)="W !,""  2. SOCIAL SECURITY NUMBER: "",OOPS(2260,IEN,5,""E"")"

 S DR(1,2260,10)="W !,""  3. DATE OF BIRTH.........: "",OOPS(2260,IEN,6,""E"")"

 S DR(1,2260,15)="W !,""  4. SEX...................: "",OOPS(2260,IEN,7,""E"")"

 S DR(1,2260,20)="12  5. HOME TELEPHONE........"

 ; Patch 8 - add error checking for DOL requirements

 S DR(1,2260,21)="I $TR(X,""/-*#"","""")'?10N W !?3,""Phone number must include area code and 7 digits only.  Example 703-123-8789"" S Y=12"

 S DR(1,2260,25)="W !,""  6. GRADE/STEP............: "",OOPS(2260,IEN,16,""E""),""/"",OOPS(2260,IEN,17,""E"")"

 S DR(1,2260,30)="W !,""  7. EMPLOYEE'S HOME MAILING ADDRESS:"""

 S DR(1,2260,35)="8     STREET ADDRESS........"

 S DR(1,2260,36)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=8"

 S DR(1,2260,40)="9     CITY.................."

 S DR(1,2260,41)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=9"

 S DR(1,2260,45)="10     STATE................."

 S DR(1,2260,50)="11     ZIP CODE.............."

 S DR(1,2260,55)="207  8. DEPENDENTS............"

 S DR(1,2260,60)="W !!,""     Claim Information"""

 S DR(1,2260,65)="W !,""     -----------------"""

 ; Patch 8 - default Occupation from PAID, if there

 S DR(1,2260,70)="208  9. EMPLOYEE'S OCCUPATION.//^S X=ODESC"

 S DR(1,2260,71)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=208"

 S DR(1,2260,75)="W !,"" 10. LOCATION WHERE YOU WORKED WHEN DISEASE OR ILLNESS OCCURRED:"""

 S DR(1,2260,80)="209     LOCATION..............;I X="""" S Y=214;"

 S DR(1,2260,81)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=209"

 S DR(1,2260,85)="210     STREET ADDRESS........"

 S DR(1,2260,86)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=210"

 S DR(1,2260,90)="211     CITY.................."

 S DR(1,2260,91)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=211"

 S DR(1,2260,95)="212     STATE................."

 S DR(1,2260,100)="213     ZIP CODE.............."

 S DR(1,2260,105)="214 11. DATE YOU FIRST BECAME AWARE OF DISEASE OR ILLNESS;I X="""" S Y=215"

 S DR(1,2260,110)="I X'="""",'$$FUT^OOPSUTL4($P(X,""."")) S Y=214"

 S DR(1,2260,115)="215 12. DATE YOU FIRST REALIZED THE DISEASE OR ILLNESS WAS CAUSED BY YOUR               EMPLOYMENT;I X="""" S Y=216"

 S DR(1,2260,120)="I X'="""",'$$FUT^OOPSUTL4($P(X,""."")) S Y=215"

 S DR(1,2260,125)="216 13. EXPLAIN THE RELATIONSHIP TO YOUR EMPLOYMENT, AND WHY YOU CAME TO THIS           REALIZATION~"

 S DR(1,2260,130)="W !"

 S DR(1,2260,131)="S MAX=$$WP^OOPSUTL4(216)"

 S DR(1,2260,132)="I '$P(MAX,U,2) W !,""Invalid character entered, (~,`, @,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=216"

 S DR(1,2260,133)="I +MAX>MAX1 W !!,""Max length for field is "",MAX1,"" characters, you have entered "",+MAX,"".  Please Edit."",! S Y=216"

 ; Patch 8 - Cause of injury required for electronic submission

 S DR(1,2260,134)="126     CAUSE OF INJURY CODE......."

 S DR(1,2260,135)="217 14. NATURE OF DISEASE OR ILLNESS~"

 S DR(1,2260,140)="W !"

 S DR(1,2260,141)="S MAX=$$WP^OOPSUTL4(217)"

 S DR(1,2260,142)="I '$P(MAX,U,2) W !,""Invalid character entered, (~,`, @,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=217"

 S DR(1,2260,143)="I +MAX>264 W !!,""Max length for field is 264 characters, you have entered "",+MAX,"".  Please Edit."",! S Y=217"

 S DR(1,2260,145)="218 15. IF THIS NOTICE AND CLAIM WAS NOT FILED WITH THE EMPLOYING AGENCY WITHIN         30 DAYS AFTER DATE SHOWN ABOVE IN ITEM #12, EXPLAIN THE REASON FOR THE          DELAY~"

 S DR(1,2260,150)="W !"

 S DR(1,2260,151)="S MAX=$$WP^OOPSUTL4(218)"

 S DR(1,2260,152)="I '$P(MAX,U,2) W !,""Invalid character entered, (~,`, @,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=218"

 S DR(1,2260,153)="I +MAX>MAX1 W !!,""Max length for field is "",MAX1,"" characters, you have entered "",+MAX,"".  Please Edit."",! S Y=218"

 S DR(1,2260,155)="219 16. IF A SEPARATE NARRATIVE STATEMENT IS NOT SUBMITTED WITH THIS FORM, EXPLAIN      REASON FOR DELAY~"

 S DR(1,2260,160)="W !"

 S DR(1,2260,165)="S MAX=$$WP^OOPSUTL4(219)"

 S DR(1,2260,166)="I '$P(MAX,U,2) W !,""Invalid character entered, (~,`, @,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=219"

 S DR(1,2260,170)="I +MAX>MAX1 W !!,""Max length for field is "",MAX1,"" characters, you have entered "",+MAX,"".  Please Edit."",! S Y=219"

 S DR(1,2260,175)="220 17. IF MEDICAL REPORTS ARE NOT SUBMITTED WITH THIS FORM, EXPLAIN REASON FOR         DELAY~"

 S DR(1,2260,180)="S MAX=$$WP^OOPSUTL4(220)"

 S DR(1,2260,181)="I '$P(MAX,U,2) W !,""Invalid character entered, (~,`, @,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=220"

 S DR(1,2260,185)="I +MAX>MAX1 W !!,""Max length for field is "",MAX1,"" characters, you have entered "",+MAX,"".  Please Edit."",! S Y=220"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOOPSEMP2   6033     printed  Feb 18, 2025@23:05:15                                                                                                                                                                                                    Page 2

OOPSEMP2  ;WIOFO/LLH-E/E Employee CA2 data ;4/24/00

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

 +2       ;;

 +3       ; Employee/Person Address is now only stored in the 2162A node

 +4       ; of file 2260.  Prior to patch 3 it was stored in the CA1A and

 +5       ; CA2A nodes depending on which form was entered.  The address

 +6       ; is only 'pulled' from this location when printing either form.

 +7       ;

 +8        WRITE !!," Notice of Occupational Disease and Claim for Compensation (Form CA-2)"

 +9        WRITE !!,"     Employee Data"

 +10       WRITE !,"     -------------"

 +11       KILL DIQ,DA,DR

           SET DIC="^OOPS(2260,"

           SET DR=".01;1;2;5;6;7;16;17"

           SET DA=IEN

           SET DIQ="OOPS"

           SET DIQ(0)="IE"

 +12       DO EN^DIQ1

 +13       KILL DR,DO,DD

 +14       SET DR=""

 +15      ; Pay Plan from PAID

           SET DR(1,2260,1)="63////^S X=PAYP"

 +16       SET DR(1,2260,2)="W !,""  1. NAME OF EMPLOYEE......: "",OOPS(2260,IEN,1,""E"")"

 +17       SET DR(1,2260,5)="W !,""  2. SOCIAL SECURITY NUMBER: "",OOPS(2260,IEN,5,""E"")"

 +18       SET DR(1,2260,10)="W !,""  3. DATE OF BIRTH.........: "",OOPS(2260,IEN,6,""E"")"

 +19       SET DR(1,2260,15)="W !,""  4. SEX...................: "",OOPS(2260,IEN,7,""E"")"

 +20       SET DR(1,2260,20)="12  5. HOME TELEPHONE........"

 +21      ; Patch 8 - add error checking for DOL requirements

 +22       SET DR(1,2260,21)="I $TR(X,""/-*#"","""")'?10N W !?3,""Phone number must include area code and 7 digits only.  Example 703-123-8789"" S Y=12"

 +23       SET DR(1,2260,25)="W !,""  6. GRADE/STEP............: "",OOPS(2260,IEN,16,""E""),""/"",OOPS(2260,IEN,17,""E"")"

 +24       SET DR(1,2260,30)="W !,""  7. EMPLOYEE'S HOME MAILING ADDRESS:"""

 +25       SET DR(1,2260,35)="8     STREET ADDRESS........"

 +26       SET DR(1,2260,36)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=8"

 +27       SET DR(1,2260,40)="9     CITY.................."

 +28       SET DR(1,2260,41)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=9"

 +29       SET DR(1,2260,45)="10     STATE................."

 +30       SET DR(1,2260,50)="11     ZIP CODE.............."

 +31       SET DR(1,2260,55)="207  8. DEPENDENTS............"

 +32       SET DR(1,2260,60)="W !!,""     Claim Information"""

 +33       SET DR(1,2260,65)="W !,""     -----------------"""

 +34      ; Patch 8 - default Occupation from PAID, if there

 +35       SET DR(1,2260,70)="208  9. EMPLOYEE'S OCCUPATION.//^S X=ODESC"

 +36       SET DR(1,2260,71)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=208"

 +37       SET DR(1,2260,75)="W !,"" 10. LOCATION WHERE YOU WORKED WHEN DISEASE OR ILLNESS OCCURRED:"""

 +38       SET DR(1,2260,80)="209     LOCATION..............;I X="""" S Y=214;"

 +39       SET DR(1,2260,81)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=209"

 +40       SET DR(1,2260,85)="210     STREET ADDRESS........"

 +41       SET DR(1,2260,86)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=210"

 +42       SET DR(1,2260,90)="211     CITY.................."

 +43       SET DR(1,2260,91)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=211"

 +44       SET DR(1,2260,95)="212     STATE................."

 +45       SET DR(1,2260,100)="213     ZIP CODE.............."

 +46       SET DR(1,2260,105)="214 11. DATE YOU FIRST BECAME AWARE OF DISEASE OR ILLNESS;I X="""" S Y=215"

 +47       SET DR(1,2260,110)="I X'="""",'$$FUT^OOPSUTL4($P(X,""."")) S Y=214"

 +48       SET DR(1,2260,115)="215 12. DATE YOU FIRST REALIZED THE DISEASE OR ILLNESS WAS CAUSED BY YOUR               EMPLOYMENT;I X="""" S Y=216"

 +49       SET DR(1,2260,120)="I X'="""",'$$FUT^OOPSUTL4($P(X,""."")) S Y=215"

 +50       SET DR(1,2260,125)="216 13. EXPLAIN THE RELATIONSHIP TO YOUR EMPLOYMENT, AND WHY YOU CAME TO THIS           REALIZATION~"

 +51       SET DR(1,2260,130)="W !"

 +52       SET DR(1,2260,131)="S MAX=$$WP^OOPSUTL4(216)"

 +53       SET DR(1,2260,132)="I '$P(MAX,U,2) W !,""Invalid character entered, (~,`, @,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=216"

 +54       SET DR(1,2260,133)="I +MAX>MAX1 W !!,""Max length for field is "",MAX1,"" characters, you have entered "",+MAX,"".  Please Edit."",! S Y=216"

 +55      ; Patch 8 - Cause of injury required for electronic submission

 +56       SET DR(1,2260,134)="126     CAUSE OF INJURY CODE......."

 +57       SET DR(1,2260,135)="217 14. NATURE OF DISEASE OR ILLNESS~"

 +58       SET DR(1,2260,140)="W !"

 +59       SET DR(1,2260,141)="S MAX=$$WP^OOPSUTL4(217)"

 +60       SET DR(1,2260,142)="I '$P(MAX,U,2) W !,""Invalid character entered, (~,`, @,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=217"

 +61       SET DR(1,2260,143)="I +MAX>264 W !!,""Max length for field is 264 characters, you have entered "",+MAX,"".  Please Edit."",! S Y=217"

 +62       SET DR(1,2260,145)="218 15. IF THIS NOTICE AND CLAIM WAS NOT FILED WITH THE EMPLOYING AGENCY WITHIN         30 DAYS AFTER DATE SHOWN ABOVE IN ITEM #12, EXPLAIN THE REASON FOR THE          DELAY~"

 +63       SET DR(1,2260,150)="W !"

 +64       SET DR(1,2260,151)="S MAX=$$WP^OOPSUTL4(218)"

 +65       SET DR(1,2260,152)="I '$P(MAX,U,2) W !,""Invalid character entered, (~,`, @,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=218"

 +66       SET DR(1,2260,153)="I +MAX>MAX1 W !!,""Max length for field is "",MAX1,"" characters, you have entered "",+MAX,"".  Please Edit."",! S Y=218"

 +67       SET DR(1,2260,155)="219 16. IF A SEPARATE NARRATIVE STATEMENT IS NOT SUBMITTED WITH THIS FORM, EXPLAIN      REASON FOR DELAY~"

 +68       SET DR(1,2260,160)="W !"

 +69       SET DR(1,2260,165)="S MAX=$$WP^OOPSUTL4(219)"

 +70       SET DR(1,2260,166)="I '$P(MAX,U,2) W !,""Invalid character entered, (~,`, @,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=219"

 +71       SET DR(1,2260,170)="I +MAX>MAX1 W !!,""Max length for field is "",MAX1,"" characters, you have entered "",+MAX,"".  Please Edit."",! S Y=219"

 +72       SET DR(1,2260,175)="220 17. IF MEDICAL REPORTS ARE NOT SUBMITTED WITH THIS FORM, EXPLAIN REASON FOR         DELAY~"

 +73       SET DR(1,2260,180)="S MAX=$$WP^OOPSUTL4(220)"

 +74       SET DR(1,2260,181)="I '$P(MAX,U,2) W !,""Invalid character entered, (~,`, @,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=220"

 +75       SET DR(1,2260,185)="I +MAX>MAX1 W !!,""Max length for field is "",MAX1,"" characters, you have entered "",+MAX,"".  Please Edit."",! S Y=220"

 +76       QUIT

OOPSEMP2.m