Changeset 1200 for BMXNET_RPMS_dotNET_UTILITIES-BMX

Timestamp:

Jun 5, 2011, 5:16:28 AM (13 years ago)

Author:

Sam Habiel

Message:

fix compilation error in BMXADOV1

File:

• BMXNET_RPMS_dotNET_UTILITIES-BMX/branch/BMX41000/routines/BMXADOV1.m (modified) (2 diffs)

BMXNET_RPMS_dotNET_UTILITIES-BMX/branch/BMX41000/routines/BMXADOV1.m

@@ -1 @@
-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 +135 @@
         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