Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Local Variables  | All
Print Page as PDF
Routine: OOPSPC50

Package: Asists

Routine: OOPSPC50


Information

OOPSPC50 ;HIRMFO/YH-REPORT OF ACCIDENT CA2 - PAGE 2 ;2/21/98

Source Information

Source file <OOPSPC50.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Asists 1 ^OOPSPC51  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Asists 1 OOPSPCA  

Entry Points

Name Comments DBIA/ICR reference
EN1 ;RESET PRINTRA, SET PAGE SIZE (PORTRAIT) AND PCL PICTURE FRAME 8 1/2"*11"

External References

Name Field # of Occurrence
^OOPSPC51 EN1+77

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$CHAR(27),"E",$CHAR(27),"&l1E",$CHAR(27),"*c5952x7920Y",$CHAR(27),"%0B",$CHAR(27),"&s1#C"
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !,"IN;SP1;IP;PW.3;SC0,22,0,29,1;"
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,"DT@,1;SD1,277,2,1,4,9,5,0,6,1,7,23;"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !,"PU.5,28.8;LBOfficial Supervisor's Report of Occupational Disease: Please complete information requested below@;"
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !,"PU.4,28.2;FT10,10;RA21,28.6;PU.5,28.6;PD21,28.6;PU.5,28.3;LBSupervisor's Report@;PU.5,28.2;PD21,28.2;"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !,"SD1,277,2,1,4,9,5,0,6,0,7,16901;"
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !,"PU.5,27.9;LB19. Agency name, and address of reporting office (Include city, state, and zip code)@;"
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: !,"PU16.2,28.2;PD16.2,27.3;PU16.3,27.9;LBOWCP Agency Code@;"
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !,"PU15.2,26.4;PD15.2,27.3;PU15.3,27;LBOSHA Site Code@;PU12,26.1;LBZip Code@;PU17.5,25.3;LBZip Code@;"
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: !,"PU.5,27.3;PD21,27.3;PU.5,26.4;PD21,26.4;"
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !,"PU.5,25.6;PD21,25.6;"
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: !,"PU.5,25.3;LB20. Employee's duty station (Street address and zip code)@;"
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: !,"PU.5,24.7;PD21,24.7;"
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: !,"PU.5,24.4;LB21. Regular@;PU1.1,24.1;LBwork@;PU1.1,23.8;LBhours@;PU2.2,23.8;LBFrom@;SD1,277,2,1,4,9,5,0,6,5,7,23;PU3.4,23.8;LB:@;"
  • Line Location: EN1+14
Function Call: WRITE
  • Prompt: !,"SD1,277,2,1,4,9,5,0,6,0,7,16901;"
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: !,"PU4.1,24.2;EA4.3,24.4;PU4.5,24.2;LBa.m.@;PU4.1,23.8;EA4.3,24;PU4.5,23.8;LBp.m.@;PU5.8,23.8;LBTo@;"
  • Line Location: EN1+16
Function Call: WRITE
  • Prompt: !,"SD1,277,2,1,4,9,5,0,6,5,7,23;PU6.8,23.8;LB:@;SD1,277,2,1,4,9,5,0,6,0,7,16901;"
  • Line Location: EN1+17
Function Call: WRITE
  • Prompt: !,"PU7.4,24.2;EA7.6,24.4;PU7.8,24.2;LBa.m.@;PU7.4,23.8;EA7.6,24;PU7.8,23.8;LBp.m.@;"
  • Line Location: EN1+18
Function Call: WRITE
  • Prompt: !,"PU8.9,24.7;PD8.9,23.4;PU9,24.4;LB22. Regular@;PU9.6,24.1;LBwork@;PU9.6,23.8;LBschedule@;"
  • Line Location: EN1+19
Function Call: WRITE
  • Prompt: !,"PU11,23.8;EA11.2,24;PU11.4,23.8;LBSun.@;PU12.3,23.8;EA12.5,24;PU12.7,23.8;LBMon.@;"
  • Line Location: EN1+20
Function Call: WRITE
  • Prompt: !,"PU13.6,23.8;EA13.8,24;PU14,23.8;LBTues.@;PU14.9,23.8;EA15.1,24;PU15.3,23.8;LBWed.@;"
  • Line Location: EN1+21
