Sub-Field: 90620.012

Parent File	Name	Number	Package
CM EVENT TRACKING(#90620)	FOLLOW-UP	90620.012	Tracking Procedure Workflow

Details

Field #	Name	Loc	Type	Details
.01	FOLLOWUP DATE/TIME	0;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 15, 2009` CROSS-REFERENCE: `90620.012^B` 1)= S ^BTPWP(DA(1),12,"B",$E(X,1,30),DA)="" 2)= K ^BTPWP(DA(1),12,"B",$E(X,1,30),DA)
.02	FOLLOW-UP	0;2	POINTER TO CM EVENT FILE (#90621)	CM EVENT(#90621) LAST EDITED: `JAN 11, 2010`
.03	DATE FOLLOW-UP ENTERED	0;3	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 09, 2010` CROSS-REFERENCE: `90620^AU` 1)= S ^BTPWP("AU",$E(X,1,30),DA(1),DA)="" 2)= K ^BTPWP("AU",$E(X,1,30),DA(1),DA) Cross-reference to determine when a new followup is entered.
.04	FOLLOW-UP ENTERED BY	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 11, 2010`
.05	FOLLOW-UP DUE DATE	0;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 11, 2010`
.06	NEXT FOLLOWUP	0;6	POINTER TO CM EVENT TRACKING FILE (#90620)	CM EVENT TRACKING(#90620) LAST EDITED: `SEP 03, 2009`
.07	ENTERED IN ERROR	0;7	SET	'Y' FOR Yes; 'N' FOR No; LAST EDITED: `APR 29, 2010`
1	FOLLOW-UP COMMENT	1;0	WORD-PROCESSING #90620.121