Kevin,
Out of curiosity, was the UPDATE^DIE call erroring out or that field just
wasn't getting set? I'm guessing it wasn't getting set.
From my very brief tests it looks like DA is probably defined it just
isn't a valid numeric IEN. It probably equals "?+" or whatever IEN setting
you have in the FDA array.
If you don't want to have to maintain a change to that Input Transform,
you'll probably want to do an UPDATE^DIE just to create the new record,
then do a FILE^DIE to insert the field info.
At 03:59 PM 5/25/2006, you wrote:
George Timson wrote:
>Here is the Input Transform from File 50, Field 901, that Kevin is
>struggling with:
>
>K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."5N.N)!('$P($G(^PSDRUG(DA,"DOS")),"^",2))
>X
>
>Code like this was written without taking into account the DBS calls like
>UPDATE^DIE that Kevin is using.
>
>Here is how I think it should be re-written:
>
>K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."5N.N) X I
>$G(DA)>0,$D(X),'$P($G(^PSDRUG(DA,"DOS")),"^",2)) K X
>
>At Medsphere, we have had to re-write several Input Transforms (in File 200,
>e.g.) for this very reason -- DA doesn't yet exist as the IEN.
Yes, that is very helpful George. I too have encountered this kind of
error in working
with VALS^DIE and UPDATE^DIE but I hadn't yet decided what to do about it
other than make
notes and temporary workarounds.
Could you list for us the problem transforms that you have found and your
fixes?
I expect that there are many such input transforms that need to be
reworked so that they
can be used with the DBS calls. I think it would be helpful to put thus
kind of
information up as a resource on the wiki or on M2Web.
Hmmm. I just did a quick scan of input transforms and found 1041 that
reference the
variable DA (?.e1p"DA"1p.e). Many appear to have an unguarded reference to
the variable DA
like the one you fixed above. Others set DA to the value of some other
variable.
---------------------------------------
Jim Self
Systems Architect, Lead Developer
VMTH Computer Services, UC Davis
(http://www.vmth.ucdavis.edu/us/jaself)
---------------------------------------
M2Web Demonstration with VistA
(http://vista.vmth.ucdavis.edu/)
(http://openforum.worldvista.org/~forum/m.cgi)
---------------------------------------
-------------------------------------------------------
All the advantages of Linux Managed Hosting--Without the Cost and Risk!
Fully trained technicians. The highest number of Red Hat certifications in
the hosting industry. Fanatical Support. Click to learn more
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=107521&bid=248729&dat=121642
_______________________________________________
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members
-------------------------------------------------------
All the advantages of Linux Managed Hosting--Without the Cost and Risk!
Fully trained technicians. The highest number of Red Hat certifications in
the hosting industry. Fanatical Support. Click to learn more
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=107521&bid=248729&dat=121642
_______________________________________________
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members
