Index: BMXNET_RPMS_dotNET_UTILITIES-BMX/branch/BMX41000/routines/BMXADOV1.m
===================================================================
--- BMXNET_RPMS_dotNET_UTILITIES-BMX/branch/BMX41000/routines/BMXADOV1.m	(revision 1199)
+++ BMXNET_RPMS_dotNET_UTILITIES-BMX/branch/BMX41000/routines/BMXADOV1.m	(revision 1200)
@@ -1,7 +1,10 @@
-BMXADOV1	; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
+BMXADOV1	; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ; 6/5/11 12:15pm
 	;;4.1000;BMX;;Apr 17, 2011
 	; CONTINUATION FILE FOR BMXADOV
 	; MANAGES ITERATION FOR INDIVIDUAL INDEX TYPES
 	; ASSUMES CERTAIN LOCAL VARS: CREF,FIEN,IENS,DAS (<-THESE CAN'T BE NULL),START,STOP,MAX,TOT,NUM,IX
+    ;
+    ; Change Log (VW/SMH)
+    ; - June 5th: Fix compilation error on GT.M. Search for *1000
 	; 
 	; 
@@ -132,5 +135,6 @@
 	S DA=+IENS I 'DA Q CREF_"||"
 	I '$D(@CREF@(DA)) Q CREF_"||" ; NO ENTRY EXISTS
-	I IX="AA" G AA
+	;I IX="AA" G AA //smh *1000: Cannot Goto to a Formal Line or Extrinsic. Change to below
+    I IX="AA" Q $$AA()
 	S FLD=+$$IXFLD^BMXADOV(FIEN,IX) I 'FLD Q "" ; INVALID DD
 	S VAL=$$GET1^DIQ(FIEN,IENS,FLD,"I") I VAL="" Q "" ; VALUE IS NULL - NOTHING TO INDEX