| FORMAT CODE |
N IBZ,W,DEFPOS,POS,HOF D F^IBCEF("N-HCFA SERVICE LINE CALLABLE","IBZ",,IBXIEN) S DEFPOS="",W=0 X "F S W=$O(IBZ(W)) Q:'W S POS=$P($G(IBZ(W)),U,3),HOF=(POS=11!(POS=12)) S:DEFPOS=""""!HOF DEFPOS=POS Q:HOF" S IBXDATA=DEFPOS |
| FORMAT CODE DESCRIPTION |
For professional claims only, this is the claim level place of service
Previous to IB patch 400, this field was the admitting DX. The admitting
DX and qualifier is now sent in CL1A-15 (Qualifier) and CL1A-16 (Admitting
DX code).
code. IB patch 400 changes.
Build the array with all professional line items (IBZ array).
Loop through the line items looking for POS code of 11 or 12 (home or
office). If either 11 or 12 is found, then use that POS code as the
claim level POS code. If neither 11 nor 12 is found in the line level
POS codes, then use the first POS code found in the line items as the
claim level POS code.
|
