gagangoomer

It is in Continuance with what i previously asked . I'm in a healthcare project where some charges needs to be splitted on the basis of the multiple units billed for that day. I need to split the total charges field with the no of units billed for that particular service. This example must give you an idea about what needs to be achieved.

Example :If we had $ 385.35 with 3 units 385.35 can be divided by 3 evenly ( meaning you can split 385.35 into 3 equal parts. ) equal part being 128.45. However, If we had 385.35 and 4 units 385.35 cannot be divided by 4 evenly ( meaning you cannot split 385.35 into 4 equal parts) you would have 96.34 + 96.34 + 96.34 + 96.33 all lines cannot be the same.

Please let me know if you need any more info.

Thanks for explaining it so well Samrae.

I used the logic you mentioned above. However this doesn't solve the issue.

Example :If we had $ 385.35 with 3 units 385.35 can be divided by 3 evenly ( meaning you can split 385.35 into 3 equal parts. ) equal part being 128.45. However, If we had 385.35 and 4 units 385.35 cannot be divided by 4 evenly ( meaning you cannot split 385.35 into 4 equal parts) you would have 96.34 + 96.34 + 96.34 + 96.33 all lines cannot be the same.

Is there any other way by which we can deal with this issue ?

Thanks Samrae for explaining so well.

However i'm new to the ASCII value and haven't used this option before. So not able to understand what you did in the below code.

Variable Set to ASCII Char 9 to %TAB% // Initialize TAB

Can you explain a bit more about it. Though i tried to get some info from the help but still not clear on this.

Here's the script.

Variable Set String %T[90]%: Prompt
Variable Set String %T[91]%: Prompt
Variable Modify String %T[90]%: Convert to Decimal (%D[1]%)
Variable Modify String %T[91]%: Convert to Decimal (%D[2]%)
Variable Modify Decimal: %D[3]% = %D[1]% / %D[2]%
Variable Modify Decimal: Round %D[3]% to 2 decimal places

If Variable %D[3]% Contains "."
Text Box Display:
Else
Text Box Display:
End If

I want the code to give a message "Evenly Divided" or "Result contaions a decimal". For example : 10 / 2 = 5 which would result first message and 10 / 3 = 3.34 which would result in second message.

I've tried with direct values in Integer and Decimal as well(without conversion) but it didn't work as well.

I need to follow a different set of steps for both conditions mentioned above. Hope this explanation helps.

Hi,

Is there a way to check decimal(.) in a value ?

I'm capturing some values from an application and doing some calculation on it. After that i need to check if the final value consist decimal or not.

I tried to convert the integer/decimal to string as well but it doesn't retains the value after decimal.

Thanks in advance !

Rocki

Hi,

I've created a Multiple Choice Menu with 58 options. I've used swtich case along with MCM. It works fine till the user selects till 36th option i.e. all the Alphabets(A-Z) and numbers(0-9).

But the issue starts from 37th option onwards where the values are written in AA, BB, CC...ZZ field. It doesn't display any value when printed. Any suggestions on tis wired behaviour ?

Here's the command text of the code.

