Routine: FHINI0O9

FHINI0O9	; ; 11-OCT-1995

	;;5.0;Dietetics;;Oct 11, 1995

	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

Q	Q

	;;^UTILITY(U,$J,"PKG",22,4,10,222)

	;;=y^y^^n^^^y^m^y

	;;^UTILITY(U,$J,"PKG",22,4,10,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,11,0)

	;;=119.6

	;;^UTILITY(U,$J,"PKG",22,4,11,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,11,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,12,0)

	;;=118.2

	;;^UTILITY(U,$J,"PKG",22,4,12,222)

	;;=y^y^^n^^^y^m^y

	;;^UTILITY(U,$J,"PKG",22,4,12,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,13,0)

	;;=113

	;;^UTILITY(U,$J,"PKG",22,4,13,222)

	;;=y^y^^n^^^y^m^y

	;;^UTILITY(U,$J,"PKG",22,4,13,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,13,222.9)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,14,0)

	;;=113.1

	;;^UTILITY(U,$J,"PKG",22,4,14,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,14,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,14,222.9)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,15,0)

	;;=113.2

	;;^UTILITY(U,$J,"PKG",22,4,15,222)

	;;=y^y^^n^^^y^m^y

	;;^UTILITY(U,$J,"PKG",22,4,15,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,15,222.9)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,16,0)

	;;=114

	;;^UTILITY(U,$J,"PKG",22,4,16,222)

	;;=y^y^^n^^^y^m^y

	;;^UTILITY(U,$J,"PKG",22,4,16,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,16,222.9)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,17,0)

	;;=116

	;;^UTILITY(U,$J,"PKG",22,4,17,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,17,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,18,0)

	;;=116.1

	;;^UTILITY(U,$J,"PKG",22,4,18,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,18,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,20,0)

	;;=119.4

	;;^UTILITY(U,$J,"PKG",22,4,20,222)

	;;=y^y^^n^^^y^m^y

	;;^UTILITY(U,$J,"PKG",22,4,20,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,21,0)

	;;=116.2

	;;^UTILITY(U,$J,"PKG",22,4,21,222)

	;;=y^y^^n^^^y^m^y

	;;^UTILITY(U,$J,"PKG",22,4,21,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,23,0)

	;;=116.3

	;;^UTILITY(U,$J,"PKG",22,4,23,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,23,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,24,0)

	;;=117

	;;^UTILITY(U,$J,"PKG",22,4,24,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,26,0)

	;;=114.1

	;;^UTILITY(U,$J,"PKG",22,4,26,222)

	;;=y^y^^n^^^y^m^y

	;;^UTILITY(U,$J,"PKG",22,4,26,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,27,0)

	;;=118.3

	;;^UTILITY(U,$J,"PKG",22,4,27,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,28,0)

	;;=114.3

	;;^UTILITY(U,$J,"PKG",22,4,28,222)

	;;=y^y^^n^^^y^m^y

	;;^UTILITY(U,$J,"PKG",22,4,28,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,29,0)

	;;=114.4

	;;^UTILITY(U,$J,"PKG",22,4,29,222)

	;;=y^y^^n^^^y^m^y

	;;^UTILITY(U,$J,"PKG",22,4,29,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,30,0)

	;;=114.2

	;;^UTILITY(U,$J,"PKG",22,4,30,222)

	;;=y^y^^n^^^y^m^y

	;;^UTILITY(U,$J,"PKG",22,4,30,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,31,0)

	;;=115.2

	;;^UTILITY(U,$J,"PKG",22,4,31,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,31,222.7)

	;;=N

	;;^UTILITY(U,$J,"PKG",22,4,32,0)

	;;=115.3

	;;^UTILITY(U,$J,"PKG",22,4,32,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,33,0)

	;;=115.4

	;;^UTILITY(U,$J,"PKG",22,4,33,222)

	;;=y^y^^n^^^y^o^n

	;;^UTILITY(U,$J,"PKG",22,4,33,222.7)

	;;=Y

	;;^UTILITY(U,$J,"PKG",22,4,34,0)

	;;=115.5

	;;^UTILITY(U,$J,"PKG",22,4,34,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,35,0)

	;;=115.6

	;;^UTILITY(U,$J,"PKG",22,4,35,222)

	;;=y^y^^n^^^y^m^y

	;;^UTILITY(U,$J,"PKG",22,4,35,222.7)

	;;=Y

	;;^UTILITY(U,$J,"PKG",22,4,35,222.9)

	;;=Y

	;;^UTILITY(U,$J,"PKG",22,4,36,0)

	;;=115.7

	;;^UTILITY(U,$J,"PKG",22,4,36,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,37,0)

	;;=117.1

	;;^UTILITY(U,$J,"PKG",22,4,37,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,38,0)

	;;=119.71

	;;^UTILITY(U,$J,"PKG",22,4,38,222)

	;;=y^y^^n^^^n^^

	;;^UTILITY(U,$J,"PKG",22,4,39,0)

	;;=119.72

	;;^UTILITY(U,$J,"PKG",22,4,39,222)

	;;=y^y^^n^^^n^^

	;;^UTILITY(U,$J,"PKG",22,4,40,0)

	;;=119.73

	;;^UTILITY(U,$J,"PKG",22,4,40,222)

	;;=y^y^^n^^^n^^

	;;^UTILITY(U,$J,"PKG",22,4,41,0)

	;;=119.74

	;;^UTILITY(U,$J,"PKG",22,4,41,222)

	;;=y^y^^n^^^n^^

	;;^UTILITY(U,$J,"PKG",22,4,42,0)

	;;=117.2

	;;^UTILITY(U,$J,"PKG",22,4,42,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,43,0)

	;;=117.3

	;;^UTILITY(U,$J,"PKG",22,4,43,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,44,0)

	;;=117.4

	;;^UTILITY(U,$J,"PKG",22,4,44,222)

	;;=y^y^^n^^^y^o^n

	;;^UTILITY(U,$J,"PKG",22,4,45,0)

	;;=119.8

	;;^UTILITY(U,$J,"PKG",22,4,45,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,46,0)

	;;=119

	;;^UTILITY(U,$J,"PKG",22,4,46,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,47,0)

	;;=111.1

	;;^UTILITY(U,$J,"PKG",22,4,47,222)

	;;=y^y^^n^^^n

	;;^UTILITY(U,$J,"PKG",22,4,"B",111,1)

