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 DIFF S IBXSAVE("PRV1")=$$PRVDATA^IBJPS3(IBXIEN),DIFF=$$DIFF^IBJPS3(IBXIEN,1) S:'DIFF (IBXSAVE("PRV1"),IBPTPNPI)="" Q:'DIFF S $P(IBXSAVE("PRV1"),U,12,14)="87^2^24",IBPTPNPI=$P($G(IBXSAVE("PRV1")),U,2) |
FORMAT CODE DESCRIPTION | PRV1-1.5 calculate only piece PRV1-3 Entity type qualifier is "2" PRV1-5 ID Code qualifier is "24" Very special variable IBPTPNPI is also set here in this format code. This is the pay-to provider NPI#. It is also blanked out if no differences exist. This is used in NPI-18. -------------------------------- Save the pay-to provider data string in IBXSAVE. But if no differences exist between the pay-to provider data and the billing provider data, then blank out the pay-to provider data. If differences do exist, then manually hard-code the literal values for 3 fields into the pay-to provider string: PRV1-2 Entity ID code is "87" |