Routine: IBCNSC02

Information

IBCNSC02 ;ALB/ESG - Insurance Company parent/child management ;01-NOV-2005

Name	Comments	DBIA/ICR reference
DISP	; entry point for display of parent/child companies
DISPX	; end with 2 blank lines
PARENT(IBCNS)	; Insurance company parent/child management ; Calls ListMan screen for parent insurance companies
PARENTX	;
HDR	; List header info
HDRX	;
BLD	; Build list contents
BLDX	;
LINK	; action protocol IBCNSL LINK used to associate children insurance ; companies to the current parent ins co for the list
LINKX	;
UNLINK	; action protocol IBCNSL UNLINK used to disassociate selected children ; insurance companies from the list.
UNLINKX	;
PCNT(Z)	; count number of children for parent ins co Z
INSADD(Z)	; function to return ins co address components
INSADDX	;
INSCO(Z)	; return display data for ins co Z
INSCOX	;
INSLIST(INS)	; insurance company lister for ^DIC call
INSLISTX	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"You must hold the IB EDI INSURANCE EDIT key to access this option." Line Location: LINK+5
Function Call: WRITE	Prompt: ! Line Location: LINK+10
Function Call: WRITE	Prompt: ! Line Location: LINK+23
Function Call: WRITE	Prompt: !!?5,"You must hold the IB EDI INSURANCE EDIT key to access this option." Line Location: UNLINK+5
Function Call: WRITE	Prompt: !!?5,"There are no insurance companies to select." Line Location: UNLINK+10
Function Call: WRITE	Prompt: ! Line Location: UNLINK+14
Function Call: WRITE	Prompt: ! Line Location: UNLINK+18
Function Call: WRITE	Prompt: ?27,$E($P(Z,U,2),1,20) Line Location: INSLIST+3
Function Call: WRITE	Prompt: ?47," ",$P(Z,U,6) Line Location: INSLIST+4