FHINI0LK ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(117.2) 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(117.2,11,0)
;;=ISSUE COST GRP 5^NJ7,0^^0;12^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,11,3)
;;=Enter an Amount between 0 and 9999999 for Issue Cost of Food Group V
;;^DD(117.2,11,21,0)
;;=^^1^1^2911113^
;;^DD(117.2,11,21,1,0)
;;=Enter the Issue Cost of Food Group V.
;;^DD(117.2,11,"DT")
;;=2910506
;;^DD(117.2,12,0)
;;=ISSUE COST GRP 6^NJ7,0^^0;13^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,12,3)
;;=Enter an Amount between 0 and 9999999 for the Issue Cost of Food Group VI
;;^DD(117.2,12,21,0)
;;=^^1^1^2911113^
;;^DD(117.2,12,21,1,0)
;;=Enter the Issue Cost of Food Group VI.
;;^DD(117.2,12,"DT")
;;=2910506
;;^DD(117.2,13,0)
;;=CLOS INV GRP 1^NJ6,0^^0;14^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,13,3)
;;=Enter an Amount between 0 and 999999 for the Closing Inventory of Food Group I
;;^DD(117.2,13,21,0)
;;=^^1^1^2920501^^
;;^DD(117.2,13,21,1,0)
;;=Enter the Closing Inventory Cost for Food Group I.
;;^DD(117.2,13,"DT")
;;=2910506
;;^DD(117.2,14,0)
;;=CLOS INV GRP 2^NJ6,0^^0;15^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,14,3)
;;=Enter an Amount between 0 and 999999 for Closing Inv Cost for Food Group II
;;^DD(117.2,14,21,0)
;;=^^1^1^2911113^
;;^DD(117.2,14,21,1,0)
;;=Enter the Closing Inventory Cost for Food Group II.
;;^DD(117.2,14,"DT")
;;=2910506
;;^DD(117.2,15,0)
;;=CLOS INV GRP 3^NJ6,0^^0;16^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,15,3)
;;=Enter an Amount between 0 and 999999 for the Closing Inv Cost of Food Group III
;;^DD(117.2,15,21,0)
;;=^^1^1^2911113^
;;^DD(117.2,15,21,1,0)
;;=Enter the Closing Inventory Cost for Food Group III.
;;^DD(117.2,15,"DT")
;;=2910506
;;^DD(117.2,16,0)
;;=CLOS INV GRP 4^NJ6,0^^0;17^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,16,3)
;;=Enter an Amount between 0 and 999999 for the Closing Inv Cost of Food Group IV
;;^DD(117.2,16,21,0)
;;=^^1^1^2911113^
;;^DD(117.2,16,21,1,0)
;;=Enter the Closing Inventory Cost for Food Group IV.
;;^DD(117.2,16,"DT")
;;=2910506
;;^DD(117.2,17,0)
;;=CLOS INV GRP 5^NJ6,0^^0;18^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,17,3)
;;=Enter an Amount between 0 and 999999 for Closing Inv Cost for Food Group V
;;^DD(117.2,17,21,0)
;;=^^1^1^2911113^
;;^DD(117.2,17,21,1,0)
;;=Enter the Closing Inventory Cost for Food Group V.
;;^DD(117.2,17,"DT")
;;=2910506
;;^DD(117.2,18,0)
;;=CLOS INV GRP 6^NJ6,0^^0;19^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,18,3)
;;=Enter an Amount between 0 and 999999 for the Closing Inv Cost of Food Group VI
;;^DD(117.2,18,21,0)
;;=^^1^1^2911113^
;;^DD(117.2,18,21,1,0)
;;=Enter the Closing Inventory Cost for Food Group VI.
;;^DD(117.2,18,"DT")
;;=2910506
;;^DD(117.2,19,0)
;;=% COST GRP 1^NJ2,0^^0;20^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
;;^DD(117.2,19,3)
;;=Enter a Number between 1 and 99 for % Cost Recommended
;;^DD(117.2,19,21,0)
;;=^^1^1^2950217^^^^
;;^DD(117.2,19,21,1,0)
;;=The Percent Cost Recommended for Food Group I.
;;^DD(117.2,19,"DT")
;;=2910506
;;^DD(117.2,20,0)
;;=% COST GRP 2^NJ2,0^^0;21^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
;;^DD(117.2,20,3)
;;=Enter a Number between 1 and 99 for % Cost Recommended of Food Group II
;;^DD(117.2,20,21,0)
;;=^^1^1^2950217^^^^
;;^DD(117.2,20,21,1,0)
;;=The Percent Cost Recommended for Food Group II.
;;^DD(117.2,20,"DT")
;;=2910506
;;^DD(117.2,21,0)
;;=% COST GRP 3^NJ2,0^^0;22^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
;;^DD(117.2,21,3)
;;=Enter a Number between 1 and 99 for % Cost Recommended of Food Group III
;;^DD(117.2,21,21,0)
;;=^^1^1^2950217^^^^
;;^DD(117.2,21,21,1,0)
;;=The Percent Cost Recommended for Food Group III.
;;^DD(117.2,21,"DT")
;;=2910506
;;^DD(117.2,22,0)
;;=% COST GRP 4^NJ2,0^^0;23^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
;;^DD(117.2,22,3)
;;=Enter a Number between 1 and 99 for % Cost Recommended of Food Group IV.
;;^DD(117.2,22,21,0)
;;=^^1^1^2950217^^^^
;;^DD(117.2,22,21,1,0)
;;=The Percent Cost Recommended for Food Group IV.
;;^DD(117.2,22,"DT")
;;=2910506
;;^DD(117.2,23,0)
;;=% COST GRP 5^NJ2,0^^0;24^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
;;^DD(117.2,23,3)
;;=Enter a Number between 1 and 99 for % Cost Recommended of Food Group V
;;^DD(117.2,23,21,0)
;;=^^1^1^2950217^^^
;;^DD(117.2,23,21,1,0)
;;=The % Cost Recommended for Food Group V.
;;^DD(117.2,23,"DT")
;;=2910506
;;^DD(117.2,24,0)
;;=% COST GRP 6^NJ2,0^^0;25^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
;;^DD(117.2,24,3)
;;=Enter a Number between 1 and 99 for % Cost Recommended of Food Group VI
FHINI0LK ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(117.2)
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(117.2,11,0)
+2 ;;=ISSUE COST GRP 5^NJ7,0^^0;12^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
+3 ;;^DD(117.2,11,3)
+4 ;;=Enter an Amount between 0 and 9999999 for Issue Cost of Food Group V
+5 ;;^DD(117.2,11,21,0)
+6 ;;=^^1^1^2911113^
+7 ;;^DD(117.2,11,21,1,0)
+8 ;;=Enter the Issue Cost of Food Group V.
+9 ;;^DD(117.2,11,"DT")
+10 ;;=2910506
+11 ;;^DD(117.2,12,0)
+12 ;;=ISSUE COST GRP 6^NJ7,0^^0;13^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
+13 ;;^DD(117.2,12,3)
+14 ;;=Enter an Amount between 0 and 9999999 for the Issue Cost of Food Group VI
+15 ;;^DD(117.2,12,21,0)
+16 ;;=^^1^1^2911113^
+17 ;;^DD(117.2,12,21,1,0)
+18 ;;=Enter the Issue Cost of Food Group VI.
+19 ;;^DD(117.2,12,"DT")
+20 ;;=2910506
+21 ;;^DD(117.2,13,0)
+22 ;;=CLOS INV GRP 1^NJ6,0^^0;14^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
+23 ;;^DD(117.2,13,3)
+24 ;;=Enter an Amount between 0 and 999999 for the Closing Inventory of Food Group I
+25 ;;^DD(117.2,13,21,0)
+26 ;;=^^1^1^2920501^^
+27 ;;^DD(117.2,13,21,1,0)
+28 ;;=Enter the Closing Inventory Cost for Food Group I.
+29 ;;^DD(117.2,13,"DT")
+30 ;;=2910506
+31 ;;^DD(117.2,14,0)
+32 ;;=CLOS INV GRP 2^NJ6,0^^0;15^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
+33 ;;^DD(117.2,14,3)
+34 ;;=Enter an Amount between 0 and 999999 for Closing Inv Cost for Food Group II
+35 ;;^DD(117.2,14,21,0)
+36 ;;=^^1^1^2911113^
+37 ;;^DD(117.2,14,21,1,0)
+38 ;;=Enter the Closing Inventory Cost for Food Group II.
+39 ;;^DD(117.2,14,"DT")
+40 ;;=2910506
+41 ;;^DD(117.2,15,0)
+42 ;;=CLOS INV GRP 3^NJ6,0^^0;16^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
+43 ;;^DD(117.2,15,3)
+44 ;;=Enter an Amount between 0 and 999999 for the Closing Inv Cost of Food Group III
+45 ;;^DD(117.2,15,21,0)
+46 ;;=^^1^1^2911113^
+47 ;;^DD(117.2,15,21,1,0)
+48 ;;=Enter the Closing Inventory Cost for Food Group III.
+49 ;;^DD(117.2,15,"DT")
+50 ;;=2910506
+51 ;;^DD(117.2,16,0)
+52 ;;=CLOS INV GRP 4^NJ6,0^^0;17^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
+53 ;;^DD(117.2,16,3)
+54 ;;=Enter an Amount between 0 and 999999 for the Closing Inv Cost of Food Group IV
+55 ;;^DD(117.2,16,21,0)
+56 ;;=^^1^1^2911113^
+57 ;;^DD(117.2,16,21,1,0)
+58 ;;=Enter the Closing Inventory Cost for Food Group IV.
+59 ;;^DD(117.2,16,"DT")
+60 ;;=2910506
+61 ;;^DD(117.2,17,0)
+62 ;;=CLOS INV GRP 5^NJ6,0^^0;18^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
+63 ;;^DD(117.2,17,3)
+64 ;;=Enter an Amount between 0 and 999999 for Closing Inv Cost for Food Group V
+65 ;;^DD(117.2,17,21,0)
+66 ;;=^^1^1^2911113^
+67 ;;^DD(117.2,17,21,1,0)
+68 ;;=Enter the Closing Inventory Cost for Food Group V.
+69 ;;^DD(117.2,17,"DT")
+70 ;;=2910506
+71 ;;^DD(117.2,18,0)
+72 ;;=CLOS INV GRP 6^NJ6,0^^0;19^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
+73 ;;^DD(117.2,18,3)
+74 ;;=Enter an Amount between 0 and 999999 for the Closing Inv Cost of Food Group VI
+75 ;;^DD(117.2,18,21,0)
+76 ;;=^^1^1^2911113^
+77 ;;^DD(117.2,18,21,1,0)
+78 ;;=Enter the Closing Inventory Cost for Food Group VI.
+79 ;;^DD(117.2,18,"DT")
+80 ;;=2910506
+81 ;;^DD(117.2,19,0)
+82 ;;=% COST GRP 1^NJ2,0^^0;20^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
+83 ;;^DD(117.2,19,3)
+84 ;;=Enter a Number between 1 and 99 for % Cost Recommended
+85 ;;^DD(117.2,19,21,0)
+86 ;;=^^1^1^2950217^^^^
+87 ;;^DD(117.2,19,21,1,0)
+88 ;;=The Percent Cost Recommended for Food Group I.
+89 ;;^DD(117.2,19,"DT")
+90 ;;=2910506
+91 ;;^DD(117.2,20,0)
+92 ;;=% COST GRP 2^NJ2,0^^0;21^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
+93 ;;^DD(117.2,20,3)
+94 ;;=Enter a Number between 1 and 99 for % Cost Recommended of Food Group II
+95 ;;^DD(117.2,20,21,0)
+96 ;;=^^1^1^2950217^^^^
+97 ;;^DD(117.2,20,21,1,0)
+98 ;;=The Percent Cost Recommended for Food Group II.
+99 ;;^DD(117.2,20,"DT")
+100 ;;=2910506
+101 ;;^DD(117.2,21,0)
+102 ;;=% COST GRP 3^NJ2,0^^0;22^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
+103 ;;^DD(117.2,21,3)
+104 ;;=Enter a Number between 1 and 99 for % Cost Recommended of Food Group III
+105 ;;^DD(117.2,21,21,0)
+106 ;;=^^1^1^2950217^^^^
+107 ;;^DD(117.2,21,21,1,0)
+108 ;;=The Percent Cost Recommended for Food Group III.
+109 ;;^DD(117.2,21,"DT")
+110 ;;=2910506
+111 ;;^DD(117.2,22,0)
+112 ;;=% COST GRP 4^NJ2,0^^0;23^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
+113 ;;^DD(117.2,22,3)
+114 ;;=Enter a Number between 1 and 99 for % Cost Recommended of Food Group IV.
+115 ;;^DD(117.2,22,21,0)
+116 ;;=^^1^1^2950217^^^^
+117 ;;^DD(117.2,22,21,1,0)
+118 ;;=The Percent Cost Recommended for Food Group IV.
+119 ;;^DD(117.2,22,"DT")
+120 ;;=2910506
+121 ;;^DD(117.2,23,0)
+122 ;;=% COST GRP 5^NJ2,0^^0;24^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
+123 ;;^DD(117.2,23,3)
+124 ;;=Enter a Number between 1 and 99 for % Cost Recommended of Food Group V
+125 ;;^DD(117.2,23,21,0)
+126 ;;=^^1^1^2950217^^^
+127 ;;^DD(117.2,23,21,1,0)
+128 ;;=The % Cost Recommended for Food Group V.
+129 ;;^DD(117.2,23,"DT")
+130 ;;=2910506
+131 ;;^DD(117.2,24,0)
+132 ;;=% COST GRP 6^NJ2,0^^0;25^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
+133 ;;^DD(117.2,24,3)
+134 ;;=Enter a Number between 1 and 99 for % Cost Recommended of Food Group VI
