IBDATA |
Input |
Array to be passed by reference, contains Insurance
entries to be added to the INSURANCE BUFFER file (#355.33).
Medicare Only
Patient Name (DFN) 60.01
IBDATA("M","DFN") pointer to #2
Source of Information .03
IBDATA("M","SOURCE")
1 - Interview
Effective Date 60.02
IBDATA("M","PART A")
Effective Date 60.02
IBDATA("M","PART B")
Medicare HICN 60.04
IBDATA("M","HICN")
*Name of Insured 60.07
IBDATA("M","NAME")
Note: IB*2*497 - replaced by 91.01
Name of Insured 91.01
IBDATA("M","NAME")
Veteran's Insurance
Patient Name (DFN) 60.01
IBDATA(x,60.01) pointer to #2
Source of Information .03
IBDATA(x,.03)
1 - Interview
Whose Insurance 60.05
IBDATA(x,60.05) 'v' for Veteran
Pt. Relationship to 60.06
IBDATA(x,60.06) '01' for Patient
Insured
Insurance Company Name 20.01
IBDATA(x,20.01)
*Name of Insured 60.07
IBDATA(x,60.07)
Note: IB*2*497 - replaced by 91.01
Name of Insured 91.01
IBDATA(x,91.01)
*Subscriber ID 60.04
IBDATA(x,60.04)
Note: IB*2*497 - replaced by 90.03
Subscriber ID 90.03
IBDATA(x,90.03)
*Group Number 40.03
IBDATA(x,40.03)
Note: IB*2*497 - replaced by 90.02
Group Number 90.02
IBDATA(x,90.02)
Spouse's Insurance
Patient Name (DFN) 60.01
IBDATA(x,60.01) pointer to #2
Source of Information .03
IBDATA(x,.03)
1 - Interview
Whose Insurance 60.05
IBDATA(x,60.05) 's' for Spouse
Pt. Relationship to 60.06
IBDATA(x,60.06) '02' for Spouse
Insured
Insurance Company Name 20.01
IBDATA(x,20.01)
*Name of Insured 60.07
IBDATA(x,60.07)
Note: IB*2*497 - replaced by 91.01
Name of Insured 91.01
IBDATA(x,91.01)
*Subscriber ID 60.04
IBDATA(x,60.04)
Note: IB*2*497 - replaced by 90.03
Subscriber ID 90.03
IBDATA(x,90.03)
*Group Number 40.03
IBDATA(x,40.03)
Note: IB*2*497 - replaced by 90.02
Group Number 90.02
IBDATA(x,90.02)
The entries subscripted by X (w/X=1:1) are regular insurance entries. The
second level subscript contains the data to be filed in the buffer for a
particular insurance policy. This second level subscript is the field number
of the data field in the INSURANCE BUFFER file (#355.33). Source of
Information (.03) and Patient Name (60.01) are required.
|
IBDATA(x) |
Output |
IBDATA(x,"MESSAGE")
where X="M",1:1
A message node is added to the input array for each insurance company,
including Medicare. This node will be either the IFN of the new entry in the
buffer file if filing was successful or 0^error message.
|