FHINI0KM ; ; 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.02,1,"DT")
;;=2880514
;;^DD(115.02,2,0)
;;=DIET2^P111'I^FH(111,^0;3^Q
;;^DD(115.02,2,21,0)
;;=^^2^2^2880710^
;;^DD(115.02,2,21,1,0)
;;=This is the second diet modification selected from the Diets (111)
;;^DD(115.02,2,21,2,0)
;;=file.
;;^DD(115.02,2,"DT")
;;=2880514
;;^DD(115.02,3,0)
;;=DIET3^P111'I^FH(111,^0;4^Q
;;^DD(115.02,3,21,0)
;;=^^2^2^2880710^
;;^DD(115.02,3,21,1,0)
;;=This is the third diet modification selected from the Diets (111)
;;^DD(115.02,3,21,2,0)
;;=file.
;;^DD(115.02,3,"DT")
;;=2880514
;;^DD(115.02,4,0)
;;=DIET4^P111'I^FH(111,^0;5^Q
;;^DD(115.02,4,21,0)
;;=^^2^2^2880710^
;;^DD(115.02,4,21,1,0)
;;=This is the fourth diet modification selected from the Diets (111)
;;^DD(115.02,4,21,2,0)
;;=file.
;;^DD(115.02,4,"DT")
;;=2880514
;;^DD(115.02,5,0)
;;=DIET5^P111'I^FH(111,^0;6^Q
;;^DD(115.02,5,21,0)
;;=^^2^2^2880710^
;;^DD(115.02,5,21,1,0)
;;=This is the fifth diet modification selected from the Diets (111)
;;^DD(115.02,5,21,2,0)
;;=file.
;;^DD(115.02,5,"DT")
;;=2880514
;;^DD(115.02,6,0)
;;=WITHHOLD^SI^N:NPO;X:NO ORDER;P:PASS;^0;7^Q
;;^DD(115.02,6,1,0)
;;=^.1^^0
;;^DD(115.02,6,21,0)
;;=^^2^2^2880710^
;;^DD(115.02,6,21,1,0)
;;=This field, if not null, indicates that an NPO type of order
;;^DD(115.02,6,21,2,0)
;;=was entered.
;;^DD(115.02,6,"DT")
;;=2880514
;;^DD(115.02,7,0)
;;=TYPE OF SERVICE^SI^T:TRAY;C:CAFETERIA;D:DINING ROOM;^0;8^Q
;;^DD(115.02,7,21,0)
;;=^^4^4^2880710^
;;^DD(115.02,7,21,1,0)
;;=This field indicates the type of service requested for this diet
;;^DD(115.02,7,21,2,0)
;;=order. It is not present for NPO orders. When this order becomes
;;^DD(115.02,7,21,3,0)
;;=effective, this type of service will become the current type of
;;^DD(115.02,7,21,4,0)
;;=service and will be the default for future orders.
;;^DD(115.02,7,"DT")
;;=2880514
;;^DD(115.02,8,0)
;;=DATE/TIME EFFECTIVE^DI^^0;9^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(115.02,8,21,0)
;;=^^1^1^2880710^
;;^DD(115.02,8,21,1,0)
;;=This is the date/time when this diet order takes effect.
;;^DD(115.02,8,"DT")
;;=2880514
;;^DD(115.02,9,0)
;;=DATE/TIME EXPIRES^DI^^0;10^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(115.02,9,21,0)
;;=^^3^3^2880710^
;;^DD(115.02,9,21,1,0)
;;=This field indicates the date/time when this order is to expire.
;;^DD(115.02,9,21,2,0)
;;=If null, the order is 'open-ended' and will not expire until
;;^DD(115.02,9,21,3,0)
;;=superceded by another order.
;;^DD(115.02,9,"DT")
;;=2880514
;;^DD(115.02,10,0)
;;=CLERK^P200'^VA(200,^0;11^Q
;;^DD(115.02,10,21,0)
;;=^^1^1^2880718^^
;;^DD(115.02,10,21,1,0)
;;=This field is the person actually entering the order.
;;^DD(115.02,10.5,0)
;;=DATE/TIME ORDERED^D^^0;12^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(115.02,10.5,21,0)
;;=^^3^3^2880710^
;;^DD(115.02,10.5,21,1,0)
;;=This is the date/time the order was actually entered and may bear
;;^DD(115.02,10.5,21,2,0)
;;=little relationship the effective and/or expiration date/times
;;^DD(115.02,10.5,21,3,0)
;;=of the actual order.
;;^DD(115.02,11,0)
;;=COMMENT^F^^1;1^K:$L(X)>50!($L(X)<1) X
;;^DD(115.02,11,3)
;;=ANSWER MUST BE 1-50 CHARACTERS IN LENGTH
;;^DD(115.02,11,21,0)
;;=^^2^2^2911226^^
;;^DD(115.02,11,21,1,0)
;;=This is a comment field for any specialized comments concerning
;;^DD(115.02,11,21,2,0)
;;=this diet order.
;;^DD(115.02,12,0)
;;=PRODUCTION DIET^RP116.2'^FH(116.2,^0;13^Q
;;^DD(115.02,12,21,0)
;;=^^4^4^2880710^
;;^DD(115.02,12,21,1,0)
;;=This is a pointer to the Production Diet (116.2) file and is
;;^DD(115.02,12,21,2,0)
;;=the outcome of the 'diet recoding' algorithm which is based
;;^DD(115.02,12,21,3,0)
;;=upon the diet modifications selected. It is not present for
;;^DD(115.02,12,21,4,0)
;;=NPO types of orders.
;;^DD(115.02,12,"DT")
;;=2870713
;;^DD(115.02,13,0)
;;=OE/RR ORDER^P100^OR(100,^0;14^Q
;;^DD(115.02,13,21,0)
;;=^^2^2^2890918^
;;^DD(115.02,13,21,1,0)
;;=This field contains a pointer the the OE/RR file order corresponding
;;^DD(115.02,13,21,2,0)
;;=to this order.
;;^DD(115.02,13,"DT")
;;=2890918
;;^DD(115.02,14,0)
;;=CURRENT OE/RR STATUS^P100.01'^ORD(100.01,^0;15^Q
;;^DD(115.02,14,21,0)
;;=^^2^2^2891008^
;;^DD(115.02,14,21,1,0)
;;=This field contains the current OE/RR status as passed to OE/RR.
;;^DD(115.02,14,21,2,0)
;;=It is a pointer to the OE/RR Status file (100.01).
;;^DD(115.02,14,"DT")
;;=2891008
;;^DD(115.02,15,0)
;;=LAST REVIEW DATE/TIME^D^^0;16^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
;;^DD(115.02,15,21,0)
;;=^^3^3^2911204^
;;^DD(115.02,15,21,1,0)
;;=This is the date/time that the diet order was last reviewed if necessary.
FHINI0KM ; ; 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.02,1,"DT")
+2 ;;=2880514
+3 ;;^DD(115.02,2,0)
+4 ;;=DIET2^P111'I^FH(111,^0;3^Q
+5 ;;^DD(115.02,2,21,0)
+6 ;;=^^2^2^2880710^
+7 ;;^DD(115.02,2,21,1,0)
+8 ;;=This is the second diet modification selected from the Diets (111)
+9 ;;^DD(115.02,2,21,2,0)
+10 ;;=file.
+11 ;;^DD(115.02,2,"DT")
+12 ;;=2880514
+13 ;;^DD(115.02,3,0)
+14 ;;=DIET3^P111'I^FH(111,^0;4^Q
+15 ;;^DD(115.02,3,21,0)
+16 ;;=^^2^2^2880710^
+17 ;;^DD(115.02,3,21,1,0)
+18 ;;=This is the third diet modification selected from the Diets (111)
+19 ;;^DD(115.02,3,21,2,0)
+20 ;;=file.
+21 ;;^DD(115.02,3,"DT")
+22 ;;=2880514
+23 ;;^DD(115.02,4,0)
+24 ;;=DIET4^P111'I^FH(111,^0;5^Q
+25 ;;^DD(115.02,4,21,0)
+26 ;;=^^2^2^2880710^
+27 ;;^DD(115.02,4,21,1,0)
+28 ;;=This is the fourth diet modification selected from the Diets (111)
+29 ;;^DD(115.02,4,21,2,0)
+30 ;;=file.
+31 ;;^DD(115.02,4,"DT")
+32 ;;=2880514
+33 ;;^DD(115.02,5,0)
+34 ;;=DIET5^P111'I^FH(111,^0;6^Q
+35 ;;^DD(115.02,5,21,0)
+36 ;;=^^2^2^2880710^
+37 ;;^DD(115.02,5,21,1,0)
+38 ;;=This is the fifth diet modification selected from the Diets (111)
+39 ;;^DD(115.02,5,21,2,0)
+40 ;;=file.
+41 ;;^DD(115.02,5,"DT")
+42 ;;=2880514
+43 ;;^DD(115.02,6,0)
+44 ;;=WITHHOLD^SI^N:NPO;X:NO ORDER;P:PASS;^0;7^Q
+45 ;;^DD(115.02,6,1,0)
+46 ;;=^.1^^0
+47 ;;^DD(115.02,6,21,0)
+48 ;;=^^2^2^2880710^
+49 ;;^DD(115.02,6,21,1,0)
+50 ;;=This field, if not null, indicates that an NPO type of order
+51 ;;^DD(115.02,6,21,2,0)
+52 ;;=was entered.
+53 ;;^DD(115.02,6,"DT")
+54 ;;=2880514
+55 ;;^DD(115.02,7,0)
+56 ;;=TYPE OF SERVICE^SI^T:TRAY;C:CAFETERIA;D:DINING ROOM;^0;8^Q
+57 ;;^DD(115.02,7,21,0)
+58 ;;=^^4^4^2880710^
+59 ;;^DD(115.02,7,21,1,0)
+60 ;;=This field indicates the type of service requested for this diet
+61 ;;^DD(115.02,7,21,2,0)
+62 ;;=order. It is not present for NPO orders. When this order becomes
+63 ;;^DD(115.02,7,21,3,0)
+64 ;;=effective, this type of service will become the current type of
+65 ;;^DD(115.02,7,21,4,0)
+66 ;;=service and will be the default for future orders.
+67 ;;^DD(115.02,7,"DT")
+68 ;;=2880514
+69 ;;^DD(115.02,8,0)
+70 ;;=DATE/TIME EFFECTIVE^DI^^0;9^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+71 ;;^DD(115.02,8,21,0)
+72 ;;=^^1^1^2880710^
+73 ;;^DD(115.02,8,21,1,0)
+74 ;;=This is the date/time when this diet order takes effect.
+75 ;;^DD(115.02,8,"DT")
+76 ;;=2880514
+77 ;;^DD(115.02,9,0)
+78 ;;=DATE/TIME EXPIRES^DI^^0;10^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+79 ;;^DD(115.02,9,21,0)
+80 ;;=^^3^3^2880710^
+81 ;;^DD(115.02,9,21,1,0)
+82 ;;=This field indicates the date/time when this order is to expire.
+83 ;;^DD(115.02,9,21,2,0)
+84 ;;=If null, the order is 'open-ended' and will not expire until
+85 ;;^DD(115.02,9,21,3,0)
+86 ;;=superceded by another order.
+87 ;;^DD(115.02,9,"DT")
+88 ;;=2880514
+89 ;;^DD(115.02,10,0)
+90 ;;=CLERK^P200'^VA(200,^0;11^Q
+91 ;;^DD(115.02,10,21,0)
+92 ;;=^^1^1^2880718^^
+93 ;;^DD(115.02,10,21,1,0)
+94 ;;=This field is the person actually entering the order.
+95 ;;^DD(115.02,10.5,0)
+96 ;;=DATE/TIME ORDERED^D^^0;12^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+97 ;;^DD(115.02,10.5,21,0)
+98 ;;=^^3^3^2880710^
+99 ;;^DD(115.02,10.5,21,1,0)
+100 ;;=This is the date/time the order was actually entered and may bear
+101 ;;^DD(115.02,10.5,21,2,0)
+102 ;;=little relationship the effective and/or expiration date/times
+103 ;;^DD(115.02,10.5,21,3,0)
+104 ;;=of the actual order.
+105 ;;^DD(115.02,11,0)
+106 ;;=COMMENT^F^^1;1^K:$L(X)>50!($L(X)<1) X
+107 ;;^DD(115.02,11,3)
+108 ;;=ANSWER MUST BE 1-50 CHARACTERS IN LENGTH
+109 ;;^DD(115.02,11,21,0)
+110 ;;=^^2^2^2911226^^
+111 ;;^DD(115.02,11,21,1,0)
+112 ;;=This is a comment field for any specialized comments concerning
+113 ;;^DD(115.02,11,21,2,0)
+114 ;;=this diet order.
+115 ;;^DD(115.02,12,0)
+116 ;;=PRODUCTION DIET^RP116.2'^FH(116.2,^0;13^Q
+117 ;;^DD(115.02,12,21,0)
+118 ;;=^^4^4^2880710^
+119 ;;^DD(115.02,12,21,1,0)
+120 ;;=This is a pointer to the Production Diet (116.2) file and is
+121 ;;^DD(115.02,12,21,2,0)
+122 ;;=the outcome of the 'diet recoding' algorithm which is based
+123 ;;^DD(115.02,12,21,3,0)
+124 ;;=upon the diet modifications selected. It is not present for
+125 ;;^DD(115.02,12,21,4,0)
+126 ;;=NPO types of orders.
+127 ;;^DD(115.02,12,"DT")
+128 ;;=2870713
+129 ;;^DD(115.02,13,0)
+130 ;;=OE/RR ORDER^P100^OR(100,^0;14^Q
+131 ;;^DD(115.02,13,21,0)
+132 ;;=^^2^2^2890918^
+133 ;;^DD(115.02,13,21,1,0)
+134 ;;=This field contains a pointer the the OE/RR file order corresponding
+135 ;;^DD(115.02,13,21,2,0)
+136 ;;=to this order.
+137 ;;^DD(115.02,13,"DT")
+138 ;;=2890918
+139 ;;^DD(115.02,14,0)
+140 ;;=CURRENT OE/RR STATUS^P100.01'^ORD(100.01,^0;15^Q
+141 ;;^DD(115.02,14,21,0)
+142 ;;=^^2^2^2891008^
+143 ;;^DD(115.02,14,21,1,0)
+144 ;;=This field contains the current OE/RR status as passed to OE/RR.
+145 ;;^DD(115.02,14,21,2,0)
+146 ;;=It is a pointer to the OE/RR Status file (100.01).
+147 ;;^DD(115.02,14,"DT")
+148 ;;=2891008
+149 ;;^DD(115.02,15,0)
+150 ;;=LAST REVIEW DATE/TIME^D^^0;16^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
+151 ;;^DD(115.02,15,21,0)
+152 ;;=^^3^3^2911204^
+153 ;;^DD(115.02,15,21,1,0)
+154 ;;=This is the date/time that the diet order was last reviewed if necessary.
