;This function resolves the vitek fields
; resolved fields go to Alternative Interpretation (AI) written by FHS
; DATA is the array..DATA(ORG,AB)=MIC
; ID is ssn^accn (two pieces)
CALL
;
ALTSET
;
LA4
;This is where I call FHS interp. program
UNPACK
; Here is where we unpack the bug,drug and min inhib conc (MIC)
; LRORGNSM,CARD,LRA1 and LRA3
; Multiple drugs and MIC vales per data set.
ID
LA3
;X LAGEN ;set auto inst variables ;--> left in for debugging