| Name | Value |
|---|---|
| NAME | N-ALL 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 ALLPROC^IBCVA1(IBXIEN,.IBPROC) 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 |
Extracts all procedures on a bill. Returns group data IBXDATA(1-n)=
procedure code;ICPT( or ICD0(^procedure date in fileman format.
Modifiers on the procedures are returned in IBXSAVE("PROCMODS",1-n)=
modifiers separated by comma.
|