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

FHINI0KH.m

Go to the documentation of this file. 
  1. FHINI0KH	; ; 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.01,2.1,21,1,0)
  1. 	;;=This field contains the most recent type of service (tray,
  1. 	;;^DD(115.01,2.1,21,2,0)
  1. 	;;=cafeteria or dining room) selected for the patient. It is
  1. 	;;^DD(115.01,2.1,21,3,0)
  1. 	;;=used as a default for future orders.
  1. 	;;^DD(115.01,2.1,"DT")
  1. 	;;=2880515
  1. 	;;^DD(115.01,3,0)
  1. 	;;=DIET^115.02A^^DI;0
  1. 	;;^DD(115.01,3,21,0)
  1. 	;;=^^2^2^2911223^^^^
  1. 	;;^DD(115.01,3,21,1,0)
  1. 	;;=This multiple contains the individual diet orders which have
  1. 	;;^DD(115.01,3,21,2,0)
  1. 	;;=been entered during this admission.
  1. 	;;^DD(115.01,4,0)
  1. 	;;=DIET SEQUENCE^115.14DA^^AC;0
  1. 	;;^DD(115.01,4,21,0)
  1. 	;;=^^5^5^2911223^^^
  1. 	;;^DD(115.01,4,21,1,0)
  1. 	;;=This multiple indicates the sequence in which the diet orders
  1. 	;;^DD(115.01,4,21,2,0)
  1. 	;;=actually become effective. Since orders entered later supercede
  1. 	;;^DD(115.01,4,21,3,0)
  1. 	;;=earlier orders, the sequence times may not be the same as those
  1. 	;;^DD(115.01,4,21,4,0)
  1. 	;;=of the original order. This multiple is the outcome of a
  1. 	;;^DD(115.01,4,21,5,0)
  1. 	;;=recursive templating schemata.
  1. 	;;^DD(115.01,6,0)
  1. 	;;=CURRENT SF ORDER^NJ4,0I^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  1. 	;;^DD(115.01,6,3)
  1. 	;;=Type a Number between 0 and 9999, 0 Decimal Digits
  1. 	;;^DD(115.01,6,21,0)
  1. 	;;=^^4^4^2880710^
  1. 	;;^DD(115.01,6,21,1,0)
  1. 	;;=This field is actually a pointer to the Supplemental Feeding
  1. 	;;^DD(115.01,6,21,2,0)
  1. 	;;=multiple (Field 20) and, if present, indicates which order
  1. 	;;^DD(115.01,6,21,3,0)
  1. 	;;=is presently in effect. It is updated any time any diet
  1. 	;;^DD(115.01,6,21,4,0)
  1. 	;;=activity involving supplemental feedings takes place.
  1. 	;;^DD(115.01,6,"DT")
  1. 	;;=2880515
  1. 	;;^DD(115.01,9,0)
  1. 	;;=ISOLATION/PRECAUTION^P119.4'^FH(119.4,^0;10^Q
  1. 	;;^DD(115.01,9,1,0)
  1. 	;;=^.1
  1. 	;;^DD(115.01,9,1,1,0)
  1. 	;;=115^AIS^MUMPS
  1. 	;;^DD(115.01,9,1,1,1)
  1. 	;;=S ^FHPT("AIS",DA(1),DA)=""
  1. 	;;^DD(115.01,9,1,1,2)
  1. 	;;=K ^FHPT("AIS",DA(1),DA)
  1. 	;;^DD(115.01,9,1,1,"%D",0)
  1. 	;;=^^1^1^2940824^
  1. 	;;^DD(115.01,9,1,1,"%D",1,0)
  1. 	;;=This cross-reference is a list of patients on isolation/precautions.
  1. 	;;^DD(115.01,9,3)
  1. 	;;=
  1. 	;;^DD(115.01,9,21,0)
  1. 	;;=^^2^2^2880710^
  1. 	;;^DD(115.01,9,21,1,0)
  1. 	;;=This field, if present, indicates that the patient is presently
  1. 	;;^DD(115.01,9,21,2,0)
  1. 	;;=on isolation or special precautions.
  1. 	;;^DD(115.01,9,"DT")
  1. 	;;=2871010
  1. 	;;^DD(115.01,10,0)
  1. 	;;=OE/RR ISOLATION ORDER^P100^OR(100,^0;13^Q
  1. 	;;^DD(115.01,10,21,0)
  1. 	;;=^^2^2^2890919^
  1. 	;;^DD(115.01,10,21,1,0)
  1. 	;;=This field contains the OE/RR file order pointer corresponding
  1. 	;;^DD(115.01,10,21,2,0)
  1. 	;;=to the current Isolation/Precautions.
  1. 	;;^DD(115.01,10,"DT")
  1. 	;;=2890919
  1. 	;;^DD(115.01,11,0)
  1. 	;;=LAST LABEL WARD^P119.6'I^FH(119.6,^0;11^Q
  1. 	;;^DD(115.01,11,3)
  1. 	;;=
  1. 	;;^DD(115.01,11,21,0)
  1. 	;;=^^4^4^2930121^^
  1. 	;;^DD(115.01,11,21,1,0)
  1. 	;;=This field contains the internal number of the ward (from File 42)
  1. 	;;^DD(115.01,11,21,2,0)
  1. 	;;=for which the last diet card label was prepared. Whenever a
  1. 	;;^DD(115.01,11,21,3,0)
  1. 	;;=label run is made, this field is compared with the current ward
  1. 	;;^DD(115.01,11,21,4,0)
  1. 	;;=and, if different, a new label is prepared.
  1. 	;;^DD(115.01,11,"DT")
  1. 	;;=2860702
  1. 	;;^DD(115.01,12,0)
  1. 	;;=LAST LABEL ROOM^FI^^0;12^K:$L(X)>10!($L(X)<1) X
  1. 	;;^DD(115.01,12,3)
  1. 	;;=ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  1. 	;;^DD(115.01,12,21,0)
  1. 	;;=^^4^4^2880710^
  1. 	;;^DD(115.01,12,21,1,0)
  1. 	;;=This field contains the room-bed for which the last diet card
  1. 	;;^DD(115.01,12,21,2,0)
  1. 	;;=label was prepared. Whenever a label run is made, this field
  1. 	;;^DD(115.01,12,21,3,0)
  1. 	;;=is compared with the current room-bed and, if different, a new
  1. 	;;^DD(115.01,12,21,4,0)
  1. 	;;=label is prepared.
  1. 	;;^DD(115.01,12,"DT")
  1. 	;;=2850826
  1. 	;;^DD(115.01,13,0)
  1. 	;;=DIETETIC WARD^P119.6'^FH(119.6,^0;8^Q
  1. 	;;^DD(115.01,13,1,0)
  1. 	;;=^.1
  1. 	;;^DD(115.01,13,1,1,0)
  1. 	;;=115^AW^MUMPS
  1. 	;;^DD(115.01,13,1,1,1)
  1. 	;;=S ^FHPT("AW",X,DA(1))=DA
  1. 	;;^DD(115.01,13,1,1,2)
  1. 	;;=K ^FHPT("AW",X,DA(1))
  1. 	;;^DD(115.01,13,1,1,"%D",0)
  1. 	;;=^^2^2^2940824^
  1. 	;;^DD(115.01,13,1,1,"%D",1,0)
  1. 	;;=This is a cross-reference of Dietetic Ward by Patient. The
  1. 	;;^DD(115.01,13,1,1,"%D",2,0)
  1. 	;;=cross-reference is set to the admission number.
  1. 	;;^DD(115.01,13,1,1,"DT")
  1. 	;;=2930408
  1. 	;;^DD(115.01,13,21,0)
  1. 	;;=^^2^2^2911204^
  1. 	;;^DD(115.01,13,21,1,0)
  1. 	;;=This field indicates the Dietetic Ward on which the patient is currently
  1. 	;;^DD(115.01,13,21,2,0)
  1. 	;;=residing.
  1. 	;;^DD(115.01,13,"DT")
  1. 	;;=2930408
  1. 	;;^DD(115.01,14,0)
  1. 	;;=ROOM-BED^P405.4'^DG(405.4,^0;9^Q
  1. 	;;^DD(115.01,14,21,0)
  1. 	;;=^^2^2^2911204^
  1. 	;;^DD(115.01,14,21,1,0)
  1. 	;;=This field contains the free-text room-bed in which the patient is
  1. 	;;^DD(115.01,14,21,2,0)
  1. 	;;=currently residing.
  1. 	;;^DD(115.01,14,"DT")
  1. 	;;=2911023