TOA (150)    AUTO INSTRUMENT (62.4)

• TEST:   WBC
  ROUTINE STORAGE:   TV(384,1)
  PARAM 1:   S V=+$E(Y(1),16,18)_"."_$E(Y(1),19)
• TEST:   RBC
  ROUTINE STORAGE:   TV(385,1)
  PARAM 1:   S V=+$E(Y(1),21,22)_"."_$E(Y(1),23,24),RBC=V
• TEST:   HGB
  ROUTINE STORAGE:   TV(386,1)
  PARAM 1:   S V=+$E(Y(1),26,28)_"."_$E(Y(1),29),HGB=V
• TEST:   HCT
  ROUTINE STORAGE:   TV(387,1)
  PARAM 1:   S V=+$E(Y(1),31,33)_"."_$E(Y(1),34),HCT=V
• TEST:   PLT
  ROUTINE STORAGE:   TV(392,1)
  PARAM 1:   S V=+$E(Y(1),36,39)
• TEST:   MCV
  ROUTINE STORAGE:   TV(388,1)
  PARAM 1:   S V=HCT/RBC*10,V=$J(V,1,0)
• TEST:   MCH
  ROUTINE STORAGE:   TV(389,1)
  PARAM 1:   S V=HGB/RBC*10,V=$J(V,1,1)
• TEST:   MCHC
  ROUTINE STORAGE:   TV(390,1)
  PARAM 1:   S V=HGB/HCT*100,V=$J(V,1,1)

Param 2 may be used to divide value.  Example: If RBC is 504 and param 2
is 100 the value will be 5.04.  The variables RBC, HCT, and HGB are
available to calculate indices.