Routine: IBCNICB

Information

IBCNICB ;ALB/SBW - Update utilities for the ICB interface ;1 SEP 2009

Source file <IBCNICB.m>

Name	Comments	DBIA/ICR reference
ACCEPAPI(RESULT,IBBUFDA,DFN,IBINSDA,IBGRPDA,IBPOLDA,IBMVINS,IBMVGRP,IBMVPOL,IBNEWINS,IBNEWGRP,IBNEWPOL,IVMREPTR,IBELIG)	;
REJECAPI(RESULT,IBBUFDA,IVMREPTR)	;
UPDTICB(RESULT,DFN,IBPOLDA,IBGRPDA,IBPOLCOM,IBPOLBIL,IBPLAN,IBELEC,IBGPCOM,IBFTF,IBFTFVAL)	;
PPCOMM(DFN,IBPOLDA,IBPOLCOM,RESULT)	; ib2528 record patient policy comments ; Input: ; DFN = patient IEN ; IBPOLDA = ien of selected INSURANCE POLICY at ^DPT("_DFN_",.312, ; IBPOLCOM = patient policy COMMENT data
ADCOM(DFN,IBPOLDA,IBPOLCOM,RESULT)	; add new entry to the COMMENT - SUBSCRIBER POLICY multiple ; Input: ; DFN = patient IEN ; IBPOLDA = ien of INSURANCE POLICY at ^DPT("_DFN_",.312, ; IBPOLCOM = patient policy COMMENT data ; DUZ = user IEN - system wide variable
EDCOM(IBPOLDA,IBPOLCOM,IBDT)	; edit the existing entry at 2.312,1.18 multiple ; input - IBPOLDA = ien of INSURANCE POLICY at ^DPT("_DFN_",.312, ; IBDT = date/time that comment was made
UPDPOL(RESULT,IBBUFDA,DFN,IBINSDA,IBGRPDA,IBPOLDA)	;update a new group into
CLEANUP	;This logic will delete obsolete Individual Plans, Repoint Insurance
DELBU	;Delete Benefits Used