Function Call: WRITE
  • Prompt: !,"PU16.2,23.8;EA16.4,24;PU16.6,23.8;LBThurs.@;PU17.7,23.8;EA17.9,24;PU18.1,23.8;LBFri.@;"
  • Line Location: EN1+22
Function Call: WRITE
  • Prompt: !,"PU18.8,23.8;EA19,24;PU19.2,23.8;LBSat.@;"
  • Line Location: EN1+23
Function Call: WRITE
  • Prompt: !,"PU.5,23.5;PD21,23.5;PU.5,23.2;LB23. Name and address of physician first providing medical care@;"
  • Line Location: EN1+24
Function Call: WRITE
  • Prompt: !,"LB (Include city, state, zip code)@;"
  • Line Location: EN1+25
Function Call: WRITE
  • Prompt: !,"PU13.9,23.5;PD13.9,21;PU14,23.2;LB24. First date@;PU17.5,23.2;LBMo.@;PU18.4,23.2;LBDay@;PU19.3,23.2;LBYr.@;"
  • Line Location: EN1+26
Function Call: WRITE
  • Prompt: !,"PU14.5,22.9;LBmedical@;PU14.5,22.6;LBcare received@;PU13.9,22.3;PD21,22.3;"
  • Line Location: EN1+27
Function Call: WRITE
  • Prompt: !,"PU17.3,22.4;PD19.9,22.4;PU17.3,22.4;PD17.3,22.6;PU18.2,22.4;PD18.2,22.6;PU19.1,22.4;PD19.1,22.6;PU19.9,22.4;PD19.9,22.6;"
  • Line Location: EN1+28
Function Call: WRITE
  • Prompt: !,"PU14,22;LB25. Do medical reports@;PU14.5,21.7;LBshow employee is@;PU14.5,21.4;LBdisabled for work?@;"
  • Line Location: EN1+29
Function Call: WRITE
  • Prompt: !,"PU17.5,21.7;EA17.7,21.9;PU17.9,21.7;LBYes@;PU18.9,21.7;EA19.1,21.9;PU19.3,21.7;LBNo@;"
  • Line Location: EN1+30
Function Call: WRITE
  • Prompt: !,"PU.5,22.6;PD13.9,22.6;PU.5,21.8;PD13.9,21.8;PU.5,21;PD21,21;"
  • Line Location: EN1+31
Function Call: WRITE
  • Prompt: !,"PU.5,20.7;LB26. Date employee@;PU3.4,20.7;LBMo.@;PU4.3,20.7;LBDay@;PU5.3,20.7;LBYr.@;"
  • Line Location: EN1+32
Function Call: WRITE
  • Prompt: !,"PU6.2,20.7;PD6.2,19.7;PU6.3,20.7;LB27. Date and@;PU9.4,20.7;LBMo.@;PU10.2,20.7;LBDay@;PU11.2,20.7;LBYr.@;"
  • Line Location: EN1+33
Function Call: WRITE
  • Prompt: !,"PU1.1,20.4;LBfirst reported@;PU1.1,20.1;LBcondition to@;PU1.1,19.8;LBsupervisor@;"
  • Line Location: EN1+34
Function Call: WRITE
  • Prompt: !,"PU3.2,20.1;PD5.9,20.1;PU3.2,20.1;PD3.2,20.3;PU4.1,20.1;PD4.1,20.3;PU5,20.1;PD5,20.3;PU5.9,20.1;PD5.9,20.3;PU6.2,21;PD6.2,19.7;"
  • Line Location: EN1+35
Function Call: WRITE
  • Prompt: !,"PU6.9,20.4;LBhour employee@;PU6.9,20.1;LBstopped work@;"
  • Line Location: EN1+36
Function Call: WRITE
  • Prompt: !,"PU9.2,20.1;PD11.8,20.1;PU9.2,20.1;PD9.2,20.3;PU10,20.1;PD10,20.3;PU10.9,20.1;PD10.9,20.3;PU11.8,20.1;PD11.8,20.3;"
  • Line Location: EN1+37
Function Call: WRITE
  • Prompt: !,"PU12.1,20.1;LBTime@;SD1,277,2,1,4,9,5,0,6,5,7,23;PU13.7,20.1;LB:@;SD1,277,2,1,4,9,5,0,6,0,7,16901;"
  • Line Location: EN1+38
Function Call: WRITE
  • Prompt: !,"PU14.5,20.4;EA14.7,20.6;PU14.9,20.4;LBa.m.@;PU14.5,20;EA14.7,20.2;PU14.9,20;LBp.m.@;"
  • Line Location: EN1+39
