Synapse EHR forums http://synapse-ehr.com/forums/ This is a website supporting physicians using Synapse EHR en Wed, 08 Sep 2010 09:55:04 GMT vBulletin 60 http://synapse-ehr.com/forums/images/misc/rss.png Synapse EHR forums http://synapse-ehr.com/forums/ ChartMaker Practice Manager bridge http://synapse-ehr.com/forums/showthread.php?132-ChartMaker-Practice-Manager-bridge&goto=newpost Mon, 06 Sep 2010 00:12:38 GMT A bridge to link the ChartMaker Practice Manager ( Sql server ) and Synapse has been created and released for testing. This is a one way real time... A bridge to link the ChartMaker Practice Manager ( Sql server ) and Synapse has been created and released for testing.
This is a one way real time bridge that carries demographics across to Synapse.

Since ChartMaker Practice Manager stores the phone numbers separate from the patient database if you update the phone numbers only, then it is unlikely that this will be reflected in Synapse. ]]> Synapse Graham http://synapse-ehr.com/forums/showthread.php?132-ChartMaker-Practice-Manager-bridge Recurring function http://synapse-ehr.com/forums/showthread.php?131-Recurring-function&goto=newpost Wed, 01 Sep 2010 16:35:03 GMT :confused: I worte the following script to list all the directories. It doesn't work, why?
Code:
elenco: copy [ ]
funz_cerca: func [ /local a ] [
        a: read %.
        foreach file a [
                if dir? file [
                        append elenco (to-string file)
                        change-dir file
                        funz_cerca
                        ]
                ]
        ]
funz_cerca
write %listadir.txt elenco
]]> Rebol MaxV http://synapse-ehr.com/forums/showthread.php?131-Recurring-function Ubuntu/Debian package http://synapse-ehr.com/forums/showthread.php?130-Ubuntu-Debian-package&goto=newpost Tue, 31 Aug 2010 11:53:47 GMT Hello world, I made a package for Ubuntu or Debian, you can download here: http://www.maxvessi.net/pmwiki/uploads/Main/rebol.deb Let me know... Hello world,
I made a package for Ubuntu or Debian, you can download here:

http://www.maxvessi.net/pmwiki/uploads/Main/rebol.deb

Let me know if you have some problem using it. ]]> Rebol MaxV http://synapse-ehr.com/forums/showthread.php?130-Ubuntu-Debian-package Linux, rebgui and draw... http://synapse-ehr.com/forums/showthread.php?129-Linux-rebgui-and-draw&goto=newpost Tue, 24 Aug 2010 09:18:02 GMT Hi,
I have a problem with draw and Linux. Usually the font used in Linux for DRAW are wrong, so text doesn't appear:
Code:
example: ['text "Hello word!"]
view layout [ box 100x100 effect [draw example ]]
It gives a blank window.
I added:
Code:
example: ['text "Hello word!"]
if (pick system/version 4) = 4 [
        fnt1: make face/font [
                name: "/usr/share/fonts/truetype/freefont/FreeSans.ttf"
                size: 12
                ]
        os: "linux"
        ]
if os = "linux" [ insert example reduce ['font fnt1]        ]
view layout [ box 100x100 effect [draw example ]]
This solution is good, but using rebgui it doesn't work anymore.
What can I do? ]]> Rebol MaxV http://synapse-ehr.com/forums/showthread.php?129-Linux-rebgui-and-draw RxTerms http://synapse-ehr.com/forums/showthread.php?128-RxTerms&goto=newpost Fri, 20 Aug 2010 00:13:16 GMT This is a prototype RxTerms lookup http://screencast.com/t/ZGI5ZTJkOTct Do I need to add numbers of tablets as well? This is a prototype RxTerms lookup

http://screencast.com/t/ZGI5ZTJkOTct

Do I need to add numbers of tablets as well? ]]> Synapse Graham http://synapse-ehr.com/forums/showthread.php?128-RxTerms printing sparklines http://synapse-ehr.com/forums/showthread.php?127-printing-sparklines&goto=newpost Sat, 14 Aug 2010 00:19:58 GMT This is a new feature. It allows you to print the top 4 sparklines on your letters.

Here's an example.
Attachment 11
Attached Images
]]> Synapse Graham http://synapse-ehr.com/forums/showthread.php?127-printing-sparklines Random number generation http://synapse-ehr.com/forums/showthread.php?126-Random-number-generation&goto=newpost Mon, 09 Aug 2010 15:42:04 GMT Hello,
I have a problem, I need to extract 10 different random numbers from 1 to 20.
Ok, it seems simple, but I can't get 10 different numbers; I need an extraction like:
1 - 3 - 4 - 7 - 8 -12 -15 - 16 - 17 - 18

but my script goes in forever loop:

Code:
random/seed now
extrac: copy [] ;extraction
counter: 0
until [
  counter: counter + 1
  verify: true
  clear extrac
  extrac: head extrac
  loop 10 [ insert extrac random 20 ]
  sort extrac
  forall  extrac [
      if  (index? extrac) = 10 [break]
      if (( first extrac ) = ( second extrac))  [ verify: false ]
      ]
  print remold ["Tentative number:" counter]
  verify
  ]
print extrac
1-20 it's a very close range and PC has troubles to get 10 different numbers... ]]> Rebol MaxV http://synapse-ehr.com/forums/showthread.php?126-Random-number-generation