Trying to modify a complex formula that outputs a spilled result in multiple columns

Hi everyone!

I'm working with a complex formula and trying to make some changes. See below for the formula. The formula retrieves data from an extensive drug database (20K+ lines). It then outputs a spilled result into three separate columns, which are ordered by the drug strength, pharmaceutical form, and DIN (drug identification number). See the screenshot below. I also attached some sample data with the formula.

Screenshot.png

I did not write this formula, so it is beyond my understanding. I'm trying to modify the formula so that it spills the 4th column for the route of administration and for this column to come after "Dosage Form" and before the "DIN/PDIN/NPN" column. The drug database I'm using contains both marketed and approved drugs. I'm also trying to get the formula to separate DINs into different columns depending on whether the product is marketed or approved. The end result would be the formula spilling out five columns. I hope what I'm asking makes sense. Let me know if you require additional clarification! I appreciate any help you can provide.

=LET(codeList,TEXTJOIN(",",,FILTER(DPD[Drug Code],(DPD[ATC]=A5)*DPD[Number of AIS]=1)),
codeArray,TRIM(TEXTSPLIT(codeList,"|",",")),
formTblData,FILTER(DPD,ISNUMBER(MATCH(DPD[Drug Code]&"",codeArray,0))),
formData,FILTER(formTblData,DPD[#Headers] = "Pharmaceutical Form"),
formCodes,FILTER(formTblData,DPD[#Headers] = "Drug Code"),
forms, UNIQUE(formData),
formsCount, COUNTA(forms),


doseTblData,FILTER(DPD,ISNUMBER(MATCH(DPD[Drug Code]&"",codeArray,0))),
doseData,FILTER(doseTblData,DPD[#Headers] = "Dose"),
doseCodes,FILTER(doseTblData,DPD[#Headers] = "Drug Code"),
dose, UNIQUE(doseData),
doseCount,COUNTA(dose),

tbl,SEQUENCE(formsCount*doseCount,,0),
dMapping,INDEX(dose,ROUNDDOWN(tbl/formsCount,0)+1),
fMapping,INDEX(forms,MOD(tbl,formsCount)+1),

fulltbl,HSTACK(dMapping,fMapping,MAP(dMapping,fMapping,LAMBDA(d,f,TEXTJOIN(", ",TRUE,TEXT(INDEX(DPD[DIN],MATCH(FILTER(doseCodes,(doseData=d)*(INDEX(formData,MATCH(doseCodes,formCodes,0))=f)*ISNUMBER(MATCH(doseCodes&"",codeArray,0))),DPD[Drug Code],0)),"00000000"))))),
FILTER(fulltbl,NOT(ISERROR(FILTER(fulltbl,{0,0,1})))))