;;=

	;;^UTILITY(U,$J,"PKG",22,4,"B",111.1,47)

;;=

	;;^UTILITY(U,$J,"PKG",22,4,"B",112,2)

;;=

	;;^UTILITY(U,$J,"PKG",22,4,"B",112.2,3)

;;=

	;;^UTILITY(U,$J,"PKG",22,4,"B",112.6,4)

;;=

	;;^UTILITY(U,$J,"PKG",22,4,"B",113,13)

;;=

FHINI0O9  ; ; 11-OCT-1995

 +1       ;;5.0;Dietetics;;Oct 11, 1995

 +2        FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT

 +1       ;;^UTILITY(U,$J,"PKG",22,4,10,222)

 +2       ;;=y^y^^n^^^y^m^y

 +3       ;;^UTILITY(U,$J,"PKG",22,4,10,222.7)

 +4       ;;=N

 +5       ;;^UTILITY(U,$J,"PKG",22,4,11,0)

 +6       ;;=119.6

 +7       ;;^UTILITY(U,$J,"PKG",22,4,11,222)

 +8       ;;=y^y^^n^^^n

 +9       ;;^UTILITY(U,$J,"PKG",22,4,11,222.7)

 +10      ;;=N

 +11      ;;^UTILITY(U,$J,"PKG",22,4,12,0)

 +12      ;;=118.2

 +13      ;;^UTILITY(U,$J,"PKG",22,4,12,222)

 +14      ;;=y^y^^n^^^y^m^y

 +15      ;;^UTILITY(U,$J,"PKG",22,4,12,222.7)

 +16      ;;=N

 +17      ;;^UTILITY(U,$J,"PKG",22,4,13,0)

 +18      ;;=113

 +19      ;;^UTILITY(U,$J,"PKG",22,4,13,222)

 +20      ;;=y^y^^n^^^y^m^y

 +21      ;;^UTILITY(U,$J,"PKG",22,4,13,222.7)

 +22      ;;=N

 +23      ;;^UTILITY(U,$J,"PKG",22,4,13,222.9)

 +24      ;;=N

 +25      ;;^UTILITY(U,$J,"PKG",22,4,14,0)

 +26      ;;=113.1

 +27      ;;^UTILITY(U,$J,"PKG",22,4,14,222)

 +28      ;;=y^y^^n^^^n

 +29      ;;^UTILITY(U,$J,"PKG",22,4,14,222.7)

 +30      ;;=N

 +31      ;;^UTILITY(U,$J,"PKG",22,4,14,222.9)

 +32      ;;=N

 +33      ;;^UTILITY(U,$J,"PKG",22,4,15,0)

 +34      ;;=113.2

 +35      ;;^UTILITY(U,$J,"PKG",22,4,15,222)

 +36      ;;=y^y^^n^^^y^m^y

 +37      ;;^UTILITY(U,$J,"PKG",22,4,15,222.7)

 +38      ;;=N

 +39      ;;^UTILITY(U,$J,"PKG",22,4,15,222.9)

 +40      ;;=N

 +41      ;;^UTILITY(U,$J,"PKG",22,4,16,0)

 +42      ;;=114

 +43      ;;^UTILITY(U,$J,"PKG",22,4,16,222)

 +44      ;;=y^y^^n^^^y^m^y

 +45      ;;^UTILITY(U,$J,"PKG",22,4,16,222.7)

 +46      ;;=N

 +47      ;;^UTILITY(U,$J,"PKG",22,4,16,222.9)

 +48      ;;=N

 +49      ;;^UTILITY(U,$J,"PKG",22,4,17,0)

 +50      ;;=116

 +51      ;;^UTILITY(U,$J,"PKG",22,4,17,222)

 +52      ;;=y^y^^n^^^n

 +53      ;;^UTILITY(U,$J,"PKG",22,4,17,222.7)

 +54      ;;=N

 +55      ;;^UTILITY(U,$J,"PKG",22,4,18,0)

 +56      ;;=116.1

 +57      ;;^UTILITY(U,$J,"PKG",22,4,18,222)

 +58      ;;=y^y^^n^^^n

 +59      ;;^UTILITY(U,$J,"PKG",22,4,18,222.7)

 +60      ;;=N

 +61      ;;^UTILITY(U,$J,"PKG",22,4,20,0)

 +62      ;;=119.4

 +63      ;;^UTILITY(U,$J,"PKG",22,4,20,222)

 +64      ;;=y^y^^n^^^y^m^y

 +65      ;;^UTILITY(U,$J,"PKG",22,4,20,222.7)

 +66      ;;=N

 +67      ;;^UTILITY(U,$J,"PKG",22,4,21,0)

 +68      ;;=116.2

 +69      ;;^UTILITY(U,$J,"PKG",22,4,21,222)

 +70      ;;=y^y^^n^^^y^m^y

 +71      ;;^UTILITY(U,$J,"PKG",22,4,21,222.7)

 +72      ;;=N

 +73      ;;^UTILITY(U,$J,"PKG",22,4,23,0)

 +74      ;;=116.3

 +75      ;;^UTILITY(U,$J,"PKG",22,4,23,222)

 +76      ;;=y^y^^n^^^n

 +77      ;;^UTILITY(U,$J,"PKG",22,4,23,222.7)

 +78      ;;=N

 +79      ;;^UTILITY(U,$J,"PKG",22,4,24,0)

 +80      ;;=117

 +81      ;;^UTILITY(U,$J,"PKG",22,4,24,222)

 +82      ;;=y^y^^n^^^n

 +83      ;;^UTILITY(U,$J,"PKG",22,4,26,0)

 +84      ;;=114.1

 +85      ;;^UTILITY(U,$J,"PKG",22,4,26,222)

 +86      ;;=y^y^^n^^^y^m^y

 +87      ;;^UTILITY(U,$J,"PKG",22,4,26,222.7)

 +88      ;;=N

 +89      ;;^UTILITY(U,$J,"PKG",22,4,27,0)

 +90      ;;=118.3

 +91      ;;^UTILITY(U,$J,"PKG",22,4,27,222)

 +92      ;;=y^y^^n^^^n

 +93      ;;^UTILITY(U,$J,"PKG",22,4,28,0)

 +94      ;;=114.3

 +95      ;;^UTILITY(U,$J,"PKG",22,4,28,222)

 +96      ;;=y^y^^n^^^y^m^y

 +97      ;;^UTILITY(U,$J,"PKG",22,4,28,222.7)

 +98      ;;=N

 +99      ;;^UTILITY(U,$J,"PKG",22,4,29,0)

 +100     ;;=114.4

 +101     ;;^UTILITY(U,$J,"PKG",22,4,29,222)

 +102     ;;=y^y^^n^^^y^m^y

 +103     ;;^UTILITY(U,$J,"PKG",22,4,29,222.7)

 +104     ;;=N

 +105     ;;^UTILITY(U,$J,"PKG",22,4,30,0)

 +106     ;;=114.2

 +107     ;;^UTILITY(U,$J,"PKG",22,4,30,222)

 +108     ;;=y^y^^n^^^y^m^y

 +109     ;;^UTILITY(U,$J,"PKG",22,4,30,222.7)

 +110     ;;=N

 +111     ;;^UTILITY(U,$J,"PKG",22,4,31,0)

 +112     ;;=115.2

 +113     ;;^UTILITY(U,$J,"PKG",22,4,31,222)

 +114     ;;=y^y^^n^^^n

 +115     ;;^UTILITY(U,$J,"PKG",22,4,31,222.7)

 +116     ;;=N

 +117     ;;^UTILITY(U,$J,"PKG",22,4,32,0)

 +118     ;;=115.3

 +119     ;;^UTILITY(U,$J,"PKG",22,4,32,222)

 +120     ;;=y^y^^n^^^n

 +121     ;;^UTILITY(U,$J,"PKG",22,4,33,0)

 +122     ;;=115.4

 +123     ;;^UTILITY(U,$J,"PKG",22,4,33,222)

 +124     ;;=y^y^^n^^^y^o^n

 +125     ;;^UTILITY(U,$J,"PKG",22,4,33,222.7)

 +126     ;;=Y

 +127     ;;^UTILITY(U,$J,"PKG",22,4,34,0)

 +128     ;;=115.5

 +129     ;;^UTILITY(U,$J,"PKG",22,4,34,222)

 +130     ;;=y^y^^n^^^n

 +131     ;;^UTILITY(U,$J,"PKG",22,4,35,0)

 +132     ;;=115.6

 +133     ;;^UTILITY(U,$J,"PKG",22,4,35,222)

 +134     ;;=y^y^^n^^^y^m^y

 +135     ;;^UTILITY(U,$J,"PKG",22,4,35,222.7)

 +136     ;;=Y

 +137     ;;^UTILITY(U,$J,"PKG",22,4,35,222.9)

 +138     ;;=Y

 +139     ;;^UTILITY(U,$J,"PKG",22,4,36,0)

 +140     ;;=115.7

 +141     ;;^UTILITY(U,$J,"PKG",22,4,36,222)

 +142     ;;=y^y^^n^^^n

 +143     ;;^UTILITY(U,$J,"PKG",22,4,37,0)

 +144     ;;=117.1

 +145     ;;^UTILITY(U,$J,"PKG",22,4,37,222)

 +146     ;;=y^y^^n^^^n

 +147     ;;^UTILITY(U,$J,"PKG",22,4,38,0)

 +148     ;;=119.71

 +149     ;;^UTILITY(U,$J,"PKG",22,4,38,222)

 +150     ;;=y^y^^n^^^n^^

 +151     ;;^UTILITY(U,$J,"PKG",22,4,39,0)

 +152     ;;=119.72

 +153     ;;^UTILITY(U,$J,"PKG",22,4,39,222)

 +154     ;;=y^y^^n^^^n^^

 +155     ;;^UTILITY(U,$J,"PKG",22,4,40,0)

 +156     ;;=119.73

 +157     ;;^UTILITY(U,$J,"PKG",22,4,40,222)

 +158     ;;=y^y^^n^^^n^^

 +159     ;;^UTILITY(U,$J,"PKG",22,4,41,0)

 +160     ;;=119.74

 +161     ;;^UTILITY(U,$J,"PKG",22,4,41,222)

 +162     ;;=y^y^^n^^^n^^

 +163     ;;^UTILITY(U,$J,"PKG",22,4,42,0)

 +164     ;;=117.2

 +165     ;;^UTILITY(U,$J,"PKG",22,4,42,222)

 +166     ;;=y^y^^n^^^n

 +167     ;;^UTILITY(U,$J,"PKG",22,4,43,0)

 +168     ;;=117.3

 +169     ;;^UTILITY(U,$J,"PKG",22,4,43,222)

 +170     ;;=y^y^^n^^^n

 +171     ;;^UTILITY(U,$J,"PKG",22,4,44,0)

 +172     ;;=117.4

 +173     ;;^UTILITY(U,$J,"PKG",22,4,44,222)

 +174     ;;=y^y^^n^^^y^o^n

 +175     ;;^UTILITY(U,$J,"PKG",22,4,45,0)

 +176     ;;=119.8

 +177     ;;^UTILITY(U,$J,"PKG",22,4,45,222)

 +178     ;;=y^y^^n^^^n

 +179     ;;^UTILITY(U,$J,"PKG",22,4,46,0)

 +180     ;;=119

 +181     ;;^UTILITY(U,$J,"PKG",22,4,46,222)

 +182     ;;=y^y^^n^^^n

 +183     ;;^UTILITY(U,$J,"PKG",22,4,47,0)

 +184     ;;=111.1

 +185     ;;^UTILITY(U,$J,"PKG",22,4,47,222)

 +186     ;;=y^y^^n^^^n

 +187     ;;^UTILITY(U,$J,"PKG",22,4,"B",111,1)

 +188     ;;=

 +189     ;;^UTILITY(U,$J,"PKG",22,4,"B",111.1,47)

 +190     ;;=

 +191     ;;^UTILITY(U,$J,"PKG",22,4,"B",112,2)

 +192     ;;=

 +193     ;;^UTILITY(U,$J,"PKG",22,4,"B",112.2,3)

 +194     ;;=

 +195     ;;^UTILITY(U,$J,"PKG",22,4,"B",112.6,4)

 +196     ;;=

 +197     ;;^UTILITY(U,$J,"PKG",22,4,"B",113,13)

 +198     ;;=

FHINI0O9.m