VistA-WorldVistAEHR/r/ZZREGIONAL-A1C-A5C-CRHD-RGE.../A1CKC9.m

A1CKC9 ; ;04/21/06
 S X=DE(7),DIC=DIE
 I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA)
 S X=DE(7),DIIX=2_U_DIFLD D AUDIT^DIET
revised back to 6/30/08 version 2009-12-04 00:11:15 -05:00			`A1CKC9 ; ;04/21/06`
			`S X=DE(7),DIC=DIE`
initial load of WorldVistAEHR 2009-11-29 13:37:14 -05:00			`I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA)`
revised back to 6/30/08 version 2009-12-04 00:11:15 -05:00			`S X=DE(7),DIIX=2_U_DIFLD D AUDIT^DIET`