FHINI0KQ ; ; 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.05,1,21,1,0)
;;=This field indicates for which meal the early or late tray is ordered.
;;^DD(115.05,1,"DT")
;;=2850608
;;^DD(115.05,2,0)
;;=TIME^F^^0;3^K:$L(X)>10!($L(X)<1) X
;;^DD(115.05,2,3)
;;=ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
;;^DD(115.05,2,21,0)
;;=^^2^2^2930428^^^^
;;^DD(115.05,2,21,1,0)
;;=This field contains a printable time for which the meal is to
;;^DD(115.05,2,21,2,0)
;;=delivered.
;;^DD(115.05,2,"DT")
;;=2850525
;;^DD(115.05,3,0)
;;=BAGGED MEAL?^S^Y:YES;N:NO;^0;4^Q
;;^DD(115.05,3,21,0)
;;=^^1^1^2880710^
;;^DD(115.05,3,21,1,0)
;;=If answered YES, this field indicates that a bagged meal is desired.
;;^DD(115.05,3,"DT")
;;=2850526
;;^DD(115.05,4,0)
;;=CLERK^RP200'^VA(200,^0;5^Q
;;^DD(115.05,4,21,0)
;;=^^2^2^2880710^
;;^DD(115.05,4,21,1,0)
;;=This field is automatically updated with the user entering
;;^DD(115.05,4,21,2,0)
;;=the order.
;;^DD(115.05,4,"DT")
;;=2850526
;;^DD(115.05,5,0)
;;=ENTRY DATE/TIME^RD^^0;6^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(115.05,5,21,0)
;;=^^2^2^2910506^^
;;^DD(115.05,5,21,1,0)
;;=This field contains the date/time the order was actually
;;^DD(115.05,5,21,2,0)
;;=entered.
;;^DD(115.05,5,"DT")
;;=2850526
;;^DD(115.05,6,0)
;;=OE/RR ORDER^P100^OR(100,^0;7^Q
;;^DD(115.05,6,21,0)
;;=^^2^2^2890918^
;;^DD(115.05,6,21,1,0)
;;=This field contains a pointer to the OE/RR file order corresponding
;;^DD(115.05,6,21,2,0)
;;=to this order.
;;^DD(115.05,6,"DT")
;;=2890918
;;^DD(115.06,0)
;;=ADDITIONAL ORDERS SUB-FIELD^NL^7^8
;;^DD(115.06,0,"NM","ADDITIONAL ORDERS")
;;=
;;^DD(115.06,0,"UP")
;;=115.01
;;^DD(115.06,.01,0)
;;=ORDER NUMBER^RNJ5,0X^^0;1^K:'X!(X'?1N.N) X I $D(X) S DINUM=X
;;^DD(115.06,.01,3)
;;=TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
;;^DD(115.06,.01,21,0)
;;=^^2^2^2880710^
;;^DD(115.06,.01,21,1,0)
;;=This field is merely the sequence number of the Additional
;;^DD(115.06,.01,21,2,0)
;;=Orders entered and has no meaning beyond that.
;;^DD(115.06,.01,"DT")
;;=2851126
;;^DD(115.06,1,0)
;;=DATE/TIME ENTERED^RD^^0;2^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(115.06,1,1,0)
;;=^.1^^0
;;^DD(115.06,1,21,0)
;;=^^1^1^2880710^
;;^DD(115.06,1,21,1,0)
;;=This is the date/time the Additional Order was entered.
;;^DD(115.06,1,"DT")
;;=2851126
;;^DD(115.06,2,0)
;;=ORDER^F^^0;3^K:$L(X)>60!($L(X)<1) X
;;^DD(115.06,2,3)
;;=ANSWER MUST BE 1-60 CHARACTERS IN LENGTH
;;^DD(115.06,2,21,0)
;;=^^1^1^2880710^
;;^DD(115.06,2,21,1,0)
;;=This is the text of the order.
;;^DD(115.06,2,"DT")
;;=2851126
;;^DD(115.06,3,0)
;;=CLERK^RP200'^VA(200,^0;4^Q
;;^DD(115.06,3,21,0)
;;=^^2^2^2880710^
;;^DD(115.06,3,21,1,0)
;;=This is the clerk entering the order and is automatically
;;^DD(115.06,3,21,2,0)
;;=captured at time of entry.
;;^DD(115.06,3,"DT")
;;=2851126
;;^DD(115.06,4,0)
;;=STATUS^RS^A:ACTIVE;C:COMPLETE;S:SAVED;X:CANCELLED;^0;5^Q
;;^DD(115.06,4,1,0)
;;=^.1
;;^DD(115.06,4,1,1,0)
;;=115^AOO^MUMPS
;;^DD(115.06,4,1,1,1)
;;=S:X="A" ^FHPT("AOO",DA(2),DA(1),DA)="" K:X'="A" ^FHPT("AOO",DA(2),DA(1),DA)
;;^DD(115.06,4,1,1,2)
;;=K ^FHPT("AOO",DA(2),DA(1),DA)
;;^DD(115.06,4,1,1,"%D",0)
;;=^^1^1^2940824^
;;^DD(115.06,4,1,1,"%D",1,0)
;;=This cross-reference is a list of active orders only.
;;^DD(115.06,4,21,0)
;;=^^3^3^2920319^^^^
;;^DD(115.06,4,21,1,0)
;;=This is the status of the order. A saved order is one that has
;;^DD(115.06,4,21,2,0)
;;=been responded to but continues to display as it may require
;;^DD(115.06,4,21,3,0)
;;=further or on-going action.
;;^DD(115.06,4,"DT")
;;=2890514
;;^DD(115.06,5,0)
;;=DATE/TIME CLEARED^D^^0;6^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(115.06,5,21,0)
;;=^^1^1^2880718^^
;;^DD(115.06,5,21,1,0)
;;=This is the date/time that the order was completed or saved.
;;^DD(115.06,5,"DT")
;;=2851126
;;^DD(115.06,6,0)
;;=CLERK CLEARING^P200'^VA(200,^0;7^Q
;;^DD(115.06,6,21,0)
;;=^^2^2^2880710^
;;^DD(115.06,6,21,1,0)
;;=This is the dietetic person clearing the order and is
;;^DD(115.06,6,21,2,0)
;;=automatically captured at time of entry.
;;^DD(115.06,6,"DT")
;;=2851126
;;^DD(115.06,7,0)
;;=OE/RR ORDER^P100^OR(100,^0;8^Q
;;^DD(115.06,7,21,0)
;;=^^2^2^2890918^
;;^DD(115.06,7,21,1,0)
;;=This field contains a pointer to the OE/RR file order corresponding
;;^DD(115.06,7,21,2,0)
;;=to this order.
;;^DD(115.06,7,"DT")
;;=2890918
;;^DD(115.07,0)
;;=SUPPLEMENTAL FEEDING SUB-FIELD^^44^34
;;^DD(115.07,0,"DT")
;;=2940722
;;^DD(115.07,0,"NM","SUPPLEMENTAL FEEDING")
;;=
;;^DD(115.07,0,"UP")
;;=115.01
;;^DD(115.07,.01,0)
;;=SUPPLEMENTAL FEEDING^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
FHINI0KQ ; ; 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.05,1,21,1,0)
+2 ;;=This field indicates for which meal the early or late tray is ordered.
+3 ;;^DD(115.05,1,"DT")
+4 ;;=2850608
+5 ;;^DD(115.05,2,0)
+6 ;;=TIME^F^^0;3^K:$L(X)>10!($L(X)<1) X
+7 ;;^DD(115.05,2,3)
+8 ;;=ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
+9 ;;^DD(115.05,2,21,0)
+10 ;;=^^2^2^2930428^^^^
+11 ;;^DD(115.05,2,21,1,0)
+12 ;;=This field contains a printable time for which the meal is to
+13 ;;^DD(115.05,2,21,2,0)
+14 ;;=delivered.
+15 ;;^DD(115.05,2,"DT")
+16 ;;=2850525
+17 ;;^DD(115.05,3,0)
+18 ;;=BAGGED MEAL?^S^Y:YES;N:NO;^0;4^Q
+19 ;;^DD(115.05,3,21,0)
+20 ;;=^^1^1^2880710^
+21 ;;^DD(115.05,3,21,1,0)
+22 ;;=If answered YES, this field indicates that a bagged meal is desired.
+23 ;;^DD(115.05,3,"DT")
+24 ;;=2850526
+25 ;;^DD(115.05,4,0)
+26 ;;=CLERK^RP200'^VA(200,^0;5^Q
+27 ;;^DD(115.05,4,21,0)
+28 ;;=^^2^2^2880710^
+29 ;;^DD(115.05,4,21,1,0)
+30 ;;=This field is automatically updated with the user entering
+31 ;;^DD(115.05,4,21,2,0)
+32 ;;=the order.
+33 ;;^DD(115.05,4,"DT")
+34 ;;=2850526
+35 ;;^DD(115.05,5,0)
+36 ;;=ENTRY DATE/TIME^RD^^0;6^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+37 ;;^DD(115.05,5,21,0)
+38 ;;=^^2^2^2910506^^
+39 ;;^DD(115.05,5,21,1,0)
+40 ;;=This field contains the date/time the order was actually
+41 ;;^DD(115.05,5,21,2,0)
+42 ;;=entered.
+43 ;;^DD(115.05,5,"DT")
+44 ;;=2850526
+45 ;;^DD(115.05,6,0)
+46 ;;=OE/RR ORDER^P100^OR(100,^0;7^Q
+47 ;;^DD(115.05,6,21,0)
+48 ;;=^^2^2^2890918^
+49 ;;^DD(115.05,6,21,1,0)
+50 ;;=This field contains a pointer to the OE/RR file order corresponding
+51 ;;^DD(115.05,6,21,2,0)
+52 ;;=to this order.
+53 ;;^DD(115.05,6,"DT")
+54 ;;=2890918
+55 ;;^DD(115.06,0)
+56 ;;=ADDITIONAL ORDERS SUB-FIELD^NL^7^8
+57 ;;^DD(115.06,0,"NM","ADDITIONAL ORDERS")
+58 ;;=
+59 ;;^DD(115.06,0,"UP")
+60 ;;=115.01
+61 ;;^DD(115.06,.01,0)
+62 ;;=ORDER NUMBER^RNJ5,0X^^0;1^K:'X!(X'?1N.N) X I $D(X) S DINUM=X
+63 ;;^DD(115.06,.01,3)
+64 ;;=TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
+65 ;;^DD(115.06,.01,21,0)
+66 ;;=^^2^2^2880710^
+67 ;;^DD(115.06,.01,21,1,0)
+68 ;;=This field is merely the sequence number of the Additional
+69 ;;^DD(115.06,.01,21,2,0)
+70 ;;=Orders entered and has no meaning beyond that.
+71 ;;^DD(115.06,.01,"DT")
+72 ;;=2851126
+73 ;;^DD(115.06,1,0)
+74 ;;=DATE/TIME ENTERED^RD^^0;2^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+75 ;;^DD(115.06,1,1,0)
+76 ;;=^.1^^0
+77 ;;^DD(115.06,1,21,0)
+78 ;;=^^1^1^2880710^
+79 ;;^DD(115.06,1,21,1,0)
+80 ;;=This is the date/time the Additional Order was entered.
+81 ;;^DD(115.06,1,"DT")
+82 ;;=2851126
+83 ;;^DD(115.06,2,0)
+84 ;;=ORDER^F^^0;3^K:$L(X)>60!($L(X)<1) X
+85 ;;^DD(115.06,2,3)
+86 ;;=ANSWER MUST BE 1-60 CHARACTERS IN LENGTH
+87 ;;^DD(115.06,2,21,0)
+88 ;;=^^1^1^2880710^
+89 ;;^DD(115.06,2,21,1,0)
+90 ;;=This is the text of the order.
+91 ;;^DD(115.06,2,"DT")
+92 ;;=2851126
+93 ;;^DD(115.06,3,0)
+94 ;;=CLERK^RP200'^VA(200,^0;4^Q
+95 ;;^DD(115.06,3,21,0)
+96 ;;=^^2^2^2880710^
+97 ;;^DD(115.06,3,21,1,0)
+98 ;;=This is the clerk entering the order and is automatically
+99 ;;^DD(115.06,3,21,2,0)
+100 ;;=captured at time of entry.
+101 ;;^DD(115.06,3,"DT")
+102 ;;=2851126
+103 ;;^DD(115.06,4,0)
+104 ;;=STATUS^RS^A:ACTIVE;C:COMPLETE;S:SAVED;X:CANCELLED;^0;5^Q
+105 ;;^DD(115.06,4,1,0)
+106 ;;=^.1
+107 ;;^DD(115.06,4,1,1,0)
+108 ;;=115^AOO^MUMPS
+109 ;;^DD(115.06,4,1,1,1)
+110 ;;=S:X="A" ^FHPT("AOO",DA(2),DA(1),DA)="" K:X'="A" ^FHPT("AOO",DA(2),DA(1),DA)
+111 ;;^DD(115.06,4,1,1,2)
+112 ;;=K ^FHPT("AOO",DA(2),DA(1),DA)
+113 ;;^DD(115.06,4,1,1,"%D",0)
+114 ;;=^^1^1^2940824^
+115 ;;^DD(115.06,4,1,1,"%D",1,0)
+116 ;;=This cross-reference is a list of active orders only.
+117 ;;^DD(115.06,4,21,0)
+118 ;;=^^3^3^2920319^^^^
+119 ;;^DD(115.06,4,21,1,0)
+120 ;;=This is the status of the order. A saved order is one that has
+121 ;;^DD(115.06,4,21,2,0)
+122 ;;=been responded to but continues to display as it may require
+123 ;;^DD(115.06,4,21,3,0)
+124 ;;=further or on-going action.
+125 ;;^DD(115.06,4,"DT")
+126 ;;=2890514
+127 ;;^DD(115.06,5,0)
+128 ;;=DATE/TIME CLEARED^D^^0;6^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+129 ;;^DD(115.06,5,21,0)
+130 ;;=^^1^1^2880718^^
+131 ;;^DD(115.06,5,21,1,0)
+132 ;;=This is the date/time that the order was completed or saved.
+133 ;;^DD(115.06,5,"DT")
+134 ;;=2851126
+135 ;;^DD(115.06,6,0)
+136 ;;=CLERK CLEARING^P200'^VA(200,^0;7^Q
+137 ;;^DD(115.06,6,21,0)
+138 ;;=^^2^2^2880710^
+139 ;;^DD(115.06,6,21,1,0)
+140 ;;=This is the dietetic person clearing the order and is
+141 ;;^DD(115.06,6,21,2,0)
+142 ;;=automatically captured at time of entry.
+143 ;;^DD(115.06,6,"DT")
+144 ;;=2851126
+145 ;;^DD(115.06,7,0)
+146 ;;=OE/RR ORDER^P100^OR(100,^0;8^Q
+147 ;;^DD(115.06,7,21,0)
+148 ;;=^^2^2^2890918^
+149 ;;^DD(115.06,7,21,1,0)
+150 ;;=This field contains a pointer to the OE/RR file order corresponding
+151 ;;^DD(115.06,7,21,2,0)
+152 ;;=to this order.
+153 ;;^DD(115.06,7,"DT")
+154 ;;=2890918
+155 ;;^DD(115.07,0)
+156 ;;=SUPPLEMENTAL FEEDING SUB-FIELD^^44^34
+157 ;;^DD(115.07,0,"DT")
+158 ;;=2940722
+159 ;;^DD(115.07,0,"NM","SUPPLEMENTAL FEEDING")
+160 ;;=
+161 ;;^DD(115.07,0,"UP")
+162 ;;=115.01
+163 ;;^DD(115.07,.01,0)
+164 ;;=SUPPLEMENTAL FEEDING^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
