FHINI0KU ; ; 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.08,4,"DT")
;;=2871111
;;^DD(115.08,5,0)
;;=DATE/TIME CANCELLED^D^^0;6^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(115.08,5,1,0)
;;=^.1
;;^DD(115.08,5,1,1,0)
;;=115^ASP1^MUMPS
;;^DD(115.08,5,1,1,1)
;;=K ^FHPT("ASP",DA(2),DA(1),DA)
;;^DD(115.08,5,1,1,2)
;;=S ^FHPT("ASP",DA(2),DA(1),DA)=""
;;^DD(115.08,5,1,1,"%D",0)
;;=^^2^2^2940824^
;;^DD(115.08,5,1,1,"%D",1,0)
;;=This cross-reference will delete the "ASP" standing order
;;^DD(115.08,5,1,1,"%D",2,0)
;;=entry if the order is cancelled.
;;^DD(115.08,5,21,0)
;;=^^3^3^2911223^^
;;^DD(115.08,5,21,1,0)
;;=This field contains the date/time the standing order was
;;^DD(115.08,5,21,2,0)
;;=cancelled and is automatically captured at time of
;;^DD(115.08,5,21,3,0)
;;=cancellation.
;;^DD(115.08,5,"DT")
;;=2871111
;;^DD(115.08,6,0)
;;=CANCELLING CLERK^P200'^VA(200,^0;7^Q
;;^DD(115.08,6,21,0)
;;=^^2^2^2920320^^^
;;^DD(115.08,6,21,1,0)
;;=This field contains the user who entered the cancellation
;;^DD(115.08,6,21,2,0)
;;=and is automatically captured at time of cancellation.
;;^DD(115.08,6,"DT")
;;=2871111
;;^DD(115.08,7,0)
;;=QUANTITY^NJ1,0^^0;8^K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
;;^DD(115.08,7,3)
;;=Type a Number between 1 and 9, 0 Decimal Digits
;;^DD(115.08,7,21,0)
;;=^^1^1^2920220^
;;^DD(115.08,7,21,1,0)
;;=This is the quantity of the Standing Order.
;;^DD(115.08,7,"DT")
;;=2920103
;;^DD(115.08,8,0)
;;=DIET ASSOCIATED?^S^Y:YES;N:NO;^0;9^Q
;;^DD(115.08,8,21,0)
;;=^^2^2^2940722^
;;^DD(115.08,8,21,1,0)
;;=This field, if answered Yes, means this Standing Order is associated
;;^DD(115.08,8,21,2,0)
;;=with a diet order else if answered No, means it is not.
;;^DD(115.08,8,"DT")
;;=2940722
;;^DD(115.09,0)
;;=FOOD PREFERENCES SUB-FIELD^^3^4
;;^DD(115.09,0,"DT")
;;=2950407
;;^DD(115.09,0,"IX","B",115.09,.01)
;;=
;;^DD(115.09,0,"NM","FOOD PREFERENCES")
;;=
;;^DD(115.09,0,"UP")
;;=115
;;^DD(115.09,.01,0)
;;=FOOD PREFERENCES^MP115.2'^FH(115.2,^0;1^Q
;;^DD(115.09,.01,1,0)
;;=^.1
;;^DD(115.09,.01,1,1,0)
;;=115.09^B
;;^DD(115.09,.01,1,1,1)
;;=S ^FHPT(DA(1),"P","B",$E(X,1,30),DA)=""
;;^DD(115.09,.01,1,1,2)
;;=K ^FHPT(DA(1),"P","B",$E(X,1,30),DA)
;;^DD(115.09,.01,1,1,"%D",0)
;;=^^1^1^2911118^
;;^DD(115.09,.01,1,1,"%D",1,0)
;;=This is the normal B cross-reference of the FOOD PREFERENCES field.
;;^DD(115.09,.01,21,0)
;;=^^2^2^2881201^^
;;^DD(115.09,.01,21,1,0)
;;=This field contains the food preference selected from the
;;^DD(115.09,.01,21,2,0)
;;=Food Preferences file (115.2).
;;^DD(115.09,.01,"DT")
;;=2880831
;;^DD(115.09,1,0)
;;=MEALS^RFX^^0;2^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.09,1,3)
;;=Answer should be a string of meals (e.g., B or BN or BNE) or A for all meals
;;^DD(115.09,1,21,0)
;;=^^2^2^2950418^^^^
;;^DD(115.09,1,21,1,0)
;;=This field contains the meals (B N and E) for which this food
;;^DD(115.09,1,21,2,0)
;;=preference is applicable.
;;^DD(115.09,1,22)
;;=
;;^DD(115.09,1,"DT")
;;=2880901
;;^DD(115.09,2,0)
;;=QUANTITY^NJ1,0^^0;3^K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
;;^DD(115.09,2,3)
;;=Type a Number between 1 and 9, 0 Decimal Digits
;;^DD(115.09,2,21,0)
;;=^^2^2^2920220^
;;^DD(115.09,2,21,1,0)
;;=This is the quantity of the Food Preference applicable to this
;;^DD(115.09,2,21,2,0)
;;=patient.
;;^DD(115.09,2,"DT")
;;=2920103
;;^DD(115.09,3,0)
;;=DIET ASSOCIATED?^S^Y:YES;N:NO;^0;4^Q
;;^DD(115.09,3,21,0)
;;=^^3^3^2950407^
;;^DD(115.09,3,21,1,0)
;;=This field, if answered Yes, means this Food Preference is a Diet
;;^DD(115.09,3,21,2,0)
;;=restriction that is associated with a diet order else if answered No,
;;^DD(115.09,3,21,3,0)
;;=means it is not.
;;^DD(115.09,3,"DT")
;;=2950407
;;^DD(115.1,0)
;;=TF PRODUCT SUB-FIELD^^5^6
;;^DD(115.1,0,"DT")
;;=2950926
;;^DD(115.1,0,"IX","B",115.1,.01)
;;=
;;^DD(115.1,0,"NM","TF PRODUCT")
;;=
;;^DD(115.1,0,"UP")
;;=115.04
;;^DD(115.1,.01,0)
;;=TF PRODUCT^MRP118.2'^FH(118.2,^0;1^Q
;;^DD(115.1,.01,1,0)
;;=^.1
;;^DD(115.1,.01,1,1,0)
;;=115.1^B
;;^DD(115.1,.01,1,1,1)
;;=S ^FHPT(DA(3),"A",DA(2),"TF",DA(1),"P","B",$E(X,1,30),DA)=""
;;^DD(115.1,.01,1,1,2)
;;=K ^FHPT(DA(3),"A",DA(2),"TF",DA(1),"P","B",$E(X,1,30),DA)
;;^DD(115.1,.01,1,1,"%D",0)
;;=^^1^1^2911118^
;;^DD(115.1,.01,1,1,"%D",1,0)
;;=This is the normal B cross-reference of the TF PRODUCT field.
;;^DD(115.1,.01,1,1,"DT")
;;=2910307
;;^DD(115.1,.01,3)
;;=
;;^DD(115.1,.01,21,0)
;;=^^1^1^2920312^^^^
;;^DD(115.1,.01,21,1,0)
;;=This field contains the tubefeeding product to be administered.
FHINI0KU ; ; 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.08,4,"DT")
+2 ;;=2871111
+3 ;;^DD(115.08,5,0)
+4 ;;=DATE/TIME CANCELLED^D^^0;6^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+5 ;;^DD(115.08,5,1,0)
+6 ;;=^.1
+7 ;;^DD(115.08,5,1,1,0)
+8 ;;=115^ASP1^MUMPS
+9 ;;^DD(115.08,5,1,1,1)
+10 ;;=K ^FHPT("ASP",DA(2),DA(1),DA)
+11 ;;^DD(115.08,5,1,1,2)
+12 ;;=S ^FHPT("ASP",DA(2),DA(1),DA)=""
+13 ;;^DD(115.08,5,1,1,"%D",0)
+14 ;;=^^2^2^2940824^
+15 ;;^DD(115.08,5,1,1,"%D",1,0)
+16 ;;=This cross-reference will delete the "ASP" standing order
+17 ;;^DD(115.08,5,1,1,"%D",2,0)
+18 ;;=entry if the order is cancelled.
+19 ;;^DD(115.08,5,21,0)
+20 ;;=^^3^3^2911223^^
+21 ;;^DD(115.08,5,21,1,0)
+22 ;;=This field contains the date/time the standing order was
+23 ;;^DD(115.08,5,21,2,0)
+24 ;;=cancelled and is automatically captured at time of
+25 ;;^DD(115.08,5,21,3,0)
+26 ;;=cancellation.
+27 ;;^DD(115.08,5,"DT")
+28 ;;=2871111
+29 ;;^DD(115.08,6,0)
+30 ;;=CANCELLING CLERK^P200'^VA(200,^0;7^Q
+31 ;;^DD(115.08,6,21,0)
+32 ;;=^^2^2^2920320^^^
+33 ;;^DD(115.08,6,21,1,0)
+34 ;;=This field contains the user who entered the cancellation
+35 ;;^DD(115.08,6,21,2,0)
+36 ;;=and is automatically captured at time of cancellation.
+37 ;;^DD(115.08,6,"DT")
+38 ;;=2871111
+39 ;;^DD(115.08,7,0)
+40 ;;=QUANTITY^NJ1,0^^0;8^K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
+41 ;;^DD(115.08,7,3)
+42 ;;=Type a Number between 1 and 9, 0 Decimal Digits
+43 ;;^DD(115.08,7,21,0)
+44 ;;=^^1^1^2920220^
+45 ;;^DD(115.08,7,21,1,0)
+46 ;;=This is the quantity of the Standing Order.
+47 ;;^DD(115.08,7,"DT")
+48 ;;=2920103
+49 ;;^DD(115.08,8,0)
+50 ;;=DIET ASSOCIATED?^S^Y:YES;N:NO;^0;9^Q
+51 ;;^DD(115.08,8,21,0)
+52 ;;=^^2^2^2940722^
+53 ;;^DD(115.08,8,21,1,0)
+54 ;;=This field, if answered Yes, means this Standing Order is associated
+55 ;;^DD(115.08,8,21,2,0)
+56 ;;=with a diet order else if answered No, means it is not.
+57 ;;^DD(115.08,8,"DT")
+58 ;;=2940722
+59 ;;^DD(115.09,0)
+60 ;;=FOOD PREFERENCES SUB-FIELD^^3^4
+61 ;;^DD(115.09,0,"DT")
+62 ;;=2950407
+63 ;;^DD(115.09,0,"IX","B",115.09,.01)
+64 ;;=
+65 ;;^DD(115.09,0,"NM","FOOD PREFERENCES")
+66 ;;=
+67 ;;^DD(115.09,0,"UP")
+68 ;;=115
+69 ;;^DD(115.09,.01,0)
+70 ;;=FOOD PREFERENCES^MP115.2'^FH(115.2,^0;1^Q
+71 ;;^DD(115.09,.01,1,0)
+72 ;;=^.1
+73 ;;^DD(115.09,.01,1,1,0)
+74 ;;=115.09^B
+75 ;;^DD(115.09,.01,1,1,1)
+76 ;;=S ^FHPT(DA(1),"P","B",$E(X,1,30),DA)=""
+77 ;;^DD(115.09,.01,1,1,2)
+78 ;;=K ^FHPT(DA(1),"P","B",$E(X,1,30),DA)
+79 ;;^DD(115.09,.01,1,1,"%D",0)
+80 ;;=^^1^1^2911118^
+81 ;;^DD(115.09,.01,1,1,"%D",1,0)
+82 ;;=This is the normal B cross-reference of the FOOD PREFERENCES field.
+83 ;;^DD(115.09,.01,21,0)
+84 ;;=^^2^2^2881201^^
+85 ;;^DD(115.09,.01,21,1,0)
+86 ;;=This field contains the food preference selected from the
+87 ;;^DD(115.09,.01,21,2,0)
+88 ;;=Food Preferences file (115.2).
+89 ;;^DD(115.09,.01,"DT")
+90 ;;=2880831
+91 ;;^DD(115.09,1,0)
+92 ;;=MEALS^RFX^^0;2^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 %
+93 ;;^DD(115.09,1,3)
+94 ;;=Answer should be a string of meals (e.g., B or BN or BNE) or A for all meals
+95 ;;^DD(115.09,1,21,0)
+96 ;;=^^2^2^2950418^^^^
+97 ;;^DD(115.09,1,21,1,0)
+98 ;;=This field contains the meals (B N and E) for which this food
+99 ;;^DD(115.09,1,21,2,0)
+100 ;;=preference is applicable.
+101 ;;^DD(115.09,1,22)
+102 ;;=
+103 ;;^DD(115.09,1,"DT")
+104 ;;=2880901
+105 ;;^DD(115.09,2,0)
+106 ;;=QUANTITY^NJ1,0^^0;3^K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
+107 ;;^DD(115.09,2,3)
+108 ;;=Type a Number between 1 and 9, 0 Decimal Digits
+109 ;;^DD(115.09,2,21,0)
+110 ;;=^^2^2^2920220^
+111 ;;^DD(115.09,2,21,1,0)
+112 ;;=This is the quantity of the Food Preference applicable to this
+113 ;;^DD(115.09,2,21,2,0)
+114 ;;=patient.
+115 ;;^DD(115.09,2,"DT")
+116 ;;=2920103
+117 ;;^DD(115.09,3,0)
+118 ;;=DIET ASSOCIATED?^S^Y:YES;N:NO;^0;4^Q
+119 ;;^DD(115.09,3,21,0)
+120 ;;=^^3^3^2950407^
+121 ;;^DD(115.09,3,21,1,0)
+122 ;;=This field, if answered Yes, means this Food Preference is a Diet
+123 ;;^DD(115.09,3,21,2,0)
+124 ;;=restriction that is associated with a diet order else if answered No,
+125 ;;^DD(115.09,3,21,3,0)
+126 ;;=means it is not.
+127 ;;^DD(115.09,3,"DT")
+128 ;;=2950407
+129 ;;^DD(115.1,0)
+130 ;;=TF PRODUCT SUB-FIELD^^5^6
+131 ;;^DD(115.1,0,"DT")
+132 ;;=2950926
+133 ;;^DD(115.1,0,"IX","B",115.1,.01)
+134 ;;=
+135 ;;^DD(115.1,0,"NM","TF PRODUCT")
+136 ;;=
+137 ;;^DD(115.1,0,"UP")
+138 ;;=115.04
+139 ;;^DD(115.1,.01,0)
+140 ;;=TF PRODUCT^MRP118.2'^FH(118.2,^0;1^Q
+141 ;;^DD(115.1,.01,1,0)
+142 ;;=^.1
+143 ;;^DD(115.1,.01,1,1,0)
+144 ;;=115.1^B
+145 ;;^DD(115.1,.01,1,1,1)
+146 ;;=S ^FHPT(DA(3),"A",DA(2),"TF",DA(1),"P","B",$E(X,1,30),DA)=""
+147 ;;^DD(115.1,.01,1,1,2)
+148 ;;=K ^FHPT(DA(3),"A",DA(2),"TF",DA(1),"P","B",$E(X,1,30),DA)
+149 ;;^DD(115.1,.01,1,1,"%D",0)
+150 ;;=^^1^1^2911118^
+151 ;;^DD(115.1,.01,1,1,"%D",1,0)
+152 ;;=This is the normal B cross-reference of the TF PRODUCT field.
+153 ;;^DD(115.1,.01,1,1,"DT")
+154 ;;=2910307
+155 ;;^DD(115.1,.01,3)
+156 ;;=
+157 ;;^DD(115.1,.01,21,0)
+158 ;;=^^1^1^2920312^^^^
+159 ;;^DD(115.1,.01,21,1,0)
+160 ;;=This field contains the tubefeeding product to be administered.
