Name | Value |
---|---|
NAME | N-UB-04 PROCEDURES |
SECURITY LEVEL | NATIONAL,NO EDIT |
TYPE OF ELEMENT | EXTRACTED VIA CODE |
ELEMENT CATEGORY | GROUP ELEMENT |
BASE FILE | BILL/CLAIMS |
EXTRACT CODE | N IB,IBPROC,Z D PROCX^IBCVA1 S (IB,Z)=0 F S IB=$O(IBPROC(IB)) Q:'IB S Z=Z+1,IBXDATA(Z)=IBPROC(IB) D SETMODS^IBCVA1($P(IBPROC(IB),U,15),Z,.IBXSAVE) |
DESCRIPTION | The procedures associated with bill IBXIEN. Format is: procedure code;ICPT( or ICD0(^procedure date in fileman format. Data is returned in an array IBXDATA(1-n) and modifiers on the procedures are returned in IBXSAVE("PROCMODS",1-n)=modifiers separated by comma. |