Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FHINI0KQ

FHINI0KQ.m

Go to the documentation of this file. 
  1. FHINI0KQ	; ; 11-OCT-1995
  1. 	;;5.0;Dietetics;;Oct 11, 1995
  1. 	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
  1. Q	Q
  1. 	;;^DD(115.05,1,21,1,0)
  1. 	;;=This field indicates for which meal the early or late tray is ordered.
  1. 	;;^DD(115.05,1,"DT")
  1. 	;;=2850608
  1. 	;;^DD(115.05,2,0)
  1. 	;;=TIME^F^^0;3^K:$L(X)>10!($L(X)<1) X
  1. 	;;^DD(115.05,2,3)
  1. 	;;=ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  1. 	;;^DD(115.05,2,21,0)
  1. 	;;=^^2^2^2930428^^^^
  1. 	;;^DD(115.05,2,21,1,0)
  1. 	;;=This field contains a printable time for which the meal is to
  1. 	;;^DD(115.05,2,21,2,0)
  1. 	;;=delivered.
  1. 	;;^DD(115.05,2,"DT")
  1. 	;;=2850525
  1. 	;;^DD(115.05,3,0)
  1. 	;;=BAGGED MEAL?^S^Y:YES;N:NO;^0;4^Q
  1. 	;;^DD(115.05,3,21,0)
  1. 	;;=^^1^1^2880710^
  1. 	;;^DD(115.05,3,21,1,0)
  1. 	;;=If answered YES, this field indicates that a bagged meal is desired.
  1. 	;;^DD(115.05,3,"DT")
  1. 	;;=2850526
  1. 	;;^DD(115.05,4,0)
  1. 	;;=CLERK^RP200'^VA(200,^0;5^Q
  1. 	;;^DD(115.05,4,21,0)
  1. 	;;=^^2^2^2880710^
  1. 	;;^DD(115.05,4,21,1,0)
  1. 	;;=This field is automatically updated with the user entering
  1. 	;;^DD(115.05,4,21,2,0)
  1. 	;;=the order.
  1. 	;;^DD(115.05,4,"DT")
  1. 	;;=2850526
  1. 	;;^DD(115.05,5,0)
  1. 	;;=ENTRY DATE/TIME^RD^^0;6^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(115.05,5,21,0)
  1. 	;;=^^2^2^2910506^^
  1. 	;;^DD(115.05,5,21,1,0)
  1. 	;;=This field contains the date/time the order was actually
  1. 	;;^DD(115.05,5,21,2,0)
  1. 	;;=entered.
  1. 	;;^DD(115.05,5,"DT")
  1. 	;;=2850526
  1. 	;;^DD(115.05,6,0)
  1. 	;;=OE/RR ORDER^P100^OR(100,^0;7^Q
  1. 	;;^DD(115.05,6,21,0)
  1. 	;;=^^2^2^2890918^
  1. 	;;^DD(115.05,6,21,1,0)
  1. 	;;=This field contains a pointer to the OE/RR file order corresponding
  1. 	;;^DD(115.05,6,21,2,0)
  1. 	;;=to this order.
  1. 	;;^DD(115.05,6,"DT")
  1. 	;;=2890918
  1. 	;;^DD(115.06,0)
  1. 	;;=ADDITIONAL ORDERS SUB-FIELD^NL^7^8
  1. 	;;^DD(115.06,0,"NM","ADDITIONAL ORDERS")
  1. 	;;=
  1. 	;;^DD(115.06,0,"UP")
  1. 	;;=115.01
  1. 	;;^DD(115.06,.01,0)
  1. 	;;=ORDER NUMBER^RNJ5,0X^^0;1^K:'X!(X'?1N.N) X I $D(X) S DINUM=X
  1. 	;;^DD(115.06,.01,3)
  1. 	;;=TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
  1. 	;;^DD(115.06,.01,21,0)
  1. 	;;=^^2^2^2880710^
  1. 	;;^DD(115.06,.01,21,1,0)
  1. 	;;=This field is merely the sequence number of the Additional
  1. 	;;^DD(115.06,.01,21,2,0)
  1. 	;;=Orders entered and has no meaning beyond that.
  1. 	;;^DD(115.06,.01,"DT")
  1. 	;;=2851126
  1. 	;;^DD(115.06,1,0)
  1. 	;;=DATE/TIME ENTERED^RD^^0;2^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(115.06,1,1,0)
  1. 	;;=^.1^^0
  1. 	;;^DD(115.06,1,21,0)
  1. 	;;=^^1^1^2880710^
  1. 	;;^DD(115.06,1,21,1,0)
  1. 	;;=This is the date/time the Additional Order was entered.
  1. 	;;^DD(115.06,1,"DT")
  1. 	;;=2851126
  1. 	;;^DD(115.06,2,0)
  1. 	;;=ORDER^F^^0;3^K:$L(X)>60!($L(X)<1) X
  1. 	;;^DD(115.06,2,3)
  1. 	;;=ANSWER MUST BE 1-60 CHARACTERS IN LENGTH
  1. 	;;^DD(115.06,2,21,0)
  1. 	;;=^^1^1^2880710^
  1. 	;;^DD(115.06,2,21,1,0)
  1. 	;;=This is the text of the order.
  1. 	;;^DD(115.06,2,"DT")
  1. 	;;=2851126
  1. 	;;^DD(115.06,3,0)
  1. 	;;=CLERK^RP200'^VA(200,^0;4^Q
  1. 	;;^DD(115.06,3,21,0)
  1. 	;;=^^2^2^2880710^
  1. 	;;^DD(115.06,3,21,1,0)
  1. 	;;=This is the clerk entering the order and is automatically
  1. 	;;^DD(115.06,3,21,2,0)
  1. 	;;=captured at time of entry.
  1. 	;;^DD(115.06,3,"DT")
  1. 	;;=2851126
  1. 	;;^DD(115.06,4,0)
  1. 	;;=STATUS^RS^A:ACTIVE;C:COMPLETE;S:SAVED;X:CANCELLED;^0;5^Q
  1. 	;;^DD(115.06,4,1,0)
  1. 	;;=^.1
  1. 	;;^DD(115.06,4,1,1,0)
  1. 	;;=115^AOO^MUMPS
  1. 	;;^DD(115.06,4,1,1,1)
  1. 	;;=S:X="A" ^FHPT("AOO",DA(2),DA(1),DA)="" K:X'="A" ^FHPT("AOO",DA(2),DA(1),DA)
  1. 	;;^DD(115.06,4,1,1,2)
  1. 	;;=K ^FHPT("AOO",DA(2),DA(1),DA)
  1. 	;;^DD(115.06,4,1,1,"%D",0)
  1. 	;;=^^1^1^2940824^
  1. 	;;^DD(115.06,4,1,1,"%D",1,0)
  1. 	;;=This cross-reference is a list of active orders only.
  1. 	;;^DD(115.06,4,21,0)
  1. 	;;=^^3^3^2920319^^^^
  1. 	;;^DD(115.06,4,21,1,0)
  1. 	;;=This is the status of the order. A saved order is one that has
  1. 	;;^DD(115.06,4,21,2,0)
  1. 	;;=been responded to but continues to display as it may require
  1. 	;;^DD(115.06,4,21,3,0)
  1. 	;;=further or on-going action.
  1. 	;;^DD(115.06,4,"DT")
  1. 	;;=2890514
  1. 	;;^DD(115.06,5,0)
  1. 	;;=DATE/TIME CLEARED^D^^0;6^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(115.06,5,21,0)
  1. 	;;=^^1^1^2880718^^
  1. 	;;^DD(115.06,5,21,1,0)
  1. 	;;=This is the date/time that the order was completed or saved.
  1. 	;;^DD(115.06,5,"DT")
  1. 	;;=2851126
  1. 	;;^DD(115.06,6,0)
  1. 	;;=CLERK CLEARING^P200'^VA(200,^0;7^Q
  1. 	;;^DD(115.06,6,21,0)
  1. 	;;=^^2^2^2880710^
  1. 	;;^DD(115.06,6,21,1,0)
  1. 	;;=This is the dietetic person clearing the order and is
  1. 	;;^DD(115.06,6,21,2,0)
  1. 	;;=automatically captured at time of entry.
  1. 	;;^DD(115.06,6,"DT")
  1. 	;;=2851126
  1. 	;;^DD(115.06,7,0)
  1. 	;;=OE/RR ORDER^P100^OR(100,^0;8^Q
  1. 	;;^DD(115.06,7,21,0)
  1. 	;;=^^2^2^2890918^
  1. 	;;^DD(115.06,7,21,1,0)
  1. 	;;=This field contains a pointer to the OE/RR file order corresponding
  1. 	;;^DD(115.06,7,21,2,0)
  1. 	;;=to this order.
  1. 	;;^DD(115.06,7,"DT")
  1. 	;;=2890918
  1. 	;;^DD(115.07,0)
  1. 	;;=SUPPLEMENTAL FEEDING SUB-FIELD^^44^34
  1. 	;;^DD(115.07,0,"DT")
  1. 	;;=2940722
  1. 	;;^DD(115.07,0,"NM","SUPPLEMENTAL FEEDING")
  1. 	;;=
  1. 	;;^DD(115.07,0,"UP")
  1. 	;;=115.01
  1. 	;;^DD(115.07,.01,0)
  1. 	;;=SUPPLEMENTAL FEEDING^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X