- BMXTABLE ; IHS/OIT/HMW - BMX RETURN ENTIRE TABLE ;
- ;;4.0;BMX;;JUN 28, 2010
- ;
- TABLE(BMXGBL,BMXFL,BMXMX) ;EP
- ;
- D FIND^BMXFIND(.BMXGBL,BMXFL,"*",,,BMXMX,,,,1)
- Q
- BMXTABLE ; IHS/OIT/HMW - BMX RETURN ENTIRE TABLE ;
- +1 ;;4.0;BMX;;JUN 28, 2010
- +2 ;
- TABLE(BMXGBL,BMXFL,BMXMX) ;EP
- +1 ;
- +2 DO FIND^BMXFIND(.BMXGBL,BMXFL,"*",,,BMXMX,,,,1)
- +3 QUIT