| Name | Value |
|---|---|
| FORM FIELD REFERENCE | UB-04 |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| DATA ELEMENT | N-GET FROM PREVIOUS EXTRACT |
| PAD CHARACTER | NO PAD REQUIRED |
| FORMAT CODE | N Z,DATA,CODE I $D(IBXSAVE("VC")) K IBXSAVE("VCS") S Z=0 F S Z=$O(IBXSAVE("VC",Z)) Q:'Z S DATA=$G(IBXSAVE("VC",Z)),CODE=$P(DATA,U,1) I CODE'="" S IBXSAVE("VCS"," "_CODE,Z)=DATA |
| FORMAT CODE DESCRIPTION |
If the "VC" value code array exists, then sort it by value code in the
IBXSAVE("VCS") array.
|