This is something I've thought about for a long time too. I've always thought
that Fileman could benefit from it's own scripting language (FSL?) Profile's
DataQwik has done this, and it is quite elegant. Using Kevin's example below,
obtaining a patient's name can be reduced to something like:
N Pat,Name
S Pat=&&CreateObject("Patient",1234)
S Name=Pat.Name
Or even sql:
N sql,NAM
k rs,err
S sql="NAME FROM PATIENT WHERE ID=1234"
F D &&SqlSelect(sql,.rs,.err) Q:$D(err) D
. S NAM=$P(rs,$C(9),1)
. Q
(note I am sure I've screwed up the syntax as it has been a few months since
I've had to do this!!).
Michael
--- Kevin Toppenberg <[EMAIL PROTECTED]> wrote:
> Well, the more I have used M, the more I find that it is much easier
> to do the low level coding than it is to use the higher level
> interface. I think that says something significant--since it is
> usually harder to do lower-level coding E.g. c++ is easier than c,
> which is easier than assembly, which is easier than machine byte code.
> But
> set name=$piece($get(^DPT(1234,0)),"^",1)
> is just easier than
> do GETS^DIQ(200,1234_",",.01,,"TMGOUT","TMGERR")
> (more code here to parse TMGOUT)
> (Just to do this example, I had to pull out the manueal to get the
> parameters correct.)
>
> But how about a compromise?
> Set up a special category of platform-independant-code. Programmers
> can $order through an index if they want, but then they will fail to
> qualify as XYZ type code. Then, there would need to be some reason
> that users would want to have their code be XYZ status.
>
> Kevin
>
>
>
> >
> > >I can't
> > > see
> > > that happening.
> > >
> >
> > Maybe not, but one thing is sure: It never will happen if everyone just
> > shrugs their shoulders and says that they can't see it happening.
> > Defeatism is not the way to make VistA succeed.
> >
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
> for problems? Stop! Download the new AJAX search engine that makes
> searching your log files as easy as surfing the web. DOWNLOAD SPLUNK!
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid3432&bid#0486&dat1642
> _______________________________________________
> Hardhats-members mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
__________________________________________________________
Find your next car at http://autos.yahoo.ca
-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems? Stop! Download the new AJAX search engine that makes
searching your log files as easy as surfing the web. DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
_______________________________________________
Hardhats-members mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
