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 | All

Print Page as PDF

Global: ^APCDTHFD

Package: Patient Care Component

Global: ^APCDTHFD

Information

FileMan FileNo	FileMan Filename	Package
9001005.9	TEMP HEALTH FACTORS FOR DISTRIBUTION	Patient Care Component

Description

Used to distribute the additions and modifications to the health factor table.

Directly Accessed By Routines, Total: 4

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 1

Fields, Total: 19

Field #	Name	Loc	Type	Details
.01	FACTOR	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `JUL 17, 1996` HELP-PROMPT: `Answer must be 3-40 characters in length.` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9001005.9^B` 1)= S:'$P(^APCDTHFD(DA,0),"^",15) ^APCDTHFD("B",$E(X,1,40),DA)="" 2)= K ^APCDTHFD("B",$E(X,1,40),DA)
.02	CODE	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4) X` LAST EDITED: `MAY 20, 2004` HELP-PROMPT: `Answer must be 4 characters in length.` CROSS-REFERENCE: `9001005.9^C` 1)= S ^APCDTHFD("C",$E(X,1,30),DA)="" 2)= K ^APCDTHFD("C",$E(X,1,30),DA)
.03	CATEGORY	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `SEP 23, 2009` HELP-PROMPT: `Answer must be 1-50 characters in length.` CROSS-REFERENCE: `9001005.9^AC` 1)= S ^APCDTHFD("AC",$E(X,1,30),DA)="" 2)= K ^APCDTHFD("AC",$E(X,1,30),DA)
.04	SHORT NAME	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` LAST EDITED: `JUL 01, 1991` HELP-PROMPT: `Answer must be 2-10 characters in length.`
.05	USE ONLY WITH SEX	0;5	SET	'F' FOR FEMALE; 'M' FOR MALE; LAST EDITED: `JUL 01, 1991`
.06	LOWER AGE	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 01, 1991` HELP-PROMPT: `Type a Number between 0 and 99999, 0 Decimal Digits`
.07	UPPER AGE	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 01, 1991` HELP-PROMPT: `Type a Number between 0 and 99999, 0 Decimal Digits`
.08	DISPLAY ON HEALTH SUMMARY	0;8	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUL 01, 1991`
.09	SYNONYM	0;9	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X` LAST EDITED: `JUL 01, 1991` HELP-PROMPT: `Answer must be 2-30 characters in length.` CROSS-REFERENCE: `9001005.9^D` 1)= S ^APCDTHFD("D",$E(X,1,30),DA)="" 2)= K ^APCDTHFD("D",$E(X,1,30),DA)
.1	ENTRY TYPE	0;10	SET	**********************REQUIRED FIELD********************** 'C' FOR CATEGORY; 'F' FOR FACTOR; LAST EDITED: `OCT 15, 1991` HELP-PROMPT: `Enter C if this entry represents a category to which other entries will refer, otherwise enter F.` CROSS-REFERENCE: `9001005.9^AD` 1)= S ^APCDTHFD("AD",$E(X,1,30),DA)="" 2)= K ^APCDTHFD("AD",$E(X,1,30),DA)
.11	PHRASE FOR QUANTITY	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `MAY 22, 1996` HELP-PROMPT: `Answer must be 2-30 characters in length.`
.12	PHRASE FOR LEVEL	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `MAY 22, 1996` HELP-PROMPT: `Answer must be 2-30 characters in length.`
.13	INACTIVE FLAG	0;13	SET	'1' FOR YES; LAST EDITED: `JUL 10, 1996`
.14	HEALTH SUMMARY FLAG	0;14	SET	'1' FOR MOST RECENT WITHIN CATEGORY; '2' FOR MOST RECENT OF EACH FACTOR; LAST EDITED: `SEP 02, 2003` TECHNICAL DESCR: This field is introduced with patch AUT98.113.
.15	INACTIVE DATE	0;15	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 05, 2004`
1101	NOT USED WITH	11;0	POINTER Multiple #9001005.901101	9001005.901101
8801	MNEMONIC	88;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `MAY 20, 2004` HELP-PROMPT: `Enter the mnemonic for this Health Factor, 1-6 Characters.` DESCRIPTION: `A word or string which is intended to be easier to remember than the thing it stands for. Most often used in "instruction mnemonic" which are so called because they are easier to remember than the binary patterns they` stand for. Non-printing ASCII characters also have mnemonics like NAK, ESC, DEL intended to evoke their meaning on certain systems. TECHNICAL DESCR: Added by AUT98.111. CROSS-REFERENCE: `9001005.9^E` 1)= S ^APCDTHFD("E",$E(X,1,30),DA)="" 2)= K ^APCDTHFD("E",$E(X,1,30),DA)
9901	NEW NAME	99;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `JUL 15, 2008` HELP-PROMPT: `Answer must be 1-40 characters in length.`
9902	INACTIVATE THIS PATCH?	99;2	SET	'1' FOR YES; LAST EDITED: `JUL 15, 2008`

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All