Routine: IBCNRDV

Entry Points

Name	Comments	DBIA/ICR reference
OPT	; Menu option entry point. This is used to select a patient to request ; information about from the remote treating facilities.
AGAIN
BACKGND	; background/tasked entry point ; IBTYPE is being used as a flag to indicate this is running in background	ICR #4288 Status: Active Usage: Private ICR #7473 Status: Active Usage: Private
VCHECK(IBB)	; Check to make sure the record is not duplicate and passes validity check.
VCHECKX	;
INDEX(DFN)	;
RPC(IBD,IBICN)	; RPC entry for looking up insurance info
MAP	; this is a mapping of data returned from ALL^IBCNS1 to the buffer file ; format is: node number \| piece \| extract node \| extract piece ; \| 355.33 field number \| format out code (if any) ; \| format in code (if any) ; the extract nodes will be sequential to match buffer file DD
SEND(IBH,IBX,IBICN,IBRPC)	; called to send off queries
CHECK(IBR,IBH)	; called to check the return status of an RPC
RETURN(IBR,IBH)	; called to get the return data and clear the broker
TASK	; queue off task job
TRKR(DFN,IBSAVEI,IBSAVEJ,IBDUZ)	; claims tracking entry
ADM(DFN,IBSAVE1,IBSAVE2,IBSAVE3,IBSAVE4)	; admit event entry
FILE(IBX)	; updates data into the log file
VALID(IBARY)	; Check for invalid entries in the incoming data
VALIDQ	;
DUP(IBARY)	; Check for duplicate in the incoming data
EXCTOP	;Plan Types to Exclude

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This patient has no remote treating facilities to query." Line Location: BACKGND+9
Function Call: WRITE	Prompt: !!,"The patient ",VADM(1)," has the following ",IBT," remote facilitie(s)",! Line Location: BACKGND+13
Function Call: WRITE	Prompt: !?10,$P(IBT(IBX),"^",2) Line Location: BACKGND+13
Function Call: WRITE	Prompt: !!,"No ICN for this patient" Line Location: BACKGND+17
Function Call: WRITE	Prompt: !!,"Unable to perform any remote queries.",! Line Location: BACKGND+26

RPC Name	Call Tags
IBCN INSURANCE QUERY	RPC
IBCN INSURANCE QUERY TASK	RPC