How To Write To File If Not Answered

[allstatesmed]

Hello Support Team,

 

I would like to write to a text file if a call was not answered and the retries have been exhausted.

Here is my current xml file:

<TS-SHIPMENT>
 <OUTDIALENTRY>
   <RV>[patientID]{008727}[campaignName]{06/01/2011 TS,008727}[DOS]{June.WAV, C:\Program Files\VoiceGuide\System\voice\1.WAV}[DOB]{September.WAV, C:\Program Files\VoiceGuide\System\voice\20.WAV, C:\Program Files\VoiceGuide\System\voice\3.WAV, C:\Program Files\VoiceGuide\System\voice\19.WAV, C:\Program Files\VoiceGuide\System\voice\40.WAV, C:\Program Files\VoiceGuide\System\voice\6.WAV}</RV>
   <PhoneNumber>6815466</PhoneNumber>
   <PhoneNumberPrefix></PhoneNumberPrefix>
   <LineSelection>1</LineSelection>
   <PortSelection>1</PortSelection>
   <DayTimeStart>0930</DayTimeStart>
   <DayTimeStop>1830</DayTimeStop>
   <DaysCallAllowed>MoTuWeThFrSa</DaysCallAllowed>
   <CampaignName>06/01/2011 TS,008727</CampaignName>
   <OnAnswerLive>C:\Program Files\VoiceGuide\Scripts\AR-EXPRESS\Testing Supplies\TS-Responses-Human.vgs</OnAnswerLive>
   <OnAnswerMachine></OnAnswerMachine>
   <RetriesLeft>1</RetriesLeft>
   <OnNotAnswered>NotReached.vbs</OnNotAnswered>
   <OnRetriesExhausted>NotReached.vbs</OnRetriesExhausted>
 </OUTDIALENTRY>
</TS-SHIPMENT>

 

And here is my vbs file:

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
set fso = CreateObject("Scripting.FileSystemObject")
set tsFile = fso.OpenTextFile("C:\Program Files\VoiceGuide\Scripts\AR-EXPRESS\Testing Supplies\TS_Call_NotContacted.txt", ForAppending, True)
tsFile.WriteLine "$RV[PATIENTID], VOICEGUIDE, COULD NOT REACH PATIENT. - called: $RV_CIDNUMBER - DOS: $RV[campaignname] $RV_STARTTIME - $RV[OutDial_Result]"
tsFile.Close
set tsFile = Nothing
set fso = Nothing

 

I loaded a number that doesn't have an answering machine but nothing was written to the file as I wanted. See the attached vgEngine file and look for the 6815466 phone number.

 

I would appreciate some instruction as to how I can properly do this.

 

Thanks.

0526_1717_vgEngine.zip

[allstatesmed]

Support, any suggestions with this question?

[SupportTeam]

Trace shows that the NotReached.vbs was ran upon the call not being answered.

 

have a look at the file(s) C:\Program Files\VoiceGuide\temp\vbs_1_OnRetriesExhausted*

these contain the actual VBScript ran. Try running them by doubl;e clicking on them, and see what happens. Maybe user permissions prohibit you from writing to C:\Program Files\ ?

try writing to C:\test.txt and see if that works,

 

 

174218.574  6   1   1 state Dialing 6815466...
174219.106 19   1   1 ev    Dialogic 135,TDX_SETHOOK, crn=20000004, 0,0,0,DX_OFFHOOK,CALL_OUTBOUND,
174219.106  6   1   1       scriptevent TDX_SETHOOK  0|0|0  DX_OFFHOOK|CALL_OUTBOUND|
174219.106  6   1   1       LsWaitAfterDialingOut : 135,20000004,TDX_SETHOOK,0,0,0,DX_OFFHOOK,CALL_OUTBOUND,
174318.357  6   1   1       scriptevent EV_TIMEOUT_MAKECALL_NORESPONSE  0|0|0  ||
174318.357  6   1   1       LsWaitAfterDialingOut : 9020,0,EV_TIMEOUT_MAKECALL_NORESPONSE,0,0,0,,,
174318.357  6   1   1       LsWaitAfterDialingOut crn=hCall_crn=536870916
174318.357  6   1   1       dial  OnOutboundCallNotAnswered begin, RetriesLeft=0
174318.357  6   1   1       run StartRun_VbScriptOrExeEtc [NotReached.vbs], source=OnNotAnswered
174318.372  6   1   1       VBScript started [C:\Program Files\VoiceGuide\temp\vbs_1_OnNotAnswered_110526174318.vbs], ProcessHandle=[33676], VbsOrExeProcess.WorkingSet=[794624]
174318.372  6   1   1       run ok [C:\Program Files\VoiceGuide\temp\vbs_1_OnNotAnswered_110526174318.vbs]
174318.372  6   1   1       run StartRun_VbScriptOrExeEtc [NotReached.vbs], source=OnRetriesExhausted
174318.388  6   1   1       VBScript started [C:\Program Files\VoiceGuide\temp\vbs_1_OnRetriesExhausted_110526174318.vbs], ProcessHandle=[33708], VbsOrExeProcess.WorkingSet=[81920]
174318.388  6   1   1       run ok [C:\Program Files\VoiceGuide\temp\vbs_1_OnRetriesExhausted_110526174318.vbs]