Routine: IBCEMRA

Information

IBCEMRA ;ALB/TMP - 837 MEDICARE MRA UTILITIES ;30-JUL-98

Source file <IBCEMRA.m>

Name	Comments	DBIA/ICR reference
CATOK(X)	; Screen executed for data in plan category field in field 355.3 ; Required Input: ; X = PLAN CATEGORY CODE ENTERED ; DA = File 355.3 IEN ; Output: ; Returns 1 if valid (TYPE OF PLAN'S MAJOR CATEGORY = 5 MEDICARE) ; 0 if not valid ; 0 if TYPE OF PLAN is blank
MRA(IBEOB)	; Print the MRA for entry # IBEOB in file 361.1

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: MRA+1