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
INSSUB(IBINS,IBRET,IBLER,IBPLNTYP,IBINSACT,IBPTACTV)	; IB*822/DTG look up subscribers by plan for an Insurance
INSSUBQ	; exit point for ins, plan, subscriber collect
DTC5(IBDTCK)	; check date return external with 4 digit year if valid
DTCO	; date check exit
IER(IBMS)	; set error return

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