- OOPSWCE2 ;WIOFO/LLH-Worker's Comp CA2 Edit routine ;03/23/00
- ;;2.0;ASISTS;;Jun 03, 2002
- ;;
- CA2 ; CA2 FORM
- N ITEM
- S (AIEN,AGN,ADD,CITY,STATE,ZIP)=""
- S (PNAME,PADD,PCITY,PSTATE,PZIP,PTITLE,STAT,SIEN)=""
- S WCPDO=""
- W !!," Notice of Occupational Disease and Claim for Compensation (Form CA-2)"
- W !!," Worker's Comp Edit of the Supervisor's Report"
- W !," ----------------------------------------",!
- D AGNINFO^OOPSUTL2
- S DR=""
- ; Patch 8 - added OWCP District Office
- S WCPDO=$$GET1^DIQ(2262,"1,","2:.01","E")
- S DR(1,2260,1)="73 OWCP DISTRICT OFFICE......//^S X=WCPDO"
- ; Patch 11 - default chargeback code from site parameter file
- S DR(1,2260,2)="70 OWCP CHARGEBACK CODE......//^S X=OWCP"
- S DR(1,2260,3)="62 OWCP NOI CODE............."
- ; Patch 8 - NOI code cannot begin with a T if CA2
- S DR(1,2260,8)="I X,($E($$GET1^DIQ(2263.3,X,1))=""T"") W !?3,""NOI Code cannot begin with a T for a CA2."" S Y=62"
- ; Removed, will generate from PAID file
- ; S DR(1,2260,7)="224 9a. OCCUPATION CODE..............."
- S DR(1,2260,9)="226 14b. TYPE CODE....................."
- S DR(1,2260,10)="227 14c. SOURCE CODE..................."
- S DR(1,2260,15)="230 19. AGENCY NAME...................//^S X=AGN;I X="""" S Y=""@5"""
- S DR(1,2260,16)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=230"
- S DR(1,2260,20)="231 STREET ADDRESS................//^S X=ADD"
- S DR(1,2260,21)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=231"
- S DR(1,2260,25)="232 CITY..........................//^S X=CITY"
- S DR(1,2260,26)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=232"
- S DR(1,2260,30)="233 STATE.........................//^S X=STATE"
- S DR(1,2260,35)="234 AGENCY ZIP CODE...............//^S X=ZIP"
- S DR(1,2260,40)="S Y=237"
- S DR(1,2260,45)="@5"
- S DR(1,2260,50)="231////@"
- S DR(1,2260,55)="232////@"
- S DR(1,2260,60)="233////@"
- S DR(1,2260,65)="234////@"
- S DR(1,2260,70)="237 20. EMPLOYEE'S DUTY STATION......."
- S DR(1,2260,72)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=237"
- S DR(1,2260,75)="238 STREET ADDRESS................"
- S DR(1,2260,76)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=238"
- S DR(1,2260,80)="239 CITY.........................."
- S DR(1,2260,82)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=239"
- S DR(1,2260,85)="240 STATE........................."
- S DR(1,2260,90)="241 ZIP CODE......................"
- S DR(1,2260,95)="W !,"" 21. REGULAR WORK HOURS:"""
- S DR(1,2260,100)="242 FROM.........................."
- S DR(1,2260,105)="243 TO............................"
- S DR(1,2260,110)="S ITEM=22 W !,"" 22. REGULAR WORK SCHEDULE.........: ""_$$GET1^DIQ(2260,D0,244,""E"")"
- S DR(1,2260,115)="K DIR S DIR(""A"")="" "",DIR(""B"")=$$GET1^DIQ(2260,D0,244,""I"") D RWS^OOPSUTL2 S:$D(DIRUT) Y=""@2"""
- S DR(1,2260,120)="W !,"" 23. NAME AND ADDRESS OF PHYSICIAN FIRST PROVIDING MEDICAL CARE"""
- ;Patch 7 - default physician info - if physician deleted, del oth flds
- D PHINFO^OOPSUTL2
- S DR(1,2260,125)="245 NAME OF PHYSICIAN.............//^S X=PNAME;I X="""" S Y=""@4"""
- S DR(1,2260,126)="I X'="""",'$$NMCHK^OOPSUTL3(X) D NMERR^OOPSUTL3 K X S Y=245"
- S DR(1,2260,130)="246 STREET ADDRESS................//^S X=PADD"
- S DR(1,2260,131)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=246"
- S DR(1,2260,135)="247 CITY..........................//^S X=PCITY"
- S DR(1,2260,136)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=247"
- S DR(1,2260,140)="248 STATE.........................//^S X=STATE"
- S DR(1,2260,145)="249 ZIP CODE......................//^S X=PZIP"
- S DR(1,2260,150)="270 PHYSICIAN TITLE...............//^S X=PTITLE"
- S DR(1,2260,155)="S Y=250"
- S DR(1,2260,160)="@4"
- S DR(1,2260,165)="246////@"
- S DR(1,2260,170)="247////@"
- S DR(1,2260,175)="248////@"
- S DR(1,2260,180)="249////@"
- S DR(1,2260,181)="270////@"
- S DR(1,2260,185)="250 24. 1ST DATE MEDICAL CARE RECEIVED"
- S DR(1,2260,190)="I X'="""",'$$FUT^OOPSUTL4(X) S Y=250"
- S DR(1,2260,195)="251 25. DO MEDICAL REPORTS SHOW EMPLOYEE IS DISABLED FOR WORK"
- S DR(1,2260,200)="252 26. DATE EMPLOYEE FIRST REPORTED CONDITION TO SUPERVISOR."
- S DR(1,2260,205)="I X'="""",'$$FUT^OOPSUTL4(X) S Y=252"
- S DR(1,2260,210)="253 27. DATE/TIME EMPLOYEE STOPPED WORK.."
- S DR(1,2260,215)="I X'="""",'$$FUT^OOPSUTL4($P(X,""."")) S Y=253"
- S DR(1,2260,220)="254 28. DATE/TIME EMPLOYEE'S PAY STOPPED."
- S DR(1,2260,225)="I X'="""",'$$FUT^OOPSUTL4($P(X,""."")) S Y=254"
- S DR(1,2260,230)="255 29. DATE EMPLOYEE WAS LAST EXPOSED TO CONDITIONS ALLEGED TO HAVE CAUSED DISEASE OR ILLNESS..............."
- S DR(1,2260,235)="256 30. DATE/TIME RETURNED TO WORK......."
- S DR(1,2260,240)="I X'="""",'$$FUT^OOPSUTL4($P(X,""."")) S Y=256"
- S DR(1,2260,245)="@3"
- S DR(1,2260,250)="W !,"" 31. IF EMPLOYEE HAS RETURNED TO WORK AND WORK ASSIGNMENT HAS CHANGED, DESCRIBE NEW DUTIES"""
- S DR(1,2260,255)="257 DESCRIPTION~"
- S DR(1,2260,260)="W !"
- S DR(1,2260,261)="S MAX=$$WP^OOPSUTL4(257)"
- S DR(1,2260,262)="I '$P(MAX,U,2) W !,""Invalid character entered, (~,`,@ ,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=257"
- S DR(1,2260,263)="I +MAX>MAX1 W !!,""Max length for field is "",MAX1,"" characters, you have entered "",+MAX,"". Please Edit."",! S Y=257"
- S DR(1,2260,265)="60 32. EMPLOYEE'S RETIREMENT.........//^S X=RET;I X<3 S Y=""@6"""
- S DR(1,2260,266)="61 OTHER RETIREMENT.............."
- S DR(1,2260,267)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=61"
- S DR(1,2260,268)="S Y=""@7"""
- S DR(1,2260,269)="@6"
- S DR(1,2260,270)="61////@"
- S DR(1,2260,275)="@7"
- S DR(1,2260,280)="258 33. WAS INJURY CAUSED BY 3RD PARTY;I X=""N"" S Y=""@1"""
- S DR(1,2260,285)="259 34. NAME OF THIRD PARTY..........."
- S DR(1,2260,286)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=259"
- S DR(1,2260,290)="260 STREET ADDRESS................"
- S DR(1,2260,291)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=260"
- S DR(1,2260,295)="261 CITY.........................."
- S DR(1,2260,296)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=261"
- S DR(1,2260,300)="262 STATE........................."
- S DR(1,2260,301)="263 ZIP CODE......................"
- S DR(1,2260,302)="S Y=""@8"""
- S DR(1,2260,303)="@1"
- S DR(1,2260,304)="259////@"
- S DR(1,2260,305)="260////@"
- S DR(1,2260,306)="261////@"
- S DR(1,2260,307)="262////@"
- S DR(1,2260,308)="263////@"
- S DR(1,2260,309)="@8"
- ; Super has Signed, will not need re-signing - go to @2
- S DR(1,2260,315)="I CASIGN S Y=""@2"""
- S DR(1,2260,320)="S SUP=$$GET1^DIQ(200,DUZ,.01)"
- S DR(1,2260,325)="W !!,"" Workers Comp signing for Supervisor"""
- S DR(1,2260,330)="W !,"" Signature of Supervisor"""
- S DR(1,2260,335)="W !,"" -----------------------------------"""
- S DR(1,2260,340)="S ITEM=35 D EXCEPT^OOPSUTL2;264 EXCEPTION"
- S DR(1,2260,341)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=264"
- S DR(1,2260,345)="W !,"" NAME OF SUPERVISOR: ""_SUP"
- S DR(1,2260,350)="268 SUPERVISOR'S TITLE"
- S DR(1,2260,351)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=268"
- S DR(1,2260,355)="269 OFFICE PHONE......"
- ; Patch 8 - Phone must be 10 Numeric after stripping -
- S DR(1,2260,356)="I $TR(X,""/-*#"","""")'?10N W !?3,""Phone number must include area code and 7 digits only. Example 703-123-8789"" S Y=269"
- S DR(1,2260,360)="@2"
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOOPSWCE2 8700 printed Feb 18, 2025@23:06:18 Page 2
- OOPSWCE2 ;WIOFO/LLH-Worker's Comp CA2 Edit routine ;03/23/00
- +1 ;;2.0;ASISTS;;Jun 03, 2002
- +2 ;;
- CA2 ; CA2 FORM
- +1 NEW ITEM
- +2 SET (AIEN,AGN,ADD,CITY,STATE,ZIP)=""
- +3 SET (PNAME,PADD,PCITY,PSTATE,PZIP,PTITLE,STAT,SIEN)=""
- +4 SET WCPDO=""
- +5 WRITE !!," Notice of Occupational Disease and Claim for Compensation (Form CA-2)"
- +6 WRITE !!," Worker's Comp Edit of the Supervisor's Report"
- +7 WRITE !," ----------------------------------------",!
- +8 DO AGNINFO^OOPSUTL2
- +9 SET DR=""
- +10 ; Patch 8 - added OWCP District Office
- +11 SET WCPDO=$$GET1^DIQ(2262,"1,","2:.01","E")
- +12 SET DR(1,2260,1)="73 OWCP DISTRICT OFFICE......//^S X=WCPDO"
- +13 ; Patch 11 - default chargeback code from site parameter file
- +14 SET DR(1,2260,2)="70 OWCP CHARGEBACK CODE......//^S X=OWCP"
- +15 SET DR(1,2260,3)="62 OWCP NOI CODE............."
- +16 ; Patch 8 - NOI code cannot begin with a T if CA2
- +17 SET DR(1,2260,8)="I X,($E($$GET1^DIQ(2263.3,X,1))=""T"") W !?3,""NOI Code cannot begin with a T for a CA2."" S Y=62"
- +18 ; Removed, will generate from PAID file
- +19 ; S DR(1,2260,7)="224 9a. OCCUPATION CODE..............."
- +20 SET DR(1,2260,9)="226 14b. TYPE CODE....................."
- +21 SET DR(1,2260,10)="227 14c. SOURCE CODE..................."
- +22 SET DR(1,2260,15)="230 19. AGENCY NAME...................//^S X=AGN;I X="""" S Y=""@5"""
- +23 SET DR(1,2260,16)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=230"
- +24 SET DR(1,2260,20)="231 STREET ADDRESS................//^S X=ADD"
- +25 SET DR(1,2260,21)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=231"
- +26 SET DR(1,2260,25)="232 CITY..........................//^S X=CITY"
- +27 SET DR(1,2260,26)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=232"
- +28 SET DR(1,2260,30)="233 STATE.........................//^S X=STATE"
- +29 SET DR(1,2260,35)="234 AGENCY ZIP CODE...............//^S X=ZIP"
- +30 SET DR(1,2260,40)="S Y=237"
- +31 SET DR(1,2260,45)="@5"
- +32 SET DR(1,2260,50)="231////@"
- +33 SET DR(1,2260,55)="232////@"
- +34 SET DR(1,2260,60)="233////@"
- +35 SET DR(1,2260,65)="234////@"
- +36 SET DR(1,2260,70)="237 20. EMPLOYEE'S DUTY STATION......."
- +37 SET DR(1,2260,72)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=237"
- +38 SET DR(1,2260,75)="238 STREET ADDRESS................"
- +39 SET DR(1,2260,76)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=238"
- +40 SET DR(1,2260,80)="239 CITY.........................."
- +41 SET DR(1,2260,82)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=239"
- +42 SET DR(1,2260,85)="240 STATE........................."
- +43 SET DR(1,2260,90)="241 ZIP CODE......................"
- +44 SET DR(1,2260,95)="W !,"" 21. REGULAR WORK HOURS:"""
- +45 SET DR(1,2260,100)="242 FROM.........................."
- +46 SET DR(1,2260,105)="243 TO............................"
- +47 SET DR(1,2260,110)="S ITEM=22 W !,"" 22. REGULAR WORK SCHEDULE.........: ""_$$GET1^DIQ(2260,D0,244,""E"")"
- +48 SET DR(1,2260,115)="K DIR S DIR(""A"")="" "",DIR(""B"")=$$GET1^DIQ(2260,D0,244,""I"") D RWS^OOPSUTL2 S:$D(DIRUT) Y=""@2"""
- +49 SET DR(1,2260,120)="W !,"" 23. NAME AND ADDRESS OF PHYSICIAN FIRST PROVIDING MEDICAL CARE"""
- +50 ;Patch 7 - default physician info - if physician deleted, del oth flds
- +51 DO PHINFO^OOPSUTL2
- +52 SET DR(1,2260,125)="245 NAME OF PHYSICIAN.............//^S X=PNAME;I X="""" S Y=""@4"""
- +53 SET DR(1,2260,126)="I X'="""",'$$NMCHK^OOPSUTL3(X) D NMERR^OOPSUTL3 K X S Y=245"
- +54 SET DR(1,2260,130)="246 STREET ADDRESS................//^S X=PADD"
- +55 SET DR(1,2260,131)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=246"
- +56 SET DR(1,2260,135)="247 CITY..........................//^S X=PCITY"
- +57 SET DR(1,2260,136)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=247"
- +58 SET DR(1,2260,140)="248 STATE.........................//^S X=STATE"
- +59 SET DR(1,2260,145)="249 ZIP CODE......................//^S X=PZIP"
- +60 SET DR(1,2260,150)="270 PHYSICIAN TITLE...............//^S X=PTITLE"
- +61 SET DR(1,2260,155)="S Y=250"
- +62 SET DR(1,2260,160)="@4"
- +63 SET DR(1,2260,165)="246////@"
- +64 SET DR(1,2260,170)="247////@"
- +65 SET DR(1,2260,175)="248////@"
- +66 SET DR(1,2260,180)="249////@"
- +67 SET DR(1,2260,181)="270////@"
- +68 SET DR(1,2260,185)="250 24. 1ST DATE MEDICAL CARE RECEIVED"
- +69 SET DR(1,2260,190)="I X'="""",'$$FUT^OOPSUTL4(X) S Y=250"
- +70 SET DR(1,2260,195)="251 25. DO MEDICAL REPORTS SHOW EMPLOYEE IS DISABLED FOR WORK"
- +71 SET DR(1,2260,200)="252 26. DATE EMPLOYEE FIRST REPORTED CONDITION TO SUPERVISOR."
- +72 SET DR(1,2260,205)="I X'="""",'$$FUT^OOPSUTL4(X) S Y=252"
- +73 SET DR(1,2260,210)="253 27. DATE/TIME EMPLOYEE STOPPED WORK.."
- +74 SET DR(1,2260,215)="I X'="""",'$$FUT^OOPSUTL4($P(X,""."")) S Y=253"
- +75 SET DR(1,2260,220)="254 28. DATE/TIME EMPLOYEE'S PAY STOPPED."
- +76 SET DR(1,2260,225)="I X'="""",'$$FUT^OOPSUTL4($P(X,""."")) S Y=254"
- +77 SET DR(1,2260,230)="255 29. DATE EMPLOYEE WAS LAST EXPOSED TO CONDITIONS ALLEGED TO HAVE CAUSED DISEASE OR ILLNESS..............."
- +78 SET DR(1,2260,235)="256 30. DATE/TIME RETURNED TO WORK......."
- +79 SET DR(1,2260,240)="I X'="""",'$$FUT^OOPSUTL4($P(X,""."")) S Y=256"
- +80 SET DR(1,2260,245)="@3"
- +81 SET DR(1,2260,250)="W !,"" 31. IF EMPLOYEE HAS RETURNED TO WORK AND WORK ASSIGNMENT HAS CHANGED, DESCRIBE NEW DUTIES"""
- +82 SET DR(1,2260,255)="257 DESCRIPTION~"
- +83 SET DR(1,2260,260)="W !"
- +84 SET DR(1,2260,261)="S MAX=$$WP^OOPSUTL4(257)"
- +85 SET DR(1,2260,262)="I '$P(MAX,U,2) W !,""Invalid character entered, (~,`,@ ,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=257"
- +86 SET DR(1,2260,263)="I +MAX>MAX1 W !!,""Max length for field is "",MAX1,"" characters, you have entered "",+MAX,"". Please Edit."",! S Y=257"
- +87 SET DR(1,2260,265)="60 32. EMPLOYEE'S RETIREMENT.........//^S X=RET;I X<3 S Y=""@6"""
- +88 SET DR(1,2260,266)="61 OTHER RETIREMENT.............."
- +89 SET DR(1,2260,267)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=61"
- +90 SET DR(1,2260,268)="S Y=""@7"""
- +91 SET DR(1,2260,269)="@6"
- +92 SET DR(1,2260,270)="61////@"
- +93 SET DR(1,2260,275)="@7"
- +94 SET DR(1,2260,280)="258 33. WAS INJURY CAUSED BY 3RD PARTY;I X=""N"" S Y=""@1"""
- +95 SET DR(1,2260,285)="259 34. NAME OF THIRD PARTY..........."
- +96 SET DR(1,2260,286)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=259"
- +97 SET DR(1,2260,290)="260 STREET ADDRESS................"
- +98 SET DR(1,2260,291)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=260"
- +99 SET DR(1,2260,295)="261 CITY.........................."
- +100 SET DR(1,2260,296)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=261"
- +101 SET DR(1,2260,300)="262 STATE........................."
- +102 SET DR(1,2260,301)="263 ZIP CODE......................"
- +103 SET DR(1,2260,302)="S Y=""@8"""
- +104 SET DR(1,2260,303)="@1"
- +105 SET DR(1,2260,304)="259////@"
- +106 SET DR(1,2260,305)="260////@"
- +107 SET DR(1,2260,306)="261////@"
- +108 SET DR(1,2260,307)="262////@"
- +109 SET DR(1,2260,308)="263////@"
- +110 SET DR(1,2260,309)="@8"
- +111 ; Super has Signed, will not need re-signing - go to @2
- +112 SET DR(1,2260,315)="I CASIGN S Y=""@2"""
- +113 SET DR(1,2260,320)="S SUP=$$GET1^DIQ(200,DUZ,.01)"
- +114 SET DR(1,2260,325)="W !!,"" Workers Comp signing for Supervisor"""
- +115 SET DR(1,2260,330)="W !,"" Signature of Supervisor"""
- +116 SET DR(1,2260,335)="W !,"" -----------------------------------"""
- +117 SET DR(1,2260,340)="S ITEM=35 D EXCEPT^OOPSUTL2;264 EXCEPTION"
- +118 SET DR(1,2260,341)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=264"
- +119 SET DR(1,2260,345)="W !,"" NAME OF SUPERVISOR: ""_SUP"
- +120 SET DR(1,2260,350)="268 SUPERVISOR'S TITLE"
- +121 SET DR(1,2260,351)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=268"
- +122 SET DR(1,2260,355)="269 OFFICE PHONE......"
- +123 ; Patch 8 - Phone must be 10 Numeric after stripping -
- +124 SET DR(1,2260,356)="I $TR(X,""/-*#"","""")'?10N W !?3,""Phone number must include area code and 7 digits only. Example 703-123-8789"" S Y=269"
- +125 SET DR(1,2260,360)="@2"
- +126 QUIT