Multiple Choice Menu: EOB Code
Switch( %EOB_Type% )
Case: A
Variable Set String %Den_code% to "B06"
End Case
Case: B
Variable Set String %Den_code% to "B07"
End Case
Case: C
Variable Set String %Den_code% to "B12"
End Case
Case: D
Variable Set String %Den_code% to "B14"
End Case
Case: E
Variable Set String %Den_code% to "B16"
End Case
Case: F
Variable Set String %Den_code% to "B21"
End Case
Case: G
Variable Set String %Den_code% to "B55"
End Case
Case: H
Variable Set String %Den_code% to "B94"
End Case
Case: I
Variable Set String %Den_code% to "BB9"
End Case
Case: J
Variable Set String %Den_code% to "BG8"
End Case
Case: K
Variable Set String %Den_code% to "BJ1"
End Case
Case: L
Variable Set String %Den_code% to "BC1"
End Case
Case: M
Variable Set String %Den_code% to "BGI"
End Case
Case: N
Variable Set String %Den_code% to "BX3"
End Case
Case: O
Variable Set String %Den_code% to "J33"
End Case
Case: P
Variable Set String %Den_code% to "J60"
End Case
Case: Q
Variable Set String %Den_code% to "J95"
End Case
Case: R
Variable Set String %Den_code% to "J97"
End Case
Case: S
Variable Set String %Den_code% to "J99"
End Case
Case: T
Variable Set String %Den_code% to "K00"
End Case
Case: U
Variable Set String %Den_code% to "K05"
End Case
Case: V
Variable Set String %Den_code% to "K06"
End Case
Case: W
Variable Set String %Den_code% to "K14"
End Case
Case: X
Variable Set String %Den_code% to "K16"
End Case
Case: Y
Variable Set String %Den_code% to "K18"
End Case
Case: Z
Variable Set String %Den_code% to "K23"
End Case
Case: 0
Variable Set String %Den_code% to "K27"
End Case
Case: 1
Variable Set String %Den_code% to "K29"
End Case
Case: 2
Variable Set String %Den_code% to "K33"
End Case
Case: 3
Variable Set String %Den_code% to "K34"
End Case
Case: 4
Variable Set String %Den_code% to "K36"
End Case
Case: 5
Variable Set String %Den_code% to "K37"
End Case
Case: 6
Variable Set String %Den_code% to "K44"
End Case
Case: 7
Variable Set String %Den_code% to "K45"
End Case
Case: 8
Variable Set String %Den_code% to "K46"
End Case
Case: 9
Variable Set String %Den_code% to "K48"
End Case
Case: AA
Variable Set String %Den_code% to "K49"
End Case
Case: BB
Variable Set String %Den_code% to "K52"
End Case
Case: CC
Variable Set String %Den_code% to "K57"
End Case
Case: DD
Variable Set String %Den_code% to "K58"
End Case
Case: EE
Variable Set String %Den_code% to "K59"
End Case
Case: FF
Variable Set String %Den_code% to "K60"
End Case
Case: GG
Variable Set String %Den_code% to "K62"
End Case
Case: HH
Variable Set String %Den_code% to "K74"
End Case
Case: II
Variable Set String %Den_code% to "K75"
End Case
Case: JJ
Variable Set String %Den_code% to "K76"
End Case
Case: KK
Variable Set String %Den_code% to "K78"
End Case
Case: LL
Variable Set String %Den_code% to "K82"
End Case
Case: MM
Variable Set String %Den_code% to "K89"
End Case
Case: NN
Variable Set String %Den_code% to "K95"
End Case
Case: OO
Variable Set String %Den_code% to "KA2"
End Case
Case: PP
Variable Set String %Den_code% to "KBA"
End Case
Case: QQ
Variable Set String %Den_code% to "KBD"
End Case
Case: RR
Variable Set String %Den_code% to "KBF"
End Case
Case: SS
Variable Set String %Den_code% to "KBM"
End Case
Case: TT
Variable Set String %Den_code% to "KBX"
End Case
Case: UU
Variable Set String %Den_code% to "KC0"
End Case
Case: VV
Variable Set String %Den_code%: Prompt
End Case
End Switch
Text Box Display: %EOB_Type%
Default Case

Thanks Duchi & Samrae , Its working now

Double checked the Varibale. It is defiened as an array variable still giving the same error message.

I tried to copy the code as you mentioned above but it gets copied as text type and not the macro script...not sure why it is acting so wired.

I tried the steps you mentioned above, but still its not working for me....Can you please send me the macro you created for me ?

I tried a lot of options but none is working for me.

Thanks Duchi,

But i'm getting the below error message (screenshot attached) from the above code.

Thanks Duchi..

I ran the above code of lines but didn't get any output. The prompt takes the value but i'm not able to print it. Also how will i get to know the length of array so that i can print a particular value from the array.

Note : Please use the Copy Command Text option by selecting the code and right clicking on it. By this way the script can be copied easily by anyone and paste in their MEP as a script instead of text..

Variable Set Integer %array_number% to 1
Repeat Start (Repeat 100 times)
Variable Set Integer %number%: Prompt
If Variable %number% Equals "0"
MessageBox: Test
Repeat Exit
End If
Variable Set Integer %new_number[%array_number%]% to %number%
Variable Modify Integer %array_number%: Increment
MessageBox: Result
End Repeat

or can send me the macro on rocki_thegreat@yahoo.com

Here's the requirement along with the snippet.

1. Input box to accept value from user till user enter 0 to exit the loop.
2. The code will check if value >0 then store it in a Array variable.
3. I’m not sure once the value is stored in an array how to display those values.

Below is the snippet of the code for your reference :-

Variable Set Integer %N[1]%: Prompt // How many times the loop will run

Variable Set Integer %N[2]% to 1 // Initialize

If Variable %N[1]% Is Greater Than "0"

Repeat Start (Repeat %N[1]% times)

Variable Set Integer %Line_No[%N[2]%]%: Prompt // Store value in Array Variable

If Variable %Line_No[%N[2]%]% Does not Equal "0"

