FHINI0KT ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(115) 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(115.07,32,12)
;;=Cannot select bulk nourishments
;;^DD(115.07,32,12.1)
;;=S DIC("S")="I $P(^(0),U,3)'=""Y"""
;;^DD(115.07,32,21,0)
;;=^^2^2^2880710^
;;^DD(115.07,32,21,1,0)
;;=This is the fourth supplemental feeding ordered for the 8pm
;;^DD(115.07,32,21,2,0)
;;=feeding.
;;^DD(115.07,33,0)
;;=8PM #4 QTY^NJ2,0^^0;28^K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
;;^DD(115.07,33,3)
;;=TYPE A WHOLE NUMBER BETWEEN 1 AND 20
;;^DD(115.07,33,21,0)
;;=^^1^1^2880710^
;;^DD(115.07,33,21,1,0)
;;=This is the ordered quantity of the fourth 8pm feeding.
;;^DD(115.07,34,0)
;;=DIETARY OR THERAPEUTIC^RS^D:DIETARY;T:THERAPEUTIC;^0;29^Q
;;^DD(115.07,34,21,0)
;;=^^2^2^2880710^
;;^DD(115.07,34,21,1,0)
;;=This field indicates whether the supplemental feeding was
;;^DD(115.07,34,21,2,0)
;;=ordered for dietary or therapeutic reasons.
;;^DD(115.07,34,"DT")
;;=2850928
;;^DD(115.07,40,0)
;;=DATE/TIME LAST REVIEW^D^^0;30^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(115.07,40,21,0)
;;=^^2^2^2880710^
;;^DD(115.07,40,21,1,0)
;;=This is the date/time this supplemental feeding order was
;;^DD(115.07,40,21,2,0)
;;=last reviewed for appropriateness.
;;^DD(115.07,40,"DT")
;;=2871018
;;^DD(115.07,41,0)
;;=REVIEW CLERK^P200'^VA(200,^0;31^Q
;;^DD(115.07,41,21,0)
;;=^^2^2^2880710^
;;^DD(115.07,41,21,1,0)
;;=This is the person conducting the last review and is captured
;;^DD(115.07,41,21,2,0)
;;=automatically at time of review.
;;^DD(115.07,41,"DT")
;;=2871018
;;^DD(115.07,42,0)
;;=DATE/TIME CANCELLED^D^^0;32^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(115.07,42,21,0)
;;=^^1^1^2880710^
;;^DD(115.07,42,21,1,0)
;;=This is the date/time this order was cancelled.
;;^DD(115.07,42,"DT")
;;=2871018
;;^DD(115.07,43,0)
;;=CANCELLING CLERK^P200'^VA(200,^0;33^Q
;;^DD(115.07,43,21,0)
;;=^^2^2^2880710^
;;^DD(115.07,43,21,1,0)
;;=This is the person cancelling the order and is captured
;;^DD(115.07,43,21,2,0)
;;=automatically at time of cancellation.
;;^DD(115.07,43,"DT")
;;=2871018
;;^DD(115.07,44,0)
;;=DIET ASSOCIATED?^S^Y:YES;N:NO;^0;34^Q
;;^DD(115.07,44,21,0)
;;=^^2^2^2940722^
;;^DD(115.07,44,21,1,0)
;;=This field, if answered Yes, means this Supplemental Feeding Menu
;;^DD(115.07,44,21,2,0)
;;=is associated with a diet order else if answered No, means it is not.
;;^DD(115.07,44,"DT")
;;=2940722
;;^DD(115.08,0)
;;=STANDING ORDERS SUB-FIELD^^8^9
;;^DD(115.08,0,"DT")
;;=2940722
;;^DD(115.08,0,"NM","STANDING ORDERS")
;;=
;;^DD(115.08,0,"UP")
;;=115.01
;;^DD(115.08,.01,0)
;;=STANDING ORDERS^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
;;^DD(115.08,.01,1,0)
;;=^.1^^0
;;^DD(115.08,.01,3)
;;=Type a Number between 1 and 9999, 0 Decimal Digits
;;^DD(115.08,.01,21,0)
;;=^^2^2^2920103^^
;;^DD(115.08,.01,21,1,0)
;;=This field contains the sequence number of the standing order
;;^DD(115.08,.01,21,2,0)
;;=and has no meaning beyond that.
;;^DD(115.08,.01,"DT")
;;=2871108
;;^DD(115.08,1,0)
;;=ORDER^RP118.3'^FH(118.3,^0;2^Q
;;^DD(115.08,1,1,0)
;;=^.1
;;^DD(115.08,1,1,1,0)
;;=115^ASP^MUMPS
;;^DD(115.08,1,1,1,1)
;;=S ^FHPT("ASP",DA(2),DA(1),DA)=""
;;^DD(115.08,1,1,1,2)
;;=K ^FHPT("ASP",DA(2),DA(1),DA)
;;^DD(115.08,1,1,1,"%D",0)
;;=^^2^2^2940824^
;;^DD(115.08,1,1,1,"%D",1,0)
;;=This creates an "ASP" cross-reference for active orders. It
;;^DD(115.08,1,1,1,"%D",2,0)
;;=is killed when the order is cancelled.
;;^DD(115.08,1,21,0)
;;=^^2^2^2920103^^^
;;^DD(115.08,1,21,1,0)
;;=This field contains the standing order (from the Standing Orders
;;^DD(115.08,1,21,2,0)
;;=file, 118.3).
;;^DD(115.08,1,"DT")
;;=2871111
;;^DD(115.08,2,0)
;;=MEALS^RFX^^0;3^S:$P("ALL",X,1)="" X="BNE" S %=X,X="" S:%["B" X="B" S:%["N" X=X_"N" S:%["E" X=X_"E" K:$L(%)'=$L(X) X K %
;;^DD(115.08,2,3)
;;=Answer should be a string of meals (e.g., B or BN or BNE) or A for all meals
;;^DD(115.08,2,21,0)
;;=^^2^2^2880901^^
;;^DD(115.08,2,21,1,0)
;;=This field contains the meals to which this standing order
;;^DD(115.08,2,21,2,0)
;;=is applicable.
;;^DD(115.08,2,"DT")
;;=2880901
;;^DD(115.08,3,0)
;;=DATE/TIME ORDERED^RD^^0;4^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(115.08,3,21,0)
;;=^^2^2^2880714^
;;^DD(115.08,3,21,1,0)
;;=This field contains the date/time at which the standing
;;^DD(115.08,3,21,2,0)
;;=order was entered.
;;^DD(115.08,3,"DT")
;;=2871111
;;^DD(115.08,4,0)
;;=ENTERING CLERK^RP200'^VA(200,^0;5^Q
;;^DD(115.08,4,21,0)
;;=^^2^2^2950317^^
;;^DD(115.08,4,21,1,0)
;;=This field contains the user who entered the order and is
;;^DD(115.08,4,21,2,0)
;;=automatically captured at the time of entry.
FHINI0KT ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(115)
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(115.07,32,12)
+2 ;;=Cannot select bulk nourishments
+3 ;;^DD(115.07,32,12.1)
+4 ;;=S DIC("S")="I $P(^(0),U,3)'=""Y"""
+5 ;;^DD(115.07,32,21,0)
+6 ;;=^^2^2^2880710^
+7 ;;^DD(115.07,32,21,1,0)
+8 ;;=This is the fourth supplemental feeding ordered for the 8pm
+9 ;;^DD(115.07,32,21,2,0)
+10 ;;=feeding.
+11 ;;^DD(115.07,33,0)
+12 ;;=8PM #4 QTY^NJ2,0^^0;28^K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
+13 ;;^DD(115.07,33,3)
+14 ;;=TYPE A WHOLE NUMBER BETWEEN 1 AND 20
+15 ;;^DD(115.07,33,21,0)
+16 ;;=^^1^1^2880710^
+17 ;;^DD(115.07,33,21,1,0)
+18 ;;=This is the ordered quantity of the fourth 8pm feeding.
+19 ;;^DD(115.07,34,0)
+20 ;;=DIETARY OR THERAPEUTIC^RS^D:DIETARY;T:THERAPEUTIC;^0;29^Q
+21 ;;^DD(115.07,34,21,0)
+22 ;;=^^2^2^2880710^
+23 ;;^DD(115.07,34,21,1,0)
+24 ;;=This field indicates whether the supplemental feeding was
+25 ;;^DD(115.07,34,21,2,0)
+26 ;;=ordered for dietary or therapeutic reasons.
+27 ;;^DD(115.07,34,"DT")
+28 ;;=2850928
+29 ;;^DD(115.07,40,0)
+30 ;;=DATE/TIME LAST REVIEW^D^^0;30^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+31 ;;^DD(115.07,40,21,0)
+32 ;;=^^2^2^2880710^
+33 ;;^DD(115.07,40,21,1,0)
+34 ;;=This is the date/time this supplemental feeding order was
+35 ;;^DD(115.07,40,21,2,0)
+36 ;;=last reviewed for appropriateness.
+37 ;;^DD(115.07,40,"DT")
+38 ;;=2871018
+39 ;;^DD(115.07,41,0)
+40 ;;=REVIEW CLERK^P200'^VA(200,^0;31^Q
+41 ;;^DD(115.07,41,21,0)
+42 ;;=^^2^2^2880710^
+43 ;;^DD(115.07,41,21,1,0)
+44 ;;=This is the person conducting the last review and is captured
+45 ;;^DD(115.07,41,21,2,0)
+46 ;;=automatically at time of review.
+47 ;;^DD(115.07,41,"DT")
+48 ;;=2871018
+49 ;;^DD(115.07,42,0)
+50 ;;=DATE/TIME CANCELLED^D^^0;32^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+51 ;;^DD(115.07,42,21,0)
+52 ;;=^^1^1^2880710^
+53 ;;^DD(115.07,42,21,1,0)
+54 ;;=This is the date/time this order was cancelled.
+55 ;;^DD(115.07,42,"DT")
+56 ;;=2871018
+57 ;;^DD(115.07,43,0)
+58 ;;=CANCELLING CLERK^P200'^VA(200,^0;33^Q
+59 ;;^DD(115.07,43,21,0)
+60 ;;=^^2^2^2880710^
+61 ;;^DD(115.07,43,21,1,0)
+62 ;;=This is the person cancelling the order and is captured
+63 ;;^DD(115.07,43,21,2,0)
+64 ;;=automatically at time of cancellation.
+65 ;;^DD(115.07,43,"DT")
+66 ;;=2871018
+67 ;;^DD(115.07,44,0)
+68 ;;=DIET ASSOCIATED?^S^Y:YES;N:NO;^0;34^Q
+69 ;;^DD(115.07,44,21,0)
+70 ;;=^^2^2^2940722^
+71 ;;^DD(115.07,44,21,1,0)
+72 ;;=This field, if answered Yes, means this Supplemental Feeding Menu
+73 ;;^DD(115.07,44,21,2,0)
+74 ;;=is associated with a diet order else if answered No, means it is not.
+75 ;;^DD(115.07,44,"DT")
+76 ;;=2940722
+77 ;;^DD(115.08,0)
+78 ;;=STANDING ORDERS SUB-FIELD^^8^9
+79 ;;^DD(115.08,0,"DT")
+80 ;;=2940722
+81 ;;^DD(115.08,0,"NM","STANDING ORDERS")
+82 ;;=
+83 ;;^DD(115.08,0,"UP")
+84 ;;=115.01
+85 ;;^DD(115.08,.01,0)
+86 ;;=STANDING ORDERS^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
+87 ;;^DD(115.08,.01,1,0)
+88 ;;=^.1^^0
+89 ;;^DD(115.08,.01,3)
+90 ;;=Type a Number between 1 and 9999, 0 Decimal Digits
+91 ;;^DD(115.08,.01,21,0)
+92 ;;=^^2^2^2920103^^
+93 ;;^DD(115.08,.01,21,1,0)
+94 ;;=This field contains the sequence number of the standing order
+95 ;;^DD(115.08,.01,21,2,0)
+96 ;;=and has no meaning beyond that.
+97 ;;^DD(115.08,.01,"DT")
+98 ;;=2871108
+99 ;;^DD(115.08,1,0)
+100 ;;=ORDER^RP118.3'^FH(118.3,^0;2^Q
+101 ;;^DD(115.08,1,1,0)
+102 ;;=^.1
+103 ;;^DD(115.08,1,1,1,0)
+104 ;;=115^ASP^MUMPS
+105 ;;^DD(115.08,1,1,1,1)
+106 ;;=S ^FHPT("ASP",DA(2),DA(1),DA)=""
+107 ;;^DD(115.08,1,1,1,2)
+108 ;;=K ^FHPT("ASP",DA(2),DA(1),DA)
+109 ;;^DD(115.08,1,1,1,"%D",0)
+110 ;;=^^2^2^2940824^
+111 ;;^DD(115.08,1,1,1,"%D",1,0)
+112 ;;=This creates an "ASP" cross-reference for active orders. It
+113 ;;^DD(115.08,1,1,1,"%D",2,0)
+114 ;;=is killed when the order is cancelled.
+115 ;;^DD(115.08,1,21,0)
+116 ;;=^^2^2^2920103^^^
+117 ;;^DD(115.08,1,21,1,0)
+118 ;;=This field contains the standing order (from the Standing Orders
+119 ;;^DD(115.08,1,21,2,0)
+120 ;;=file, 118.3).
+121 ;;^DD(115.08,1,"DT")
+122 ;;=2871111
+123 ;;^DD(115.08,2,0)
+124 ;;=MEALS^RFX^^0;3^S:$P("ALL",X,1)="" X="BNE" S %=X,X="" S:%["B" X="B" S:%["N" X=X_"N" S:%["E" X=X_"E" K:$L(%)'=$L(X) X K %
+125 ;;^DD(115.08,2,3)
+126 ;;=Answer should be a string of meals (e.g., B or BN or BNE) or A for all meals
+127 ;;^DD(115.08,2,21,0)
+128 ;;=^^2^2^2880901^^
+129 ;;^DD(115.08,2,21,1,0)
+130 ;;=This field contains the meals to which this standing order
+131 ;;^DD(115.08,2,21,2,0)
+132 ;;=is applicable.
+133 ;;^DD(115.08,2,"DT")
+134 ;;=2880901
+135 ;;^DD(115.08,3,0)
+136 ;;=DATE/TIME ORDERED^RD^^0;4^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+137 ;;^DD(115.08,3,21,0)
+138 ;;=^^2^2^2880714^
+139 ;;^DD(115.08,3,21,1,0)
+140 ;;=This field contains the date/time at which the standing
+141 ;;^DD(115.08,3,21,2,0)
+142 ;;=order was entered.
+143 ;;^DD(115.08,3,"DT")
+144 ;;=2871111
+145 ;;^DD(115.08,4,0)
+146 ;;=ENTERING CLERK^RP200'^VA(200,^0;5^Q
+147 ;;^DD(115.08,4,21,0)
+148 ;;=^^2^2^2950317^^
+149 ;;^DD(115.08,4,21,1,0)
+150 ;;=This field contains the user who entered the order and is
+151 ;;^DD(115.08,4,21,2,0)
+152 ;;=automatically captured at the time of entry.
