iSharkFly-Open
/
VistA-FOIAVistA
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
VistA-FOIAVistA/r/TEXT_INTEGRATION_UTILITIES-.../TIUEDS11.m

6 lines
362 B
Mathematica
Raw Permalink Normal View History

initial load of FOIAVistA 6/30/08 version
2009-12-04 16:09:39 -05:00
TIUEDS11 ; ;01/12/06
S X=DE(12),DIC=DIE
I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ALOC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
S X=DE(12),DIC=DIE
I +$P($G(^TIU(8925,+DA,15)),U) K ^TIU(8925,"ALOCP",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)