OOPSGUI8 ;WIOFO/LLH-RPC Broker calls for GUI ;10/23/01
Source file <OOPSGUI8.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 |
|---|---|---|
| EN1(RESULTS,INPUT) | ; Entry point for routine
; Input: INPUT contains the IEN of the ASISTS record and the ; calling menu, in the format IEN^CALLING MENU ; Output: RESULTS contains status messages back to the client. ; RESULTS(0) will = either 1 or 0. 1 if ok for form to be ; signed by calling menu option, 0 if not ok. The RESULTS ; array with status message will start at 1. |
|
| WCPS4E | ; allow WCP to sign for employee if all approvals given
|
|
| EXIT | ;
|
|
| VALID() | ; make sure same person is not signing for both safety and EH and if
; signed from menu option being called not needed again - so quit |
|
| CSIGN(RESULTS,IEN,FORM,CALL) | ; Clears Signature from form
|
|
| DTFC(RESULTS,DATE,FLAG) | ; Reformat Date/Time
; Input - Date to be reformatted ; - Flag to be used ; Output - RESULTS contains the reformatted date |
|
| GETNOI(RESULTS,OPT) | ; Broker Call to retrieve NOI Codes
; Input: OPT - Either CA1 or CA2 to indicate which codes should be ; retrieved. If CA1 must start with T, otherwise CA2 ; Output: RESULTS - NOI Description and Code |
|
| ZIPCHK(RESULTS,DATA) | ; patch 5 - validate zip code against file 5.12
; to ensure zip in file and has correct state. |
|
| AMEND(RESULTS,OLDIEN) | ; File new Amended Case
; Input: OLDIEN - The ASISTS IEN for the case to have an ; amendment created for. ; Output: RESULTS - Single value with the new case number |
|
| DONE | ||
| SETDLOC(RESULTS,P1,DATA) | ; files the detail location records
; Input - P1 is the Location record IEN concatenated with the station ; subrecord IEN. EX. 38^600 ; DATA is a # subscripted array containing the detail loc data ; in the format - detail location description^Detail Loc IEN ; Output - RESULTS indicating the success of the filing. |
| Name | Field # of Occurrence |
|---|---|
| ^%DT | DTFC+8, DTFC+10 |
| FILE^DICN | AMEND+12 |
| UPDATE^DIE | SETDLOC+13, SETDLOC+29 |
| IX^DIK | AMEND+18 |
| $$GET1^DIQ | EN1+11, WCPS4E+18 |
| VALIDATE^OOPSGUI9 | WCPS4E+26 |
| CLRES^OOPSGUIS | CSIGN+13 |
| CLRES^OOPSUTL1 | WCPS4E+18, CSIGN+12 |
| WK^OOPSUTL1 | AMEND+24 |
| EMP^OOPSVAL1 | WCPS4E+31 |
| POSTAL^XIPUTIL | ZIPCHK+10 |
| $$FMTE^XLFDT | DTFC+13 |
| RPC Name | Call Tags |
|---|---|
| OOPS REPLACE DATE/TIME | DTFC |
| OOPS CREATE AMENDMENT | AMEND |
| OOPS APPROVE SIGN FOR EMPLOYEE | EN1 |
| OOPS CLEAR SIGNATURE | CSIGN |
| OOPS GET NOI CODE | GETNOI |
| OOPS ZIP CODE MISMATCH CHECK | ZIPCHK |
| OOPS SET DETAIL LOCATION | SETDLOC |
| FileNo | Call Tags |
|---|---|
| ^OOPS(2260 - [#2260] | Classic Fileman Calls, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^OOPS( | SETDLOC+11, SETDLOC+17, SETDLOC+19, SETDLOC+20!, SETDLOC+21! |
| ^OOPS(2260 - [#2260] | VALID+5, VALID+6, AMEND+6, AMEND+7, AMEND+8*, AMEND+14*, AMEND+15, AMEND+17*, AMEND+19!, AMEND+20! , AMEND+21!, AMEND+23, AMEND+25! |
| ^OOPS(2263.3 - [#2263.3] | GETNOI+6, GETNOI+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | DTFC+5~, DTFC+8*, SETDLOC+31! |
| >> BAD | SETDLOC+7*, SETDLOC+11, SETDLOC+15* |
| CALL | EN1+8~, EN1+10*, EN1+13, EN1+16, EN1+19, WCPS4E+30, VALID+8, VALID+12, VALID+23, CSIGN~ , CSIGN+10, CSIGN+12, CSIGN+13 |
| CALLER | WCPS4E+30~* |
| CN | EN1+8~, EN1+9*, EN1+21*, WCPS4E+28*, VALID+17, VALID+18, VALID+19, VALID+20*, VALID+22, VALID+23* , VALID+24, VALID+25*, VALID+27, VALID+28*, GETNOI+4~, GETNOI+5*, GETNOI+8, GETNOI+9, GETNOI+10* |
| CNT | SETDLOC+6~, SETDLOC+23*, SETDLOC+25*, SETDLOC+26 |
| CODE | GETNOI+4~, GETNOI+7*, GETNOI+8, GETNOI+9 |
| CONT | WCPS4E+1~, VALID+2~, VALID+7*, VALID+9, VALID+11, VALID+13, VALID+15 |
| DA | AMEND+18*, DONE! |
| DATA | ZIPCHK~, ZIPCHK+7, SETDLOC~, SETDLOC+8 |
| DATA( | SETDLOC+24, SETDLOC+25 |
| DATE | DTFC~, DTFC+7, DTFC+8, DTFC+9*, DTFC+11*, DTFC+12, DTFC+13 |
| DD | AMEND+10! |
| DES | GETNOI+4~, GETNOI+5*, GETNOI+6*, GETNOI+8, GETNOI+9 |
| DIC | EN1+8~, AMEND+11*, DONE! |
| DIC(0 | AMEND+11* |
| >> DIENS | SETDLOC+17*, SETDLOC+18, SETDLOC+19, SETDLOC+20, SETDLOC+21, SETDLOC+27 |
| DIK | AMEND+18*, DONE! |
| DLAYGO | AMEND+5~, AMEND+11* |
| DO | AMEND+10! |
| DUZ | VALID+7, VALID+10, VALID+14 |
| EHAPP | VALID+2~, VALID+6*, VALID+7, VALID+10, VALID+15 |
| EHS | WCPS4E+1~ |
| ERR | VALID+2~, VALID+3*, VALID+9*, VALID+10*, VALID+11*, VALID+13*, VALID+14*, VALID+15*, VALID+16, VALID+21 , VALID+26 |
| FILE | SETDLOC+6~, SETDLOC+7*, SETDLOC+11, SETDLOC+17, SETDLOC+19, SETDLOC+20, SETDLOC+21 |
| FLAG | DTFC~, DTFC+6*, DTFC+7, DTFC+11 |
| FORM | EN1+8~, EN1+11*, EN1+12*, EN1+16, WCPS4E+18, WCPS4E+26, CSIGN~, CSIGN+10, CSIGN+12, CSIGN+13 |
| IEN | EN1+8~, EN1+10*, EN1+11, EN1+16, WCPS4E+18, WCPS4E+26, VALID+5, VALID+6, CSIGN~, CSIGN+10 , CSIGN+12, CSIGN+13, AMEND+22~, AMEND+24* |
| IENS | SETDLOC+6~, SETDLOC+12*, SETDLOC+27*, SETDLOC+28 |
| INPUT | EN1~, EN1+10 |
| LOC | SETDLOC+6~, SETDLOC+7*, SETDLOC+10, SETDLOC+11, SETDLOC+12, SETDLOC+17, SETDLOC+19, SETDLOC+20, SETDLOC+21, SETDLOC+27 |
| LV1 | SETDLOC+6~, SETDLOC+17*, SETDLOC+19, SETDLOC+20 |
| LV2 | SETDLOC+6~, SETDLOC+19*, SETDLOC+20 |
| MSG | SETDLOC+6~, SETDLOC+30, SETDLOC+31! |
| MSG("DIERR" | SETDLOC+14 |
| NEWIEN | AMEND+13*, AMEND+14, AMEND+15, AMEND+17, AMEND+18, AMEND+19, AMEND+20, AMEND+21, AMEND+23, AMEND+25 , DONE! |
| NOI | GETNOI+4~, GETNOI+6*, GETNOI+7, GETNOI+8, GETNOI+9 |
| NUM | AMEND+7*, AMEND+9*, AMEND+11, AMEND+16, AMEND+26, DONE! |
| OLDIEN | AMEND~, AMEND+6, AMEND+7, AMEND+8, AMEND+14, AMEND+24, DONE! |
| OOP | AMEND+15*, AMEND+16*, AMEND+17, DONE! |
| OPT | GETNOI~, GETNOI+8, GETNOI+9 |
| P1 | SETDLOC~, SETDLOC+7 |
| PRM1 | EN1+8~, EN1+13*, EN1+14, VALID+18, VALID+27 |
| PRM2 | EN1+8~, EN1+14*, EN1+21 |
| REC | SETDLOC+6~, SETDLOC+23*, SETDLOC+24*, SETDLOC+25 |
| RECNO | SETDLOC+6~, SETDLOC+23*, SETDLOC+25*, SETDLOC+26*, SETDLOC+27 |
| RESULTS | EN1~, CSIGN~, CSIGN+9*, CSIGN+10*, CSIGN+14*, DTFC~, DTFC+7*, DTFC+12*, DTFC+13*, GETNOI~ , ZIPCHK~, ZIPCHK+8*, ZIPCHK+9*, ZIPCHK+11*, ZIPCHK+12*, ZIPCHK+13*, AMEND~, AMEND+26*, SETDLOC~, SETDLOC+7* , SETDLOC+8*, SETDLOC+9*, SETDLOC+10*, SETDLOC+15*, SETDLOC+30* |
| RESULTS( | EN1+21*, WCPS4E+28*, VALID+17*, VALID+18*, VALID+19*, VALID+22*, VALID+23*, VALID+24*, VALID+27*, GETNOI+8* , GETNOI+9* |
| RESULTS(0 | EN1+17*, EN1+20*, EN1+21, WCPS4E+25*, WCPS4E+29* |
| RESULTS(1 | EN1+18*, DTFC+7*, DTFC+12*, DTFC+13* |
| SIGN | EN1+8~, EN1+15*, WCPS4E+1~, WCPS4E+2* |
| SOAPP | VALID+2~, VALID+5*, VALID+7, VALID+11, VALID+14 |
| SOS | WCPS4E+1~ |
| >> STA | SETDLOC+7*, SETDLOC+9, SETDLOC+11, SETDLOC+12, SETDLOC+17 |
| STAFDA | SETDLOC+6~, SETDLOC+23! |
| STAFDA( | SETDLOC+12*, SETDLOC+28* |
| STATE | ZIPCHK+6~, ZIPCHK+7*, ZIPCHK+9, ZIPCHK+12 |
| STR | SETDLOC+6~, SETDLOC+25*, SETDLOC+28, SETDLOC+31! |
| SUF | AMEND+7*, AMEND+9, DONE! |
| U | EN1+10, VALID+5, VALID+6, GETNOI+7, ZIPCHK+7, AMEND+7, AMEND+8, AMEND+16, AMEND+17, AMEND+23 , SETDLOC+7, SETDLOC+25, SETDLOC+28 |
| VALID | WCPS4E+1~, WCPS4E+2*, WCPS4E+26, WCPS4E+28, WCPS4E+29, VALID+2~, VALID+3*, VALID+20*, VALID+25*, VALID+28* , VALID+29 |
| VALSTATE | ZIPCHK+6~ |
| VALZIP | ZIPCHK+6~ |
| VIEW | WCPS4E+1~, WCPS4E+2*, WCPS4E+16 |
| WCPDUZ | AMEND+22~, AMEND+23*, AMEND+24 |
| WOK | AMEND+22~, AMEND+24* |
| X | DTFC+5~, DTFC+8*, DTFC+9*, AMEND+11*, AMEND+22~, AMEND+24*, DONE!, SETDLOC+31! |
| Y | EN1+8~, DTFC+9, DTFC+11, AMEND+12, AMEND+13, DONE!, SETDLOC+31! |
| ZIP | ZIPCHK+6~, ZIPCHK+7*, ZIPCHK+9, ZIPCHK+10 |
| ZZIP | ZIPCHK+6~, ZIPCHK+10 |
| ZZIP("ERROR" | ZIPCHK+11 |
| ZZIP("STATE" | ZIPCHK+12 |
