Routine: IBCEP0

Information

IBCEP0 ;ALB/TMP - Functions for PROVIDER ID MAINTENANCE ;13-DEC-99

Source file <IBCEP0.m>

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for IBCE PRV INS ID
EN1(IBINS)	; Entrypoint from insurance co maintenance
HDR	; -- header code
INIT	; Initialization
INSID(IBINS,IBDSP,IBSORT)	;
INSIDQ
BLD(IBINS,IBDSP,IBSORT)	; Build display for Insurance co level provider ID's
BLDQ
EXPND	;
HELP	;
EXIT	;
SEL(IBDA,MANY)	; Select from provider id list ; IBDA is passed by reference and IBDA(1) returned containing ; ien's of the provider id records selected (file 355.9). ; If > 1 entry can be selected, MANY is set to 1
ENX(IBINS1)	; Insurance co level defaults for all providers or ; for all providers by care unit
ENQ
PPTYP(IBINS)	; Returns the ien of the default performing provider type for ; insurance company IBINS (ien file 36)
SCREEN(WHICH)	; This screen is used the menu protocol to screen out the ID functions if it is a child ins co