OOPSGUI8 ;WIOFO/LLH-RPC Broker calls for GUI ;10/23/01
Source file <OOPSGUI8.m>
| 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. |
| 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 |
