| 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 CODE,CT,Z I $D(IBXSAVE("VCS")) K IBXSAVE("VC") S CODE="",CT=0 F S CODE=$O(IBXSAVE("VCS",CODE)) Q:CODE="" S Z=0 F S Z=$O(IBXSAVE("VCS",CODE,Z)) Q:'Z S CT=CT+1,IBXSAVE("VC",CT)=IBXSAVE("VCS",CODE,Z) K IBXSAVE("VCS",CODE,Z) |
| FORMAT CODE DESCRIPTION |
If the value codes exist and have been sorted into the IBXSAVE("VCS")
array, then loop thru that array and re-build the IBXSAVE("VC") array.
|