| 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"
|
