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.../DGMTXD3.m

4 lines
111 B
Mathematica
Raw Permalink Normal View History

initial load of FOIAVistA 6/30/08 version
2009-12-04 16:09:39 -05:00
DGMTXD3 ; ;08/13/05
S X=DE(27),DIC=DIE
I $D(^DGMT(408.22,DA,0)),$P(^(0),U,12)="",$P(^(0),U,11) D INC^DGMTDD2