iSharkFly-Open
/
VistA-FOIAVistA
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
VistA-FOIAVistA/r/REGISTRATION-DGQE-DG-DPT-GR.../DGRPTX15.m

4 lines
82 B
Mathematica
Raw Permalink Blame History

DGRPTX15 ; ;04/10/06
S X=DG(DQ),DIC=DIE
D SET^DGREGDD1(DA,.338,.33,8,$E(X,1,5))
Reference in New Issue View Git Blame Copy Permalink