Global: ^ECX(727.824

FileMan FileNo	FileMan Filename	Package
727.824	LAB RESULTS EXTRACT	DSS Extracts

Package	Total	Routines
DSS Extracts	5	^ECX(727.824 ECX8241 ECX8242 ECXLARA ^ECX(729

Package	Total	FileMan Files
Registration	2	PATIENT MOVEMENT(#405)[17] PATIENT(#2)[4]
DSS Extracts	1	DSS EXTRACT LOG(#727)[2]

Fields, Total: 36

Field #	Name	Loc	Type	Details
.01	SEQUENCE NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X` LAST EDITED: `AUG 12, 1998` HELP-PROMPT: `Enter a number between 1 and 999999999, 0 decimal digits.` DESCRIPTION: `The record number for this extract entry.` TECHNICAL DESCR: `The internal entry number (IEN) for this record. This entry is DINUMed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	YEAR MONTH	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6)!'(X?6N) X` OUTPUT TRANSFORM: `S Y=$$ECXYMX^ECXUTL(Y)` LAST EDITED: `SEP 24, 1997` HELP-PROMPT: `Answer must be 6 characters in length.` DESCRIPTION: `A six character string representing the year and the month for which this extract was performed.` TECHNICAL DESCR: `YEAR MONTH is derived by parsing the fileman format end date of the extract. The month is determined by taking the 4th and 5th characters of the end date, the year by taking the 2nd and 3rd characters, and the century is` `then calculated by taking the 1st character of the end date, and adding 17 to it. The Century is then concatenated with the year and month, giving the results in YYYYMM format.`
2	EXTRACT NUMBER	0;3	POINTER TO DSS EXTRACT LOG FILE (#727)	DSS EXTRACT LOG(#727) LAST EDITED: `OCT 09, 1996` HELP-PROMPT: `Enter the extract number for this extract.` DESCRIPTION: `The corresponding entry in the DSS EXTRACT LOG file (#727) for this extract.` TECHNICAL DESCR: `A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to pick up the header for the mail message.` CROSS-REFERENCE: `727.824^AC` `1)= S ^ECX(727.824,"AC",$E(X,1,30),DA)=""` `2)= K ^ECX(727.824,"AC",$E(X,1,30),DA)` `3)= DO NOT DELETE.` `This cross reference is essential for managing and purging data in this file.`
3	FACILITY	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X` LAST EDITED: `OCT 18, 1996` HELP-PROMPT: `Enter the station number (1-7 characters) where this extract was performed.` DESCRIPTION: `This is the facility/division where the extract was performed.` TECHNICAL DESCR: `An indicator of the division where this event happened. Using the NAME field (#.01) pointer from the DSS EXTRACTS file (#728), FACILITY is derived from the STATION NUMBER field (#99) for that pointer number in the` `INSTITUTION file (#4).`
4	PATIENT NO. - DFN	0;5	POINTER TO PATIENT FILE (#2)	PATIENT(#2) LAST EDITED: `OCT 18, 1996` HELP-PROMPT: `Enter the name of the patient for this extract record.` DESCRIPTION: `An identifying number for the patient at the local site.` TECHNICAL DESCR: `Pointer to the NAME field (.01) of the PATIENT file (#2). This data represents the patient DFN. PATIENT NO. - DFN data is derived from the NAME field (.03) in the LAB DATA file.(#63)`
5	SSN	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X` LAST EDITED: `OCT 09, 1996` HELP-PROMPT: `Your answer must be 9 to 10 characters in length.` DESCRIPTION: `The patient's social security number.` TECHNICAL DESCR: `Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in the LAB RESULTS EXTRACT file (#727.824), SSN data is derived from the SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2).` `"Test" patient status is determined in PAT^ECXUTL3. Any patient with an SSN beginning with "00000" will not be included in the extract.`
6	NAME	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4) X` LAST EDITED: `OCT 09, 1996` HELP-PROMPT: `Your answer must be 4 characters in length.` DESCRIPTION: `The first four characters of the patient's last name.` TECHNICAL DESCR: `Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in the LAB RESULTS EXTRACT file (#727.824), NAME data is derived from the NAME field (#.01) in the PATIENT file (#2). The first four characters of` `the first "," piece are used, padded with trailing spaces if necessary.` `The name value is returned by the supported call DEM^VADPT.`
7	IN OUT PATIENT INDICATOR	0;8	SET	'I' FOR INPATIENT; 'O' FOR OUTPATIENT; 'A' FOR ASIH (OTHER FACILITY); LAST EDITED: `JUN 29, 2018` HELP-PROMPT: `Enter the patient's status for this extract entry.` DESCRIPTION: `Indicates the patient's status for this extract entry.` TECHNICAL DESCR: `To determine the value of this field a call is made to $$PATDEM^ECXUTL2. Within this call, $$INP^ECXUTL2 is called to determine patient status. If the patient is an outpatient, processing stops and the field is set to O.` `If the patient is an inpatient then $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the patient's treating specialty exists in the DSS TREATING SPECIALTY TRANSLATION file (#727.831) then the value of the` `INPAT/OUTPAT CODE field (#5) of the DSS TREATING SPECIALTY TRANSLATION file (#727.831) is used. If the treating specialty is not found in the DSS TREATING SPECIALTY TRANSLATION file (#727.831) then the indicator is set to` `I.` `If the patient is ASIH to another facility at the date/time in question then the indicator is set to A.`
8	DAY	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<8) X` OUTPUT TRANSFORM: `S Y=$$ECXDATEX^ECXUTL(Y)` LAST EDITED: `JAN 14, 2003` HELP-PROMPT: `Answer must be 8 characters in length.` DESCRIPTION: `Date the Lab Test/Specimen was collected.` TECHNICAL DESCR: `Data source:` `LAB DSS LAR EXTRACT file (#64.036); DATE RESULTS AVAIL field (#5) which is populated from the LAB DATA file (#63); CHEM, HEM, TOX, RIA, SER, etc. sub-file (#63.04); DATE/TIME SPECIMEN TAKEN field (#.01).` `This field is always exactly 8 numeric characters in length. The format is YYYYMMDD; for example, 19970923. If the date cannot be determined, then a default is used. The default date value is the value of the YEAR MONTH` `field (#1) concatenated with "01" for the day (DD) portion. Year 2000 compliant per vendor.`
9	TEST CODE	0;10	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4)!'(X?4N) X` LAST EDITED: `OCT 09, 1996` HELP-PROMPT: `Your answer must be 4 characters in length.` DESCRIPTION: `The coded value of the lab test as specified by the vendor.` TECHNICAL DESCR: `This is the DSS assigned test number (DSS Test ID) from file #727.29. The ID is padded on the left with zeroes so that the data element is always exactly 4 digits.`
10	PLACEHOLD RESULTS	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10000)!(X<-10000)!(X?.E1"."5N.N) X` LAST EDITED: `MAY 01, 2018` HELP-PROMPT: `Enter a number between -10000 and 10000, 4 decimal digits.` DESCRIPTION: `This field, previously known as RESULTS, is no longer needed. The name has been changed to PLACEHOLD RESULTS and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3170.`
12	HI/LO INDICATOR	0;12	SET	'H' FOR HIGH; 'L' FOR LOW; LAST EDITED: `OCT 09, 1996` HELP-PROMPT: `For an abnormal test result, was it High or Low?` DESCRIPTION: `Indicates High or Low test result.` TECHNICAL DESCR: `Results indicator of the test identified in the CHEM, HEM, TOX, RIA, SER, etc. multiple (#4) within the LAB DATA file (#63). The indicator is returned from a call to LRCAPDAR, which in turn calls $$TSTRES^LRRPU which` `returns the indicator as found on the second "^" piece of ^LR(LRDFN,"CH",INVERSE_DATE,TEST_IEN).`
13	DATE ORDERED	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<8) X` OUTPUT TRANSFORM: `S Y=$$ECXDATEX^ECXUTL(Y)` LAST EDITED: `SEP 24, 1997` HELP-PROMPT: `Answer must be 8 characters in length.` DESCRIPTION: `An 8-character numeric string that represents the date on which the Laboratory test was ordered.` TECHNICAL DESCR: `Data source:` `LAB DSS LAR EXTRACT file (#64.036); DATE RESULTS AVAIL field (#5)` `LAB DATA file (#63); CHEM, HEM, TOX, RIA, SER, etc. sub-file (#63.04);` `DATE/TIME SPECIMEN TAKEN field (#.01)` `This field is always exactly 8 numeric characters in length. The format is YYYYMMDD; for example, 19970923. If the date cannot be determined, then a default is used. The default date value is the value of the YEAR MONTH` `field (#1) concatenated with "01" for the day (DD) portion. Year 2000 compliant per vendor.`
14	TIME ORDERED	0;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6)!'(X?6N) X` OUTPUT TRANSFORM: `S Y=$$ECXTIMEX^ECXUTL(Y,1)` LAST EDITED: `SEP 24, 1997` HELP-PROMPT: `Answer must be 6 characters in length` DESCRIPTION: `A 6-character numeric string that represents the time of day at which the Laboratory test was ordered.` TECHNICAL DESCR: `Data source:` `LAB DSS LAR EXTRACT file (#64.036); DATE RESULTS AVAIL field (#5) LAB DATA file (#63); CHEM, HEM, TOX, RIA, SER, etc. sub-file (#63.04);` `DATE/TIME SPECIMEN TAKEN field (#.01)` `This field is always exactly 6 numeric characters in length; if time cannot be determined, then "000300" is used as default.`
15	DATE RESULTS READY	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<8) X` OUTPUT TRANSFORM: `S Y=$$ECXDATEX^ECXUTL(Y)` LAST EDITED: `SEP 24, 1997` HELP-PROMPT: `Answer must be 8 characters in length.` DESCRIPTION: `An 8-character numeric string that represents the date on which the Laboratory test result was ready for reporting.` TECHNICAL DESCR: `Data source:` `LAB DSS LAR EXTRACT file (#64.036); DATE RESULTS AVAIL field (#5)` `LAB DATA file (#63); CHEM, HEM, TOX, RIA, SER, etc. sub-file (#63.04);` `DATE REPORT COMPLETED field (#.03)` `This field is always exactly 8 numeric characters in length. The format is YYYYMMDD; for example, 19970923. If the date cannot be determined, then a default is used. The default date value is the value of the YEAR MONTH` `field (#1) concatenated with "01" for the day (DD) portion. Year 2000 compliant per vendor.`
16	TIME RESULTS READY	0;16	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6) X` OUTPUT TRANSFORM: `S Y=$$ECXTIMEX^ECXUTL(Y,1)` LAST EDITED: `SEP 24, 1997` HELP-PROMPT: `Answer must be 6 characters in length.` DESCRIPTION: `A 6-character numeric string that represents the time of day at which the Laboratory test result was ready for reporting.` TECHNICAL DESCR: `Data source:` `LAB DSS LAR EXTRACT file (#64.036); DATE RESULTS AVAIL field (#5)` `LAB DATA file (#63); CHEM, HEM, TOX, RIA, SER, etc. sub-file (#63.04);` `DATE REPORT COMPLETED field (#.03)` `This field is always exactly 6 numeric characters in length; if time cannot be determined, then "000300" is used as default.`
17	MOVEMENT FILE #	0;17	POINTER TO PATIENT MOVEMENT FILE (#405)	PATIENT MOVEMENT(#405) LAST EDITED: `OCT 09, 1996` HELP-PROMPT: `Enter the patient movement number associated with this extract record.` DESCRIPTION: `Current patient movement record associated with this extract record.` TECHNICAL DESCR: `A call to IN5^VADPT (using the patient IEN and the event date) returns a patient movement number (indicating inpatient status). This field is set to the value of VAIP(1), which is a pointer to the PATIENT MOVEMENT file` `(#405).`
18	TREATING SPECIALTY	0;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<2) X` LAST EDITED: `NOV 03, 2009` HELP-PROMPT: `Answer must be 2-3 characters in length` DESCRIPTION: `The PTF CODE of the treating specialty associated with this extract record.` TECHNICAL DESCR: `This field is initialized to a null, indicating an outpatient status. If a call to IN5^VADPT (using the patient IEN and the event date) returns a patient movement number (indicating inpatient status), then the value of` `VAIP(8), which is the pointer to the FACILITY TREATING SPECIALTY file (#45.7), is used to get the SPECIALTY field (1) which points to the SPECIALTY file (#42.4).` `Then, the PTF Code (field #7 of file 42.4) is obtained and stored instead of the IEN of the specialty.`
19	WORKLOAD CODE	0;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<1) X` LAST EDITED: `MAY 15, 2012` HELP-PROMPT: `Enter the workload code for this event.` DESCRIPTION: `The LMIP/NLT workload code for this record. May correspond to a College of American Pathologists (CAP) code.` TECHNICAL DESCR: `WKLD CODE field (#1) of the WKLD CODE file (#64) as pointed to by the NATIONAL VA LAB CODE field (#64) of the LABORATORY TEST file (#60) as pointed to by the LOCAL LAB TEST NAME multiple (#1) within the DSS LAB TEST` `multiple (#1) of the DSS LAB TESTS file (#727.2).`
20	MASTER PATIENT INDEX	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `MAY 04, 1999` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `A national VA system identifier which uniquely identifies a patient.` TECHNICAL DESCR: `Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that returns the Integration Control Number (ICN) for the given patient in the Patient file (#2).`
21	PLACEHOLDER	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<4) X` LAST EDITED: `APR 19, 2016` HELP-PROMPT: `Answer must be 4-10 characters in length.` DESCRIPTION: `This field, previously known as DSS DEPT., is no longer needed. The name has been changed to PLACEHOLDER and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3161.`
22	DOM,PRRTP AND SAARTP INDICATOR	1;3	SET	'P' FOR GEN. PRRTP; 'T' FOR PTSD PRRTP; 'S' FOR DOM. PRRTP; 'H' FOR HOMELESS CWT/TR; 'A' FOR SA CWT/TR; 'D' FOR DOMICILIARY; 'B' FOR PTSD CWT/TR; 'C' FOR GEN. CET/TR; LAST EDITED: `MAY 15, 2012` HELP-PROMPT: `Enter the indicator associated with the treating specialty assigned to this record.` DESCRIPTION: `Indicates if the patient is admitted to either a RRTP, PRRTP or SARRTP at time care is provided.` TECHNICAL DESCR: `If the patient's treating specialty exists in the DSS TREATING SPECIALTY TRANSLATION file (#727.831), data is derived from the DOM/PRRTP/SARRTP CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION file (#727.831).` `Otherwise, the value is null.`
23	TIME COLLECTED	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6) X` LAST EDITED: `JUL 19, 2012` HELP-PROMPT: `Answer must be 6 characters in length.` DESCRIPTION: `Time of day specimen was collected.` TECHNICAL DESCR: `The TIME COLLECTED field (#23) is derived from the DATE/TIME SPECIMEN TAKEN field (#.01) of the CHEM, HEM, TOX, RIA, SER, etc. field (#4) of the LAB DATA file (#63). This field is always exactly 6 numeric characters in` `length. If the specimen time cannot be determined, then "000300" is used as default.`
24	OBSERVATION PATIENT INDICATOR	1;5	SET	'NO' FOR NO; 'YES' FOR YES; LAST EDITED: `MAY 15, 2012` HELP-PROMPT: `Enter observation patient status for this record.` DESCRIPTION: `Indicates if patient is considered to be an observation patient.` TECHNICAL DESCR: `Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4:` `If the patient's treating specialty exists in the DSS TREATING SPECIALTY TRANSLATION file (#727.831), data is derived from the OBSERVATION PAT INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION file (#727.831).` `If patient is outpatient and treating specialty not in file, AND Feeder Key (CLI) or DSS ID (MTL,IVP,ECQ,NOS,SUR) is 290-297, Observation Patient Ind=YES. Else, Observation Patient Ind=NO.` `Otherwise, Observation Patient Ind=NO.`
25	ENCOUNTER NUMBER	1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<1) X` LAST EDITED: `MAY 03, 2001` HELP-PROMPT: `Answer must be 1-18 characters in length.` DESCRIPTION: `The unique number assigned for DSS.` TECHNICAL DESCR: `This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call the inpatient/outpatient status, SSN, admit/visit date, treating specialty, observation patient indicator, and DSS Identifier or feeder key values` `of the record are used to create a unique encounter number.`
26	PRODUCTION DIVISION CODE	1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<3) X` LAST EDITED: `MAY 15, 2012` HELP-PROMPT: `Answer must be 3-7 characters in length.` DESCRIPTION: `Identifies the division/facility where the work was performed.` TECHNICAL DESCR: `Data comes from the NAME field (#.01) of the DSS EXTRACT file (#728) which is a pointer to the INSTITUTION file (#4). This value is then used to call the API RADDIV^ECXDEPT to get the STATION NUMBER field (#99) from the` `INSTITUTION file (#4).`
27	PLACEHOLD LAB RESULTS TRANS	1;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` `MAXIMUM LENGTH: 1` LAST EDITED: `JAN 30, 2019` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: `This field, previously known as LAB RESULTS TRANSLATION, is no longer needed. The name has been changed to PLACEHOLD LAB RESULTS TRANS and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.`
28	ORDERING PROVIDER	1;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<1) X` LAST EDITED: `FEB 26, 2004` HELP-PROMPT: `Answer must be 1-11 characters in length.` DESCRIPTION: `The provider ordering this lab test.` TECHNICAL DESCR: `The ORDERING PROVIDER is derived from the REQUESTING PERSON field (#.1) of the CHEM, HEM, TOX, RIA, SER, etc. multiple field (#4) of the LAB DATA file (#63).` `The value obtained is a pointer to the NEW PERSON file (#200). A "2" is prefixed to the pointer value to indicate that it points to file #200. For example, if the IEN of the provider in file #200 is 98765, the value that` `will be stored is 298765.`
29	ORDERING PROVIDER PERSON CLASS	1;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<7) X` LAST EDITED: `MAY 15, 2012` HELP-PROMPT: `Answer must be 7 characters in length.` DESCRIPTION: `The VA Code of the Person Class of the Ordering Provider as of the date of this extract record.` TECHNICAL DESCR: `Active Person Class is determined by the supported call $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is the date of the event. The VA CODE is determined by the 7th piece of the returned value` `string.`
30	ORDERING PROVIDER NPI	1;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `MAY 04, 2007` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `A standard unique life-long identifier of the provider who ordered the lab test. This field has a length of fifteen characters.` TECHNICAL DESCR: `ORDERING PROVIDER NPI is a standard unique life-long identifier of the provider who ordered the lab test. The qualified identifier shall be retrieved via the supporting Kernel API:$$NPI^XUSNPI.`
31	LOINC CODE	1;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `MAY 09, 2008` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `A universal coding standard for identifying laboratory observations.` TECHNICAL DESCR: `Derived from the LAB DSS LAR EXTRACT file (#64.036), LOINC CODE field.`
32	PATCAT	1;13	SET	'AD' FOR Active Duty; 'ADD' FOR Active Duty Dependent; 'FNRS' FOR Former Non-Remarried Spouse; 'RET' FOR Retired; 'RETD' FOR Retiree Dependent; 'RES' FOR Reservist; 'REC' FOR Recruit; 'TDRL' FOR Temporary Disability; 'TFL' FOR TRICARE for Life; LAST EDITED: `SEP 03, 2010` HELP-PROMPT: `Select the Patient's Category for the FHCC Reconciliation process.` DESCRIPTION: `This is the Patient's category which will be used for FHCC (Federal Health Care Center) Reconciliation. DSS must capture and report DoD patients so that the FHCC reconciliation process can function as designed.` `"Reconciliation" is the process used within the new FHCC to determine which patients DoD pays for and which VA pays for.` TECHNICAL DESCR: `If the VistA Patient Type Code (TYPE field (#391) of the PATIENT file (#2) ) = Active Duty, Military Retiree, or TRICARE, then the value(s) in the VistA Other Eligibility multiple (PATIENT ELIGIBILITIES field (#361) of` `the PATIENT file (#2)), which points to locally modifiable ELIGIBILITY CODE file (#8) should be evaluated. If the value in the ELIGIBILITY CODE is equal to any entry in the set of codes in this field, the value should be` `placed in this field.`
33	PLACEHOLD ENCOUNTER SC	1;14	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 04, 2019` HELP-PROMPT: `Is this Encounter Service Connected?` DESCRIPTION: `This field, previously known as ENCOUNTER SC, is no longer needed. The name has been changed to PLACEHOLD ENCOUNTER SC and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.`
34	CAMP LEJEUNE STATUS	1;15	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAR 09, 2013` HELP-PROMPT: `Indicate Camp Lejeune status for the patient.` DESCRIPTION: `Indicates if patient was exposed to contaminated water while stationed at Camp Lejeune, NC between January 1, 1957 and December 31, 1987.` TECHNICAL DESCR: `Using the patient's DFN, a call is made to PAT^ECXUTL3, which in turn calls SVC^VADPT. This call returns all service related information for a patient, including their Camp Lejeune status.`
35	PLACEHOLD ENC CAMP LEJEUNE	1;16	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 04, 2019` HELP-PROMPT: `Indicate if this encounter is related to exposure at Camp Lejeune.` DESCRIPTION: `This field, previously known as ENCOUNTER CAMP LEJEUNE, is no longer needed. The name has been changed to PLACEHOLD ENC CAMP LEJEUNE and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.`
36	LONG RESULT	1;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>35!($L(X)<1) X` `MAXIMUM LENGTH: 35` LAST EDITED: `JUN 01, 2018` HELP-PROMPT: `Enter up to 35 characters of the test result.` DESCRIPTION: `This field will store up to 35 characters of the lab test result.` TECHNICAL DESCR: `Results of the test identified in the CHEM, HEM, TOX, RIA, SER, etc. multiple (4) within the LAB DATA file (#63).` `The result is obtained by calling $$TSTRES^LRRPU. Only the first 35 characters of the result are stored. If the result is longer than 35 characters, it is truncated to 35.`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	2(XREF 1S), 2(XREF 1K)
>> DINUM	.01+1*
X	.01+1!, 1+1!, 2(XREF 1S), 2(XREF 1K), 3+1!, 5+1!, 6+1!, 8+1!, 9+1!, 10+1! , 13+1!, 14+1!, 15+1!, 16+1!, 18+1!, 19+1!, 20+1!, 21+1!, 23+1!, 25+1! , 26+1!, 27+1!, 28+1!, 29+1!, 30+1!, 31+1!, 36+1!
>> Y	1OT+1, 8OT+1, 13OT+1, 14OT+1, 15OT+1, 16OT+1
>> Y(0	1OT+1, 8OT+1, 13OT+1, 14OT+1, 15OT+1, 16OT+1

Customize PDF page

Package: DSS Extracts

Global: ^ECX(727.824

Information

Description

Directly Accessed By Routines, Total: 5

Pointer To FileMan Files, Total: 3

Fields, Total: 36

External References

Global Variables Directly Accessed

Local Variables

Legend:

Name	Field # of Occurrence
$$ECXDATEX^ECXUTL	8OT+1, 13OT+1, 15OT+1
$$ECXTIMEX^ECXUTL	14OT+1, 16OT+1
$$ECXYMX^ECXUTL	1OT+1