Routine: IBCNSMM1

Information

IBCNSMM1 ;ALB/CMS -MEDICARE INSURANCE INTAKE (CONT) ; 11/8/06 9:32am

Name	Comments	DBIA/ICR reference
SETP(IBP)	; -- Stuff data fields in patient policy ; Required Input: ; IBP =A for Part A, B for Part B ; DFN =pt. ien ; IBCDFN =patient policy ien ; IBNAME =Name of Insured ; IBHICN =Subscriber ID - as of IB*601 could also be a MBI Number ; IBAEFF =Effective Date of Plan A ; IBBEFF =Effective Date of Plan B ; IBCNSP =Medicare (WNR) ien ^Part A ien ^Part B ien ; IBCOBI =Coordination of Benefits (Internal value)
SETEV	; -- Update Insurance event
SETPQ
BUFF(IBP)	; -- Set IBBUF array with policy info for Buffer File ; Return: IBBUF array ; IBBUF(355.33 field #s)=corresponding policy, plan and company data ; i.e. IBBUF(20.01)=Insurance Company Name ; IBBUF(90.01)=Group Name ; IBBUF(60.01)=DFN
OK	; -- ask okay
GETWNR()	; -- Find and return the MEDICARE (WNR) ien ; -- Returns Error message or ; DIC(36 IEN ^"MEDICARE (WNR)"^IBA(355.3 PART A IEN ^"PART A"^ IBA(355.3 PART B IEN ^"PART B"
GETWNRQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !," PART "_IBP_" COVERAGE VERIFIED." Line Location: SETP+47
Function Call: WRITE	Prompt: !,?3,$P(IBCNSP,U,2)," PART "_IBP_" entry #"_+IBBDA_" added to Insurance Buffer File." Line Location: BUFF+24
Function Call: WRITE	Prompt: !,*7,?3,"Warning: Could not add new policy Part "_IBP_" in Buffer File.",!,?13,"("_$P(IBBDA,U,2)_")",! Line Location: BUFF+25
Function Call: WRITE	Prompt: ! Line Location: OK+6