IBCNRDV ;OAKFO/ELZ - INSURANCE INFORMATION EXCHANGE VIA RDV ;27-MAR-03
Source file <IBCNRDV.m>
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 |
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
RPC Name | Call Tags |
---|---|
IBCN INSURANCE QUERY | RPC |
IBCN INSURANCE QUERY TASK | RPC |
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^IBE(350.9 - [#350.9] | GET1^DIQ |
^IBE(355.1 - [#355.1] | FIND1^DIC |
^IBA(355.33 - [#355.33] | GET1^DIQ |
^IBA(355.34 - [#355.34] | Classic Fileman Calls |
^DIC(36 - [#36] | GET1^DIQ |