| Name | Value |
|---|---|
| FORM FIELD REFERENCE | LEGACY UB-92 |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| DATA ELEMENT | N-VALUE CODES |
| PAD CHARACTER | NO PAD REQUIRED |
| FORMAT CODE | N Z,Z0,Z1 S Z=0 F S Z=$O(IBFL(39,Z)) K:'Z IBFL(39) Q:'Z S Z0=$P(IBFL(39,Z),U,2),Z1=$P(IBFL(39,Z),U,3),IBXSAVE("VC",Z)=$P(IBFL(39,Z),U)_U_$S(+Z0'=0:$TR($J(Z0,10,2),"."," "),1:" 0000 00") |
| FORMAT CODE DESCRIPTION |
Save all value codes extracted into IBXSAVE array for later use. The 2
pieces that constitute the IBXSAVE("VC") array are: CODE^VALUE formatted
using 8 characters for quantity and using 9 or 10 characters for a dollar
amount. Use 9 if right margin is 80 or less, 10 if > 80.
Overflow fields are printed on a separate page.
|