FHINI0AR ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(112) 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,112,7184,1)
;;=5.634^20.563^53.521^412.676^26.197^^^171.831^2.423^^^^^^^^^^^.352
;;^UTILITY(U,$J,112,7184,2)
;;=.282^3.38
;;^UTILITY(U,$J,112,7184,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7185,0)
;;=PASTRIES,SWEET ROLLS (CINN. W/ICING),PILSBURY^BC-00458^rolls^34
;;^UTILITY(U,$J,112,7185,1)
;;=4.412^14.118^50.294^344.118^28.824^^^20.588^1.882^^320.588^58.824^770.588^^^^^5.882^0^.265
;;^UTILITY(U,$J,112,7185,2)
;;=.206^2.353
;;^UTILITY(U,$J,112,7185,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7186,0)
;;=PASTRIES,TOASTER (APPLE SPICE),PILSBURY^BC-00459^1.9-oz.^54
;;^UTILITY(U,$J,112,7186,1)
;;=5.185^15.926^52.037^368.519^27.407^^^14.815^1.796^^127.778^70.37^351.852^^^^^20.37^0^.296
;;^UTILITY(U,$J,112,7186,2)
;;=.204^2.593
;;^UTILITY(U,$J,112,7186,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7187,0)
;;=PASTRIES,TOASTER (BLUEBERRY),KELLOGG'S POP TARTS^BC-00460^1.8-oz.^51
;;^UTILITY(U,$J,112,7187,1)
;;=3.922^11.765^72.549^411.765^^^^25.49^3.529^15.686^90.196^98.039^411.765^.588^.157^^^980.392^0^.294
;;^UTILITY(U,$J,112,7187,2)
;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
;;^UTILITY(U,$J,112,7187,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7188,0)
;;=PASTRIES,TOASTER (BLUEBERRY),PILSBURY^BC-00461^1.9-oz.^54
;;^UTILITY(U,$J,112,7188,1)
;;=4.074^14.074^51.667^359.259^22.778^^^11.111^1.296^^83.333^72.222^372.222^^^^^1.852^0^.204
;;^UTILITY(U,$J,112,7188,2)
;;=.204^2.037
;;^UTILITY(U,$J,112,7188,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7189,0)
;;=PASTRIES,TOASTER (BROWN SUGAR CINN.),KELLOGG'S POP TARTS^BC-00462^1.8-oz.^51
;;^UTILITY(U,$J,112,7189,1)
;;=5.882^15.686^64.706^411.765^^^^31.373^3.529^15.686^62.745^137.255^411.765^.569^.078^^^980.392^0^.294
;;^UTILITY(U,$J,112,7189,2)
;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
;;^UTILITY(U,$J,112,7189,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7190,0)
;;=PASTRIES,TOASTER (CHERRY),KELLOGG'S POP TARTS^BC-00463^1.8-oz.^51
;;^UTILITY(U,$J,112,7190,1)
;;=3.922^11.765^72.549^411.765^^^^27.451^3.529^15.686^86.275^117.647^431.373^.569^.157^^^980.392^0^.294
;;^UTILITY(U,$J,112,7190,2)
;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
;;^UTILITY(U,$J,112,7190,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7191,0)
;;=PASTRIES,TOASTER (CINN.),PILSBURY^BC-00464^1.9-oz.^54
;;^UTILITY(U,$J,112,7191,1)
;;=4.074^15.556^47.963^357.407^32.037^^^9.259^1.296^^83.333^66.667^366.667^^^^^0^0^.241
;;^UTILITY(U,$J,112,7191,2)
;;=.204^.926
;;^UTILITY(U,$J,112,7191,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7192,0)
;;=PASTRIES,TOASTER (CHOC FROSTED),KELLOGG'S POP TARTS^BC-00465^1.8-oz.^51
;;^UTILITY(U,$J,112,7192,1)
;;=5.882^9.804^72.549^392.157^^^^39.216^3.529^29.412^84.314^156.863^431.373^1.059^.157^^^980.392^0^.294
;;^UTILITY(U,$J,112,7192,2)
;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
;;^UTILITY(U,$J,112,7192,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7193,0)
;;=PASTRIES,TOASTER (CHOC VAN CREME),KELLOGG'S POP TARTS^BC-00466^1.8-oz.^51
;;^UTILITY(U,$J,112,7193,1)
;;=5.882^9.804^72.549^392.157^^^^31.373^3.529^21.569^70.588^117.647^450.98^.569^.118^^^980.392^0^.294
;;^UTILITY(U,$J,112,7193,2)
;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
;;^UTILITY(U,$J,112,7193,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7194,0)
;;=PASTRIES,TOASTER (GRAPE FROSTED),KELLOGG'S POP TARTS^BC-00467^1.8-oz.^51
;;^UTILITY(U,$J,112,7194,1)
;;=3.922^9.804^72.549^392.157^^^^23.529^3.529^21.569^90.196^117.647^392.157^.588^.098^^^980.392^0^.294
;;^UTILITY(U,$J,112,7194,2)
;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
;;^UTILITY(U,$J,112,7194,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7195,0)
;;=PASTRIES,TOASTER (RASPBERRY FROSTED),KELLOGG'S POP TARTS^BC-00468^1.8-oz.^51
;;^UTILITY(U,$J,112,7195,1)
;;=3.922^9.804^72.549^392.157^^^^21.569^3.529^15.686^90.196^117.647^411.765^.569^.078^^^980.392^0^.294
;;^UTILITY(U,$J,112,7195,2)
;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
;;^UTILITY(U,$J,112,7195,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7196,0)
;;=PASTRIES,TOASTER (RASPBERRY),PILSBURY^BC-00469^1.9-oz.^54
;;^UTILITY(U,$J,112,7196,1)
;;=4.074^13.889^49.074^346.296^32.963^^^11.111^1.296^^85.185^75.926^372.222^^^^^3.704^0^.241
FHINI0AR ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(112)
QUIT
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,112,7184,1)
+2 ;;=5.634^20.563^53.521^412.676^26.197^^^171.831^2.423^^^^^^^^^^^.352
+3 ;;^UTILITY(U,$J,112,7184,2)
+4 ;;=.282^3.38
+5 ;;^UTILITY(U,$J,112,7184,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,7185,0)
+8 ;;=PASTRIES,SWEET ROLLS (CINN. W/ICING),PILSBURY^BC-00458^rolls^34
+9 ;;^UTILITY(U,$J,112,7185,1)
+10 ;;=4.412^14.118^50.294^344.118^28.824^^^20.588^1.882^^320.588^58.824^770.588^^^^^5.882^0^.265
+11 ;;^UTILITY(U,$J,112,7185,2)
+12 ;;=.206^2.353
+13 ;;^UTILITY(U,$J,112,7185,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,7186,0)
+16 ;;=PASTRIES,TOASTER (APPLE SPICE),PILSBURY^BC-00459^1.9-oz.^54
+17 ;;^UTILITY(U,$J,112,7186,1)
+18 ;;=5.185^15.926^52.037^368.519^27.407^^^14.815^1.796^^127.778^70.37^351.852^^^^^20.37^0^.296
+19 ;;^UTILITY(U,$J,112,7186,2)
+20 ;;=.204^2.593
+21 ;;^UTILITY(U,$J,112,7186,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,7187,0)
+24 ;;=PASTRIES,TOASTER (BLUEBERRY),KELLOGG'S POP TARTS^BC-00460^1.8-oz.^51
+25 ;;^UTILITY(U,$J,112,7187,1)
+26 ;;=3.922^11.765^72.549^411.765^^^^25.49^3.529^15.686^90.196^98.039^411.765^.588^.157^^^980.392^0^.294
+27 ;;^UTILITY(U,$J,112,7187,2)
+28 ;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
+29 ;;^UTILITY(U,$J,112,7187,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,7188,0)
+32 ;;=PASTRIES,TOASTER (BLUEBERRY),PILSBURY^BC-00461^1.9-oz.^54
+33 ;;^UTILITY(U,$J,112,7188,1)
+34 ;;=4.074^14.074^51.667^359.259^22.778^^^11.111^1.296^^83.333^72.222^372.222^^^^^1.852^0^.204
+35 ;;^UTILITY(U,$J,112,7188,2)
+36 ;;=.204^2.037
+37 ;;^UTILITY(U,$J,112,7188,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,7189,0)
+40 ;;=PASTRIES,TOASTER (BROWN SUGAR CINN.),KELLOGG'S POP TARTS^BC-00462^1.8-oz.^51
+41 ;;^UTILITY(U,$J,112,7189,1)
+42 ;;=5.882^15.686^64.706^411.765^^^^31.373^3.529^15.686^62.745^137.255^411.765^.569^.078^^^980.392^0^.294
+43 ;;^UTILITY(U,$J,112,7189,2)
+44 ;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
+45 ;;^UTILITY(U,$J,112,7189,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,7190,0)
+48 ;;=PASTRIES,TOASTER (CHERRY),KELLOGG'S POP TARTS^BC-00463^1.8-oz.^51
+49 ;;^UTILITY(U,$J,112,7190,1)
+50 ;;=3.922^11.765^72.549^411.765^^^^27.451^3.529^15.686^86.275^117.647^431.373^.569^.157^^^980.392^0^.294
+51 ;;^UTILITY(U,$J,112,7190,2)
+52 ;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
+53 ;;^UTILITY(U,$J,112,7190,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,7191,0)
+56 ;;=PASTRIES,TOASTER (CINN.),PILSBURY^BC-00464^1.9-oz.^54
+57 ;;^UTILITY(U,$J,112,7191,1)
+58 ;;=4.074^15.556^47.963^357.407^32.037^^^9.259^1.296^^83.333^66.667^366.667^^^^^0^0^.241
+59 ;;^UTILITY(U,$J,112,7191,2)
+60 ;;=.204^.926
+61 ;;^UTILITY(U,$J,112,7191,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,7192,0)
+64 ;;=PASTRIES,TOASTER (CHOC FROSTED),KELLOGG'S POP TARTS^BC-00465^1.8-oz.^51
+65 ;;^UTILITY(U,$J,112,7192,1)
+66 ;;=5.882^9.804^72.549^392.157^^^^39.216^3.529^29.412^84.314^156.863^431.373^1.059^.157^^^980.392^0^.294
+67 ;;^UTILITY(U,$J,112,7192,2)
+68 ;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
+69 ;;^UTILITY(U,$J,112,7192,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,7193,0)
+72 ;;=PASTRIES,TOASTER (CHOC VAN CREME),KELLOGG'S POP TARTS^BC-00466^1.8-oz.^51
+73 ;;^UTILITY(U,$J,112,7193,1)
+74 ;;=5.882^9.804^72.549^392.157^^^^31.373^3.529^21.569^70.588^117.647^450.98^.569^.118^^^980.392^0^.294
+75 ;;^UTILITY(U,$J,112,7193,2)
+76 ;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
+77 ;;^UTILITY(U,$J,112,7193,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,7194,0)
+80 ;;=PASTRIES,TOASTER (GRAPE FROSTED),KELLOGG'S POP TARTS^BC-00467^1.8-oz.^51
+81 ;;^UTILITY(U,$J,112,7194,1)
+82 ;;=3.922^9.804^72.549^392.157^^^^23.529^3.529^21.569^90.196^117.647^392.157^.588^.098^^^980.392^0^.294
+83 ;;^UTILITY(U,$J,112,7194,2)
+84 ;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
+85 ;;^UTILITY(U,$J,112,7194,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,7195,0)
+88 ;;=PASTRIES,TOASTER (RASPBERRY FROSTED),KELLOGG'S POP TARTS^BC-00468^1.8-oz.^51
+89 ;;^UTILITY(U,$J,112,7195,1)
+90 ;;=3.922^9.804^72.549^392.157^^^^21.569^3.529^15.686^90.196^117.647^411.765^.569^.078^^^980.392^0^.294
+91 ;;^UTILITY(U,$J,112,7195,2)
+92 ;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
+93 ;;^UTILITY(U,$J,112,7195,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,7196,0)
+96 ;;=PASTRIES,TOASTER (RASPBERRY),PILSBURY^BC-00469^1.9-oz.^54
+97 ;;^UTILITY(U,$J,112,7196,1)
+98 ;;=4.074^13.889^49.074^346.296^32.963^^^11.111^1.296^^85.185^75.926^372.222^^^^^3.704^0^.241
