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 |
