For delivery records only. The alternative delivery method data item, delmeth_d is derived from the main procedure code.

For epitype = 2, 5:
    If oper_01 =R17, set delmeth_d = 01
    If oper_01 =R18, set delmeth_d = 02
    If oper_01 =R19, set delmeth_d = 03
    If oper_01 =R20, set delmeth_d = 04
    If oper_01 =R215, set delmeth_d = 05
    If oper_01 =R211 ,R212, R213, R214, R218, R219 set delmeth_d = 06
    If oper_01 =R22, set delmeth_d = 07
    If oper_01 =R23, set delmeth_d = 08
    If oper_01 =R24, set delmeth_d = 09
    If oper_01 =R25, set delmeth_d = 10
    Else if oper_01 <> R17-R25, set delmeth_d = X