Global: ^VEN(7.34

FileMan FileNo	FileMan Filename	Package
19707.34	VEN EHP ICD ITEM	PCC New Encounter Form

Directly Accessed By Routines, Total: 5

Package	Total	Routines
PCC New Encounter Form	5	VENPCC1G VENPCC1P VENPCCG2 VENPCCMD VENPCCMG

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
PCC New Encounter Form	3	VENPCC1P VENPCCG2 VENPCCMD

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[.01]
PCC New Encounter Form	1	VEN EHP ICD GROUP(#19707.33)[.02]

Fields, Total: 24

Field #	Name	Loc	Type	Details
.01	OWNER	0;1	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `APR 05, 2005` CROSS-REFERENCE: `19707.34^B` 1)= S ^VEN(7.34,"B",$E(X,1,30),DA)="" 2)= K ^VEN(7.34,"B",$E(X,1,30),DA)
.02	DX PREFERENCE GROUP	0;2	POINTER TO VEN EHP ICD GROUP FILE (#19707.33)	VEN EHP ICD GROUP(#19707.33) LAST EDITED: `APR 05, 2005`
.03	PRINTED NAME	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `MAR 31, 2005` HELP-PROMPT: `Answer must be 1-80 characters in length.`
.04	ICD CODE	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `MAY 04, 2005` HELP-PROMPT: `Answer must be 1-9 characters in length.` CROSS-REFERENCE: `^^TRIGGER^19707.34^.07` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.34,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$$CIDC^VENPCC1P(X) S DIH=$G(^VEN(7.34,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=19707.34,DIG=.07 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.34,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" S DIH=$G(^VEN(7.34,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=19707.34,DIG=.07 D ^DICR CREATE VALUE)= S X=$$CIDC^VENPCC1P(X) DELETE VALUE)= S X="" FIELD)= ICD T
.05	SECONDARY CODE	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `MAR 31, 2005` HELP-PROMPT: `Answer must be 1-9 characters in length.`
.06	UNIQUE ID	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `APR 04, 2005` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `19707.34^AC` 1)= S ^VEN(7.34,"AC",$E(X,1,30),DA)="" 2)= K ^VEN(7.34,"AC",$E(X,1,30),DA)
.07	ICD TEXT	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `APR 04, 2005` HELP-PROMPT: `Answer must be 1-80 characters in length.` NOTES: `TRIGGERED by the ICD CODE field of the VEN EHP ICD ITEM File`
.08	SORT ORDER NUMBER	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 05, 2005` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits`
1.01	INFANT	1;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 31, 2005`
1.02	INFANT TOTAL	1;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 31, 2005` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
1.03	CHILD	1;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 31, 2005`
1.04	CHILD TOTAL	1;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 31, 2005` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
1.05	TEEN FEMALE	1;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 31, 2005`
1.06	TEEN FEMALE TOTAL	1;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 31, 2005` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
1.07	TEEN MALE	1;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 31, 2005`
1.08	TEEN MALE TOTAL	1;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 31, 2005` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
1.09	ADULT FEMALE	1;9	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `APR 04, 2005`
1.1	ADULT FEMALE TOTAL	1;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 31, 2005` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
1.11	ADULT MALE	1;11	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 31, 2005`
1.12	ADULT MALE TOTAL	1;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 31, 2005` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
1.13	SENIOR FEMALE	1;13	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 31, 2005`
1.14	SENIOR FEMALE TOTAL	1;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 31, 2005` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
1.15	SENIOR MALE	1;15	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 31, 2005`
1.16	SENIOR MALE TOTAL	1;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 31, 2005` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`

Customize PDF page

Package: PCC New Encounter Form

Global: ^VEN(7.34

Information

Description

Directly Accessed By Routines, Total: 5

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 2

Fields, Total: 24