Function Call: WRITE
  • Prompt: !,"PU.5,19.7;PD21,19.7;"
  • Line Location: EN1+40
Function Call: WRITE
  • Prompt: !,"PU.5,19.4;LB28. Date and@;PU3.5,19.4;LBMo.@;PU4.4,19.4;LBDay@;PU5.3,19.4;LBYr.@;PU10.1,19.7;PD10.1,18.4;PU10.2,19.4;"
  • Line Location: EN1+41
Function Call: WRITE
  • Prompt: !,"LB29. Date employee was last@;"
  • Line Location: EN1+42
Function Call: WRITE
  • Prompt: !,"PU14.2,19.4;LBMo.@;PU15,19.4;LBDay@;PU16,19.4;LBYr.@;"
  • Line Location: EN1+43
Function Call: WRITE
  • Prompt: !,"PU1,19.1;LBhour employee's@;PU1,18.8;LBpay stopped@;PU3.4,18.8;PD5.9,18.8;PU3.4,18.8;PD3.4,19;"
  • Line Location: EN1+44
Function Call: WRITE
  • Prompt: !,"PU4.2,18.8;PD4.2,19;PU5.1,18.8;PD5.1,19;PU5.9,18.8;PD5.9,19;"
  • Line Location: EN1+45
Function Call: WRITE
  • Prompt: !,"PU6.3,18.8;LBTime@;SD1,277,2,1,4,9,5,0,6,5,7,23;PU7.7,18.8;LB:@;SD1,277,2,1,4,9,5,0,6,0,7,16901;"
  • Line Location: EN1+46
Function Call: WRITE
  • Prompt: !,"PU8.5,19.1;EA8.7,19.3;PU8.9,19.1;LBa.m.@;PU8.5,18.7;EA8.7,18.9;PU8.9,18.7;LBp.m.@;"
  • Line Location: EN1+47
Function Call: WRITE
  • Prompt: !,"PU10.6,19.1;LBexposed to conditions@;PU10.6,18.8;LBalleged to have caused@;PU10.6,18.5;LBdisease or illness@;"
  • Line Location: EN1+48
Function Call: WRITE
  • Prompt: !,"PU14.1,18.8;PD16.7,18.8;PU14.1,18.8;PD14.1,19;PU14.9,18.8;PD14.9,19;PU15.8,18.8;PD15.8,19;PU16.7,18.8;PD16.7,19;PU.5,18.4;PD21,18.4;"
  • Line Location: EN1+49
Function Call: WRITE
  • Prompt: !,"PU.5,18.4;PD21,18.4;PU.5,18.1;LB30. Date@;PU2.6,18.1;LBMo.@;PU3.5,18.1;LBDay@;PU4.5,18.1;LBYr.@;"
  • Line Location: EN1+50
Function Call: WRITE
  • Prompt: !,"PU1.1,17.8;LBreturned@;PU1.1,17.5;LBto work@;PU2.5,17.5;PD5.1,17.5;PU2.5,17.5;PD2.5,17.7;"
  • Line Location: EN1+51
Function Call: WRITE
  • Prompt: !,"PU3.3,17.5;PD3.3,17.7;PU4.2,17.5;PD4.2,17.7;"
  • Line Location: EN1+52
Function Call: WRITE
  • Prompt: !,"PU5.1,17.5;PD5.1,17.7;PU5.4,17.5;LBTime@;SD1,277,2,1,4,9,5,0,6,5,7,23;PU6.9,17.5;LB:@;SD1,277,2,1,4,9,5,0,6,0,7,16901;"
  • Line Location: EN1+53
Function Call: WRITE
  • Prompt: !,"PU7.8,17.7;EA8,17.9;PU8.2,17.7;LBa.m.@;PU7.8,17.3;EA8,17.5;PU8.2,17.3;LBp.m.@;"
  • Line Location: EN1+54
Function Call: WRITE
  • Prompt: !,"PU.5,17.1;PD21,17.1;PU.5,16.8;LB31. If employee has returned to work and work assignment has changed, describe new duties@;"
  • Line Location: EN1+55
Function Call: WRITE
  • Prompt: !,"PU.5,13.7;PD21,13.7;PU.5,13.4;LB32. Employee's Retirement Coverage@;"
  • Line Location: EN1+56
