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

FHINI0MN.m

Go to the documentation of this file. 
  1. FHINI0MN	; ; 11-OCT-1995
  1. 	;;5.0;Dietetics;;Oct 11, 1995
  1. 	Q:'DIFQ(119.6)  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(119.6,16,"DT")
  1. 	;;=2880904
  1. 	;;^DD(119.6,20,0)
  1. 	;;=BULK NOURISHMENTS^119.61P^^BN;0
  1. 	;;^DD(119.6,20,21,0)
  1. 	;;=^^2^2^2911204^^
  1. 	;;^DD(119.6,20,21,1,0)
  1. 	;;=This multiple represents bulk nourishments (supplemental feedings)
  1. 	;;^DD(119.6,20,21,2,0)
  1. 	;;=delivered to this ward.
  1. 	;;^DD(119.6,21,0)
  1. 	;;=# DAYS TO REVIEW NPO^NJ1,0^^0;11^K:+X'=X!(X>7)!(X<1)!(X?.E1"."1N.N) X
  1. 	;;^DD(119.6,21,3)
  1. 	;;=Type a Number between 1 and 7, 0 Decimal Digits
  1. 	;;^DD(119.6,21,21,0)
  1. 	;;=^^2^2^2911204^
  1. 	;;^DD(119.6,21,21,1,0)
  1. 	;;=This field indicates the number of days following an NPO order after
  1. 	;;^DD(119.6,21,21,2,0)
  1. 	;;=which the patient should be reviewed.
  1. 	;;^DD(119.6,21,"DT")
  1. 	;;=2910430
  1. 	;;^DD(119.6,22,0)
  1. 	;;=# DAYS TO REVIEW TF^NJ2,0^^0;12^K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X
  1. 	;;^DD(119.6,22,3)
  1. 	;;=Type a Number between 1 and 30, 0 Decimal Digits
  1. 	;;^DD(119.6,22,21,0)
  1. 	;;=^^2^2^2911204^
  1. 	;;^DD(119.6,22,21,1,0)
  1. 	;;=This field indicates the number of days following a Tubefeeding order
  1. 	;;^DD(119.6,22,21,2,0)
  1. 	;;=after which the patient should be reviewed.
  1. 	;;^DD(119.6,22,"DT")
  1. 	;;=2910430
  1. 	;;^DD(119.6,23,0)
  1. 	;;=# DAYS TO REVIEW SF^NJ2,0^^0;13^K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X
  1. 	;;^DD(119.6,23,3)
  1. 	;;=Type a Number between 1 and 30, 0 Decimal Digits
  1. 	;;^DD(119.6,23,21,0)
  1. 	;;=^^2^2^2911204^
  1. 	;;^DD(119.6,23,21,1,0)
  1. 	;;=This field indicates the number of days following a Supplemental Feeding
  1. 	;;^DD(119.6,23,21,2,0)
  1. 	;;=order after which the patient should be reviewed.
  1. 	;;^DD(119.6,23,"DT")
  1. 	;;=2910430
  1. 	;;^DD(119.6,24,0)
  1. 	;;=# DAYS FOR STATUS AFTER ADMIT^NJ2,0^^0;14^K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X
  1. 	;;^DD(119.6,24,3)
  1. 	;;=Type a Number between 1 and 30, 0 Decimal Digits
  1. 	;;^DD(119.6,24,21,0)
  1. 	;;=^^2^2^2911204^
  1. 	;;^DD(119.6,24,21,1,0)
  1. 	;;=This field indicates the number of days following admission after which
  1. 	;;^DD(119.6,24,21,2,0)
  1. 	;;=a Nutrition Status evaluation should have been performed.
  1. 	;;^DD(119.6,24,"DT")
  1. 	;;=2910517
  1. 	;;^DD(119.6,25,0)
  1. 	;;=# DAYS TO REVIEW STATUS I^NJ3,0^^0;20^K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
  1. 	;;^DD(119.6,25,3)
  1. 	;;=Type a Number between 1 and 120, 0 Decimal Digits
  1. 	;;^DD(119.6,25,21,0)
  1. 	;;=^^2^2^2920106^^
  1. 	;;^DD(119.6,25,21,1,0)
  1. 	;;=This is the number of days after which a patient in this Nutrition
  1. 	;;^DD(119.6,25,21,2,0)
  1. 	;;=Status category should be reviewed.
  1. 	;;^DD(119.6,25,"DT")
  1. 	;;=2930222
  1. 	;;^DD(119.6,26,0)
  1. 	;;=# DAYS TO REVIEW STATUS II^NJ3,0^^0;21^K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
  1. 	;;^DD(119.6,26,3)
  1. 	;;=Type a Number between 1 and 120, 0 Decimal Digits
  1. 	;;^DD(119.6,26,21,0)
  1. 	;;=^^2^2^2920106^^
  1. 	;;^DD(119.6,26,21,1,0)
  1. 	;;=This is the number of days after which a patient in this Nutrition
  1. 	;;^DD(119.6,26,21,2,0)
  1. 	;;=Status category should be reviewed.
  1. 	;;^DD(119.6,26,"DT")
  1. 	;;=2930222
  1. 	;;^DD(119.6,27,0)
  1. 	;;=# DAYS TO REVIEW STATUS III^NJ3,0^^0;22^K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
  1. 	;;^DD(119.6,27,3)
  1. 	;;=Type a Number between 1 and 120, 0 Decimal Digits
  1. 	;;^DD(119.6,27,21,0)
  1. 	;;=^^2^2^2920106^^
  1. 	;;^DD(119.6,27,21,1,0)
  1. 	;;=This is the number of days after which a patient in this Nutrition
  1. 	;;^DD(119.6,27,21,2,0)
  1. 	;;=Status category should be reviewed.
  1. 	;;^DD(119.6,27,"DT")
  1. 	;;=2930222
  1. 	;;^DD(119.6,28,0)
  1. 	;;=# DAYS TO REVIEW STATUS IV^NJ3,0^^0;23^K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
  1. 	;;^DD(119.6,28,3)
  1. 	;;=Type a Number between 1 and 120, 0 Decimal Digits
  1. 	;;^DD(119.6,28,21,0)
  1. 	;;=^^2^2^2920106^^
  1. 	;;^DD(119.6,28,21,1,0)
  1. 	;;=This is the number of days after which a patient in this Nutrition
  1. 	;;^DD(119.6,28,21,2,0)
  1. 	;;=Status category should be reviewed.
  1. 	;;^DD(119.6,28,"DT")
  1. 	;;=2930222
  1. 	;;^DD(119.6,29,0)
  1. 	;;=CAFETERIA ON TRAY TICKET^S^Y:YES;N:NO;^0;24^Q
  1. 	;;^DD(119.6,29,21,0)
  1. 	;;=^^2^2^2940413^
  1. 	;;^DD(119.6,29,21,1,0)
  1. 	;;=This field is optional and it is used to indicate whether patients
  1. 	;;^DD(119.6,29,21,2,0)
  1. 	;;=that go to the cafeteria should be included on the tray ticket.
  1. 	;;^DD(119.6,29,"DT")
  1. 	;;=2940413
  1. 	;;^DD(119.6,101,0)
  1. 	;;=SERVICES^F^^0;10^K:$L(X)>3!($L(X)<1) X
  1. 	;;^DD(119.6,101,3)
  1. 	;;=Answer must be 1-3 characters in length.
  1. 	;;^DD(119.6,101,21,0)
  1. 	;;=^^2^2^2940413^^
  1. 	;;^DD(119.6,101,21,1,0)
  1. 	;;=This field contains one or more of the characters T, C or D indicating
  1. 	;;^DD(119.6,101,21,2,0)
  1. 	;;=tray service, cafeteria service, and/or dining room service is available.
  1. 	;;^DD(119.6,101,"DT")
  1. 	;;=2911031
  1. 	;;^DD(119.61,0)
  1. 	;;=BULK NOURISHMENTS SUB-FIELD^NL^1^2
  1. 	;;^DD(119.61,0,"NM","BULK NOURISHMENTS")
  1. 	;;=
  1. 	;;^DD(119.61,0,"UP")
  1. 	;;=119.6
  1. 	;;^DD(119.61,.01,0)
  1. 	;;=BULK NOURISHMENTS^MP118'^FH(118,^0;1^Q
  1. 	;;^DD(119.61,.01,21,0)
  1. 	;;=^^2^2^2880717^
  1. 	;;^DD(119.61,.01,21,1,0)
  1. 	;;=This field contains the name of the bulk nourishment (supplemental