set out = createoutputwindow

set dupcodes = LoadShortCodes("OAT Medications DUP") 
set oudcodes = LoadShortCodes("OAT Medications")
 

set targetCodes = dupcodes

out.addtext "Searching for DUP Medications"
for i = 0 to targetCodes.count - 1
      descLine = targetCodes.item(i).description
      elems = split(descLine,"|")
      name = trim(elems(0))
      din = trim(elems(6))
 
      set rxFil = CreateRxFilter
      rxFil.IdentificationNumber = din
      set rxs = LoadRxCollection(rxFil)
      if rxs.Count = 0 and name <> "MEDNAME" then
         out.addtext din & " is not found for med " & name
      end if
      set rxs = nothing
 
next

out.addtext "search finished"


set targetCodes = oudcodes
out.addtext "Searching for OUD Medications"
for i = 0 to targetCodes.count - 1
      descLine = targetCodes.item(i).description
      elems = split(descLine,"|")
      name = trim(elems(0))
      din = trim(elems(6))
 
      set rxFil = CreateRxFilter
      rxFil.IdentificationNumber = din
      set rxs = LoadRxCollection(rxFil)
      if rxs.Count = 0 and name <> "MEDNAME" then
         out.addtext din & " is not found for med " & name
      end if
      set rxs = nothing
 
next

out.addtext "search finished"