Function Call: WRITE
  • Prompt: !,"PU7.2,13.4;EA7.4,13.2;PU7.8,13.2;LBCSRS@;"
  • Line Location: EN1+57
Function Call: WRITE
  • Prompt: !,"PU9.2,13.4;EA9.4,13.2;PU9.8,13.2;LBFERS@;"
  • Line Location: EN1+58
Function Call: WRITE
  • Prompt: !,"PU11.2,13.4;EA11.4,13.2;PU11.8,13.2;LBOther, (Identify)@;"
  • Line Location: EN1+59
Function Call: WRITE
  • Prompt: !,"PU.5,12.6;PD21,12.6;"
  • Line Location: EN1+60
Function Call: WRITE
  • Prompt: !,"PU.5,12.3;LB33. Was injury caused@;PU3.6,12.6;PD3.6,10.1;PU3.6,11.7;PD21,11.7;PU3.6,10.9;PD21,10.9;"
  • Line Location: EN1+61
Function Call: WRITE
  • Prompt: !,"PU3.7,12.3;LB34. Name and address of third party (Include city, state, and zip code)@;"
  • Line Location: EN1+62
Function Call: WRITE
  • Prompt: !,"PU.9,12;LBby third party?@;PU.9,11.5;EA1.1,11.7;PU1.3,11.5;LBYes@;PU2.3,11.5;EA2.5,11.7;PU2.7,11.5;LBNo@;"
  • Line Location: EN1+63
Function Call: WRITE
  • Prompt: !,"PU2.3,11.2;LBIf ""No,""@;PU2.3,10.9;LBgo to@;PU2.3,10.6;LBitem 34.@;"
  • Line Location: EN1+64
Function Call: WRITE
  • Prompt: !,"PU.5,10.1;PD21,10.1;PU.5,9.6;PD21,9.6;SD1,277,2,1,4,9,5,0,6,1,7,23;PU.5,9.7;LBSignature of Supervisor@;PU.5,9.6;RA21,10.1;"
  • Line Location: EN1+65
Function Call: WRITE
  • Prompt: !,"SD1,277,2,1,4,9,5,0,6,0,7,16901;PU.5,9.3;LB35. A supervisor who knowingly certifies to any false statement,@;"
  • Line Location: EN1+66
Function Call: WRITE
  • Prompt: !,"LB misrepresentation, concealment of fact, etc., in respect to this claim@;"
  • Line Location: EN1+67
Function Call: WRITE
  • Prompt: !,"PU1.1,8.9;LBmay also be subject to appropriate felony criminal prosecution.@;"
  • Line Location: EN1+68
Function Call: WRITE
  • Prompt: !,"PU1.1,8.4;LBI certify that the information given above and that furnished by the employee on the reverse@;"
  • Line Location: EN1+69
Function Call: WRITE
  • Prompt: !,"LB of this form is true to the best of my@;"
  • Line Location: EN1+70
Function Call: WRITE
  • Prompt: !,"PU1.1,8.1;LBknowledge with the following exception:@;"
  • Line Location: EN1+71
Function Call: WRITE
  • Prompt: !,"PU.5,6.2;PD21,6.2;PU.5,5.9;LBName of Supervisor (Type or print)@;"
  • Line Location: EN1+72
Function Call: WRITE
  • Prompt: !,"PU.5,5.4;PD21,5.4;PU.5,5.1;LB Signature of Supervisor@;PU12.4,5.1;LBDate@;"
  • Line Location: EN1+73
Function Call: WRITE
  • Prompt: !,"PU.5,4.6;PD21,4.6;PU.5,4.3;LBSupervisor's Title@;PU12.4,4.3;LBOffice phone@;"
  • Line Location: EN1+74
Function Call: WRITE
  • Prompt: !,"PU.5,3;PD21,3;PU19,2.5;SD1,277,2,1,4,9,5,0,6,0,7,16901;"
  • Line Location: EN1+75
Function Call: WRITE
  • Prompt: !,"PU18.5,2.5;LBForm CA-2@;PU18.5,2.1;LBRev. Jan. 1997@;"
  • Line Location: EN1+76
Function Call: WRITE
  • Prompt: !,$CHAR(27),"&r0F",$CHAR(27),"%0A"
  • Line Location: EN1+78

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> IEN EN1+77
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Local Variables  | All