Name | Value |
---|---|
NAME | N-CONDITION RELATED TO EMPLOY |
SECURITY LEVEL | NATIONAL,NO EDIT |
TYPE OF ELEMENT | EXTRACTED VIA CODE |
ELEMENT CATEGORY | INDIVIDUAL ELEMENT |
BASE FILE | BILL/CLAIMS |
EXTRACT CODE | X "N Z,Z1 S Z=0 F S Z=$O(^DGCR(399,IBXIEN,""CC"",Z)) Q:'Z S Z1=+$G(^(Z,0)),Z1=$P($G(^DGCR(399.1,+Z1,0)),U,2) I Z1=""02"" S IBXDATA=1 Q" I '$G(IBXDATA),$$OCC^IBCEF1(IBXIEN,1) S IBXDATA=1 |
DESCRIPTION | If any condition codes are 02, this field is 1 (yes) for bill entry IBXIEN. If no 02 condition codes, check occurrence codes for OCCUR RELATED TO = 1. |