13 lines
301 B
Mathematica
13 lines
301 B
Mathematica
DVBHCE27 ; ;06/27/07
|
|
S X=DE(26),DIC=DIE
|
|
;
|
|
S X=DE(26),DIC=DIE
|
|
D AUTOUPD^DGENA2(DA)
|
|
S X=DE(26),DIC=DIE
|
|
;
|
|
S X=DE(26),DIC=DIE
|
|
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".302;" D AVAFC^VAFCDD01(DA)
|
|
S X=DE(26),DIC=DIE
|
|
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
|
|
S X=DE(26),DIIX=2_U_DIFLD D AUDIT^DIET
|