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

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^FH(118.2

Package: Dietetics

Global: ^FH(118.2

Information

FileMan FileNo	FileMan Filename	Package
118.2	TUBEFEEDING	Dietetics

Description

This file contains the products commonly used for tube-feedings as well as their characteristics such as Kcals/ml, cost, and synonyms.

Directly Accessed By Routines, Total: 39

Package	Total	Routines
Dietetics	39	FHORT5C ^FH(118.2 DRUG CLASSIFICATIONS FH55P5 FHASM1 FHASMR1 FHASMR2 FHASP2 FHASXR1 FHCTF4 FHDMP4 FHOMPP1 FHOMRMD FHOMRR1 FHOMRT1 FHOMUTL FHORD2 FHORD6 FHORD81 FHORD82 FHORT1 FHORT10 FHORT2 FHORT3 FHORT5A FHORT5D FHORTR FHORX1C FHORX3 FHWHEA FHWOR5 FHWOR51 FHWOR5R FHWOR6 FHWOR71 FHWORI FHXDB FHXDB2 SYNONYM

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Dietetics	3	FHORT10 FHORT3 FHORTR

Pointed To By FileMan Files, Total: 2

Package	Total	FileMan Files
DSS Extracts	1	DSS NUTRITION PRODUCT WORKSHEET(#728.45)[#728.451(.01)]
Dietetics	1	NUTRITION PERSON(#115)[#115.031(.01), #115.1(.01), #115.1619(.01)]

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
Dietetics	1	RECIPE(#114)[11]

Fields, Total: 8

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `JAN 16, 1992` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is the name of the tubefeeding product as it will appear on all lists and displays.` DELETE TEST: `1,0)= I 1 D EN^DDIOL("Cannot delete. Inactivate instead.","","?3")` CROSS-REFERENCE: `118.2^B` `1)= S ^FH(118.2,"B",$E(X,1,30),DA)=""` `2)= K ^FH(118.2,"B",$E(X,1,30),DA)` `This is the normal B cross-reference of the NAME field.`
1	DISPENSING UNIT	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-10 CHARACTERS IN LENGTH` DESCRIPTION: `This field contains a title for the dispensing unit such as bottle, can or package.`
2	AMT/UNIT	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X[" " X=+X_$P(X," ",2) S:"MG"[$E(X,$L(+X)+1) X=+X_$E(X,$L(+X)+1) S:X["M" X=+X_"ML" K:($L(+X)>10)!($L(X)<1)!(+X>9999)!(+X<0)!("MLG"'[$E(X,$L(X))) X` LAST EDITED: `JUL 27, 2006` HELP-PROMPT: `Enter amount in ML's or in Grams. Amount cannot exceed 9999. The following are examples of valid entries 22ML, 40GRAMS, 20 G, or 100 M.` DESCRIPTION: `This is the number of ml's or grams of product contained in the dispensing unit. For products which require reconstitution with water, it is the number of ml's after reconstitution.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3	KCAL/ML	0;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<.1)!(X?.E1"."3N.N) X` LAST EDITED: `APR 22, 2005` HELP-PROMPT: `Type a Number between .1 and 1000, 2 Decimal Digits` DESCRIPTION: `This field contains the number of KiloCalories per ml of product.`
5	COST		COMPUTED	MUMPS CODE: `X ^DD(118.2,5,9.2) S X=$P(Y(118.2,5,101),U,13) S D0=Y(118.2,5,80) S X=$J(X,0,2)` `9.2 = S Y(118.2,5,80)=$S($D(D0):D0,1:""),Y(118.2,5,1)=$S($D(^FH(118.2,D0,0)):^(0),1:""),D0=$P(Y(118.2,5,1),U,7) S:'$D(^FH(114,+D0,0)) D0=-1 S Y(118.2,5,101)=$S($D(^FH(114,D0,0)):^(0),1:"")` ALGORITHM: `CORRESPONDING RECIPE:COST/PORTION (ALWAYS 2 DECIMAL DIGITS)` LAST EDITED: `SEP 28, 1985` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 100` DESCRIPTION: `This is the portion cost of the tubefeeding and is a computed field which obtains the value from the recipe file based upon the 'Corresponding Recipe' pointer.`
10	SYNONYM	1;0	Multiple #118.21	118.21 DESCRIPTION: `This multiple contains alternate names or synonyms for the product. These names should include any names commonly known or used by ward/medical personnel.`
11	CORRESPONDING RECIPE	0;7	POINTER TO RECIPE FILE (#114)	RECIPE(#114) LAST EDITED: `SEP 29, 1990` DESCRIPTION: `This field is a pointer to the recipe in file 114 (the Recipe file) which contains the ingredients for this feeding. Cost and other data for this feeding will be retrieved from the recipe file.`
99	INACTIVE?	I;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `AUG 13, 1986` DESCRIPTION: `This field, if answered YES, prohibits further selection of this item by ward or dietetic personnel.` CROSS-REFERENCE: `118.2^AC^MUMPS` `1)= K:X'="Y" ^FH(118.2,DA,"I")` `2)= K ^FH(118.2,DA,"I")` `This cross-reference is used to create an 'I' node for inactive entries.`

Found Entries, Total: 8

NAME: ENSURE PLUS

NAME: OSMOLITE HN

NAME: CRITICARE HN

NAME: TRAUMACAL

NAME: HEPATIC AID

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #4878	DSS - DECISION SUPPORT SYSTEM EXTRACTS	NAME (.01). Access: Pointed to

External References

Name	Field # of Occurrence
EN^DDIOL	IDWRITE+1, .01DEL1+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(118.2	5+1
^FH(114 - [#114]	5OF9.2+1
^FH(118.2 - [#118.2]	.01(XREF 1S), .01(XREF 1K), 5OF9.2+1, 99(XREF 1S), 99(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^("I"	IDWRITE+1
^(0	5OF9.2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	5+1, 5OF9.2+1
>> DA	.01(XREF 1S), .01(XREF 1K), 99(XREF 1S), 99(XREF 1K)
U	5+1, 5OF9.2+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 2+1!, 3+1!, 5+1, 99(XREF 1S)
>> Y(	5+1, 5OF9.2+1*

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All