Global: ^BTPWP

FileMan FileNo	FileMan Filename	Package
90620	CM EVENT TRACKING	Tracking Procedure Workflow

Package	Total	Routines
Tracking Procedure Workflow	23	BTPWBTAD BTPWETRG BTPWEVNT BTPWHIST BTPWLOCK BTPWPCLO BTPWPDSP BTPWPEV1 BTPWPEVC BTPWPEVO BTPWPEVT BTPWPFNC BTPWPFND BTPWPHIS BTPWPLN1 BTPWPNLV BTPWPPAT BTPWPSNP BTPWPTMP BTPWPTRG BTPWPUTL BTPWPWRS BTPWRMDR
iCare	4	BQI25POS BQICEADD BQINIGHT BQIREM

Package	Total	Routines
Tracking Procedure Workflow	17	BTPWBTAD BTPWEVNT BTPWPCLO BTPWPDSP BTPWPEVO BTPWPEVT BTPWPHIS BTPWPLN1 BTPWPLND BTPWPNLV BTPWPPAT BTPWPSNP BTPWPTMP BTPWPTRG BTPWPWRK BTPWPWRS BTPWTAB
iCare	1	BQIREM

Package	Total	FileMan Files
Tracking Procedure Workflow	1	CM EVENT TRACKING(#90620)[.11, #90620.012(.06)]

Package	Total	FileMan Files
Tracking Procedure Workflow	6	CM EVENT RESULT TYPE(#90620.9)[#90620.01(.02)] CM EVENT(#90621)[.01, #90620.01(.07), #90620.012(.02)] CM EVENT FILE TYPE(#90621.1)[.06] CM EVENT CATEGORY(#90621.2)[.12] CM EVENT NOTIFICATION TYPE(#90622)[#90620.011(.02)] CM EVENT TRACKING(#90620)[.11, #90620.012(.06)]
Text Integration Utility	3	TIU DOCUMENT(#8925)[#90620.011(.05), #90620.011(.1)] TIU TEMPLATE(#8927)[#90620.011(.07)] TIU TEMPLATE FIELD(#8927.1)[#90620.011(.06)]
IHS Patient	2	PATIENT(#9000001)[.02] VISIT(#9000010)[.04, #90620.011(.11)]
Kernel	1	NEW PERSON(#200)[1.03, 1.1, #90620.01(.05), #90620.011(.04), #90620.012(.04), #90620.02(.03), #90620.05(.02)]
Utility Tables	1	COMMUNITY(#9999999.05)[.16]

Fields, Total: 35

Field #	Name	Loc	Type	Details
.01	EVENT NAME	0;1	POINTER TO CM EVENT FILE (#90621)	**********************REQUIRED FIELD********************** CM EVENT(#90621) LAST EDITED: `JAN 07, 2010` DESCRIPTION: This is the type of event that is being tracked. CROSS-REFERENCE: `90620^B` 1)= S ^BTPWP("B",$E(X,1,30),DA)="" 2)= K ^BTPWP("B",$E(X,1,30),DA) RECORD INDEXES: `AB (#266), AG (#269), C (#278)`
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) LAST EDITED: `DEC 07, 2009` CROSS-REFERENCE: `90620^AD` 1)= S ^BTPWP("AD",$E(X,1,30),DA)="" 2)= K ^BTPWP("AD",$E(X,1,30),DA) RECORD INDEXES: `AB (#266), AE (#267), AG (#269), AJ (#271), C (#278)`
.03	EVENT DATE	0;3	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 07, 2010` CROSS-REFERENCE: `90620^AH` 1)= S ^BTPWP("AH",$E(X,1,30),DA)="" 2)= K ^BTPWP("AH",$E(X,1,30),DA) Cross reference by visit date RECORD INDEXES: `AI (#270), AJ (#271), AK (#272), AL (#273), AM (#274)`
.04	VISIT	0;4	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `JUN 20, 2008` RECORD INDEXES: `C (#278)`
.05	RECORD IEN	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `NOV 16, 2009` HELP-PROMPT: `Answer must be 1-20 characters in length.` RECORD INDEXES: `C (#278)`
.06	RECORD FILE TYPE	0;6	POINTER TO CM EVENT FILE TYPE FILE (#90621.1)	CM EVENT FILE TYPE(#90621.1) LAST EDITED: `JUN 20, 2008` RECORD INDEXES: `C (#278)`
.07	DATE/TIME IDENTIFIED	0;7	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 20, 2008`
.08	STATUS	0;8	SET	'T' FOR TRACKED; LAST EDITED: `NOV 24, 2009`
.09	WH RECORD IEN	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `DEC 04, 2008` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: This is the IEN to the record in Women's Health BW PROCEDURE File #9002086.1.
.1	RADIOLOGY CASE #	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `DEC 11, 2008` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: This is the Radiology case number if the procedure is from the radiology package.
.11	PREVIOUS PROCEDURE	0;11	POINTER TO CM EVENT TRACKING FILE (#90620)	CM EVENT TRACKING(#90620) LAST EDITED: `FEB 11, 2009`
.12	CATEGORY	0;12	POINTER TO CM EVENT CATEGORY FILE (#90621.2)	CM EVENT CATEGORY(#90621.2) LAST EDITED: `NOV 25, 2009` RECORD INDEXES: `AF (#268), AI (#270), AK (#272), AN (#275)`
.13	DUE BY DATE	0;13	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 25, 2009` DESCRIPTION: Date that the event is due by if this is a followup event. CROSS-REFERENCE: `90620^AQ` 1)= S ^BTPWP("AQ",$E(X,1,30),DA)="" 2)= K ^BTPWP("AQ",$E(X,1,30),DA) RECORD INDEXES: `AG (#269), AN (#275), AO (#276), AP (#277)`
.14	QUEUED EVENT	0;14	POINTER TO AN UNDEFINED FILE	LAST EDITED: `NOV 24, 2009`
.15	LAB ACCN #	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `APR 05, 2010` HELP-PROMPT: `Answer must be 1-20 characters in length.`
.16	COMMUNITY	0;16	POINTER TO COMMUNITY FILE (#9999999.05)	COMMUNITY(#9999999.05) LAST EDITED: `NOV 25, 2009` RECORD INDEXES: `AM (#274), AP (#277)`
1.01	STATE	1;1	SET	'O' FOR OPEN; 'C' FOR CLOSED; 'F' FOR FUTURE; LAST EDITED: `FEB 05, 2010` CROSS-REFERENCE: `90620^AC` 1)= S ^BTPWP("AC",$E(X,1,30),DA)="" 2)= K ^BTPWP("AC",$E(X,1,30),DA) RECORD INDEXES: `AE (#267), AF (#268), AI (#270), AJ (#271), AL (#273), AM (#274), AN (#275), AO (#276), AP (#277)`
1.02	EVENT TRACKED DATE/TIME	1;2	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 11, 2010`
1.03	EVENT TRACKED BY	1;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 11, 2010`
1.04	CLOSE REASON	1;4	SET	'1' FOR Event Complete; '4' FOR Other; '2' FOR Patient Moved; '3' FOR Lost to Follow-up; LAST EDITED: `FEB 05, 2010`
1.05	FINDING DUE BY DATE	1;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 11, 2010` HELP-PROMPT: `Enter the date you want to have the findings of this event entered into CMET. If this date passes without an entry, a "tickler" (Feather icon) is generated.` CROSS-REFERENCE: `90620^AR` 1)= S ^BTPWP("AR",$E(X,1,30),DA)="" 2)= K ^BTPWP("AR",$E(X,1,30),DA)
1.06	FOLLOW-UP DECISION DUE BY DATE	1;6	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 11, 2010` HELP-PROMPT: `Enter the date you want to have made a decision by about how you want to follow-up this event. If this date passes without an entry, a "tickler" (Feather icon) is generated.` CROSS-REFERENCE: `90620^AS` 1)= S ^BTPWP("AS",$E(X,1,30),DA)="" 2)= K ^BTPWP("AS",$E(X,1,30),DA)
1.07	PATIENT NOTIFICATION DUE BY DT	1;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 11, 2010` HELP-PROMPT: `Enter the date you want to have notified your patient by about results and follow-up recommendations related to this event. If this date passes without an entry, a "tickler" (Feather icon) is generat` CROSS-REFERENCE: `90620^AT` 1)= S ^BTPWP("AT",$E(X,1,30),DA)="" 2)= K ^BTPWP("AT",$E(X,1,30),DA)
1.08	OTHER CLOSE REASON	1;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `FEB 25, 2009` HELP-PROMPT: `Answer must be 1-60 characters in length.`
1.09	LAST MODIFIED DATE/TIME	1;9	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 11, 2010` DESCRIPTION: The date/time that the event entry was last modified.
1.1	LAST MODIFIED BY	1;10	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 11, 2010` DESCRIPTION: The DUZ of the user who last modified this event entry.
1.11	FOLLOWUP NEEDED?	1;11	SET	'Y' FOR Yes; 'N' FOR No; LAST EDITED: `MAR 29, 2010`
1.12	FOLLOWUP REMINDER DUE BY	1;12	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 26, 2010` DESCRIPTION: This field will contain the date that a reminder should be sent to the patient for their followup event.
2	STATE HISTORY	2;0	DATE Multiple #90620.02	90620.02
3	STATE CHANGE COMMENT	3;0	WORD-PROCESSING #90620.03	LAST EDITED: `JAN 11, 2010`
4	EVENT COMMENTS	4;0	WORD-PROCESSING #90620.04
5	EVENT HISTORY	5;0	DATE Multiple #90620.05	90620.05
10	FINDING	10;0	DATE Multiple #90620.01	90620.01 LAST EDITED: `JAN 11, 2010`
11	PATIENT NOTIFICATION	11;0	DATE Multiple #90620.011	90620.011 LAST EDITED: `JAN 11, 2010`
12	FOLLOW-UP	12;0	DATE Multiple #90620.012	90620.012 LAST EDITED: `JAN 11, 2010`

Customize PDF page

Package: Tracking Procedure Workflow

Global: ^BTPWP

Information

Description

Directly Accessed By Routines, Total: 28

Accessed By FileMan Db Calls, Total: 18

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 13

Fields, Total: 35