OOPSGUIF ;WIOFO/LLH-RPC routine for OSHA Log ;11/5/01
Source file <OOPSGUIF.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Asists | 3 | OOPS GET OSHA DATA OOPS NEEDLESTICK LOG OOPSGUIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OSHA(RESULTS,INPUT,CALL) | ; get the data
; Input: INPUT - contains 4 values, the START AND END DATE, ; STATION, and INCLUDE NAME ON REPORT. The Date of ; Occ (fld #4) is used to in/exclude claims from the ; report. If Include name = Y, then names are ; printed, else they will not,and if Station='ALL' ; then all claims are included, if not 'All', then ; only 1 station is included. ; CALL - Contains the calling menu. If caller = "U"nion ; name is excluded from printing. ; Output: RESULTS - the results array passes data back to the client. |
|
| NSTICK(RESULTS,INPUT,CALL) | ; NeedleStick Log get data logic
; Input: INPUT - contains 4 values, the START DATE, END DATE, ; STATION, and INCLUDE NAME ON REPORT. The Date of ; Occurrence (field #4) will be used to include/ ; exclude claims from the report. If the Include ; name is = Y then the names will be printed, if no ; they will not, and if the Station = 'ALL' then any ; claim will be include, if not 'All', but the ; station number then only 1 station is included. ; CALL - Contains the calling menu. This will be used ; to exclude the name from printing if the caller ; is 'U'nion. ; Output: RESULTS - the results array passes the data back to the ; client. |
|
| OCCDESC(IEN) | ;Get Occupation Description
|
|
| DSPUTE | ; Reason for Dispute Report - called from DSPUTE^OOPSGUIR
; code in DSPUTE^OOPSGUIF requires case to be a CA1 |
| RPC Name | Call Tags |
|---|---|
| OOPS GET OSHA DATA | OSHA |
| OOPS NEEDLESTICK LOG | NSTICK |
| FileNo | Call Tags |
|---|---|
| ^OOPS(2260 - [#2260] | Classic Fileman Calls, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^OOPS(2260 - [#2260] | OSHA+26, OSHA+27, OSHA+30, NSTICK+29, NSTICK+30, NSTICK+33, DSPUTE+12 |
| ^TMP($J | OSHA+13!, OSHA+51*, OSHA+52, NSTICK+16!, NSTICK+67*, NSTICK+69 |
| Name | Line Occurrences |
|---|---|
| $$OCCDESC | OSHA+38, NSTICK+46 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARR | OSHA+32!, OSHA+46*, OSHA+47*, OSHA+48*, OSHA+50*, OSHA+51, NSTICK+40!, NSTICK+58*, NSTICK+59*, NSTICK+60* , NSTICK+61*, NSTICK+62*, NSTICK+63*, NSTICK+64*, NSTICK+66*, NSTICK+67! |
| ARR( | DSPUTE+15*, DSPUTE+16*, DSPUTE+18*, DSPUTE+19* |
| BLK36 | DSPUTE+2~, DSPUTE+11*, DSPUTE+14*, DSPUTE+17, DSPUTE+18, DSPUTE+19 |
| CALL | OSHA~, OSHA+45, NSTICK~, NSTICK+57 |
| CAX | OSHA+12~, OSHA+35*, OSHA+49 |
| CN | OSHA+11~, OSHA+14*, OSHA+51*, NSTICK+14~, NSTICK+17*, NSTICK+67, NSTICK+68* |
| DA | OSHA+11~, OSHA+34*, NSTICK+14~, NSTICK+43*, NSTICK+59 |
| >> DIC | OSHA+32*, NSTICK+40* |
| >> DIQ | OSHA+34*, NSTICK+43* |
| >> DIQ(0 | OSHA+34*, NSTICK+43* |
| DIS | DSPUTE+2~, DSPUTE+5*, DSPUTE+6*, DSPUTE+7, DSPUTE+8, DSPUTE+12 |
| DOI | OSHA+12~, OSHA+36*, OSHA+46, NSTICK+15~, NSTICK+44*, NSTICK+58 |
| >> DR | OSHA+33*, NSTICK+42* |
| DSPCD | DSPUTE+2~, DSPUTE+5*, DSPUTE+7*, DSPUTE+8*, DSPUTE+15, DSPUTE+16 |
| EDATE | OSHA+11~, OSHA+20*, OSHA+22*, OSHA+24*, OSHA+26, NSTICK+14~, NSTICK+23*, NSTICK+25*, NSTICK+27*, NSTICK+29 |
| ENDDT | OSHA+11~, OSHA+15*, OSHA+18, OSHA+22, NSTICK+14~, NSTICK+18*, NSTICK+21, NSTICK+25 |
| F174 | DSPUTE+2~, DSPUTE+3*, DSPUTE+4*, DSPUTE+15, DSPUTE+16, DSPUTE+18, DSPUTE+19 |
| FILL | OSHA+12~, OSHA+49*, OSHA+50 |
| FLD | OCCDESC+5~, OCCDESC+7*, OCCDESC+8, OCCDESC+9 |
| GONE | OSHA+12~, OSHA+40*, OSHA+50 |
| IEN | OSHA+11~, OSHA+25*, OSHA+27*, OSHA+28, OSHA+29, OSHA+30, OSHA+34, OSHA+35, OSHA+36, OSHA+38 , OSHA+40, OSHA+41, OSHA+43, OSHA+45, OSHA+46, OSHA+47, OSHA+48, NSTICK+14~, NSTICK+28*, NSTICK+30* , NSTICK+32, NSTICK+33, NSTICK+37, NSTICK+43, NSTICK+44, NSTICK+46, NSTICK+51, NSTICK+52, NSTICK+58, NSTICK+59 , NSTICK+60, NSTICK+61, NSTICK+62, NSTICK+63, NSTICK+64, OCCDESC~, OCCDESC+6, OCCDESC+9, DSPUTE+3, DSPUTE+5 , DSPUTE+12, DSPUTE+13 |
| INC | OCCDESC+5~, OCCDESC+6*, OCCDESC+7 |
| INCNA | OSHA+11~, OSHA+17*, OSHA+18, OSHA+45, NSTICK+14~, NSTICK+20*, NSTICK+21, NSTICK+57 |
| >> INJILL | NSTICK+52*, NSTICK+53*, NSTICK+58 |
| INPUT | OSHA~, OSHA+15, OSHA+16, OSHA+17, NSTICK~, NSTICK+18, NSTICK+19, NSTICK+20 |
| LOST | OSHA+12~, OSHA+41*, OSHA+42*, OSHA+50, NSTICK+15~, NSTICK+51*, NSTICK+66 |
| >> LP | OSHA+25*, OSHA+26*, OSHA+27, NSTICK+28*, NSTICK+29*, NSTICK+30 |
| OCC | OSHA+11~, OSHA+38*, OSHA+47, NSTICK+14~, NSTICK+46*, NSTICK+59 |
| OOPS | OSHA+11~, OSHA+32!, NSTICK+15~, NSTICK+40! |
| OOPS(2260 | OSHA+35, OSHA+36, OSHA+40, OSHA+41, OSHA+43, OSHA+45, OSHA+46, OSHA+47, OSHA+48, NSTICK+44 , NSTICK+51, NSTICK+52, NSTICK+58, NSTICK+59, NSTICK+60, NSTICK+61, NSTICK+62, NSTICK+63, NSTICK+64 |
| PERSON | OSHA+11~, OSHA+44*, OSHA+45*, OSHA+47, NSTICK+14~, NSTICK+55*, NSTICK+57*, NSTICK+58 |
| RESULTS | OSHA~, OSHA+52*, NSTICK~, NSTICK+69* |
| RESULTS(0 | OSHA+14*, OSHA+19*, NSTICK+17*, NSTICK+22* |
| SDATE | OSHA+11~, OSHA+20*, OSHA+21*, OSHA+24*, OSHA+26, NSTICK+14~, NSTICK+23*, NSTICK+24*, NSTICK+27*, NSTICK+29 |
| STA | OSHA+11~, OSHA+16*, OSHA+18, OSHA+31, NSTICK+14~, NSTICK+19*, NSTICK+21, NSTICK+34 |
| >> STATION | OSHA+30*, OSHA+31, NSTICK+33*, NSTICK+34 |
| STDT | OSHA+11~, OSHA+15*, OSHA+18, OSHA+21, NSTICK+14~, NSTICK+18*, NSTICK+21, NSTICK+24 |
| TYPE | OSHA+12~, OSHA+43*, OSHA+44, NSTICK+15~, NSTICK+37*, NSTICK+38 |
| U | OSHA+15, OSHA+16, OSHA+17, OSHA+30, OSHA+46, OSHA+47, OSHA+48, OSHA+50, NSTICK+18, NSTICK+19 , NSTICK+20, NSTICK+33, NSTICK+58, NSTICK+59, NSTICK+60, NSTICK+61, NSTICK+62, NSTICK+63, NSTICK+64, NSTICK+66 , DSPUTE+12 |
| X | OSHA+11~, OSHA+21*, OSHA+22*, NSTICK+14~, NSTICK+24*, NSTICK+25* |
| Y | OSHA+11~, OSHA+21, OSHA+22, NSTICK+14~, NSTICK+24, NSTICK+25 |
