; Test error for text-string
; match(one line)
; MODULE NAME: INLSRCH (Interface Error LINE Search)
; DESCRIPTION: To find a search string in a error which may be a
; continuation line or not. The search line MAY be
; split across multiple lines.
; RETURN= PASS/FAIL (1/0)
; PARAMETERS:
; SRCHTEXT(PBR)= The array of search string containing less than a 70 char.
; count value and subscript nodes containing the strings
; MSGTEXT(PBR)= error text/array
; INFOUND(PBR)= The array used to indicate strings matches found.
; INLOGIC(PBV)= The flag indicating the type(OR/AND) of logic used with
; matching error data and the search strings.
; CODE BEGINS
INERSRCH(INETEXT,INEIEN,INELOGIC)
; Test error for text-string match(multi)
; MODULE NAME: INERSRCH (Interface Error MESSAGE Search)
; DESCRIPTION: Search ^INTHER( INEIEN ) error for matching values to
; the search string array: INETEXT.
; RETURN= PASS/FAIL (1/0)
; PARAMETERS:
; INETEXT= search string array with base node("INTEXT") set to
; subscript count value and subscript nodes containing
; the strings
; INEIEN= The IEN of the error in the ^INTHER error file
; INELOGIC= The matching logic switch set to 1 or 0
; 1= ANDing functionality RE:all strings must be found
; in the error
; 0= ORing functionality RE:only one string need match
; CODE BEGINS
EXPAND(INTEMPLT,INFILE)
;Expand-action logic on List Processor field
; MODULE NAME: EXPAND (Expand-action logic for ^DWL )
; DESCRIPTION: Expand using print template name passed and
; on the file passed.
; RETURN = none
; PARAMETERS
; INTEMPLT = The print template to use
; INFILE = The file to use
; CODE BEGINS