FHINI0MN ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(119.6) 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.6,16,"DT")
;;=2880904
;;^DD(119.6,20,0)
;;=BULK NOURISHMENTS^119.61P^^BN;0
;;^DD(119.6,20,21,0)
;;=^^2^2^2911204^^
;;^DD(119.6,20,21,1,0)
;;=This multiple represents bulk nourishments (supplemental feedings)
;;^DD(119.6,20,21,2,0)
;;=delivered to this ward.
;;^DD(119.6,21,0)
;;=# DAYS TO REVIEW NPO^NJ1,0^^0;11^K:+X'=X!(X>7)!(X<1)!(X?.E1"."1N.N) X
;;^DD(119.6,21,3)
;;=Type a Number between 1 and 7, 0 Decimal Digits
;;^DD(119.6,21,21,0)
;;=^^2^2^2911204^
;;^DD(119.6,21,21,1,0)
;;=This field indicates the number of days following an NPO order after
;;^DD(119.6,21,21,2,0)
;;=which the patient should be reviewed.
;;^DD(119.6,21,"DT")
;;=2910430
;;^DD(119.6,22,0)
;;=# DAYS TO REVIEW TF^NJ2,0^^0;12^K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X
;;^DD(119.6,22,3)
;;=Type a Number between 1 and 30, 0 Decimal Digits
;;^DD(119.6,22,21,0)
;;=^^2^2^2911204^
;;^DD(119.6,22,21,1,0)
;;=This field indicates the number of days following a Tubefeeding order
;;^DD(119.6,22,21,2,0)
;;=after which the patient should be reviewed.
;;^DD(119.6,22,"DT")
;;=2910430
;;^DD(119.6,23,0)
;;=# DAYS TO REVIEW SF^NJ2,0^^0;13^K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X
;;^DD(119.6,23,3)
;;=Type a Number between 1 and 30, 0 Decimal Digits
;;^DD(119.6,23,21,0)
;;=^^2^2^2911204^
;;^DD(119.6,23,21,1,0)
;;=This field indicates the number of days following a Supplemental Feeding
;;^DD(119.6,23,21,2,0)
;;=order after which the patient should be reviewed.
;;^DD(119.6,23,"DT")
;;=2910430
;;^DD(119.6,24,0)
;;=# DAYS FOR STATUS AFTER ADMIT^NJ2,0^^0;14^K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X
;;^DD(119.6,24,3)
;;=Type a Number between 1 and 30, 0 Decimal Digits
;;^DD(119.6,24,21,0)
;;=^^2^2^2911204^
;;^DD(119.6,24,21,1,0)
;;=This field indicates the number of days following admission after which
;;^DD(119.6,24,21,2,0)
;;=a Nutrition Status evaluation should have been performed.
;;^DD(119.6,24,"DT")
;;=2910517
;;^DD(119.6,25,0)
;;=# DAYS TO REVIEW STATUS I^NJ3,0^^0;20^K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
;;^DD(119.6,25,3)
;;=Type a Number between 1 and 120, 0 Decimal Digits
;;^DD(119.6,25,21,0)
;;=^^2^2^2920106^^
;;^DD(119.6,25,21,1,0)
;;=This is the number of days after which a patient in this Nutrition
;;^DD(119.6,25,21,2,0)
;;=Status category should be reviewed.
;;^DD(119.6,25,"DT")
;;=2930222
;;^DD(119.6,26,0)
;;=# DAYS TO REVIEW STATUS II^NJ3,0^^0;21^K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
;;^DD(119.6,26,3)
;;=Type a Number between 1 and 120, 0 Decimal Digits
;;^DD(119.6,26,21,0)
;;=^^2^2^2920106^^
;;^DD(119.6,26,21,1,0)
;;=This is the number of days after which a patient in this Nutrition
;;^DD(119.6,26,21,2,0)
;;=Status category should be reviewed.
;;^DD(119.6,26,"DT")
;;=2930222
;;^DD(119.6,27,0)
;;=# DAYS TO REVIEW STATUS III^NJ3,0^^0;22^K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
;;^DD(119.6,27,3)
;;=Type a Number between 1 and 120, 0 Decimal Digits
;;^DD(119.6,27,21,0)
;;=^^2^2^2920106^^
;;^DD(119.6,27,21,1,0)
;;=This is the number of days after which a patient in this Nutrition
;;^DD(119.6,27,21,2,0)
;;=Status category should be reviewed.
;;^DD(119.6,27,"DT")
;;=2930222
;;^DD(119.6,28,0)
;;=# DAYS TO REVIEW STATUS IV^NJ3,0^^0;23^K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
;;^DD(119.6,28,3)
;;=Type a Number between 1 and 120, 0 Decimal Digits
;;^DD(119.6,28,21,0)
;;=^^2^2^2920106^^
;;^DD(119.6,28,21,1,0)
;;=This is the number of days after which a patient in this Nutrition
;;^DD(119.6,28,21,2,0)
;;=Status category should be reviewed.
;;^DD(119.6,28,"DT")
;;=2930222
;;^DD(119.6,29,0)
;;=CAFETERIA ON TRAY TICKET^S^Y:YES;N:NO;^0;24^Q
;;^DD(119.6,29,21,0)
;;=^^2^2^2940413^
;;^DD(119.6,29,21,1,0)
;;=This field is optional and it is used to indicate whether patients
;;^DD(119.6,29,21,2,0)
;;=that go to the cafeteria should be included on the tray ticket.
;;^DD(119.6,29,"DT")
;;=2940413
;;^DD(119.6,101,0)
;;=SERVICES^F^^0;10^K:$L(X)>3!($L(X)<1) X
;;^DD(119.6,101,3)
;;=Answer must be 1-3 characters in length.
;;^DD(119.6,101,21,0)
;;=^^2^2^2940413^^
;;^DD(119.6,101,21,1,0)
;;=This field contains one or more of the characters T, C or D indicating
;;^DD(119.6,101,21,2,0)
;;=tray service, cafeteria service, and/or dining room service is available.
;;^DD(119.6,101,"DT")
;;=2911031
;;^DD(119.61,0)
;;=BULK NOURISHMENTS SUB-FIELD^NL^1^2
;;^DD(119.61,0,"NM","BULK NOURISHMENTS")
;;=
;;^DD(119.61,0,"UP")
;;=119.6
;;^DD(119.61,.01,0)
;;=BULK NOURISHMENTS^MP118'^FH(118,^0;1^Q
;;^DD(119.61,.01,21,0)
;;=^^2^2^2880717^
;;^DD(119.61,.01,21,1,0)
;;=This field contains the name of the bulk nourishment (supplemental
FHINI0MN ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(119.6)
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.6,16,"DT")
+2 ;;=2880904
+3 ;;^DD(119.6,20,0)
+4 ;;=BULK NOURISHMENTS^119.61P^^BN;0
+5 ;;^DD(119.6,20,21,0)
+6 ;;=^^2^2^2911204^^
+7 ;;^DD(119.6,20,21,1,0)
+8 ;;=This multiple represents bulk nourishments (supplemental feedings)
+9 ;;^DD(119.6,20,21,2,0)
+10 ;;=delivered to this ward.
+11 ;;^DD(119.6,21,0)
+12 ;;=# DAYS TO REVIEW NPO^NJ1,0^^0;11^K:+X'=X!(X>7)!(X<1)!(X?.E1"."1N.N) X
+13 ;;^DD(119.6,21,3)
+14 ;;=Type a Number between 1 and 7, 0 Decimal Digits
+15 ;;^DD(119.6,21,21,0)
+16 ;;=^^2^2^2911204^
+17 ;;^DD(119.6,21,21,1,0)
+18 ;;=This field indicates the number of days following an NPO order after
+19 ;;^DD(119.6,21,21,2,0)
+20 ;;=which the patient should be reviewed.
+21 ;;^DD(119.6,21,"DT")
+22 ;;=2910430
+23 ;;^DD(119.6,22,0)
+24 ;;=# DAYS TO REVIEW TF^NJ2,0^^0;12^K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X
+25 ;;^DD(119.6,22,3)
+26 ;;=Type a Number between 1 and 30, 0 Decimal Digits
+27 ;;^DD(119.6,22,21,0)
+28 ;;=^^2^2^2911204^
+29 ;;^DD(119.6,22,21,1,0)
+30 ;;=This field indicates the number of days following a Tubefeeding order
+31 ;;^DD(119.6,22,21,2,0)
+32 ;;=after which the patient should be reviewed.
+33 ;;^DD(119.6,22,"DT")
+34 ;;=2910430
+35 ;;^DD(119.6,23,0)
+36 ;;=# DAYS TO REVIEW SF^NJ2,0^^0;13^K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X
+37 ;;^DD(119.6,23,3)
+38 ;;=Type a Number between 1 and 30, 0 Decimal Digits
+39 ;;^DD(119.6,23,21,0)
+40 ;;=^^2^2^2911204^
+41 ;;^DD(119.6,23,21,1,0)
+42 ;;=This field indicates the number of days following a Supplemental Feeding
+43 ;;^DD(119.6,23,21,2,0)
+44 ;;=order after which the patient should be reviewed.
+45 ;;^DD(119.6,23,"DT")
+46 ;;=2910430
+47 ;;^DD(119.6,24,0)
+48 ;;=# DAYS FOR STATUS AFTER ADMIT^NJ2,0^^0;14^K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X
+49 ;;^DD(119.6,24,3)
+50 ;;=Type a Number between 1 and 30, 0 Decimal Digits
+51 ;;^DD(119.6,24,21,0)
+52 ;;=^^2^2^2911204^
+53 ;;^DD(119.6,24,21,1,0)
+54 ;;=This field indicates the number of days following admission after which
+55 ;;^DD(119.6,24,21,2,0)
+56 ;;=a Nutrition Status evaluation should have been performed.
+57 ;;^DD(119.6,24,"DT")
+58 ;;=2910517
+59 ;;^DD(119.6,25,0)
+60 ;;=# DAYS TO REVIEW STATUS I^NJ3,0^^0;20^K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
+61 ;;^DD(119.6,25,3)
+62 ;;=Type a Number between 1 and 120, 0 Decimal Digits
+63 ;;^DD(119.6,25,21,0)
+64 ;;=^^2^2^2920106^^
+65 ;;^DD(119.6,25,21,1,0)
+66 ;;=This is the number of days after which a patient in this Nutrition
+67 ;;^DD(119.6,25,21,2,0)
+68 ;;=Status category should be reviewed.
+69 ;;^DD(119.6,25,"DT")
+70 ;;=2930222
+71 ;;^DD(119.6,26,0)
+72 ;;=# DAYS TO REVIEW STATUS II^NJ3,0^^0;21^K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
+73 ;;^DD(119.6,26,3)
+74 ;;=Type a Number between 1 and 120, 0 Decimal Digits
+75 ;;^DD(119.6,26,21,0)
+76 ;;=^^2^2^2920106^^
+77 ;;^DD(119.6,26,21,1,0)
+78 ;;=This is the number of days after which a patient in this Nutrition
+79 ;;^DD(119.6,26,21,2,0)
+80 ;;=Status category should be reviewed.
+81 ;;^DD(119.6,26,"DT")
+82 ;;=2930222
+83 ;;^DD(119.6,27,0)
+84 ;;=# DAYS TO REVIEW STATUS III^NJ3,0^^0;22^K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
+85 ;;^DD(119.6,27,3)
+86 ;;=Type a Number between 1 and 120, 0 Decimal Digits
+87 ;;^DD(119.6,27,21,0)
+88 ;;=^^2^2^2920106^^
+89 ;;^DD(119.6,27,21,1,0)
+90 ;;=This is the number of days after which a patient in this Nutrition
+91 ;;^DD(119.6,27,21,2,0)
+92 ;;=Status category should be reviewed.
+93 ;;^DD(119.6,27,"DT")
+94 ;;=2930222
+95 ;;^DD(119.6,28,0)
+96 ;;=# DAYS TO REVIEW STATUS IV^NJ3,0^^0;23^K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
+97 ;;^DD(119.6,28,3)
+98 ;;=Type a Number between 1 and 120, 0 Decimal Digits
+99 ;;^DD(119.6,28,21,0)
+100 ;;=^^2^2^2920106^^
+101 ;;^DD(119.6,28,21,1,0)
+102 ;;=This is the number of days after which a patient in this Nutrition
+103 ;;^DD(119.6,28,21,2,0)
+104 ;;=Status category should be reviewed.
+105 ;;^DD(119.6,28,"DT")
+106 ;;=2930222
+107 ;;^DD(119.6,29,0)
+108 ;;=CAFETERIA ON TRAY TICKET^S^Y:YES;N:NO;^0;24^Q
+109 ;;^DD(119.6,29,21,0)
+110 ;;=^^2^2^2940413^
+111 ;;^DD(119.6,29,21,1,0)
+112 ;;=This field is optional and it is used to indicate whether patients
+113 ;;^DD(119.6,29,21,2,0)
+114 ;;=that go to the cafeteria should be included on the tray ticket.
+115 ;;^DD(119.6,29,"DT")
+116 ;;=2940413
+117 ;;^DD(119.6,101,0)
+118 ;;=SERVICES^F^^0;10^K:$L(X)>3!($L(X)<1) X
+119 ;;^DD(119.6,101,3)
+120 ;;=Answer must be 1-3 characters in length.
+121 ;;^DD(119.6,101,21,0)
+122 ;;=^^2^2^2940413^^
+123 ;;^DD(119.6,101,21,1,0)
+124 ;;=This field contains one or more of the characters T, C or D indicating
+125 ;;^DD(119.6,101,21,2,0)
+126 ;;=tray service, cafeteria service, and/or dining room service is available.
+127 ;;^DD(119.6,101,"DT")
+128 ;;=2911031
+129 ;;^DD(119.61,0)
+130 ;;=BULK NOURISHMENTS SUB-FIELD^NL^1^2
+131 ;;^DD(119.61,0,"NM","BULK NOURISHMENTS")
+132 ;;=
+133 ;;^DD(119.61,0,"UP")
+134 ;;=119.6
+135 ;;^DD(119.61,.01,0)
+136 ;;=BULK NOURISHMENTS^MP118'^FH(118,^0;1^Q
+137 ;;^DD(119.61,.01,21,0)
+138 ;;=^^2^2^2880717^
+139 ;;^DD(119.61,.01,21,1,0)
+140 ;;=This field contains the name of the bulk nourishment (supplemental
