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 | Fields | Found Entries | All

Print Page as PDF

Global: ^VEN(7.14

Package: PCC New Encounter Form

Global: ^VEN(7.14

Information

FileMan FileNo	FileMan Filename	Package
19707.14	VEN EHP ASQ QUESTIONNAIRE	PCC New Encounter Form

Description

List of ASQ questionnaires for the WELL CHILD MODULE

Directly Accessed By Routines, Total: 9

Accessed By FileMan Db Calls, Total: 1

Pointed To By FileMan Files, Total: 1

Fields, Total: 11

Field #	Name	Loc	Type	Details
.01	AGE IN MONTHS	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 10, 2006` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` CROSS-REFERENCE: `19707.14^B` 1)= S ^VEN(7.14,"B",$E(X,1,30),DA)="" 2)= K ^VEN(7.14,"B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^19707.14^1` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.14,D0,1)):^(1),1:"") S X=$E(Y(1),1,240),X=X S DIU=X K Y S X=DIV S X=$$NAME^VENPCCQ(X) X ^DD(19707.14,.01,1,2,1.4) 1.4)= S DIH=$S($D(^VEN(7.14,DIV(0),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,240),Y=$E(DIH,241,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",240-$L(DIV))_Y),DIH=19707.14,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0) )>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.14,D0,1)):^(1),1:"") S X=$E(Y(1),1,240),X=X S DIU=X K Y S X="" X ^DD(19707.14,.01,1,2,2.4) 2.4)= S DIH=$S($D(^VEN(7.14,DIV(0),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,240),Y=$E(DIH,241,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",240-$L(DIV))_Y),DIH=19707.14,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0) )>0 CREATE VALUE)= S X=$$NAME^VENPCCQ(X) DELETE VALUE)= S X="" FIELD)= PDF
.02	COMMUNICATION CUTOFF	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `JAN 10, 2006` HELP-PROMPT: `Type a Number between 0 and 999, 1 Decimal Digit`
.03	GROSS MOTOR CUTOFF	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `JAN 10, 2006` HELP-PROMPT: `Type a Number between 0 and 999, 1 Decimal Digit`
.04	FINE MOTOR CUTOFF	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `JAN 10, 2006` HELP-PROMPT: `Type a Number between 0 and 999, 1 Decimal Digit`
.05	PROBLEM SOLVING CUTOFF	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `JAN 10, 2006` HELP-PROMPT: `Type a Number between 0 and 999, 1 Decimal Digit`
.06	PERSONAL-SOCIAL CUTOFF	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `JAN 10, 2006` HELP-PROMPT: `Type a Number between 0 and 999, 1 Decimal Digit`
.07	NUMBER OF PAGES	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 12, 2006` HELP-PROMPT: `Type a Number between 1 and 9, 0 Decimal Digits`
1	PDF	1;E1,240	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 10, 2006` HELP-PROMPT: `Answer must be 1-30 characters in length.` NOTES: `TRIGGERED by the AGE IN MONTHS field of the VEN EHP ASQ QUESTIONNAIRE File`
2.01	START	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `FEB 07, 2011` HELP-PROMPT: `ASQ expresses age in months and days. This value is mm.dd; e.g., 28.15 = 28 months and 15 days` DESCRIPTION: Start of age range expressed as mm.dd
2.02	END	2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `FEB 07, 2011` HELP-PROMPT: `ASQ expresses age in months and days. This value is mm.dd; e.g., 28.15 = 28 months and 15 days` DESCRIPTION: End of age range expressed as mm.dd
3	HISTORICAL CUTOFF SCORES	3;0	Multiple #19707.143	19707.143

Found Entries, Total: 21

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