/ Forums / Advansys Formativ / Creating Solutions with Formativ / Post Appointments to a Shared Calendar

  • Creator
    Topic
  • #4312
    sfritz
    Participant

    Hi Advansys Support,

    I am writing in hopes that you will have an example kicking around or some guidance, either would be greatly appreciated.

    I have written a call documentation tool for our Child Health Line using formativ. The call documentation tool writes out all the the data to an MySQL database. An enhancement has been requested to be able to book prenatal consults while documenting the call as appointment would need the Caller’s name, phone number and area which is collected on the form already as mandatory fields. Each user has proxy access to the prenatal calendar. The users would like to be prompted when prenatal consults is selected for the reason for the call, would you like to book an appt now? Yes/No If yes, pop up a calendar that includes date/time, pull the caller’s information and post an appointment to the calendar. No busy search is required as there is a rule on the calendar to accept all appointments and our administrative team does clean up manually. Then return to the form and continue processing. If the caller’s does not wish to book the appointment, the user can carry on with the call details. Is this possible?

    Talk to you soon.
    Shelley

  • Author
    Replies
  • #7785
    Support 2
    Moderator

    We hope to be able to reply with a suggestion soon. Unfortunately this time of year is a little crazy. Smile

    Regards,

    Advansys Support

    #7784
    sfritz
    Participant

    WinkNot a problem, I completely understand. Hope you have a Merry Christmas and look forward to your suggestions in the New Year.

    #7783
    Support 2
    Moderator

    Thank you for your understanding and best wishes also to you and your colleagues!

    Regards,

    Advansys Support

    #7782
    Support 3
    Participant

    Sorry for the delay in our response.

    It looks like you can achieve your enhancement request using Formativ. You can write a function to create and send an Appointment when the user being prompted to “Would you like to book an appt now?” and pressed the ok button. If you are using GroupWise 7 then you can create a sub-calendar and share the calendar with other users. Select Calendar folder and choose “New Calendar” popup menu option to create a new calendar. Choose “Sharing…” popup menu option to provide the share users list. You can use the Formativ to create posted Appointment into this shared sub-calendar. Please see below an example to create posted Appointment into a sub-calendar.

    See the Object API (http://developer.novell.com/documentation/gwobjapi/index.html?gwobjenu/data/h7ikbsqg.html), Formativ Language Guide and Developers Guide for more information.

      
    '-------------------------------------------------------------------------------
    ' This sample code create a posted Appointment into a sub-calendar called
    ' "Prenatal Calendar". The idea is to share the sub-calendar with other users so
    ' that shared users can add or modify the calendar items. This sub-calendar
    ' option is only available in GroupWise 7 or later version.
    '-------------------------------------------------------------------------------
    
    Sub Main(Client, GWEvent)
    
      CreateAppointment("Prenatal Calendar")
    
    End Sub
    
    
    
    ' Create posted appointment in sub-calendar folder. You can share this sub-calendar
    ' folder with others users so that shared users can view the calendar messages.
    sub CreateAppointment(aSubFolderName)
    
      dim oAppt
      dim oFolder
      dim oSubCalendar
    
      set oSubCalendar = nothing
    
      for each oFolder in groupwise.account.calendar.folders
        if (ucase(oFolder.name) = ucase(aSubFolderName)) then
          set oSubCalendar = oFolder
          exit for
        end if
      next
    
      if (oSubCalendar is nothing) then
        exit sub
      end if
    
    
      set oAppt = nothing
      set oAppt = oSubCalendar.messages.add("GW.MESSAGE.APPOINTMENT", fgwPersonal)
      oAppt.StartDate = now
      oAppt.EndDate = DateAdd("h", 1, now)
      oAppt.Place = "Office"
      oAppt.Subject.plaintext = "Test Appointment: " & now
      oAppt.BodyText.plaintext = "Test appointment. Please ignore."
    
    
      set oAppt = nothing
      set oFolder = nothing
      set oSubCalendar = nothing
    
    end sub
    

    Hope this helps.

    Regards,
    Advansys Support

Viewing 4 replies - 1 through 4 (of 4 total)
  • You must be logged in to reply to this topic.