Routine: IBCNINSU

Information

IBCNINSU ;AITC/TAZ - GENERAL INSURANCE UTILITIES ;8/20/20 12:46p.m.

Name	Comments	DBIA/ICR reference
PAYER(PIEN,APP,FLDS,FLGS,ARRAY)	;Payer Data Retrieval
PAYERX	; Exit subroutine
PYRDEACT(PIEN)	;Check if payer is deactivated
STOP()	; Determine if user wants to exit out of the whole option ; Init vars
STOPX	; STOP exit pt
FOREIGN(VALUE,PIECES,BLANK)	; check for ASCII chars outside (32-126 inclusive)
FILTER(STR,FLT)	; Filter Insurance Name, Group Name or Number
FILTERX	; Exit
VALIDDT(X)	; Check for validate date (internal form of the date) ;IB*737/CKB ; Input: X - internal date, FM format ; Returns: Y - if date if NOT valid, returns -1 ; if the date is "" (null), returns a "" (null) ; if valid date, returns the internal date

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: STOP+4