I am curious about the rationale for this code for getting a patient's name.
DEM(DFN,VADM) ; Calls DEM^VADPT
D DEM^VADPT
Q
NAME(DFN) ; Patient NAME
I '$D(VADM(1)) D DEM(DFN,.VADM)
Q $S(VADM(1)]"":VADM(1),1:"NAME UNKNOWN")
Why not just pull it out of the ^DPT global?
Jim Gray
-------------------------------------------------------
The SF.Net email is sponsored by: Beat the post-holiday blues
Get a FREE limited edition SourceForge.net t-shirt from ThinkGeek.
It's fun and FREE -- well, almost....http://www.thinkgeek.com/sfshirt
_______________________________________________
Hardhats-members mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
