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

4 lines
159 B
Mathematica
Raw Permalink Normal View History

initial load of WorldVistAEHR
2009-11-29 13:37:14 -05:00
DGPTX76 ; ;04/03/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)"