399 (139)    INDEX (.11)

Name Value
FILE 399
NAME AUPDID
DESCRIPTION
This cross reference maintains the integrity of the rendering or attending
provider id whenever an insurance company is added, deleted or changed
on the claim.  If either of these provider functions exist on the bill,
this cross reference sets the default id data based on the insurance co's
parameters.
SHORT DESCRIPTION UPDATE PROVIDER ID WHEN DATA FIELDS CHANGE AT TOP LEVEL OF FILE
TYPE MUMPS
EXECUTION RECORD
ACTIVITY IR
USE ACTION
ROOT TYPE INDEX FILE
ROOT FILE 399
SET LOGIC D:X1(1)'=X2(1)!(X1(5)'=X2(5)) SETID^IBCEP3(DA,1) D:X1(2)'=X2(2)!(X1(4)'=X2(4)) SETID^IBCEP3(DA,2) D:X1(3)'=X2(3)!(X1(6)'=X2(6)) SETID^IBCEP3(DA,3)
SET CONDITION CODE S X=$S($O(^DGCR(399,DA,"PRV",0)):1,1:0)
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   399
    FIELD:   101
    COLLATION:   forwards
  • ORDER NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   399
    FIELD:   102
    COLLATION:   forwards
  • ORDER NUMBER:   3
    TYPE OF VALUE:   FIELD
    FILE:   399
    FIELD:   103
    COLLATION:   forwards
  • ORDER NUMBER:   4
    TYPE OF VALUE:   FIELD
    FILE:   399
    FIELD:   113
    COLLATION:   forwards
  • ORDER NUMBER:   5
    TYPE OF VALUE:   FIELD
    FILE:   399
    FIELD:   112
    COLLATION:   forwards
  • ORDER NUMBER:   6
    TYPE OF VALUE:   FIELD
    FILE:   399
    FIELD:   114
    COLLATION:   forwards
KILL LOGIC D:X1(1)'=X2(1)!(X1(5)'=X2(5)) DELID^IBCEP3(DA,1) D:X1(2)'=X2(2)!(X1(4)'=X2(4)) DELID^IBCEP3(DA,2) D:X1(3)'=X2(3)!(X1(6)'=X2(6)) DELID^IBCEP3(DA,3)
KILL CONDITION CODE S X=$S($O(^DGCR(399,DA,"PRV",0)):1,1:0)