FHINI0LE ; ; 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
;;^DIC(117,0,"GL")
;;=^FH(117,
;;^DIC("B","MEALS SERVED",117)
;;=
;;^DIC(117,"%D",0)
;;=^^3^3^2950613^^^^
;;^DIC(117,"%D",1,0)
;;=This file contains the statistical data necessary to prepare the
;;^DIC(117,"%D",2,0)
;;=Served Meals Report and the Staffing Data Report. Data
;;^DIC(117,"%D",3,0)
;;=is saved for each date.
;;^DD(117,0)
;;=FIELD^^58^34
;;^DD(117,0,"DDA")
;;=N
;;^DD(117,0,"DT")
;;=2920618
;;^DD(117,0,"IX","B",117,.01)
;;=
;;^DD(117,0,"NM","MEALS SERVED")
;;=
;;^DD(117,.01,0)
;;=CENSUS DATE^RDX^^0;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X
;;^DD(117,.01,1,0)
;;=^.1
;;^DD(117,.01,1,1,0)
;;=117^B
;;^DD(117,.01,1,1,1)
;;=S ^FH(117,"B",$E(X,1,30),DA)=""
;;^DD(117,.01,1,1,2)
;;=K ^FH(117,"B",$E(X,1,30),DA)
;;^DD(117,.01,1,1,"%D",0)
;;=^^1^1^2911118^
;;^DD(117,.01,1,1,"%D",1,0)
;;=This is the normal B cross-reference of the CENSUS DATE field.
;;^DD(117,.01,3)
;;=
;;^DD(117,.01,21,0)
;;=^^2^2^2880716^
;;^DD(117,.01,21,1,0)
;;=This is the date for which various dietetic census and performance
;;^DD(117,.01,21,2,0)
;;=standards data are entered.
;;^DD(117,.01,"DT")
;;=2870122
;;^DD(117,1,0)
;;=DOM MEMBERS^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,1,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
;;^DD(117,1,21,0)
;;=^^2^2^2880716^
;;^DD(117,1,21,1,0)
;;=This field contains the number of Domiciliary members shown by MAS
;;^DD(117,1,21,2,0)
;;=as being admitted patients on the census date.
;;^DD(117,2,0)
;;=DOM ABSENCES^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,2,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
;;^DD(117,2,21,0)
;;=^^2^2^2880716^
;;^DD(117,2,21,1,0)
;;=This field contains the number of Domiciliary members on
;;^DD(117,2,21,2,0)
;;=authorized or unauthorized absence on the census date.
;;^DD(117,4,0)
;;=NHCU PATIENTS^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,4,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
;;^DD(117,4,21,0)
;;=^^2^2^2880716^
;;^DD(117,4,21,1,0)
;;=This field contains the number of Nursing Home Care Unit patients
;;^DD(117,4,21,2,0)
;;=being shown by MAS as admitted patients on the census date.
;;^DD(117,5,0)
;;=NHCU ABSENCES^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,5,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
;;^DD(117,5,21,0)
;;=^^2^2^2880716^
;;^DD(117,5,21,1,0)
;;=This field contains the number of Nursing Home Care Unit patients
;;^DD(117,5,21,2,0)
;;=on authorized or unauthorized absence on the census date.
;;^DD(117,7,0)
;;=HOSP INPATIENTS^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,7,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
;;^DD(117,7,21,0)
;;=^^2^2^2880716^
;;^DD(117,7,21,1,0)
;;=This field contains the number of Hospital inpatients being shown
;;^DD(117,7,21,2,0)
;;=by MAS as admitted patients on the census date.
;;^DD(117,8,0)
;;=HOSP ABSENCES^NJ4,0^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,8,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
;;^DD(117,8,21,0)
;;=^^2^2^2910625^^
;;^DD(117,8,21,1,0)
;;=This field contains the number of Hospital inpatients on
;;^DD(117,8,21,2,0)
;;=authorized or unauthorized absence on the census date.
;;^DD(117,30,0)
;;=OUTPATIENT BREAKFAST^NJ4,0^^1;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,30,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
;;^DD(117,30,21,0)
;;=^^2^2^2880716^
;;^DD(117,30,21,1,0)
;;=This field contains the number of breakfast meals served to
;;^DD(117,30,21,2,0)
;;=outpatients on the census date.
;;^DD(117,31,0)
;;=OUTPATIENT NOON^NJ4,0^^1;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,31,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
;;^DD(117,31,21,0)
;;=^^2^2^2880716^
;;^DD(117,31,21,1,0)
;;=This field contains the number of noon meals served to
;;^DD(117,31,21,2,0)
;;=outpatients on the census date.
;;^DD(117,32,0)
;;=OUTPATIENT EVENING^NJ4,0^^1;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,32,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
;;^DD(117,32,21,0)
;;=^^2^2^2880716^
;;^DD(117,32,21,1,0)
;;=This field contains the number of evening meals served to
;;^DD(117,32,21,2,0)
;;=outpatients on the census date.
;;^DD(117,33,0)
;;=CONTRACT BREAK^NJ4,0^^1;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117,33,3)
;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
;;^DD(117,33,21,0)
;;=^^2^2^2880716^
;;^DD(117,33,21,1,0)
;;=This field contains the number of breakfast meals served
;;^DD(117,33,21,2,0)
;;=under contract on the census date.
;;^DD(117,34,0)
;;=CONTRACT NOON^NJ4,0^^1;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
FHINI0LE ; ; 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 ;;^DIC(117,0,"GL")
+2 ;;=^FH(117,
+3 ;;^DIC("B","MEALS SERVED",117)
+4 ;;=
+5 ;;^DIC(117,"%D",0)
+6 ;;=^^3^3^2950613^^^^
+7 ;;^DIC(117,"%D",1,0)
+8 ;;=This file contains the statistical data necessary to prepare the
+9 ;;^DIC(117,"%D",2,0)
+10 ;;=Served Meals Report and the Staffing Data Report. Data
+11 ;;^DIC(117,"%D",3,0)
+12 ;;=is saved for each date.
+13 ;;^DD(117,0)
+14 ;;=FIELD^^58^34
+15 ;;^DD(117,0,"DDA")
+16 ;;=N
+17 ;;^DD(117,0,"DT")
+18 ;;=2920618
+19 ;;^DD(117,0,"IX","B",117,.01)
+20 ;;=
+21 ;;^DD(117,0,"NM","MEALS SERVED")
+22 ;;=
+23 ;;^DD(117,.01,0)
+24 ;;=CENSUS DATE^RDX^^0;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X
+25 ;;^DD(117,.01,1,0)
+26 ;;=^.1
+27 ;;^DD(117,.01,1,1,0)
+28 ;;=117^B
+29 ;;^DD(117,.01,1,1,1)
+30 ;;=S ^FH(117,"B",$E(X,1,30),DA)=""
+31 ;;^DD(117,.01,1,1,2)
+32 ;;=K ^FH(117,"B",$E(X,1,30),DA)
+33 ;;^DD(117,.01,1,1,"%D",0)
+34 ;;=^^1^1^2911118^
+35 ;;^DD(117,.01,1,1,"%D",1,0)
+36 ;;=This is the normal B cross-reference of the CENSUS DATE field.
+37 ;;^DD(117,.01,3)
+38 ;;=
+39 ;;^DD(117,.01,21,0)
+40 ;;=^^2^2^2880716^
+41 ;;^DD(117,.01,21,1,0)
+42 ;;=This is the date for which various dietetic census and performance
+43 ;;^DD(117,.01,21,2,0)
+44 ;;=standards data are entered.
+45 ;;^DD(117,.01,"DT")
+46 ;;=2870122
+47 ;;^DD(117,1,0)
+48 ;;=DOM MEMBERS^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+49 ;;^DD(117,1,3)
+50 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
+51 ;;^DD(117,1,21,0)
+52 ;;=^^2^2^2880716^
+53 ;;^DD(117,1,21,1,0)
+54 ;;=This field contains the number of Domiciliary members shown by MAS
+55 ;;^DD(117,1,21,2,0)
+56 ;;=as being admitted patients on the census date.
+57 ;;^DD(117,2,0)
+58 ;;=DOM ABSENCES^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+59 ;;^DD(117,2,3)
+60 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
+61 ;;^DD(117,2,21,0)
+62 ;;=^^2^2^2880716^
+63 ;;^DD(117,2,21,1,0)
+64 ;;=This field contains the number of Domiciliary members on
+65 ;;^DD(117,2,21,2,0)
+66 ;;=authorized or unauthorized absence on the census date.
+67 ;;^DD(117,4,0)
+68 ;;=NHCU PATIENTS^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+69 ;;^DD(117,4,3)
+70 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
+71 ;;^DD(117,4,21,0)
+72 ;;=^^2^2^2880716^
+73 ;;^DD(117,4,21,1,0)
+74 ;;=This field contains the number of Nursing Home Care Unit patients
+75 ;;^DD(117,4,21,2,0)
+76 ;;=being shown by MAS as admitted patients on the census date.
+77 ;;^DD(117,5,0)
+78 ;;=NHCU ABSENCES^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+79 ;;^DD(117,5,3)
+80 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
+81 ;;^DD(117,5,21,0)
+82 ;;=^^2^2^2880716^
+83 ;;^DD(117,5,21,1,0)
+84 ;;=This field contains the number of Nursing Home Care Unit patients
+85 ;;^DD(117,5,21,2,0)
+86 ;;=on authorized or unauthorized absence on the census date.
+87 ;;^DD(117,7,0)
+88 ;;=HOSP INPATIENTS^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+89 ;;^DD(117,7,3)
+90 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
+91 ;;^DD(117,7,21,0)
+92 ;;=^^2^2^2880716^
+93 ;;^DD(117,7,21,1,0)
+94 ;;=This field contains the number of Hospital inpatients being shown
+95 ;;^DD(117,7,21,2,0)
+96 ;;=by MAS as admitted patients on the census date.
+97 ;;^DD(117,8,0)
+98 ;;=HOSP ABSENCES^NJ4,0^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+99 ;;^DD(117,8,3)
+100 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
+101 ;;^DD(117,8,21,0)
+102 ;;=^^2^2^2910625^^
+103 ;;^DD(117,8,21,1,0)
+104 ;;=This field contains the number of Hospital inpatients on
+105 ;;^DD(117,8,21,2,0)
+106 ;;=authorized or unauthorized absence on the census date.
+107 ;;^DD(117,30,0)
+108 ;;=OUTPATIENT BREAKFAST^NJ4,0^^1;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+109 ;;^DD(117,30,3)
+110 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
+111 ;;^DD(117,30,21,0)
+112 ;;=^^2^2^2880716^
+113 ;;^DD(117,30,21,1,0)
+114 ;;=This field contains the number of breakfast meals served to
+115 ;;^DD(117,30,21,2,0)
+116 ;;=outpatients on the census date.
+117 ;;^DD(117,31,0)
+118 ;;=OUTPATIENT NOON^NJ4,0^^1;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+119 ;;^DD(117,31,3)
+120 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
+121 ;;^DD(117,31,21,0)
+122 ;;=^^2^2^2880716^
+123 ;;^DD(117,31,21,1,0)
+124 ;;=This field contains the number of noon meals served to
+125 ;;^DD(117,31,21,2,0)
+126 ;;=outpatients on the census date.
+127 ;;^DD(117,32,0)
+128 ;;=OUTPATIENT EVENING^NJ4,0^^1;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+129 ;;^DD(117,32,3)
+130 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
+131 ;;^DD(117,32,21,0)
+132 ;;=^^2^2^2880716^
+133 ;;^DD(117,32,21,1,0)
+134 ;;=This field contains the number of evening meals served to
+135 ;;^DD(117,32,21,2,0)
+136 ;;=outpatients on the census date.
+137 ;;^DD(117,33,0)
+138 ;;=CONTRACT BREAK^NJ4,0^^1;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+139 ;;^DD(117,33,3)
+140 ;;=TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
+141 ;;^DD(117,33,21,0)
+142 ;;=^^2^2^2880716^
+143 ;;^DD(117,33,21,1,0)
+144 ;;=This field contains the number of breakfast meals served
+145 ;;^DD(117,33,21,2,0)
+146 ;;=under contract on the census date.
+147 ;;^DD(117,34,0)
+148 ;;=CONTRACT NOON^NJ4,0^^1;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
