Changeset 1087 for BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOV1.m

Timestamp:

Jan 27, 2011, 4:50:57 AM (13 years ago)

Author:

Sam Habiel

Message:

BMX updated to v2.3. No actual routine changes from 2.21

File:

• BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOV1.m (modified) (2 diffs)

BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXADOV1.m

@@ -1 @@
-BMXADOV1        ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
-        ;;2.2;BMX;;Sep 07, 2010
+BMXADOV1        ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ; 12/7/10 4:12pm
+        ;;2.3;BMX;;Jan 25, 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
+           ; Sam Habiel 3101212 v. 2.21
+           ; Change line 140 from:
+           ;  I IX="AA" G AA to
+           ;  I IX="AA" Q $$AA 
+           ; to fix compilation error
         ; 
         ;
@@ -132 +138 @@
         S DA=+IENS I 'DA Q CREF_"||"
         I '$D(@CREF@(DA)) Q CREF_"||" ; NO ENTRY EXISTS
-        I IX="AA" G AA
+        I IX="AA" Q $$AA  ; SMH v. 2.21
         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