Routine: OOPSGUIS

Entry Points

Name	Comments	DBIA/ICR reference
STA(RESULTS)	; Get listing of Stations from Edit Site Parameter
SIGNCA7(RESULTS,INPUT,SIGN)	; Validates Electronic Signature and creates ; validation code to ensure data not changed ; Input: INPUT - FILE^FIELD^IEN where File and Field are the file ; and field the data is being filed into and IEN ; is the internal record number. ; SIGN - the electronic signature to be encrypted ; Output: RESULTS - is an array containing a list of fields that did ; not pass data validation prior to applying the ES.
HASH(X)	;
ENCODE(X,X1,X2)	; X=SIGN BLK, X1=DUZ, X2=CHKSUM CRITICAL FIELDS
DECODE(RESULTS,IEN,CALL,FORM)	; ; Call to return electronic signature to readable form ; Input: IEN - internal record number of CA7 case ; CALL - call menu - either E (Employee) or W (Workers Comp) ; FORM - form - right now only expects CA7 ; Output: RESULTS - readable electronic signature
SUM(X)	;CALCULATE CHECKSUM VALUE FOR STRING
CLRES(IEN,CALL,FORM)	; Clear signature from CA7, if necessary ; Input: IEN - record IEN for CA7 ; CALL - calling menu - either E (EMP) or W (Workers comp) ; FORM - form where ES should be removed (now only CA7)
GETDLOC(RESULTS,INPUT)	; Get Detail Loc for specific incident setting ; Input: INPUT - File _"^"_Station IEN from a station in the ; site par file_"^"_rec ien from file to retrieve ; subfile information for. ; Output: RESULTS - listing of valid sub file data

Name	Line Occurrences
Function Call: WRITE	Prompt: (Workers Line Location: DECODE+3
Function Call: WRITE	Prompt: (Workers Line Location: CLRES+2

FileNo	Call Tags
^OOPS(2260 - [#2260]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