VistA-WorldVistAEHR/r/SCHEDULING-SD-SC/SDBT3.m

4 lines
67 B
Mathematica

SDBT3 ; ;10/02/06
S X=DE(20),DIC=DIE
K ^SC("ALTC",$E(X,1,30),DA)