Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: OOPSSUP2

OOPSSUP2.m

Go to the documentation of this file. 
  1. OOPSSUP2 ;HINES/WAA-S/E Supervisor Edit routine ;04/15/1998
  1.  ;;2.0;ASISTS;;Jun 03, 2002
  1.  ;;
  1.  ; Note:  this routine became too big and had to be split.  The original
  1.  ; routine is OOPSSUP2 and had the logic for both the Supervisor
  1.  ; portion of the CA1 and CA2.  This routine now contains only the
  1.  ; Supervisor portion of the CA2.
  1.  ;
  1. CA2 ; CA2 FORM
  1.  N ITEM
  1.  S (AIEN,AGN,ADD,CITY,STATE,ZIP)=""
  1.  S (PNAME,PADD,PCITY,PSTATE,PZIP,PTITLE,STAT,SIEN)=""
  1.  S MAX1=528
  1.  W !!," Notice of Occupational Disease and Claim for Compensation (Form CA-2)"
  1.  W !!,"     Supervisor's Report"
  1.  W !,"     -------------------",!
  1.  ;Patch 7 - default agency info, if Agency Name deleted, del other fields
  1.  D AGNINFO^OOPSUTL2
  1.  S DR=""
  1.  S DR(1,2260,1)="230 19. AGENCY NAME...................//^S X=AGN;I X="""" S Y=""@5"""
  1.  S DR(1,2260,2)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=230"
  1.  S DR(1,2260,5)="231     STREET ADDRESS................//^S X=ADD"
  1.  S DR(1,2260,6)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=231"
  1.  S DR(1,2260,10)="232     CITY..........................//^S X=CITY"
  1.  S DR(1,2260,11)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=232"
  1.  S DR(1,2260,15)="233     STATE.........................//^S X=STATE"
  1.  S DR(1,2260,20)="234     AGENCY ZIP CODE...............//^S X=ZIP"
  1.  S DR(1,2260,25)="S Y=237"
  1.  S DR(1,2260,30)="@5"
  1.  S DR(1,2260,35)="231////@"
  1.  S DR(1,2260,40)="232////@"
  1.  S DR(1,2260,45)="233////@"
  1.  S DR(1,2260,50)="234////@"
  1.  S DR(1,2260,55)="237 20. EMPLOYEE'S DUTY STATION......."
  1.  S DR(1,2260,56)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=237"
  1.  S DR(1,2260,60)="238     STREET ADDRESS................"
  1.  S DR(1,2260,61)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=238"
  1.  S DR(1,2260,65)="239     CITY.........................."
  1.  S DR(1,2260,66)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=239"
  1.  S DR(1,2260,70)="240     STATE........................."
  1.  S DR(1,2260,75)="241     ZIP CODE......................"
  1.  S DR(1,2260,80)="W !,"" 21. REGULAR WORK HOURS:"""
  1.  S DR(1,2260,85)="242     FROM.........................."
  1.  S DR(1,2260,90)="243     TO............................"
  1.  S DR(1,2260,95)="S ITEM=22 W !,"" 22. REGULAR WORK SCHEDULE.........: ""_$$GET1^DIQ(2260,D0,244,""E"")"
  1.  S DR(1,2260,100)="K DIR S DIR(""A"")=""                                     "",DIR(""B"")=$$GET1^DIQ(2260,D0,244,""I"") D RWS^OOPSUTL2 S:$D(DIRUT) Y=""@2"""
  1.  S DR(1,2260,105)="W !,"" 23. NAME AND ADDRESS OF PHYSICIAN FIRST PROVIDING MEDICAL CARE"""
  1.  ;Patch 7 - default physician info - if physician deleted, del oth flds
  1.  D PHINFO^OOPSUTL2
  1.  S DR(1,2260,110)="245     NAME OF PHYSICIAN.............//^S X=PNAME;I X="""" S Y=""@4"""
  1.  S DR(1,2260,111)="I X'="""",'$$NMCHK^OOPSUTL3(X) D NMERR^OOPSUTL3 K X S Y=245"
  1.  S DR(1,2260,115)="246     STREET ADDRESS................//^S X=PADD"
  1.  S DR(1,2260,116)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=246"
  1.  S DR(1,2260,120)="247     CITY..........................//^S X=PCITY"
  1.  S DR(1,2260,121)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=247"
  1.  S DR(1,2260,125)="248     STATE.........................//^S X=STATE"
  1.  S DR(1,2260,130)="249     ZIP CODE......................//^S X=PZIP"
  1.  S DR(1,2260,131)="270     TITLE.........................//^S X=PTITLE"
  1.  S DR(1,2260,135)="S Y=250"
  1.  S DR(1,2260,140)="@4"
  1.  S DR(1,2260,145)="246////@"
  1.  S DR(1,2260,150)="247////@"
  1.  S DR(1,2260,155)="248////@"
  1.  S DR(1,2260,160)="249////@"
  1.  S DR(1,2260,161)="270////@"
  1.  S DR(1,2260,165)="250 24. 1ST DATE MEDICAL CARE RECEIVED"
  1.  S DR(1,2260,170)="I X'="""",'$$FUT^OOPSUTL4(X) S Y=250"
  1.  S DR(1,2260,175)="251 25. DO MEDICAL REPORTS SHOW EMPLOYEE IS DISABLED FOR WORK"
  1.  S DR(1,2260,180)="252 26. DATE EMPLOYEE FIRST REPORTED CONDITION TO SUPERVISOR."
  1.  S DR(1,2260,185)="I X'="""",'$$FUT^OOPSUTL4(X) S Y=252"
  1.  S DR(1,2260,190)="253 27. DATE/TIME EMPLOYEE STOPPED WORK.."
  1.  S DR(1,2260,195)="I X'="""",'$$FUT^OOPSUTL4($P(X,""."")) S Y=253"
  1.  S DR(1,2260,200)="254 28. DATE/TIME EMPLOYEE'S PAY STOPPED."
  1.  S DR(1,2260,205)="I X'="""",'$$FUT^OOPSUTL4($P(X,""."")) S Y=254"
  1.  S DR(1,2260,210)="255 29. DATE EMPLOYEE WAS LAST EXPOSED TO CONDITIONS ALLEGED TO HAVE CAUSED             DISEASE OR ILLNESS..............."
  1.  S DR(1,2260,215)="256 30. DATE/TIME RETURNED TO WORK......."
  1.  S DR(1,2260,220)="I X'="""",'$$FUT^OOPSUTL4($P(X,""."")) S Y=256"
  1.  S DR(1,2260,225)="@3"
  1.  S DR(1,2260,230)="W !,"" 31. IF EMPLOYEE HAS RETURNED TO WORK AND WORK ASSIGNMENT HAS CHANGED, DESCRIBE      NEW DUTIES"""
  1.  S DR(1,2260,235)="257     DESCRIPTION~"
  1.  S DR(1,2260,240)="W !"
  1.  S DR(1,2260,245)="S MAX=$$WP^OOPSUTL4(257)"
  1.  S DR(1,2260,246)="I '$P(MAX,U,2) W !,""Invalid character entered, (~,`,@,#,$,%,^,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=257"
  1.  S DR(1,2260,250)="I +MAX>MAX1 W !!,""Max length for field is "",MAX1,"" characters, you have entered "",+MAX,"". Please edit."",! S Y=257"
  1.  S DR(1,2260,255)="60 32.  EMPLOYEE'S RETIREMENT.........//^S X=RET;I X<3 S Y=""@6"""
  1.  S DR(1,2260,260)="61      OTHER RETIREMENT.............."
  1.  S DR(1,2260,261)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=61"
  1.  S DR(1,2260,262)="S Y=""@7"""
  1.  S DR(1,2260,263)="@6"
  1.  S DR(1,2260,264)="61////@"
  1.  S DR(1,2260,265)="@7"
  1.  S DR(1,2260,270)="258 33.  WAS INJURY CAUSED BY 3RD PARTY;I X=""N"" S Y=""@1"""
  1.  S DR(1,2260,275)="259 34.  NAME OF THIRD PARTY..........."
  1.  S DR(1,2260,276)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=259"
  1.  S DR(1,2260,280)="260      STREET ADDRESS................"
  1.  S DR(1,2260,281)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=260"
  1.  S DR(1,2260,285)="261      CITY.........................."
  1.  S DR(1,2260,286)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=261"
  1.  S DR(1,2260,290)="262      STATE........................."
  1.  S DR(1,2260,295)="263      ZIP CODE......................"
  1.  S DR(1,2260,300)="S Y=""@8"""
  1.  S DR(1,2260,303)="@1"
  1.  S DR(1,2260,304)="259////@"
  1.  S DR(1,2260,305)="260////@"
  1.  S DR(1,2260,306)="261////@"
  1.  S DR(1,2260,307)="262////@"
  1.  S DR(1,2260,308)="263////@"
  1.  S DR(1,2260,309)="@8"
  1.  S DR(1,2260,310)="W !!,""           Signature of Supervisor"""
  1.  S DR(1,2260,315)="W !,""       -----------------------------------"""
  1.  S DR(1,2260,320)="S ITEM=35 D EXCEPT^OOPSUTL2;264      EXCEPTION"
  1.  S DR(1,2260,321)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=264"
  1.  S DR(1,2260,325)="W !,""      NAME OF SUPERVISOR: ""_SUP"
  1.  S DR(1,2260,330)="268      SUPERVISOR'S TITLE"
  1.  S DR(1,2260,331)="I X'="""",'$$VCHAR^OOPSUTL4(X) W !,""Invalid character entered, (~,`,@,#,$,%,*,_,|,\,},{,[,],>, or <),"",!,""please edit."",! S Y=268"
  1.  S DR(1,2260,345)="269      OFFICE PHONE......"
  1.  ; Patch 8 - Phone must be 10 Numeric after stripping -
  1.  S DR(1,2260,346)="I $TR(X,""/-*#"","""")'?10N W !?3,""Phone number must include area code and 7 digits only.  Example 703-123-8789"" S Y=269"
  1.  S DR(1,2260,350)="@2"
  1.  Q