OOPSXP8 ;WIOFO/LLH-INIT ROUTINE FOR PATCH 8 ;5/1/2000
Source file <OOPSXP8.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VAL(IEN) | ; Determine pay rate, convert if called from ????
; input - IEN of case ; output - VAL returns 1 is field is convertable ; - PAY is set to the conversion value to be set into fld 167 ; in the subroutine PAY below |
|
| POST | ;
|
|
| PAY | ; Convert the PAY RATE PER field to the set of codes. Also convert
; the WITNESS NAME (#115) and move to WITNESS NAME (#2260.0125,.01) |
|
| DICT | ||
| MODC | ||
| NEWC | ||
| MODCODE(LINE) | ; MODIFY BODY PART DESCRIPTION AND CODE
|
|
| NEWCODE(LINE) | ; ADD NEW BODY PART CODE AND DESCRIPTION
|
| FileNo | Call Tags |
|---|---|
| ^OOPS(2260 - [#2260] | Classic Fileman Calls, GET1^DIQ |
| ^OOPS(2261.1 - [#2261.1] | Classic Fileman Calls, GET1^DIQ |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CODE | DICT+1!, MODC+5*, MODC+10!, NEWC+2*, NEWC+3, NEWC+6! |
| DA | PAY+2~, PAY+17*, DICT~, MODC+3*, MODC+4, MODC+6 |
| DD | MODC+1!, NEWC+5! |
| DES | DICT+1!, MODC+5*, MODC+6, MODC+10!, NEWC+6! |
| DIC | POST+28!, DICT~, MODC+2*, NEWC+1* |
| DIC("DR" | NEWC+4* |
| DIC(0 | NEWC+1* |
| DIE | PAY+2~, PAY+3*, DICT~, MODC+2* |
| DLAYGO | POST+28!, NEWC+1*, NEWC+5! |
| DO | MODC+1!, NEWC+5! |
| DR | PAY+2~, PAY+17*, DICT~, MODC+1!, MODC+2* |
| DR(1 | MODC+7*, MODC+8* |
| I | DICT~, MODC*, NEWC* |
| IEN | VAL~, VAL+12, PAY+2~, PAY+3*, PAY+4*, PAY+5, PAY+8, PAY+9, PAY+10, PAY+11 , PAY+12, PAY+14, PAY+15, PAY+16, PAY+17 |
| INJ | PAY+2~, PAY+12*, PAY+13 |
| LINE | MODCODE~, NEWCODE~ |
| MODCODE | DICT+1!, MODC*, MODC+3, MODC+5, MODC+10! |
| MSG | POST+1~, POST+26 |
| MSG(1 | POST+2* |
| MSG(10 | POST+11* |
| MSG(11 | POST+12* |
| MSG(12 | POST+13* |
| MSG(13 | POST+14* |
| MSG(14 | POST+15* |
| MSG(15 | POST+16* |
| MSG(16 | POST+17* |
| MSG(17 | POST+18* |
| MSG(18 | POST+19* |
| MSG(2 | POST+3* |
| MSG(3 | POST+4* |
| MSG(4 | POST+5* |
| MSG(5 | POST+6* |
| MSG(6 | POST+7* |
| MSG(7 | POST+8* |
| MSG(8 | POST+9* |
| MSG(9 | POST+10* |
| NEWCODE | DICT+1!, NEWC*, NEWC+2, NEWC+6! |
| PAY | VAL+12*, VAL+13*, VAL+14*, VAL+15*, VAL+16*, VAL+17*, VAL+18*, VAL+19, POST+1~, PAY+18 |
| PMSG | POST+1~, POST+26, PAY+3*, PAY+16* |
| STR | VAL+11~, VAL+12* |
| U | VAL+12, PAY+5, PAY+9, PAY+11, PAY+12, PAY+16 |
| VAL | VAL+11~, VAL+19*, VAL+20 |
| WITNM | PAY+2~, PAY+5*, PAY+6, PAY+9, PAY+10 |
| X | DICT~, NEWC+2* |
