Sub-Field: 19707.419

Parent File	Name	Number	Package
VEN EHP EF TEMPLATES(#19707.41)	PATIENT ED TOPIC	19707.419	PCC New Encounter Form

Details

Field #	Name	Loc	Type	Details
.01	PATIENT ED TOPIC	0;1	POINTER TO EDUCATION TOPICS FILE (#9999999.09)	EDUCATION TOPICS(#9999999.09) LAST EDITED: `MAR 22, 2004` CROSS-REFERENCE: `19707.419^B` 1)= S ^VEN(7.41,DA(1),9,"B",$E(X,1,30),DA)="" 2)= K ^VEN(7.41,DA(1),9,"B",$E(X,1,30),DA)
.02	PCC+ PATIENT ED CODE	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `MAR 22, 2004` HELP-PROMPT: `Answer must be 1-9 characters in length.`
.03	TITLE	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `MAR 22, 2004` HELP-PROMPT: `Answer must be 1-80 characters in length.` CROSS-REFERENCE: `^^TRIGGER^19707.419^.06` 1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VEN(7.41,D0,9,D1,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$$UP^XLFSTR(X) X ^DD(19707.419,.03,1,1,1.4) 1.4)= S DIH=$S($D(^VEN(7.41,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=19707.419,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= S X=$$UP^XLFSTR(X) DELETE VALUE)= NO EFFECT FIELD)= CAPS TITLE
.04	MAIL MERGE FIELD	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `MAR 22, 2004` HELP-PROMPT: `Answer must be 1-9 characters in length.`
.06	CAPS TITLE	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `MAR 22, 2004` HELP-PROMPT: `Answer must be 1-80 characters in length.` NOTES: `TRIGGERED by the TITLE field of the PATIENT ED TOPIC sub-field of the VEN EHP EF TEMPLATES File`