ISLetter.UnlinkUsualPrescription

Example

Unlink the usual prescription from the letter of the selected patient.

sub main
  Dim aPatient
  Dim aLetters, aLetter
  Dim aUsualPrescriptions, aUsualPrescription  
  Dim aMessage
  
  Set aPatient = Profile.SelectPatient
  set aLetters = aPatient.GetLetters (1) ' slcfWordRTF

  aMessage = "INITIAL STATE:" & GetLinkedUsuslaMedicationsInfo(aLetters)
  
  set aUsualPrescriptions = aPatient.Medications.Usual
  for each aLetter in aLetters 
    for each aUsualPrescription in aUsualPrescriptions
      aLetter.UnLinkUsualPrescription aUsualPrescription
    next
  next
  aMessage = aMessage & vbNewLine & vbNewLine &_ 
    "LETTERS AFTER USUAL PRESCRIPTIONS UNLINKING:" & GetLinkedUsuslaMedicationsInfo(aLetters) & vbNewLine
  
  Profile.MsgBox(aMessage)
end sub

function GetLinkedUsuslaMedicationsInfo(aLetters)
  Dim aInfo
  Dim aLetter
  Dim aUsualPrescriptions, aUsualPrescription
  
  for each aLetter in aLetters
    aInfo = aInfo & vbNewLine & "Letter Id: " & aLetter.Id
    set aUsualPrescriptions = aLetter.LinkedUsualPrescriptions
    if aUsualPrescriptions.Count > 0 then aInfo = aInfo & vbNewLine & "  Med IDs: "   
    for each aUsualPrescription in aUsualPrescriptions
      aInfo = aInfo & aUsualPrescription.Oid & ", "
    next
  next
  GetLinkedUsuslaMedicationsInfo = aInfo
end function