FHINI0MR ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(119.72) 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(119.721,10,21,1,0)
;;=This is the number of additional Sunday breakfast meals which are
;;^DD(119.721,10,21,2,0)
;;=to be added to the inpatient forecast.
;;^DD(119.721,10,"DT")
;;=2861126
;;^DD(119.721,11,0)
;;=ADD. SUNDAY NOON^NJ4,0^^0;3^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(119.721,11,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
;;^DD(119.721,11,21,0)
;;=^^2^2^2880716^
;;^DD(119.721,11,21,1,0)
;;=This is the number of additional Sunday noon meals which are
;;^DD(119.721,11,21,2,0)
;;=to be added to the inpatient forecast.
;;^DD(119.721,11,"DT")
;;=2861126
;;^DD(119.721,12,0)
;;=ADD. SUNDAY EVENING^NJ4,0^^0;4^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(119.721,12,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
;;^DD(119.721,12,21,0)
;;=^^2^2^2880716^^
;;^DD(119.721,12,21,1,0)
;;=This is the number of additional Sunday evening meals which are
;;^DD(119.721,12,21,2,0)
;;=to be added to the inpatient forecast.
;;^DD(119.721,12,"DT")
;;=2861126
;;^DD(119.721,13,0)
;;=ADD. MONDAY BREAKFAST^NJ4,0^^0;5^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(119.721,13,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
;;^DD(119.721,13,21,0)
;;=^^2^2^2880716^^
;;^DD(119.721,13,21,1,0)
;;=This is the number of additional Monday breakfast meals which are
;;^DD(119.721,13,21,2,0)
;;=to be added to the inpatient forecast.
;;^DD(119.721,13,"DT")
;;=2861126
;;^DD(119.721,14,0)
;;=ADD. MONDAY NOON^NJ4,0^^0;6^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(119.721,14,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
;;^DD(119.721,14,21,0)
;;=^^2^2^2880716^^
;;^DD(119.721,14,21,1,0)
;;=This is the number of additional Monday noon meals which are
;;^DD(119.721,14,21,2,0)
;;=to be added to the inpatient forecast.
;;^DD(119.721,14,"DT")
;;=2861126
;;^DD(119.721,15,0)
;;=ADD. MONDAY EVENING^NJ4,0^^0;7^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(119.721,15,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
;;^DD(119.721,15,21,0)
;;=^^2^2^2880716^^
;;^DD(119.721,15,21,1,0)
;;=This is the number of additional Monday evening meals which are
;;^DD(119.721,15,21,2,0)
;;=to be added to the inpatient forecast.
;;^DD(119.721,15,"DT")
;;=2861126
;;^DD(119.721,16,0)
;;=ADD. TUESDAY BREAKFAST^NJ4,0^^0;8^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(119.721,16,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
;;^DD(119.721,16,21,0)
;;=^^2^2^2880716^^
;;^DD(119.721,16,21,1,0)
;;=This is the number of additional Tuesday breakfast meals which are
;;^DD(119.721,16,21,2,0)
;;=to be added to the inpatient forecast.
;;^DD(119.721,16,"DT")
;;=2861126
;;^DD(119.721,17,0)
;;=ADD. TUESDAY NOON^NJ4,0^^0;9^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(119.721,17,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
;;^DD(119.721,17,21,0)
;;=^^2^2^2880716^^
;;^DD(119.721,17,21,1,0)
;;=This is the number of additional Tuesday noon meals which are
;;^DD(119.721,17,21,2,0)
;;=to be added to the inpatient forecast.
;;^DD(119.721,17,"DT")
;;=2861126
;;^DD(119.721,18,0)
;;=ADD. TUESDAY EVENING^NJ4,0^^0;10^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(119.721,18,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
;;^DD(119.721,18,21,0)
;;=^^2^2^2880716^^
;;^DD(119.721,18,21,1,0)
;;=This is the number of additional Tuesday evening meals which are
;;^DD(119.721,18,21,2,0)
;;=to be added to the inpatient forecast.
;;^DD(119.721,18,"DT")
;;=2861126
;;^DD(119.721,19,0)
;;=ADD. WEDNESDAY BREAKFAST^NJ4,0^^0;11^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(119.721,19,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
;;^DD(119.721,19,21,0)
;;=^^2^2^2880716^^
;;^DD(119.721,19,21,1,0)
;;=This is the number of additional Wednesday breakfast meals which are
;;^DD(119.721,19,21,2,0)
;;=to be added to the inpatient forecast.
;;^DD(119.721,19,"DT")
;;=2861126
;;^DD(119.721,20,0)
;;=ADD. WEDNESDAY NOON^NJ4,0^^0;12^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(119.721,20,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
;;^DD(119.721,20,21,0)
;;=^^2^2^2880716^^
;;^DD(119.721,20,21,1,0)
;;=This is the number of additional Wednesday noon meals which are
;;^DD(119.721,20,21,2,0)
;;=to be added to the inpatient forecast.
;;^DD(119.721,21,0)
;;=ADD. WEDNESDAY EVENING^NJ4,0^^0;13^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
;;^DD(119.721,21,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
;;^DD(119.721,21,21,0)
;;=^^2^2^2880716^^
;;^DD(119.721,21,21,1,0)
;;=This is the number of additional Wednesday evening meals which are
;;^DD(119.721,21,21,2,0)
;;=to be added to the inpatient forecast.
FHINI0MR ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(119.72)
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(119.721,10,21,1,0)
+2 ;;=This is the number of additional Sunday breakfast meals which are
+3 ;;^DD(119.721,10,21,2,0)
+4 ;;=to be added to the inpatient forecast.
+5 ;;^DD(119.721,10,"DT")
+6 ;;=2861126
+7 ;;^DD(119.721,11,0)
+8 ;;=ADD. SUNDAY NOON^NJ4,0^^0;3^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
+9 ;;^DD(119.721,11,3)
+10 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
+11 ;;^DD(119.721,11,21,0)
+12 ;;=^^2^2^2880716^
+13 ;;^DD(119.721,11,21,1,0)
+14 ;;=This is the number of additional Sunday noon meals which are
+15 ;;^DD(119.721,11,21,2,0)
+16 ;;=to be added to the inpatient forecast.
+17 ;;^DD(119.721,11,"DT")
+18 ;;=2861126
+19 ;;^DD(119.721,12,0)
+20 ;;=ADD. SUNDAY EVENING^NJ4,0^^0;4^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
+21 ;;^DD(119.721,12,3)
+22 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
+23 ;;^DD(119.721,12,21,0)
+24 ;;=^^2^2^2880716^^
+25 ;;^DD(119.721,12,21,1,0)
+26 ;;=This is the number of additional Sunday evening meals which are
+27 ;;^DD(119.721,12,21,2,0)
+28 ;;=to be added to the inpatient forecast.
+29 ;;^DD(119.721,12,"DT")
+30 ;;=2861126
+31 ;;^DD(119.721,13,0)
+32 ;;=ADD. MONDAY BREAKFAST^NJ4,0^^0;5^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
+33 ;;^DD(119.721,13,3)
+34 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
+35 ;;^DD(119.721,13,21,0)
+36 ;;=^^2^2^2880716^^
+37 ;;^DD(119.721,13,21,1,0)
+38 ;;=This is the number of additional Monday breakfast meals which are
+39 ;;^DD(119.721,13,21,2,0)
+40 ;;=to be added to the inpatient forecast.
+41 ;;^DD(119.721,13,"DT")
+42 ;;=2861126
+43 ;;^DD(119.721,14,0)
+44 ;;=ADD. MONDAY NOON^NJ4,0^^0;6^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
+45 ;;^DD(119.721,14,3)
+46 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
+47 ;;^DD(119.721,14,21,0)
+48 ;;=^^2^2^2880716^^
+49 ;;^DD(119.721,14,21,1,0)
+50 ;;=This is the number of additional Monday noon meals which are
+51 ;;^DD(119.721,14,21,2,0)
+52 ;;=to be added to the inpatient forecast.
+53 ;;^DD(119.721,14,"DT")
+54 ;;=2861126
+55 ;;^DD(119.721,15,0)
+56 ;;=ADD. MONDAY EVENING^NJ4,0^^0;7^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
+57 ;;^DD(119.721,15,3)
+58 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
+59 ;;^DD(119.721,15,21,0)
+60 ;;=^^2^2^2880716^^
+61 ;;^DD(119.721,15,21,1,0)
+62 ;;=This is the number of additional Monday evening meals which are
+63 ;;^DD(119.721,15,21,2,0)
+64 ;;=to be added to the inpatient forecast.
+65 ;;^DD(119.721,15,"DT")
+66 ;;=2861126
+67 ;;^DD(119.721,16,0)
+68 ;;=ADD. TUESDAY BREAKFAST^NJ4,0^^0;8^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
+69 ;;^DD(119.721,16,3)
+70 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
+71 ;;^DD(119.721,16,21,0)
+72 ;;=^^2^2^2880716^^
+73 ;;^DD(119.721,16,21,1,0)
+74 ;;=This is the number of additional Tuesday breakfast meals which are
+75 ;;^DD(119.721,16,21,2,0)
+76 ;;=to be added to the inpatient forecast.
+77 ;;^DD(119.721,16,"DT")
+78 ;;=2861126
+79 ;;^DD(119.721,17,0)
+80 ;;=ADD. TUESDAY NOON^NJ4,0^^0;9^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
+81 ;;^DD(119.721,17,3)
+82 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
+83 ;;^DD(119.721,17,21,0)
+84 ;;=^^2^2^2880716^^
+85 ;;^DD(119.721,17,21,1,0)
+86 ;;=This is the number of additional Tuesday noon meals which are
+87 ;;^DD(119.721,17,21,2,0)
+88 ;;=to be added to the inpatient forecast.
+89 ;;^DD(119.721,17,"DT")
+90 ;;=2861126
+91 ;;^DD(119.721,18,0)
+92 ;;=ADD. TUESDAY EVENING^NJ4,0^^0;10^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
+93 ;;^DD(119.721,18,3)
+94 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
+95 ;;^DD(119.721,18,21,0)
+96 ;;=^^2^2^2880716^^
+97 ;;^DD(119.721,18,21,1,0)
+98 ;;=This is the number of additional Tuesday evening meals which are
+99 ;;^DD(119.721,18,21,2,0)
+100 ;;=to be added to the inpatient forecast.
+101 ;;^DD(119.721,18,"DT")
+102 ;;=2861126
+103 ;;^DD(119.721,19,0)
+104 ;;=ADD. WEDNESDAY BREAKFAST^NJ4,0^^0;11^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
+105 ;;^DD(119.721,19,3)
+106 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
+107 ;;^DD(119.721,19,21,0)
+108 ;;=^^2^2^2880716^^
+109 ;;^DD(119.721,19,21,1,0)
+110 ;;=This is the number of additional Wednesday breakfast meals which are
+111 ;;^DD(119.721,19,21,2,0)
+112 ;;=to be added to the inpatient forecast.
+113 ;;^DD(119.721,19,"DT")
+114 ;;=2861126
+115 ;;^DD(119.721,20,0)
+116 ;;=ADD. WEDNESDAY NOON^NJ4,0^^0;12^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
+117 ;;^DD(119.721,20,3)
+118 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
+119 ;;^DD(119.721,20,21,0)
+120 ;;=^^2^2^2880716^^
+121 ;;^DD(119.721,20,21,1,0)
+122 ;;=This is the number of additional Wednesday noon meals which are
+123 ;;^DD(119.721,20,21,2,0)
+124 ;;=to be added to the inpatient forecast.
+125 ;;^DD(119.721,21,0)
+126 ;;=ADD. WEDNESDAY EVENING^NJ4,0^^0;13^K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
+127 ;;^DD(119.721,21,3)
+128 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
+129 ;;^DD(119.721,21,21,0)
+130 ;;=^^2^2^2880716^^
+131 ;;^DD(119.721,21,21,1,0)
+132 ;;=This is the number of additional Wednesday evening meals which are
+133 ;;^DD(119.721,21,21,2,0)
+134 ;;=to be added to the inpatient forecast.
