FHINI0H7.m

FHINI0H7	; ; 11-OCT-1995

	;;5.0;Dietetics;;Oct 11, 1995

	Q:'DIFQ(113)  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

	;;^DD(113,27,"DT")

	;;=2930331

	;;^DD(113,28,0)

	;;=WEIGHT OF RECIPE UNIT IN LBS.^NJ7,3^^0;22^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X

	;;^DD(113,28,3)

	;;=Type a Number between 0 and 999, 3 Decimal Digits

	;;^DD(113,28,21,0)

	;;=^^3^3^2911204^

	;;^DD(113,28,21,1,0)

	;;=This value represents the weight of the recipe unit in pounds and

	;;^DD(113,28,21,2,0)

	;;=is required in performing nutrient analyses of recipes containing

	;;^DD(113,28,21,3,0)

	;;=this ingredient.

	;;^DD(113,28,"DT")

	;;=2910821

	;;^DD(113,29,0)

	;;=DATE COST LAST UPDATED^D^^0;23^S %DT="E" D ^%DT S X=Y K:Y<1 X

	;;^DD(113,29,21,0)

	;;=^^1^1^2920813^^

	;;^DD(113,29,21,1,0)

	;;=This field contains the date the cost was last updated.

	;;^DD(113,29,"DT")

	;;=2920813

	;;^DD(113,30,0)

	;;=DATE QOH LAST UPDATED^D^^0;24^S %DT="E" D ^%DT S X=Y K:Y<1 X

	;;^DD(113,30,21,0)

	;;=^^1^1^2920813^^

	;;^DD(113,30,21,1,0)

	;;=This field contains the date the quantity on hand was last updated.

	;;^DD(113,30,"DT")

	;;=2920813

	;;^DD(113,31,0)

	;;=MASTER ITEM #^P441^PRC(441,^0;25^Q

	;;^DD(113,31,3)

	;;=

	;;^DD(113,31,21,0)

	;;=^^1^1^2930211^^^^

	;;^DD(113,31,21,1,0)

	;;=This field contains the Master Item number for the ingredient.

	;;^DD(113,31,"DT")

	;;=2930211

FHINI0H7  ; ; 11-OCT-1995

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

 +2        IF 'DIFQ(113)

               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       ;;^DD(113,27,"DT")

 +2       ;;=2930331

 +3       ;;^DD(113,28,0)

 +4       ;;=WEIGHT OF RECIPE UNIT IN LBS.^NJ7,3^^0;22^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X

 +5       ;;^DD(113,28,3)

 +6       ;;=Type a Number between 0 and 999, 3 Decimal Digits

 +7       ;;^DD(113,28,21,0)

 +8       ;;=^^3^3^2911204^

 +9       ;;^DD(113,28,21,1,0)

 +10      ;;=This value represents the weight of the recipe unit in pounds and

 +11      ;;^DD(113,28,21,2,0)

 +12      ;;=is required in performing nutrient analyses of recipes containing

 +13      ;;^DD(113,28,21,3,0)

 +14      ;;=this ingredient.

 +15      ;;^DD(113,28,"DT")

 +16      ;;=2910821

 +17      ;;^DD(113,29,0)

 +18      ;;=DATE COST LAST UPDATED^D^^0;23^S %DT="E" D ^%DT S X=Y K:Y<1 X

 +19      ;;^DD(113,29,21,0)

 +20      ;;=^^1^1^2920813^^

 +21      ;;^DD(113,29,21,1,0)

 +22      ;;=This field contains the date the cost was last updated.

 +23      ;;^DD(113,29,"DT")

 +24      ;;=2920813

 +25      ;;^DD(113,30,0)

 +26      ;;=DATE QOH LAST UPDATED^D^^0;24^S %DT="E" D ^%DT S X=Y K:Y<1 X

 +27      ;;^DD(113,30,21,0)

 +28      ;;=^^1^1^2920813^^

 +29      ;;^DD(113,30,21,1,0)

 +30      ;;=This field contains the date the quantity on hand was last updated.

 +31      ;;^DD(113,30,"DT")

 +32      ;;=2920813

 +33      ;;^DD(113,31,0)

 +34      ;;=MASTER ITEM #^P441^PRC(441,^0;25^Q

 +35      ;;^DD(113,31,3)

 +36      ;;=

 +37      ;;^DD(113,31,21,0)

 +38      ;;=^^1^1^2930211^^^^

 +39      ;;^DD(113,31,21,1,0)

 +40      ;;=This field contains the Master Item number for the ingredient.

 +41      ;;^DD(113,31,"DT")

 +42      ;;=2930211