FHINI0LJ ; ; 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
;;^DIC(117.2,0,"GL")
;;=^FH(117.2,
;;^DIC("B","DIETETIC COST OF MEALS",117.2)
;;=
;;^DIC(117.2,"%D",0)
;;=^^4^4^2920623^^^^
;;^DIC(117.2,"%D",1,0)
;;=This file is used to store the monthly costs of the various
;;^DIC(117.2,"%D",2,0)
;;=food groups. Data is used to calculate the cost of meals
;;^DIC(117.2,"%D",3,0)
;;=served as well as ensure an adequate distribution of
;;^DIC(117.2,"%D",4,0)
;;=food across the food groups.
;;^DD(117.2,0)
;;=FIELD^^24^25
;;^DD(117.2,0,"DDA")
;;=N
;;^DD(117.2,0,"DT")
;;=2930618
;;^DD(117.2,0,"IX","B",117.2,.01)
;;=
;;^DD(117.2,0,"NM","DIETETIC COST OF MEALS")
;;=
;;^DD(117.2,.01,0)
;;=MONTH/YEAR^RDX^^0;1^S %DT="E" D ^%DT S X=$E(Y,1,5)_"00" K:Y<1 X I $D(X) S DINUM=X
;;^DD(117.2,.01,1,0)
;;=^.1
;;^DD(117.2,.01,1,1,0)
;;=117.2^B
;;^DD(117.2,.01,1,1,1)
;;=S ^FH(117.2,"B",$E(X,1,30),DA)=""
;;^DD(117.2,.01,1,1,2)
;;=K ^FH(117.2,"B",$E(X,1,30),DA)
;;^DD(117.2,.01,1,1,"%D",0)
;;=^^1^1^2931221^^
;;^DD(117.2,.01,1,1,"%D",1,0)
;;=This is the normal B cross-reference of the MONTH/YEAR field.
;;^DD(117.2,.01,3)
;;=ENTER A MONTH AND A YEAR, ej. 1 92, 11-92, 3/92.
;;^DD(117.2,.01,21,0)
;;=^^1^1^2930621^^^^
;;^DD(117.2,.01,21,1,0)
;;=Enter Month and Year.
;;^DD(117.2,.01,"DT")
;;=2931027
;;^DD(117.2,1,0)
;;=BEG INV GRP 1^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,1,3)
;;=Enter an Amount between 0 and 999999 for the Beg Inv Cost for Food Group I
;;^DD(117.2,1,21,0)
;;=^^1^1^2911113^
;;^DD(117.2,1,21,1,0)
;;=Enter Beginning Inventory Cost for Food Group I.
;;^DD(117.2,1,"DT")
;;=2910517
;;^DD(117.2,2,0)
;;=BEG INV GRP 2^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,2,3)
;;=Enter an Amount between 0 and 999999 for Beg Inv Cost of Food Group II
;;^DD(117.2,2,21,0)
;;=^^1^1^2911113^
;;^DD(117.2,2,21,1,0)
;;=Enter Beginning Inventory Cost For Food Group II.
;;^DD(117.2,2,"DT")
;;=2910506
;;^DD(117.2,3,0)
;;=BEG INV GRP 3^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,3,3)
;;=Enter an Amount between 0 and 999999 for the Beg Inv Cost of Food Group III
;;^DD(117.2,3,21,0)
;;=^^1^1^2911113^
;;^DD(117.2,3,21,1,0)
;;=Enter the Beginning Inventory Cost of Food Group III.
;;^DD(117.2,3,"DT")
;;=2910506
;;^DD(117.2,4,0)
;;=BEG INV GRP 4^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,4,3)
;;=Enter an Amount between 0 and 999999 for the Beg Inv Cost of Food Group IV
;;^DD(117.2,4,21,0)
;;=^^1^1^2920501^^^
;;^DD(117.2,4,21,1,0)
;;=Enter the Beginning Inventory Cost for Food Group IV.
;;^DD(117.2,4,"DT")
;;=2910506
;;^DD(117.2,5,0)
;;=BEG INV GRP 5^NJ6,0^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,5,3)
;;=Enter an Amount between 0 and 999999 for Beg Inv Cost of Food Group V
;;^DD(117.2,5,21,0)
;;=^^1^1^2911113^^
;;^DD(117.2,5,21,1,0)
;;=Enter the Beginning Inventory Cost for Food Group V.
;;^DD(117.2,5,"DT")
;;=2910506
;;^DD(117.2,6,0)
;;=BEG INV GRP 6^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,6,3)
;;=Enter an Amount between 0 and 999999 for Beg Inv Cost of Food Group VI
;;^DD(117.2,6,21,0)
;;=^^1^1^2911113^
;;^DD(117.2,6,21,1,0)
;;=Enter the Beginning Inventory Cost for Food Group VI.
;;^DD(117.2,6,"DT")
;;=2910506
;;^DD(117.2,7,0)
;;=ISSUE COST GRP 1^NJ7,0^^0;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,7,3)
;;=Enter an Amount between 0 and 9999999 for the Issue Cost of Food Group I
;;^DD(117.2,7,21,0)
;;=^^1^1^2911113^^
;;^DD(117.2,7,21,1,0)
;;=Enter the Issue Cost For Food Group I.
;;^DD(117.2,7,"DT")
;;=2910517
;;^DD(117.2,8,0)
;;=ISSUE COST GRP 2^NJ7,0^^0;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,8,3)
;;=Enter an Amount between 0 and 9999999 for Issue Cost of Food Group II
;;^DD(117.2,8,21,0)
;;=^^1^1^2911113^
;;^DD(117.2,8,21,1,0)
;;=Enter The Issue Cost for Food Group II.
;;^DD(117.2,8,"DT")
;;=2910506
;;^DD(117.2,9,0)
;;=ISSUE COST GRP 3^NJ7,0^^0;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,9,3)
;;=Enter an Amount between 0 and 9999999 for Issue Cost of Food Group III
;;^DD(117.2,9,21,0)
;;=^^1^1^2911113^
;;^DD(117.2,9,21,1,0)
;;=Enter the Issue Cost for Food Group III.
;;^DD(117.2,9,"DT")
;;=2910506
;;^DD(117.2,10,0)
;;=ISSUE COST GRP 4^NJ7,0^^0;11^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.2,10,3)
;;=Enter an Amount between 0 and 9999999 for Issue Cost of Food Group IV
;;^DD(117.2,10,21,0)
;;=^^1^1^2911113^
;;^DD(117.2,10,21,1,0)
;;=Enter the Issue Cost for food Group IV.
;;^DD(117.2,10,"DT")
;;=2910506
FHINI0LJ ; ; 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 ;;^DIC(117.2,0,"GL")
+2 ;;=^FH(117.2,
+3 ;;^DIC("B","DIETETIC COST OF MEALS",117.2)
+4 ;;=
+5 ;;^DIC(117.2,"%D",0)
+6 ;;=^^4^4^2920623^^^^
+7 ;;^DIC(117.2,"%D",1,0)
+8 ;;=This file is used to store the monthly costs of the various
+9 ;;^DIC(117.2,"%D",2,0)
+10 ;;=food groups. Data is used to calculate the cost of meals
+11 ;;^DIC(117.2,"%D",3,0)
+12 ;;=served as well as ensure an adequate distribution of
+13 ;;^DIC(117.2,"%D",4,0)
+14 ;;=food across the food groups.
+15 ;;^DD(117.2,0)
+16 ;;=FIELD^^24^25
+17 ;;^DD(117.2,0,"DDA")
+18 ;;=N
+19 ;;^DD(117.2,0,"DT")
+20 ;;=2930618
+21 ;;^DD(117.2,0,"IX","B",117.2,.01)
+22 ;;=
+23 ;;^DD(117.2,0,"NM","DIETETIC COST OF MEALS")
+24 ;;=
+25 ;;^DD(117.2,.01,0)
+26 ;;=MONTH/YEAR^RDX^^0;1^S %DT="E" D ^%DT S X=$E(Y,1,5)_"00" K:Y<1 X I $D(X) S DINUM=X
+27 ;;^DD(117.2,.01,1,0)
+28 ;;=^.1
+29 ;;^DD(117.2,.01,1,1,0)
+30 ;;=117.2^B
+31 ;;^DD(117.2,.01,1,1,1)
+32 ;;=S ^FH(117.2,"B",$E(X,1,30),DA)=""
+33 ;;^DD(117.2,.01,1,1,2)
+34 ;;=K ^FH(117.2,"B",$E(X,1,30),DA)
+35 ;;^DD(117.2,.01,1,1,"%D",0)
+36 ;;=^^1^1^2931221^^
+37 ;;^DD(117.2,.01,1,1,"%D",1,0)
+38 ;;=This is the normal B cross-reference of the MONTH/YEAR field.
+39 ;;^DD(117.2,.01,3)
+40 ;;=ENTER A MONTH AND A YEAR, ej. 1 92, 11-92, 3/92.
+41 ;;^DD(117.2,.01,21,0)
+42 ;;=^^1^1^2930621^^^^
+43 ;;^DD(117.2,.01,21,1,0)
+44 ;;=Enter Month and Year.
+45 ;;^DD(117.2,.01,"DT")
+46 ;;=2931027
+47 ;;^DD(117.2,1,0)
+48 ;;=BEG INV GRP 1^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
+49 ;;^DD(117.2,1,3)
+50 ;;=Enter an Amount between 0 and 999999 for the Beg Inv Cost for Food Group I
+51 ;;^DD(117.2,1,21,0)
+52 ;;=^^1^1^2911113^
+53 ;;^DD(117.2,1,21,1,0)
+54 ;;=Enter Beginning Inventory Cost for Food Group I.
+55 ;;^DD(117.2,1,"DT")
+56 ;;=2910517
+57 ;;^DD(117.2,2,0)
+58 ;;=BEG INV GRP 2^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
+59 ;;^DD(117.2,2,3)
+60 ;;=Enter an Amount between 0 and 999999 for Beg Inv Cost of Food Group II
+61 ;;^DD(117.2,2,21,0)
+62 ;;=^^1^1^2911113^
+63 ;;^DD(117.2,2,21,1,0)
+64 ;;=Enter Beginning Inventory Cost For Food Group II.
+65 ;;^DD(117.2,2,"DT")
+66 ;;=2910506
+67 ;;^DD(117.2,3,0)
+68 ;;=BEG INV GRP 3^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
+69 ;;^DD(117.2,3,3)
+70 ;;=Enter an Amount between 0 and 999999 for the Beg Inv Cost of Food Group III
+71 ;;^DD(117.2,3,21,0)
+72 ;;=^^1^1^2911113^
+73 ;;^DD(117.2,3,21,1,0)
+74 ;;=Enter the Beginning Inventory Cost of Food Group III.
+75 ;;^DD(117.2,3,"DT")
+76 ;;=2910506
+77 ;;^DD(117.2,4,0)
+78 ;;=BEG INV GRP 4^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
+79 ;;^DD(117.2,4,3)
+80 ;;=Enter an Amount between 0 and 999999 for the Beg Inv Cost of Food Group IV
+81 ;;^DD(117.2,4,21,0)
+82 ;;=^^1^1^2920501^^^
+83 ;;^DD(117.2,4,21,1,0)
+84 ;;=Enter the Beginning Inventory Cost for Food Group IV.
+85 ;;^DD(117.2,4,"DT")
+86 ;;=2910506
+87 ;;^DD(117.2,5,0)
+88 ;;=BEG INV GRP 5^NJ6,0^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
+89 ;;^DD(117.2,5,3)
+90 ;;=Enter an Amount between 0 and 999999 for Beg Inv Cost of Food Group V
+91 ;;^DD(117.2,5,21,0)
+92 ;;=^^1^1^2911113^^
+93 ;;^DD(117.2,5,21,1,0)
+94 ;;=Enter the Beginning Inventory Cost for Food Group V.
+95 ;;^DD(117.2,5,"DT")
+96 ;;=2910506
+97 ;;^DD(117.2,6,0)
+98 ;;=BEG INV GRP 6^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
+99 ;;^DD(117.2,6,3)
+100 ;;=Enter an Amount between 0 and 999999 for Beg Inv Cost of Food Group VI
+101 ;;^DD(117.2,6,21,0)
+102 ;;=^^1^1^2911113^
+103 ;;^DD(117.2,6,21,1,0)
+104 ;;=Enter the Beginning Inventory Cost for Food Group VI.
+105 ;;^DD(117.2,6,"DT")
+106 ;;=2910506
+107 ;;^DD(117.2,7,0)
+108 ;;=ISSUE COST GRP 1^NJ7,0^^0;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
+109 ;;^DD(117.2,7,3)
+110 ;;=Enter an Amount between 0 and 9999999 for the Issue Cost of Food Group I
+111 ;;^DD(117.2,7,21,0)
+112 ;;=^^1^1^2911113^^
+113 ;;^DD(117.2,7,21,1,0)
+114 ;;=Enter the Issue Cost For Food Group I.
+115 ;;^DD(117.2,7,"DT")
+116 ;;=2910517
+117 ;;^DD(117.2,8,0)
+118 ;;=ISSUE COST GRP 2^NJ7,0^^0;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
+119 ;;^DD(117.2,8,3)
+120 ;;=Enter an Amount between 0 and 9999999 for Issue Cost of Food Group II
+121 ;;^DD(117.2,8,21,0)
+122 ;;=^^1^1^2911113^
+123 ;;^DD(117.2,8,21,1,0)
+124 ;;=Enter The Issue Cost for Food Group II.
+125 ;;^DD(117.2,8,"DT")
+126 ;;=2910506
+127 ;;^DD(117.2,9,0)
+128 ;;=ISSUE COST GRP 3^NJ7,0^^0;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
+129 ;;^DD(117.2,9,3)
+130 ;;=Enter an Amount between 0 and 9999999 for Issue Cost of Food Group III
+131 ;;^DD(117.2,9,21,0)
+132 ;;=^^1^1^2911113^
+133 ;;^DD(117.2,9,21,1,0)
+134 ;;=Enter the Issue Cost for Food Group III.
+135 ;;^DD(117.2,9,"DT")
+136 ;;=2910506
+137 ;;^DD(117.2,10,0)
+138 ;;=ISSUE COST GRP 4^NJ7,0^^0;11^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
+139 ;;^DD(117.2,10,3)
+140 ;;=Enter an Amount between 0 and 9999999 for Issue Cost of Food Group IV
+141 ;;^DD(117.2,10,21,0)
+142 ;;=^^1^1^2911113^
+143 ;;^DD(117.2,10,21,1,0)
+144 ;;=Enter the Issue Cost for food Group IV.
+145 ;;^DD(117.2,10,"DT")
+146 ;;=2910506
