Set Multiple Variables To 0

[sbensen]

Is there an effecient way to set 20+ RV's to 0. I am getting Access errors when I attempt to write a record of all RV variables from a script. Access won't accept the null value entries from VG modules that were skipped due to subject choices and branching in the script.

I have seen examples of setting a single variable to zero, but I'd like to set 20 RV's to zero in a single module if possible. How do I do that? In the example for counters, you can only set one value in the module and assign it to a particular variable name.

[SupportTeam]

Use RvSet_RvList COM function

[sbensen]

Do I run that in a Run VBScript module, or where do I call that function?

[SupportTeam]

Run VBScript module.

[sbensen]

I am still having problems trying to make this work. Here is a trace log and a copy of the code in the module. Any suggestions would be appreciated.

 

103353.67 7 [Re-SetRVs] Running VB Script...

103353.69 7 rv replace start (strlen>500)

103353.69 7 rv ns none[PathSysVoice]{C:\Program Files\VoiceGuide\system\voice\}[PathApp]{C:\Program Files\VoiceGuide\}[PathDataVm]{C:\Program Files\VoiceGuide\data\}[PathVgSys]{C:\Program Files\VoiceGuide\system\}[OutDial_RetriesLeft]{2}[OutDial_Result]{Contacted_Human}[scriptEnd_Time]{

/8/2005 10:33:13 AM}[scriptEnd_Goto_Script]{\\Rmregfile004\Research\IVR\VoiceGuide\AspirinandDiabetes\Scripts\OutgoingInitCallValidate2HRN.vgs}[scriptEnd_Goto_Module]{}[scriptStart_Time

{3/8/2005 10:33:13 AM}[scriptStart_CalledFrom_Module]{Re-SetRVs}[scriptsPath]{\\Rmregfile004\Research\IVR\VoiceGuide\AspirinandDiabetes\Scripts\}[setIncomingCall_Input]{0}[setIncomingCall]{0}[isIncomingCall]{0}[GetPatie

tInfo_RowCount]{1}[GetPatientInfo_1_1]{Katie}[GetPatientInfo_2_1]{Fulton}[GetPat

entInfo_3_1]{555555555}[GetPatientInfo_4_1]{555}[iniate1]{1}[isHRNReady]{1}[GetH

N]{555555555}[FunctHRNFound_Input]{"555555555"="555555555"}[FunctHRNFound]{True}[hrNFound]{True}[scriptEnd_Time]{3/8/2005 10:33:22 AM}[scriptEnd_Goto_Script]{\\Rmregfile004\Research\IVR\VoiceGuide\AspirinandDiabetes\Scripts\AspirinandDiabetes.vgs}[scriptEnd_Goto_Module]{Intro1}[scriptStart_Time]{3/8/2005 10:33:22 AM}[scriptStart_CalledFrom_Script]{\\Rmregfile004\Research\IVR\VoiceGuide\AspirinandDiabetes\Scripts\OutgoingInitCallValidate2HRN.vgs}[scriptStart_CalledFrom_Module]{FunctHRNFo

nd}[scriptsPath]{\\Rmregfile004\Research\IVR\VoiceGuide\AspirinandDiabetes\Scripts\}

103353.70 7 eng run vbs [wscript "C:\Program Files\VoiceGuide\data\vbs_7_1.vbs" //I] copy of script in: vbs_7_1.vbs

103353.86 7 Run Script waiting. iRunWait=1 (shellid=3180, process=1952)

103353.89 7 timer set 1 EV_TIMEOUT_CHECKONSTATE

103353.98 7 cl RvSet_RvList [Activity]{0}[DaysofActivity]{0} [TotalTime]{0} [Aspirin]{0}[ReasonNoAspirin]{0}[Allergic]{0}[bloodThinner]{0} [OtherProblems]{0}[ReasonsNoAspirin]{0}[Forget]{0}[TooManyMeds]{0} [WontBenefit]{0} [sideEffects]{0}[MoreInfo]{0} [Congratulations]{0}[strategies]{0}[Concerns]{0}[Recommendation]{0} [GoodJob]{0}[HeartTrouble]{0}[ChestPains]{0}[Dizzy]{0}[HighBP]{0} [JointArthritis]{0}[PhysicalReason]{0}[Over65]{0}[TalktoDr]{0} [safelyExercise]{0}[sGrecs]{0}[GetHUrt]{0}[DontEnjoy]{0}[NoTime]{0} [NoPlace]{0}[FindingTime]{0}[ExerciseSafe]{0}[NoBarriers]{0} [NoderateOK]{0} [ThankYou]{0}

103354.00 7 AddRVns [Activity]{0}

103354.02 7 AddRVns [DaysofActivity]{0}

103354.02 7 AddRVns [TotalTime]{0}

103354.03 7 AddRVns [Aspirin]{0}

103354.03 7 AddRVns [ReasonNoAspirin]{0}

103354.05 7 AddRVns [Allergic]{0}

103354.06 7 AddRVns [bloodThinner]{0}

103354.06 7 AddRVns [OtherProblems]{0}

103354.06 7 AddRVns [ReasonsNoAspirin]{0}

103354.08 7 AddRVns [Forget]{0}

103354.08 7 AddRVns [TooManyMeds]{0}

103354.09 7 AddRVns [WontBenefit]{0}

103354.09 7 AddRVns [sideEffects]{0}

103354.11 7 AddRVns [MoreInfo]{0}

103354.11 7 AddRVns [Congratulations]{0}

103354.13 7 AddRVns [strategies]{0}

103354.13 7 AddRVns [Concerns]{0}

103354.14 7 AddRVns [Recommendation]{0}

103354.16 7 AddRVns [GoodJob]{0}

103354.16 7 AddRVns [HeartTrouble]{0}

103354.17 7 AddRVns [ChestPains]{0}

103354.17 7 AddRVns [Dizzy]{0}

103354.19 7 AddRVns [HighBP]{0}

103354.19 7 AddRVns [JointArthritis]{0}

103354.20 7 AddRVns [PhysicalReason]{0}

103354.20 7 AddRVns [Over65]{0}

103354.22 7 AddRVns [TalktoDr]{0}

103354.22 7 AddRVns [safelyExercise]{0}

103354.22 7 AddRVns [sGrecs]{0}

103354.23 7 AddRVns [GetHUrt]{0}

103354.23 7 AddRVns [DontEnjoy]{0}

103354.25 7 AddRVns [NoTime]{0}

103354.25 7 AddRVns [NoPlace]{0}

103354.27 7 AddRVns [FindingTime]{0}

103354.27 7 AddRVns [ExerciseSafe]{0}

103354.28 7 AddRVns [NoBarriers]{0}

103354.28 7 AddRVns [NoderateOK]{0}

103354.30 7 AddRVns [ThankYou]{0}

103355.19 7 timer fired EV_TIMEOUT_CHECKONSTATE

103355.19 7 ScriptEventCode 9007 iLineState=1501

103355.19 7 LsRunWaitTillFinished EV_TIMEOUT_CHECKONSTATE

103355.20 7 task completed (shellid=3180, process=1952) vgm=183, iRunWait=1, iRunWait_ExeResult_NextVgm=0

103355.22 7 No information returned from program to VG (no VGRUNRESULT_7.TXT or SHLRESLT.TXT)

103355.22 7 rv add [Hangup Time]{3/8/2005 10:33:55 AM}

103355.23 7 Hanging up call... [WaitTillFinished - next module not specified]

103355.23 7 RecSoundStop ok

103355.25 7 PlaySoundStop err=0

103355.25 7 timer set 2 EV_TIMEOUT_WAITFORIDLEAFTERLINEDROP

103355.27 7 fnHangupCall end

103355.31 7 linedevstate 2048 0 0

103355.31 7 callstate IDLE 66418 0 0

103355.31 7 WorkingMode@Idle=

103355.33 7 timer clear

103355.42 7 timer set 1 EV_TIMEOUT_TIMETOREINITLINE

103355.42 7 tapi Reply (LineEvReply) ok 65802 0

103356.42 7 timer fired EV_TIMEOUT_TIMETOREINITLINE

103356.42 7 ScriptEventCode 9008 iLineState=900

103356.42 7 LsAwaitingCalls EV_TIMEOUT_TIMETOREINITLINE

103356.44 7 ReinitTelephony due to IDLE

103356.44 7 tapic lineDeallocateCall(MainCall:66418) 0

103356.50 7 lineOpen(7)=>

103356.50 7 Waiting for a call...

103356.52 7 LineHandle=65579

103356.52 7 timer set 3 EV_TIMEOUT_ATERIDLE_ALLOWOUT

103356.72 0 dial start any summary:|7:rdy=0|8:idx=0|9:idx=0|10:idx=0|

103359.88 7 timer fired EV_TIMEOUT_ATERIDLE_ALLOWOUT

103359.88 7 ScriptEventCode 9013 iLineState=900

103359.98 0 dial start any summary:|7:idx=0|8:idx=0|9:idx=0|10:idx=0|

 

Here's the code in the module:

 

set vg = CreateObject("VoiceGuide.CommandLink")

'sets all Result variables - which will be able to be accessed

'later

vg.RvSet_RvList $RV_LINEID, "[Activity]{0}[DaysofActivity]{0} [TotalTime]{0} [Aspirin]{0}[ReasonNoAspirin]{0}[Allergic]{0}[bloodThinner]{0} [OtherProblems]{0}[ReasonsNoAspirin]{0}[Forget]{0}[TooManyMeds]{0} [WontBenefit]{0} [sideEffects]{0}[MoreInfo]{0} [Congratulations]{0}[strategies]{0}[Concerns]{0}[Recommendation]{0} [GoodJob]{0}[HeartTrouble]{0}[ChestPains]{0}[Dizzy]{0}[HighBP]{0} [JointArthritis]{0}[PhysicalReason]{0}[Over65]{0}[TalktoDr]{0} [safelyExercise]{0}[sGrecs]{0}[GetHUrt]{0}[DontEnjoy]{0}[NoTime]{0} [NoPlace]{0}[FindingTime]{0}[ExerciseSafe]{0}[NoBarriers]{0} [NoderateOK]{0} [ThankYou]{0}"

set vg = Nothing

[SupportTeam]

The RVs are being defined fine.

 

I think the problem is that you are not returning any data from the module and hence VG takes the Fail path - which it looks like you have not pointed to anywhere...

 

Use Run_ResultReturn COM function to return "Success" and then point the Success path to next module.