| Name | Value |
|---|---|
| FORM FIELD REFERENCE | LEGACY UB-92 |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| DATA ELEMENT | N-GET FROM PREVIOUS EXTRACT |
| PAD CHARACTER | NO PAD REQUIRED |
| FORMAT CODE | N Z,Q,R S:$D(IBXSAVE("PROC",6)) IBXDATA=$P(IBXSAVE("PROC",6),U,2) S Z=6 F S Z=$O(IBXSAVE("PROC",Z)) Q:'Z S R=IBXSAVE("PROC",Z),Q=$P(R,U,2) D XPROC^IBCEF3($S(R["ICPT"!(R["ICD0"):$P($$PRCD^IBCEF1(R),U),1:$P(R,U))_U_Q,Z) |
| FORMAT CODE DESCRIPTION |
This data element relies on the existence of the IBXSAVE("PROC") array
previously extracted. If the sixth occurrence exists, output the date
found in its second '^' piece.
|