Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FHINI0OB

FHINI0OB.m

Go to the documentation of this file.
  1. FHINI0OB ; ; 11-OCT-1995
  1. ;;5.0;Dietetics;;Oct 11, 1995
  1. F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
  1. Q Q
  1. ;;^UTILITY(U,$J,"SBF",114.1,114.1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",114.2,114.2)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",114.3,114.3)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",114.4,114.4)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115.01)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115.011)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115.012)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115.02)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115.021)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115.03)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115.04)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115.05)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115.06)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115.07)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115.08)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115.09)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115.1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115.1171)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115,115.14)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115.2,115.2)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115.2,115.21)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115.3,115.3)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115.4,115.4)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115.5,115.5)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115.6,115.6)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115.7,115.7)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",115.7,115.701)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",116,116)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",116,116.01)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",116,116.02)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",116.1,116.1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",116.1,116.11)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",116.1,116.112)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",116.1,116.12)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",116.2,116.2)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",116.2,116.211)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",116.3,116.3)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117,117)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.1,117.1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.2,117.2)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.3)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.31)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.312)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.313)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.325)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.332)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.338)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.356)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.358)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.359)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.361)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.362)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.363)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.364)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.365)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.3,117.366)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",117.4,117.4)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",118,118)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",118,118.01)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",118.1,118.1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",118.2,118.2)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",118.2,118.21)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",118.3,118.3)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119,119)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119,119.01)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.1,119.1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.4,119.4)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.5,119.5)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.6,119.6)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.6,119.61)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.6,119.62)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.6,119.63)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.71,119.71)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.72,119.72)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.72,119.721)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.72,119.7211)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.72,119.722)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.73,119.73)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.74,119.74)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.8,119.8)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.9,119.9)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.9,119.9001)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.9,119.93)
  1. ;;=
  1. ;;^UTILITY(U,$J,"SBF",119.9,119.985)
  1. ;;=