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
