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 | Pointer To FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^VEN(7.94

Package: PCC New Encounter Form

Global: ^VEN(7.94

Information

FileMan FileNo	FileMan Filename	Package
19707.94	VEN EHP TICKLERS	PCC New Encounter Form

Description

This file contains this items that are printed in the review of systems box on the PCC+ encounter form.

Directly Accessed By Routines, Total: 3

Pointer To FileMan Files, Total: 1

Fields, Total: 8

Field #	Name	Loc	Type	Details
.01	ELEMENT	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X` LAST EDITED: `JUN 02, 2000` HELP-PROMPT: `Answer must be 2-30 characters in length.` CROSS-REFERENCE: `19707.94^B` 1)= S ^VEN(7.94,"B",$E(X,1,30),DA)="" 2)= K ^VEN(7.94,"B",$E(X,1,30),DA)
.03	HEADER FIELD	0;3	POINTER TO VEN EHP HEADER FIELD FILE (#19707.42)	VEN EHP HEADER FIELD(#19707.42) LAST EDITED: `JUL 21, 2000` HELP-PROMPT: `Answer must be 2-4 characters in length.` CROSS-REFERENCE: `^^TRIGGER^19707.94^.08` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.94,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$P($G(^VEN(7.42,X,0)),U) X ^DD(19707.94,.03,1,1,1.4) 1.4)= S DIH=$S($D(^VEN(7.94,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=19707.94,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= S X=$P($G(^VEN(7.42,X,0)),U) DELETE VALUE)= NO EFFECT FIELD)= COMPUTED HEADER FIELD
.04	PRE	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `DEC 13, 2000` HELP-PROMPT: `Answer must be 1-9 characters in length.`
.05	POST	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `DEC 13, 2000` HELP-PROMPT: `Answer must be 1-9 characters in length.`
.08	COMPUTED HEADER FIELD	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUL 21, 2000` HELP-PROMPT: `Answer must be 1-30 characters in length.` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the HEADER FIELD field of the VEN EHP TICKLERS File` CROSS-REFERENCE: `19707.94^C` 1)= S ^VEN(7.94,"C",$E(X,1,30),DA)="" 2)= K ^VEN(7.94,"C",$E(X,1,30),DA)
.09	CLASS	0;9	SET	'1' FOR INFANTS; '2' FOR CHILDREN; '3' FOR ADULT MALES; '4' FOR ADULT FEMALES; LAST EDITED: `DEC 10, 2000`
1	COMPUTE TAG	1;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `JUN 02, 2000` HELP-PROMPT: `Answer must be 1-240 characters in length.`
2	SPECIAL SCREENING TAG	2;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `NOV 11, 2000` HELP-PROMPT: `Answer must be 1-240 characters in length.`

Found Entries, Total: 53

Info | Desc | Directly Accessed By Routines | Pointer To FileMan Files | Fields | Found Entries | All