FHINI0LG ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(117) 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,50,3)
;;=Type a Number between 0 and 9999, 0 Decimal Digits
;;^DD(117,50,21,0)
;;=^^2^2^2900325^
;;^DD(117,50,21,1,0)
;;=This field contains the number of cafeteria meals served
;;^DD(117,50,21,2,0)
;;=on the census date.
;;^DD(117,50,"DT")
;;=2900325
;;^DD(117,51,0)
;;=NPO MEALS^NJ4,0^^1;20^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,51,3)
;;=Type a Number between 0 and 9999, 0 Decimal Digits
;;^DD(117,51,21,0)
;;=^^2^2^2910625^^
;;^DD(117,51,21,1,0)
;;=This field contains the number of NPO meals for the
;;^DD(117,51,21,2,0)
;;=census date.
;;^DD(117,51,"DT")
;;=2900325
;;^DD(117,52,0)
;;=# PATIENTS STATUS I^NJ4,0^^1;21^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,52,3)
;;=Type a Number between 0 and 9999, 0 Decimal Digits
;;^DD(117,52,21,0)
;;=^^2^2^2911204^
;;^DD(117,52,21,1,0)
;;=This field represents the number of patients for which the Nutrition
;;^DD(117,52,21,2,0)
;;=Status was I on the given date.
;;^DD(117,52,"DT")
;;=2910610
;;^DD(117,53,0)
;;=# PATIENTS STATUS II^NJ4,0^^1;22^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,53,3)
;;=Type a Number between 0 and 9999, 0 Decimal Digits
;;^DD(117,53,21,0)
;;=^^2^2^2911204^
;;^DD(117,53,21,1,0)
;;=This field represents the number of patients for which the Nutrition
;;^DD(117,53,21,2,0)
;;=Status was II on the given date.
;;^DD(117,54,0)
;;=# PATIENTS STATUS III^NJ4,0^^1;23^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,54,3)
;;=Type a Number between 0 and 9999, 0 Decimal Digits
;;^DD(117,54,21,0)
;;=^^2^2^2911204^^
;;^DD(117,54,21,1,0)
;;=This field represents the number of patients for which the Nutrition
;;^DD(117,54,21,2,0)
;;=Status was III on the given date.
;;^DD(117,55,0)
;;=# PATIENTS STATUS IV^NJ4,0^^1;24^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,55,3)
;;=Type a Number between 0 and 9999, 0 Decimal Digits
;;^DD(117,55,21,0)
;;=^^2^2^2911204^
;;^DD(117,55,21,1,0)
;;=This field represents the number of patients for which the Nutrition
;;^DD(117,55,21,2,0)
;;=Status was IV on the given date.
;;^DD(117,56,0)
;;=# PATIENTS STATUS UNC^NJ4,0^^1;25^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,56,3)
;;=Type a Number between 0 and 9999, 0 Decimal Digits
;;^DD(117,56,21,0)
;;=^^2^2^2911204^
;;^DD(117,56,21,1,0)
;;=This field represents the number of patients for which the Nutrition
;;^DD(117,56,21,2,0)
;;=Status was not available, or invalid, on the given date.
;;^DD(117,57,0)
;;=# DAILY MODIFIED DIETS^NJ9,0^^1;26^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,57,3)
;;=Type a Number between 0 and 999999999, 0 Decimal Digits
;;^DD(117,57,21,0)
;;=^^2^2^2930908^^^^
;;^DD(117,57,21,1,0)
;;=This is the number of modified (non-regular) diets served. It
;;^DD(117,57,21,2,0)
;;=also includes NPOs and Passes.
;;^DD(117,57,"DT")
;;=2920304
;;^DD(117,58,0)
;;=# OF TOTAL DIETS^NJ10,0^^1;27^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,58,3)
;;=Type a Number between 0 and 9999999999, 0 Decimal Digits
;;^DD(117,58,21,0)
;;=^^1^1^2930908^^
;;^DD(117,58,21,1,0)
;;=This field contains the number of total Diets.
;;^DD(117,58,"DT")
;;=2920618
FHINI0LG ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(117)
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,50,3)
+2 ;;=Type a Number between 0 and 9999, 0 Decimal Digits
+3 ;;^DD(117,50,21,0)
+4 ;;=^^2^2^2900325^
+5 ;;^DD(117,50,21,1,0)
+6 ;;=This field contains the number of cafeteria meals served
+7 ;;^DD(117,50,21,2,0)
+8 ;;=on the census date.
+9 ;;^DD(117,50,"DT")
+10 ;;=2900325
+11 ;;^DD(117,51,0)
+12 ;;=NPO MEALS^NJ4,0^^1;20^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+13 ;;^DD(117,51,3)
+14 ;;=Type a Number between 0 and 9999, 0 Decimal Digits
+15 ;;^DD(117,51,21,0)
+16 ;;=^^2^2^2910625^^
+17 ;;^DD(117,51,21,1,0)
+18 ;;=This field contains the number of NPO meals for the
+19 ;;^DD(117,51,21,2,0)
+20 ;;=census date.
+21 ;;^DD(117,51,"DT")
+22 ;;=2900325
+23 ;;^DD(117,52,0)
+24 ;;=# PATIENTS STATUS I^NJ4,0^^1;21^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+25 ;;^DD(117,52,3)
+26 ;;=Type a Number between 0 and 9999, 0 Decimal Digits
+27 ;;^DD(117,52,21,0)
+28 ;;=^^2^2^2911204^
+29 ;;^DD(117,52,21,1,0)
+30 ;;=This field represents the number of patients for which the Nutrition
+31 ;;^DD(117,52,21,2,0)
+32 ;;=Status was I on the given date.
+33 ;;^DD(117,52,"DT")
+34 ;;=2910610
+35 ;;^DD(117,53,0)
+36 ;;=# PATIENTS STATUS II^NJ4,0^^1;22^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+37 ;;^DD(117,53,3)
+38 ;;=Type a Number between 0 and 9999, 0 Decimal Digits
+39 ;;^DD(117,53,21,0)
+40 ;;=^^2^2^2911204^
+41 ;;^DD(117,53,21,1,0)
+42 ;;=This field represents the number of patients for which the Nutrition
+43 ;;^DD(117,53,21,2,0)
+44 ;;=Status was II on the given date.
+45 ;;^DD(117,54,0)
+46 ;;=# PATIENTS STATUS III^NJ4,0^^1;23^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+47 ;;^DD(117,54,3)
+48 ;;=Type a Number between 0 and 9999, 0 Decimal Digits
+49 ;;^DD(117,54,21,0)
+50 ;;=^^2^2^2911204^^
+51 ;;^DD(117,54,21,1,0)
+52 ;;=This field represents the number of patients for which the Nutrition
+53 ;;^DD(117,54,21,2,0)
+54 ;;=Status was III on the given date.
+55 ;;^DD(117,55,0)
+56 ;;=# PATIENTS STATUS IV^NJ4,0^^1;24^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+57 ;;^DD(117,55,3)
+58 ;;=Type a Number between 0 and 9999, 0 Decimal Digits
+59 ;;^DD(117,55,21,0)
+60 ;;=^^2^2^2911204^
+61 ;;^DD(117,55,21,1,0)
+62 ;;=This field represents the number of patients for which the Nutrition
+63 ;;^DD(117,55,21,2,0)
+64 ;;=Status was IV on the given date.
+65 ;;^DD(117,56,0)
+66 ;;=# PATIENTS STATUS UNC^NJ4,0^^1;25^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+67 ;;^DD(117,56,3)
+68 ;;=Type a Number between 0 and 9999, 0 Decimal Digits
+69 ;;^DD(117,56,21,0)
+70 ;;=^^2^2^2911204^
+71 ;;^DD(117,56,21,1,0)
+72 ;;=This field represents the number of patients for which the Nutrition
+73 ;;^DD(117,56,21,2,0)
+74 ;;=Status was not available, or invalid, on the given date.
+75 ;;^DD(117,57,0)
+76 ;;=# DAILY MODIFIED DIETS^NJ9,0^^1;26^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
+77 ;;^DD(117,57,3)
+78 ;;=Type a Number between 0 and 999999999, 0 Decimal Digits
+79 ;;^DD(117,57,21,0)
+80 ;;=^^2^2^2930908^^^^
+81 ;;^DD(117,57,21,1,0)
+82 ;;=This is the number of modified (non-regular) diets served. It
+83 ;;^DD(117,57,21,2,0)
+84 ;;=also includes NPOs and Passes.
+85 ;;^DD(117,57,"DT")
+86 ;;=2920304
+87 ;;^DD(117,58,0)
+88 ;;=# OF TOTAL DIETS^NJ10,0^^1;27^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
+89 ;;^DD(117,58,3)
+90 ;;=Type a Number between 0 and 9999999999, 0 Decimal Digits
+91 ;;^DD(117,58,21,0)
+92 ;;=^^1^1^2930908^^
+93 ;;^DD(117,58,21,1,0)
+94 ;;=This field contains the number of total Diets.
+95 ;;^DD(117,58,"DT")
+96 ;;=2920618
