| Name | Value |
|---|---|
| FORM FIELD REFERENCE | IB 837 TRANSMISSION |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| DATA ELEMENT | N-GET FROM PREVIOUS EXTRACT |
| PAD CHARACTER | NO PAD REQUIRED |
| FORMAT CODE | N IBX,IBZ,Z S IBXSAVE("CL1A-16")="" I $$INPAT^IBCEF(IBXIEN),$$FT^IBCEF(IBXIEN)=3 S IBZ=+$G(^DGCR(399,IBXIEN,"U2")) I IBZ S Z=$$ICD9^IBACSV(IBZ),IBX=$TR($P(Z,U,1),".") I IBX'="" S IBXDATA=$S($P(Z,U,19)=1:"BJ",1:"ABJ"),IBXSAVE("CL1A-16")=IBX |
| FORMAT CODE DESCRIPTION |
CL1A-15
This is the admitting diagnosis qualifier. This is for inpatient,
UB's only. If the claim has an admitting diagnosis, then save it
in temporary variable IBXSAVE("CL1A-16") and output "BJ" here in
this piece.
|