OOPSGUI2 ;WIOFO/CVW-RPC routines ;9/19/01
Source file <OOPSGUI2.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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
GET(RESULTS,INPUT) | ; Get Case data from 2260 or 2264
|
|
WITR(RESULTS,IEN) | ||
DEFMD(RESULTS,IEN) | ||
REPLWP(RESULTS,INPUT,DATA) | ;
|
|
DTVALID(RESULTS,IDT,PDT,FLAG) | ;Compare Date(s)/Time(s)
; Input IDT - This is the base date/time in external form ; PDT - This is the compare date/time in external form ; FLAG - -2 means PDT must be < IDT (The DAY only) ; FLAG - -1 means PDT must be < IDT (The DAY&TIME) ; FLAG - 1 means PDT must be > IDT (The DAY&TIME) ; FLAG - 2 means PDT must be > IDT (The DAY only) |
|
DTI(X) | ;Convert and External date to an internal one
|
|
SETFIELD(RESULTS,INPUT,VALUE) | ;Set a single field in file 2260
|
|
ADDWITN(RESULTS,IEN,INFO,COMMENT) | ;Add Witness info for IEN in 2260
; Input - IEN - IEN of case that needs witness info created. ; INFO - Name, Street, City, State, Zip, Date of Witness in ; format, NAME^STREET^CITY^STATE^ZIP ; COMMENT - Witness Comment Text ; Output - RESULTS Text indicating status of insert |
|
DELWITN(RESULTS,INPUT) | ;Deletes the Witness information for a claim
; Input - INPUT, this is the IEN for the case and the witness number ; format IEN^witness number for the selected witness ; Output - RESULTS - String indicating the status of the delete |
|
EDTWITN(RESULTS,INPUT,INFO,COMMENT) | ;Update Witness Info for 2260 rec
; Input:INPUT - IEN and Witness Number in format IEN^WIT ; INFO - Name, Street, City, State, Zip, Date of Witness in ; format, NAME^STREET^CITY^STATE^ZIP ; COMMENT - Text of Witness comment ; Output:RESULTS - String listing result of update. |
Name | Field # of Occurrence |
---|---|
^%DT | DTI+2 |
$$FIND1^DIC | DEFMD+22 |
FILE^DICN | ADDWITN+14 |
$$GET1^DID | REPLWP+11 |
^DIE | SETFIELD+14, ADDWITN+30, ADDWITN+32, EDTWITN+26, EDTWITN+28 |
^DIK | DELWITN+15 |
$$EXTERNAL^DILFD | WITR+8, WITR+9, DEFMD+26 |
$$ROOT^DILFD | REPLWP+10 |
$$GET1^DIQ | GET+24, GET+26, GET+28, GET+29, GET+30, DEFMD+23, SETFIELD+18 |
$$DTI^OOPSGUI2 | DTVALID+12, DTVALID+13 |
CLSCASE^OOPSMBUL | SETFIELD+20 |
WCPBOR^OOPSMBUL | SETFIELD+18 |
RPC Name | Call Tags |
---|---|
OOPS GET 2260 DATA | GET |
OOPS GET WITNESSES | WITR |
OOPS GET DEFAULT MD | DEFMD |
OOPS REPLACE WP | REPLWP |
OOPS VALIDATE TIME | DTVALID |
OOPS SET FIELD | SETFIELD |
OOPS DELETE WITNESS | DELWITN |
OOPS WITNESS CREATE | ADDWITN |
OOPS WITNESS EDIT | EDTWITN |
OOPS WITNESS DELETE | DELWITN |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | GET+17, GET+18, GET+19 |
^OOPS( | GET+13 |
^OOPS(2260 - [#2260] | WITR+6, WITR+7, WITR+13, DEFMD+13, SETFIELD+11, ADDWITN+9, DELWITN+11, EDTWITN+10 |
^OOPS(2262 - [#2262] | DEFMD+15, DEFMD+17, DEFMD+19, DEFMD+20, DEFMD+21, DEFMD+24, DEFMD+25 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | DTI+1~, DTI+2* |
CITY | ADDWITN+6~, ADDWITN+20*, EDTWITN+6~, EDTWITN+16* |
CNT | REPLWP+8~, REPLWP+16*, REPLWP+19*, REPLWP+22 |
COMMENT | ADDWITN~, EDTWITN~ |
COUNT | WITR+4~, WITR+5*, WITR+7, WITR+8, WITR+9, WITR+10, WITR+11, WITR+12*, WITR+13, WITR+14* |
DA | SETFIELD+5~, SETFIELD+12*, ADDWITN+6~, ADDWITN+15*, ADDWITN+17, DELWITN+4~, DELWITN+13*, EDTWITN+6~, EDTWITN+12* |
DA(1 | ADDWITN+10*, ADDWITN+11, ADDWITN+16, DELWITN+12*, DELWITN+14, EDTWITN+11*, EDTWITN+13 |
DATA | REPLWP~ |
DATA( | REPLWP+19, REPLWP+20 |
DD | ADDWITN+6~ |
DIC | ADDWITN+6~, ADDWITN+11* |
DIC(0 | ADDWITN+12* |
DIE | SETFIELD+5~, SETFIELD+12*, ADDWITN+6~, ADDWITN+16*, EDTWITN+6~, EDTWITN+13* |
DIK | DELWITN+4~, DELWITN+14* |
DLAYGO | ADDWITN+6~, ADDWITN+11* |
DO | ADDWITN+6~ |
DR | SETFIELD+5~, SETFIELD+6*, ADDWITN+6~, ADDWITN+16*, ADDWITN+31*, EDTWITN+6~, EDTWITN+11*, EDTWITN+27* |
DR(1 | SETFIELD+13*, ADDWITN+24*, ADDWITN+25*, ADDWITN+26*, ADDWITN+27*, ADDWITN+28*, ADDWITN+29*, EDTWITN+20*, EDTWITN+21*, EDTWITN+22* , EDTWITN+23*, EDTWITN+24*, EDTWITN+25* |
DT | REPLWP+22 |
FIELD | REPLWP+8~, REPLWP+9*, REPLWP+11 |
FILE | GET+7~, GET+12*, GET+13, GET+17, GET+18, GET+19, GET+24, GET+26, GET+27, REPLWP+8~ , REPLWP+9*, REPLWP+10, REPLWP+11 |
FLAG | DTVALID~, DTVALID+8*, DTVALID+9, DTVALID+14, DTVALID+18, DTVALID+21, DTVALID+24, DTVALID+27 |
FLDCNT | GET+7~, GET+10*, GET+31* |
FLDNUM | SETFIELD+5~, SETFIELD+10*, SETFIELD+11, SETFIELD+13, SETFIELD+18, SETFIELD+20 |
FNUM | GET+7~, GET+19*, GET+20, GET+24, GET+26, GET+28, GET+29, GET+30 |
FORM | GET+7~, GET+10*, GET+12, GET+15, GET+16, GET+21, GET+23, GET+25 |
IDT | DTVALID~, DTVALID+10, DTVALID+12*, DTVALID+15*, DTVALID+16, DTVALID+17, DTVALID+19, DTVALID+20, DTVALID+22, DTVALID+23 , DTVALID+25, DTVALID+26, DTVALID+28*, DTVALID+29, DTVALID+30 |
IEN | GET+7~, GET+10*, GET+11, GET+13, GET+14, GET+24, GET+26, GET+28, GET+29, GET+30 , WITR~, WITR+6, WITR+7, WITR+13, DEFMD~, DEFMD+12, DEFMD+13, REPLWP+8~, REPLWP+9*, SETFIELD+5~ , SETFIELD+8*, SETFIELD+9, SETFIELD+11, SETFIELD+12, SETFIELD+18, SETFIELD+20, ADDWITN~, ADDWITN+8, ADDWITN+9, ADDWITN+10 , DELWITN+4~, DELWITN+7*, DELWITN+8, DELWITN+11, DELWITN+12, EDTWITN+6~, EDTWITN+8*, EDTWITN+10, EDTWITN+11 |
INFO | ADDWITN~, ADDWITN+13, ADDWITN+18, ADDWITN+19, ADDWITN+20, ADDWITN+21, ADDWITN+22, ADDWITN+23, EDTWITN~, EDTWITN+14 , EDTWITN+15, EDTWITN+16, EDTWITN+17, EDTWITN+18, EDTWITN+19 |
INPUT | GET~, GET+10, REPLWP~, REPLWP+9, SETFIELD~, SETFIELD+8, SETFIELD+10, ADDWITN+6~, DELWITN~, DELWITN+6 , DELWITN+7, DELWITN+9, EDTWITN~, EDTWITN+8, EDTWITN+9 |
INVFLDS | GET+7~, GET+9*, GET+12*, GET+20 |
LINE | REPLWP+8~, REPLWP+16*, REPLWP+18, REPLWP+19*, REPLWP+20 |
NAME | ADDWITN+6~, ADDWITN+18*, EDTWITN+6~, EDTWITN+14* |
NEWTXT | REPLWP+8~, REPLWP+17!, REPLWP+20*, REPLWP+21 |
NODE | GET+7~, GET+17*, GET+18, GET+19, GET+21, GET+23, GET+25, REPLWP+8~, REPLWP+11*, REPLWP+12* |
PDT | DTVALID~, DTVALID+11, DTVALID+13*, DTVALID+15*, DTVALID+16, DTVALID+17, DTVALID+19, DTVALID+20, DTVALID+22, DTVALID+23 , DTVALID+25, DTVALID+26, DTVALID+28*, DTVALID+29, DTVALID+30 |
PIECE | GET+7~, GET+18*, GET+19 |
PIEN | DEFMD+9~, DEFMD+10*, DEFMD+15*, DEFMD+16, DEFMD+17, DEFMD+19, DEFMD+20, DEFMD+21, DEFMD+24, DEFMD+25 |
PSTA | DEFMD+9~, DEFMD+10*, DEFMD+22*, DEFMD+23* |
RESULTS | GET~, GET+14*, GET+16*, WITR~, DEFMD~, REPLWP~, DTVALID~, SETFIELD~, ADDWITN~, DELWITN~ , EDTWITN~ |
RESULTS( | GET+24*, GET+26*, GET+28*, GET+29*, GET+30*, WITR+7*, WITR+8, WITR+9, WITR+10*, WITR+11* , WITR+13* |
RESULTS(0 | DEFMD+11*, DEFMD+18*, DTVALID+9*, DTVALID+10*, DTVALID+11*, DTVALID+16*, DTVALID+17*, DTVALID+19*, DTVALID+20*, DTVALID+22* , DTVALID+23*, DTVALID+25*, DTVALID+26*, DTVALID+29*, DTVALID+30*, SETFIELD+7*, SETFIELD+16*, ADDWITN+7*, ADDWITN+33*, DELWITN+5* , DELWITN+17*, EDTWITN+7*, EDTWITN+29* |
RESULTS(1 | GET+14*, GET+16*, DEFMD+19* |
RESULTS(2 | DEFMD+20* |
RESULTS(3 | DEFMD+21* |
RESULTS(4 | DEFMD+23* |
RESULTS(5 | DEFMD+24* |
RESULTS(6 | DEFMD+25*, DEFMD+26* |
ROOT | REPLWP+8~, REPLWP+10*, REPLWP+14, REPLWP+21, REPLWP+22 |
STA | DEFMD+9~, DEFMD+10*, DEFMD+13*, DEFMD+14, DEFMD+15, DEFMD+22 |
STATE | WITR+4~, WITR+5*, WITR+8*, WITR+10, ADDWITN+6~, ADDWITN+21*, EDTWITN+6~, EDTWITN+17* |
STREET | ADDWITN+6~, ADDWITN+19*, EDTWITN+6~, EDTWITN+15* |
SUBN | WITR+4~, WITR+5*, WITR+6*, WITR+7, WITR+11, WITR+13 |
U | GET+10, WITR+8, WITR+9, WITR+10, WITR+11, DEFMD+13, DEFMD+17, DEFMD+19, DEFMD+20, DEFMD+21 , DEFMD+24, DEFMD+25, REPLWP+9, SETFIELD+8, SETFIELD+10, ADDWITN+13, ADDWITN+18, ADDWITN+19, ADDWITN+20, ADDWITN+21 , ADDWITN+22, ADDWITN+23, DELWITN+7, DELWITN+9, EDTWITN+8, EDTWITN+9, EDTWITN+14, EDTWITN+15, EDTWITN+16, EDTWITN+17 , EDTWITN+18, EDTWITN+19 |
VALUE | SETFIELD~, SETFIELD+20 |
VAR | GET+7~ |
WDT | WITR+4~, WITR+5*, WITR+9*, WITR+10 |
WITDATE | ADDWITN+6~, ADDWITN+23*, EDTWITN+6~, EDTWITN+19* |
WITNO | DELWITN+4~, DELWITN+9*, DELWITN+10, DELWITN+11, DELWITN+13, EDTWITN+6~, EDTWITN+9*, EDTWITN+10, EDTWITN+12 |
X | DTI~, ADDWITN+13* |
Y | DTI+1~, DTI+3, SETFIELD+15, ADDWITN+15, DELWITN+16 |
ZIP | ADDWITN+6~, ADDWITN+22*, EDTWITN+6~, EDTWITN+18* |