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

4 lines
159 B
Mathematica
Raw Permalink Normal View History

initial load of FOIAVistA 6/30/08 version
2009-12-04 16:09:39 -05:00
DGPTX72 ; ;02/13/06
S X=DG(DQ),DIC=DIE
X "N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)"