FHINI0MW ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(119.73) 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.73,15,"DT")
;;=2850517
;;^DD(119.73,16,0)
;;=EARLY NOON TIME 1^FX^^1;7^D TIM^FHSYSP
;;^DD(119.73,16,3)
;;=ANSWER MUST BE A TIME OF DAY
;;^DD(119.73,16,21,0)
;;=^^1^1^2880716^
;;^DD(119.73,16,21,1,0)
;;=This is the first delivery time for an early noon tray.
;;^DD(119.73,16,"DT")
;;=2850517
;;^DD(119.73,17,0)
;;=EARLY NOON TIME 2^FX^^1;8^D TIM^FHSYSP
;;^DD(119.73,17,3)
;;=ANSWER MUST BE A TIME OF DAY
;;^DD(119.73,17,21,0)
;;=^^1^1^2880716^
;;^DD(119.73,17,21,1,0)
;;=This is the second delivery time for an early noon tray.
;;^DD(119.73,17,"DT")
;;=2850517
;;^DD(119.73,18,0)
;;=EARLY NOON TIME 3^FX^^1;9^D TIM^FHSYSP
;;^DD(119.73,18,3)
;;=ANSWER MUST BE A TIME OF DAY
;;^DD(119.73,18,21,0)
;;=^^1^1^2880716^
;;^DD(119.73,18,21,1,0)
;;=This is the third delivery time for an early noon tray.
;;^DD(119.73,18,"DT")
;;=2850517
;;^DD(119.73,19,0)
;;=LATE NOON TIME 1^FX^^1;10^D TIM^FHSYSP
;;^DD(119.73,19,3)
;;=ANSWER MUST BE A TIME OF DAY
;;^DD(119.73,19,21,0)
;;=^^1^1^2880716^
;;^DD(119.73,19,21,1,0)
;;=This is the first delivery time for a late noon tray.
;;^DD(119.73,19,"DT")
;;=2850517
;;^DD(119.73,20,0)
;;=LATE NOON TIME 2^FX^^1;11^D TIM^FHSYSP
;;^DD(119.73,20,3)
;;=ANSWER MUST BE A TIME OF DAY
;;^DD(119.73,20,21,0)
;;=^^1^1^2880716^
;;^DD(119.73,20,21,1,0)
;;=This is the second delivery time for a late noon tray.
;;^DD(119.73,20,"DT")
;;=2850517
;;^DD(119.73,21,0)
;;=LATE NOON TIME 3^FX^^1;12^D TIM^FHSYSP
;;^DD(119.73,21,3)
;;=ANSWER MUST BE A TIME OF DAY
;;^DD(119.73,21,21,0)
;;=^^1^1^2880716^
;;^DD(119.73,21,21,1,0)
;;=This is the third delivery time for a late noon tray.
;;^DD(119.73,21,"DT")
;;=2850517
;;^DD(119.73,22,0)
;;=EARLY EVENING TIME 1^FX^^1;13^D TIM^FHSYSP
;;^DD(119.73,22,3)
;;=ANSWER MUST BE A TIME OF DAY
;;^DD(119.73,22,21,0)
;;=^^1^1^2880716^
;;^DD(119.73,22,21,1,0)
;;=This is the first delivery time for an early evening tray.
;;^DD(119.73,22,"DT")
;;=2850517
;;^DD(119.73,23,0)
;;=EARLY EVENING TIME 2^FX^^1;14^D TIM^FHSYSP
;;^DD(119.73,23,3)
;;=ANSWER MUST BE A TIME OF DAY
;;^DD(119.73,23,21,0)
;;=^^1^1^2880716^
;;^DD(119.73,23,21,1,0)
;;=This is the second delivery time for an early evening tray.
;;^DD(119.73,23,"DT")
;;=2850517
;;^DD(119.73,24,0)
;;=EARLY EVENING TIME 3^FX^^1;15^D TIM^FHSYSP
;;^DD(119.73,24,3)
;;=ANSWER MUST BE A TIME OF DAY
;;^DD(119.73,24,21,0)
;;=^^1^1^2880716^
;;^DD(119.73,24,21,1,0)
;;=This is the third delivery time for an early evening tray.
;;^DD(119.73,24,"DT")
;;=2850517
;;^DD(119.73,25,0)
;;=LATE EVENING TIME 1^FX^^1;16^D TIM^FHSYSP
;;^DD(119.73,25,3)
;;=ANSWER MUST BE A TIME OF DAY
;;^DD(119.73,25,21,0)
;;=^^1^1^2880716^
;;^DD(119.73,25,21,1,0)
;;=This is the first delivery time for a late evening tray.
;;^DD(119.73,25,"DT")
;;=2850517
;;^DD(119.73,26,0)
;;=LATE EVENING TIME 2^FX^^1;17^D TIM^FHSYSP
;;^DD(119.73,26,3)
;;=ANSWER MUST BE A TIME OF DAY
;;^DD(119.73,26,21,0)
;;=^^1^1^2880716^
;;^DD(119.73,26,21,1,0)
;;=This is the second delivery time for a late evening tray.
;;^DD(119.73,26,"DT")
;;=2850517
;;^DD(119.73,27,0)
;;=LATE EVENING TIME 3^FX^^1;18^D TIM^FHSYSP
;;^DD(119.73,27,3)
;;=ANSWER MUST BE A TIME OF DAY
;;^DD(119.73,27,21,0)
;;=^^1^1^2880716^
;;^DD(119.73,27,21,1,0)
;;=This is the third delivery time for a late evening tray.
;;^DD(119.73,27,"DT")
;;=2850517
;;^DD(119.73,28,0)
;;=LATE BREAKFAST ALARM BEGIN^FXO^^2;1^D TIM^FHSYSP I $D(X) D MIL^FHSYSP S X=X1
;;^DD(119.73,28,2)
;;=S Y(0)=Y D MIP^FHSYSP
;;^DD(119.73,28,2.1)
;;=D MIP^FHSYSP
;;^DD(119.73,28,3)
;;=ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
;;^DD(119.73,28,21,0)
;;=^^4^4^2880716^
;;^DD(119.73,28,21,1,0)
;;=This is the beginning of the late breakfast alarm period; that
;;^DD(119.73,28,21,2,0)
;;=is the time when persons entering diet orders will be reminded
;;^DD(119.73,28,21,3,0)
;;=that the normal cut-off time has passed and a late tray will
;;^DD(119.73,28,21,4,0)
;;=have to be ordered for breakfast if desired.
;;^DD(119.73,28,"DT")
;;=2871110
;;^DD(119.73,29,0)
;;=LATE BREAKFAST ALARM END^FXO^^2;2^D TIM^FHSYSP I $D(X) D MIL^FHSYSP S X=X1
;;^DD(119.73,29,2)
;;=S Y(0)=Y D MIP^FHSYSP
;;^DD(119.73,29,2.1)
;;=D MIP^FHSYSP
;;^DD(119.73,29,3)
;;=ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
;;^DD(119.73,29,21,0)
;;=^^3^3^2880718^^
;;^DD(119.73,29,21,1,0)
;;=This is the end of the breakfast alarm period. It should be
;;^DD(119.73,29,21,2,0)
;;=one or two minutes earlier than the last breakfast late tray delivery
;;^DD(119.73,29,21,3,0)
;;=time.
;;^DD(119.73,29,"DT")
;;=2871110
FHINI0MW ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(119.73)
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.73,15,"DT")
+2 ;;=2850517
+3 ;;^DD(119.73,16,0)
+4 ;;=EARLY NOON TIME 1^FX^^1;7^D TIM^FHSYSP
+5 ;;^DD(119.73,16,3)
+6 ;;=ANSWER MUST BE A TIME OF DAY
+7 ;;^DD(119.73,16,21,0)
+8 ;;=^^1^1^2880716^
+9 ;;^DD(119.73,16,21,1,0)
+10 ;;=This is the first delivery time for an early noon tray.
+11 ;;^DD(119.73,16,"DT")
+12 ;;=2850517
+13 ;;^DD(119.73,17,0)
+14 ;;=EARLY NOON TIME 2^FX^^1;8^D TIM^FHSYSP
+15 ;;^DD(119.73,17,3)
+16 ;;=ANSWER MUST BE A TIME OF DAY
+17 ;;^DD(119.73,17,21,0)
+18 ;;=^^1^1^2880716^
+19 ;;^DD(119.73,17,21,1,0)
+20 ;;=This is the second delivery time for an early noon tray.
+21 ;;^DD(119.73,17,"DT")
+22 ;;=2850517
+23 ;;^DD(119.73,18,0)
+24 ;;=EARLY NOON TIME 3^FX^^1;9^D TIM^FHSYSP
+25 ;;^DD(119.73,18,3)
+26 ;;=ANSWER MUST BE A TIME OF DAY
+27 ;;^DD(119.73,18,21,0)
+28 ;;=^^1^1^2880716^
+29 ;;^DD(119.73,18,21,1,0)
+30 ;;=This is the third delivery time for an early noon tray.
+31 ;;^DD(119.73,18,"DT")
+32 ;;=2850517
+33 ;;^DD(119.73,19,0)
+34 ;;=LATE NOON TIME 1^FX^^1;10^D TIM^FHSYSP
+35 ;;^DD(119.73,19,3)
+36 ;;=ANSWER MUST BE A TIME OF DAY
+37 ;;^DD(119.73,19,21,0)
+38 ;;=^^1^1^2880716^
+39 ;;^DD(119.73,19,21,1,0)
+40 ;;=This is the first delivery time for a late noon tray.
+41 ;;^DD(119.73,19,"DT")
+42 ;;=2850517
+43 ;;^DD(119.73,20,0)
+44 ;;=LATE NOON TIME 2^FX^^1;11^D TIM^FHSYSP
+45 ;;^DD(119.73,20,3)
+46 ;;=ANSWER MUST BE A TIME OF DAY
+47 ;;^DD(119.73,20,21,0)
+48 ;;=^^1^1^2880716^
+49 ;;^DD(119.73,20,21,1,0)
+50 ;;=This is the second delivery time for a late noon tray.
+51 ;;^DD(119.73,20,"DT")
+52 ;;=2850517
+53 ;;^DD(119.73,21,0)
+54 ;;=LATE NOON TIME 3^FX^^1;12^D TIM^FHSYSP
+55 ;;^DD(119.73,21,3)
+56 ;;=ANSWER MUST BE A TIME OF DAY
+57 ;;^DD(119.73,21,21,0)
+58 ;;=^^1^1^2880716^
+59 ;;^DD(119.73,21,21,1,0)
+60 ;;=This is the third delivery time for a late noon tray.
+61 ;;^DD(119.73,21,"DT")
+62 ;;=2850517
+63 ;;^DD(119.73,22,0)
+64 ;;=EARLY EVENING TIME 1^FX^^1;13^D TIM^FHSYSP
+65 ;;^DD(119.73,22,3)
+66 ;;=ANSWER MUST BE A TIME OF DAY
+67 ;;^DD(119.73,22,21,0)
+68 ;;=^^1^1^2880716^
+69 ;;^DD(119.73,22,21,1,0)
+70 ;;=This is the first delivery time for an early evening tray.
+71 ;;^DD(119.73,22,"DT")
+72 ;;=2850517
+73 ;;^DD(119.73,23,0)
+74 ;;=EARLY EVENING TIME 2^FX^^1;14^D TIM^FHSYSP
+75 ;;^DD(119.73,23,3)
+76 ;;=ANSWER MUST BE A TIME OF DAY
+77 ;;^DD(119.73,23,21,0)
+78 ;;=^^1^1^2880716^
+79 ;;^DD(119.73,23,21,1,0)
+80 ;;=This is the second delivery time for an early evening tray.
+81 ;;^DD(119.73,23,"DT")
+82 ;;=2850517
+83 ;;^DD(119.73,24,0)
+84 ;;=EARLY EVENING TIME 3^FX^^1;15^D TIM^FHSYSP
+85 ;;^DD(119.73,24,3)
+86 ;;=ANSWER MUST BE A TIME OF DAY
+87 ;;^DD(119.73,24,21,0)
+88 ;;=^^1^1^2880716^
+89 ;;^DD(119.73,24,21,1,0)
+90 ;;=This is the third delivery time for an early evening tray.
+91 ;;^DD(119.73,24,"DT")
+92 ;;=2850517
+93 ;;^DD(119.73,25,0)
+94 ;;=LATE EVENING TIME 1^FX^^1;16^D TIM^FHSYSP
+95 ;;^DD(119.73,25,3)
+96 ;;=ANSWER MUST BE A TIME OF DAY
+97 ;;^DD(119.73,25,21,0)
+98 ;;=^^1^1^2880716^
+99 ;;^DD(119.73,25,21,1,0)
+100 ;;=This is the first delivery time for a late evening tray.
+101 ;;^DD(119.73,25,"DT")
+102 ;;=2850517
+103 ;;^DD(119.73,26,0)
+104 ;;=LATE EVENING TIME 2^FX^^1;17^D TIM^FHSYSP
+105 ;;^DD(119.73,26,3)
+106 ;;=ANSWER MUST BE A TIME OF DAY
+107 ;;^DD(119.73,26,21,0)
+108 ;;=^^1^1^2880716^
+109 ;;^DD(119.73,26,21,1,0)
+110 ;;=This is the second delivery time for a late evening tray.
+111 ;;^DD(119.73,26,"DT")
+112 ;;=2850517
+113 ;;^DD(119.73,27,0)
+114 ;;=LATE EVENING TIME 3^FX^^1;18^D TIM^FHSYSP
+115 ;;^DD(119.73,27,3)
+116 ;;=ANSWER MUST BE A TIME OF DAY
+117 ;;^DD(119.73,27,21,0)
+118 ;;=^^1^1^2880716^
+119 ;;^DD(119.73,27,21,1,0)
+120 ;;=This is the third delivery time for a late evening tray.
+121 ;;^DD(119.73,27,"DT")
+122 ;;=2850517
+123 ;;^DD(119.73,28,0)
+124 ;;=LATE BREAKFAST ALARM BEGIN^FXO^^2;1^D TIM^FHSYSP I $D(X) D MIL^FHSYSP S X=X1
+125 ;;^DD(119.73,28,2)
+126 ;;=S Y(0)=Y D MIP^FHSYSP
+127 ;;^DD(119.73,28,2.1)
+128 ;;=D MIP^FHSYSP
+129 ;;^DD(119.73,28,3)
+130 ;;=ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
+131 ;;^DD(119.73,28,21,0)
+132 ;;=^^4^4^2880716^
+133 ;;^DD(119.73,28,21,1,0)
+134 ;;=This is the beginning of the late breakfast alarm period; that
+135 ;;^DD(119.73,28,21,2,0)
+136 ;;=is the time when persons entering diet orders will be reminded
+137 ;;^DD(119.73,28,21,3,0)
+138 ;;=that the normal cut-off time has passed and a late tray will
+139 ;;^DD(119.73,28,21,4,0)
+140 ;;=have to be ordered for breakfast if desired.
+141 ;;^DD(119.73,28,"DT")
+142 ;;=2871110
+143 ;;^DD(119.73,29,0)
+144 ;;=LATE BREAKFAST ALARM END^FXO^^2;2^D TIM^FHSYSP I $D(X) D MIL^FHSYSP S X=X1
+145 ;;^DD(119.73,29,2)
+146 ;;=S Y(0)=Y D MIP^FHSYSP
+147 ;;^DD(119.73,29,2.1)
+148 ;;=D MIP^FHSYSP
+149 ;;^DD(119.73,29,3)
+150 ;;=ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
+151 ;;^DD(119.73,29,21,0)
+152 ;;=^^3^3^2880718^^
+153 ;;^DD(119.73,29,21,1,0)
+154 ;;=This is the end of the breakfast alarm period. It should be
+155 ;;^DD(119.73,29,21,2,0)
+156 ;;=one or two minutes earlier than the last breakfast late tray delivery
+157 ;;^DD(119.73,29,21,3,0)
+158 ;;=time.
+159 ;;^DD(119.73,29,"DT")
+160 ;;=2871110
