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 |