Ignore:
Timestamp:
Jun 5, 2011, 5:16:28 AM (13 years ago)
Author:
Sam Habiel
Message:

fix compilation error in BMXADOV1

File:
1 edited

Legend:

Unmodified
Added
Removed
  • BMXNET_RPMS_dotNET_UTILITIES-BMX/branch/BMX41000/routines/BMXADOV1.m

    r1147 r1200  
    1 BMXADOV1        ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ;
     1BMXADOV1        ; IHS/CIHA/GIS - RPC CALL: GENERATE DATA FOR AN ADO DATASET ; 6/5/11 12:15pm
    22        ;;4.1000;BMX;;Apr 17, 2011
    33        ; CONTINUATION FILE FOR BMXADOV
    44        ; MANAGES ITERATION FOR INDIVIDUAL INDEX TYPES
    55        ; ASSUMES CERTAIN LOCAL VARS: CREF,FIEN,IENS,DAS (<-THESE CAN'T BE NULL),START,STOP,MAX,TOT,NUM,IX
     6    ;
     7    ; Change Log (VW/SMH)
     8    ; - June 5th: Fix compilation error on GT.M. Search for *1000
    69        ;
    710        ;
     
    132135        S DA=+IENS I 'DA Q CREF_"||"
    133136        I '$D(@CREF@(DA)) Q CREF_"||" ; NO ENTRY EXISTS
    134         I IX="AA" G AA
     137        ;I IX="AA" G AA //smh *1000: Cannot Goto to a Formal Line or Extrinsic. Change to below
     138    I IX="AA" Q $$AA()
    135139        S FLD=+$$IXFLD^BMXADOV(FIEN,IX) I 'FLD Q "" ; INVALID DD
    136140        S VAL=$$GET1^DIQ(FIEN,IENS,FLD,"I") I VAL="" Q "" ; VALUE IS NULL - NOTHING TO INDEX
Note: See TracChangeset for help on using the changeset viewer.