Text Box Display:

Variable Modify Integer %N[2]%: Increment

End Repeat

Text Box Display:

Else

MessageBox: Incorrect Value

End If

1. Input box to accept value from user till user enter 0 to exit the loop.
2. The code will check if value >0 then store it in a Array variable.
3. I’m not sure once the value is stored in an array how to display those values.

Below is the snippet of the code for your reference :-

Variable Set Integer %N[1]%: Prompt // How many times the loop will run

Variable Set Integer %N[2]% to 1 // Initialize

If Variable %N[1]% Is Greater Than "0"

Repeat Start (Repeat %N[1]% times)

Variable Set Integer %Line_No[%N[2]%]%: Prompt // Store value in Array Variable

If Variable %Line_No[%N[2]%]% Does not Equal "0"

Text Box Display:

Variable Modify Integer %N[2]%: Increment

End Repeat

Text Box Display:

Else

MessageBox: Incorrect Value

End If

Thanks Duchi,

Do you have a small example for array which you would like to share ?

how to capture values in a variable till the user enter "0".

and ow to display those values ?

Thanks Cory,

Could you please share an example of array's in variables with me ?

Thanks Cory.

I need to accept value from user and store it in an array variable. The no of values can vary for every case, so whenever user enters zero the array will stop and the loop will exit.

Thanks in advance.

Hi,

Can someone share an example of dynamic array?

I need to accept value from user and store it in an array which can be used later on. The user will enter '0' to end the loop else it will keep on storing the values in an array variable.

Thanks in Advance.

Is there a way to accept credentials in a form and login to a webpage (say mail.yahoo.com).

I've created a form in VBA which accepts user details(user id and password) and should pass that in vb script to login to the webpage.

I'm activation a VBA macro by using the shortcut keys to activate the macro's in spreadsheet. Is there any alternative to that ?

Suppose, i'v some case id's in a spreadsheet which needs to follow certain steps using IE. So for every step if the ME macro needs to check if there is a file in a folder then run the macro else stop it.

Don't you think it is going impact the speed of the macro ?

I just checked through the command line parameters in MEP.

Is there any way through which we can stop an existing Macro before running another macro ?

Thanks everyone...i got the idea

Is there any way by which i can call the ME macro in a VBA macro ?

Vice Versa is possible but i'm not sure about this.

Also how can we debug the External script in ME. As i've seen a small mistake in the code can sometime can take a lot of time debugging it.

Thanks guys...i got the solution to this.

Hi,

I'm unable to read the data under a field. I tried everything under the Window Controls option in MEP. It seems like the Ctrl + C field is disabled while i try to capture the data from this field. However when i right click on the text to copy i'm able to copy the data.

How can i capture the text from the below list option. It's same as reading data from a list box in HTML.Below are the Snippts from the application.

 

Please let me kow if you need more details.

 

Regards,

Gagan

Hi,

I've capture some values from user in ME variables. I'm passing these values to External Script variables so that the same can be entered to a specific field in an application(by using the IE.document.getElementById).

I'm not sure why it is not passing the ME value in ES script ?

ME script

Variable Set String %Cmmt% to "Did you check the Patient Name on CL : %Pat_Name%

Did you check the Legal Entity from COC : %Leg_Ent%

Did you check the Emp Name and Address : %Emp_Name%

Did you check the Group name and Number : %Grp_Name%

Did you check the DOS : %DOS%

Did you check the claim amount and service type : %Clm_Amt%

Did you check the summary statement as per the appeal FLN : %Sum_Stat%

Did you mentioned the correct copay, coins and ded as per plan : %Copay%

Did you copy and paste the benefits direct from the COC : %Ben%

Did you resolve all the issue of appeallent by adding the standard
language : %Stan_lan%

Did you check the second level rights from Section 6 of the COC : %Second_Level_Right%

Did you check second level Hearing / Review : %Hear_Rev%

Did you check the limit for the expedited appeals from section 6 of the COC : %Exp_App%

Did you check ERISA rights from the COC : %ERISA%

Did you check the appeant party member / provider : %Mem_Pro%

"

External script

'Option Explicit

Dim IE
Dim cmmt
Dim URLFound
Call Look_For_URL
If URLFound = True Then
IE.Visible = True
cmmt = %cmmt%
'objIE.Refresh()
IE.document.getElementById"ETSMaster_MainContentPlaceHolder_ETSComments_cboCommentType_ETSddlStd").Value = 9
IE.document.getElementById("ETSMaster_MainContentPlaceHolder_ETSComments_txtComment").Value = cmmt

End If

Regards,

Gagan