Global: ^ECX(727.826

FileMan FileNo	FileMan Filename	Package
727.826	PROSTHETICS EXTRACT	DSS Extracts

Package	Total	Routines
DSS Extracts	11	^ECX(727.826 ECX314PT ECX8261 ECX8262 ECXAPRO ECXCPRO ECXFEKEY ECXFELOC ECXLPRO ECXPROEE ^ECX(729

Package	Total	Routines
DSS Extracts	1	ECXPROEE

Package	Total	FileMan Files
Registration	2	ENROLLMENT STATUS(#27.15)[55] PATIENT(#2)[4]
DSS Extracts	1	DSS EXTRACT LOG(#727)[2]
Integrated Billing	1	INSURANCE COMPANY(#36)[45]

Fields, Total: 110

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: `DEC 15, 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. The entry is DINUMed.` `SOURCE OF DATA: Software generated for each individual record in the extract.` 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: `JUL 14, 1998` HELP-PROMPT: `Answer must be six 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: `JUL 22, 1998` 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.` `SOURCE OF DATA: Software generated from the associated entry in the Extract Log file.` CROSS-REFERENCE: `727.826^AC` `1)= S ^ECX(727.826,"AC",$E(X,1,30),DA)=""` `2)= K ^ECX(727.826,"AC",$E(X,1,30),DA)` `3)= DO NOT DELETE!` `This cross reference is essential for purging and managing data in this file.`
3	FACILITY	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>7!($L(X)<3) X` `MAXIMUM LENGTH: 7` LAST EDITED: `SEP 11, 2017` HELP-PROMPT: `Answer must be 3-7 characters in length.` DESCRIPTION: `For lab items, this is the Station Number of the Requesting Station. For non-lab items, this is the Station Number of the site where the transaction will be completed.` TECHNICAL DESCR: `For lab items, this is the Requesting Station. It is derived from the STATION NUMBER field (#99) in the INSTITUTION file (#4) as pointed to by the REQUESTING STATION field (#40) in the RECORD OF PROS APPLIANCE/REPAIR file` `(#660).` `For non-lab items, this is the Station Number of the site where the transaction will be completed. It is derived from the STATION NUMBER field (#99) in the INSTITUTION file (#4) as pointed to by the STATION field (#8) in` `the RECORD OF PROS APPLIANCE/REPAIR file (#660).`
4	PATIENT NO. DFN	0;5	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `JUL 14, 1998` HELP-PROMPT: `Select the patient for this extract record.` DESCRIPTION: `This is the patient to whom this extract record pertains.` TECHNICAL DESCR: `PATIENT NAME field (#.02) of the RECORD OF PROS APPLIANCE/REPAIR file (#660). This in turns points to the PROSTHETICS PATIENT file (#665). The NAME field (#.01) of that file is stored here. It is the IEN of the patient` `in the PATIENT file (#2).` `SOURCE OF DATA: PATIENT NAME (#.02) of the RECORD OF PROS APPLIANCE/REPAIR file (#660).`
5	SSN	0;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X` LAST EDITED: `JUL 14, 1998` HELP-PROMPT: `Enter the Patient's Social Security Number.` DESCRIPTION: `The patient's Social Security Number.` TECHNICAL DESCR: `SSN is derived from the PATIENT NAME field (#.02) of the RECORD OF PROS APPLIANCE/REPAIR file (#660). This in turn points to the NAME field (#.01) of the PROSTHETICS PATIENT file (#665). This then points to the PATIENT` `file (#2). The SSN field (#.09) is used to populate this field.` `"Test" patient status is determined in PAT^ECXUTL3. Any patient with an SSN beginning with "00000" will not be included in the extract.` `SOURCE OF DATA: Derived from the patient in the RECORD OF PROS APPLIANCE/REPAIR file (#660).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
6	NAME	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4) X` LAST EDITED: `JUN 08, 2012` HELP-PROMPT: `Enter the first four characters of the patient's last name.` 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 PROSTHETICS EXTRACT file (#727.826), 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.` `SOURCE OF DATA:`
7	IN OUTPATIENT 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	DATE OF SERVICE	0;9	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>8!($L(X)<8)!'(X?8N) X` OUTPUT TRANSFORM: `S Y=$$ECXDATEX^ECXUTL(Y)` LAST EDITED: `JUL 22, 1998` HELP-PROMPT: `Enter the delivery date of the patient's prosthetic appliance.` DESCRIPTION: `Date on which the new or repaired prosthetic appliance was delivered and accepted by the patient.` TECHNICAL DESCR: `DATE OF SERVICE is derived from the DELIVERY DATE field (#10) in the RECORD OF PROS APPLIANCE/REPAIR file (#660). This field is always exactly 8 numeric characters in length. The format is YYYYMMDD; for example,` `19970923.` `SOURCE OF DATA: The DELIVERY DATE (#10) in the RECORD OF PROS APPLIANCE/REPAIR file (#660).`
9	FEEDER LOCATION	0;10	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>9!($L(X)<6) X` LAST EDITED: `JUN 13, 2012` HELP-PROMPT: `Answer must be 6-9 characters in length.` DESCRIPTION: `Location within a facility where the product is produced.` TECHNICAL DESCR: `If this is a Lab Transaction and the extract header and/or Prosthetic Station is equal to the Receiving Station, the FEEDER LOCATION is constructed as follows:` `1) 3-digit station number of the Receiving Station, concatenated with` `LAB. An example is XXXLAB, where XXX is the Receiving Station number,` `or` `2) 5-digit station number of the Receiving Station (includes the` `2-letter division suffix) concatenated with LAB. An example is` `XXXXXLAB, where XXXXX is the Receiving Station number.` `If this is a Lab Transaction and the extract header and/or Prosthetic Station is equal to the Requesting Station, the FEEDER LOCATION is constructed as follows:` `1) 3-digit station number of the Requesting Station, concatenated with` `ORD. An example is XXXORD, where XXX is the Requesting Station number,` `or` `2) 5-digit station number of the Requesting Station (includes the` `2-letter division suffix) concatenated with ORD. An example is` `XXXXXORD, where XXXXX is the Requesting Station number.` `If this is not a Lab Transaction, the FEEDER LOCATION is constructed as follows:` `1) 3-digit Station number concatenated with NONL. An example is XXXNONL,` `where XXX is the Station number, or` `2) 5-digit Station number (includes the 2-letter division suffix),` `concatenated with NONL. An example is XXXXXNONL, where XXXXX is the` `Station number.` `Data for the FEEDER LOCATION (FDR LOC) is derived from the RECORD OF PROS APPLIANCE/REPAIR file (#660). Depending how the FEEDER LOCATION is constructed, data is derived from the following fields in the RECORD OF PROS` `APPLIANCE/REPAIR file (#660):` `1) RECEIVING STATION (#70). RECEIVING STATION is a pointer to the` `INSTITUTION file (#4).` `2) REQUESTING STATION (#40). RECEIVING STATION is a pointer to the` `INSTITUTION file (#4).` `3) STATION (#8). STATION is a pointer to the INSTITUTION file (#4).` `SOURCE OF DATA: Data in the RECORD OF PROS APPLIANCE/REPAIR file (#660). See Technical Description.`
10	FEEDER KEY	0;11	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<7) X` LAST EDITED: `DEC 24, 1998` HELP-PROMPT: `Answer must be 7-20 characters in length.` DESCRIPTION: `Code that uniquely identifies a DSS product.` TECHNICAL DESCR: `FEEDER KEY is the concatenation of the following elements. They are listed in the order they are to appear in the FEEDER KEY.` `1) HCPCS Code - This is the 5-digit HCPCS Code in the patient's` `prosthetic record.` `2) Type of Transaction - This is the Type of Transaction code in the` `patient's prosthetic record.` `(a) If Type of Transaction in the patient's prosthetic record is "X"` `(Repair), the Type of Transaction code in the FEEDER KEY is X.` `(b) If the Type of Transaction in the patient's prosthetic record is` `"I" (Initial Issue), "R" (Replace) or "S" (Spare), the Type of` `Transaction code in the FEEDER KEY is N.` `(c) If the Type of Transaction in the patient's prosthetic record is` `"5" (Rental), the Type of Transaction code in the FEEDER KEY is R.` `(d) Type of Transaction is considered the first suffix of the FEEDER` `KEY.` `3) Source - This is the Source in the patient's prosthetic record.` `(a) If Source in the patient's prosthetic record is VA, the Source code` `in the FEEDER KEY is V (VA).` `(b) If Source in the patient's prosthetic record is Commercial, the` `Source code in the FEEDER KEY is C (Commercial).` `(c) Source is considered the second suffix of the FEEDER KEY.` `4) Station - If this is a Lab Transaction, the station is either the` `Requesting or Receiving Station.` `(a) 3-digit Receiving Station concatenated with REC if the FEEDER` `LOCATION ends in ORD, or` `(b) 5-digit Receiving Station (includes the 2-letter division suffix)` `concatenated with REC if the FEEDER LOCATION ends in ORD, or` `(c) 3-digit Requesting Station concatenated with REQ if the FEEDER` `LOCATION ends in LAB, or` `(d) 5-digit Requesting Station (includes the 2-letter division suffix)` `concatenated with REQ if the FEEDER LOCATION ends in LAB.` `(e) Station is considered the third suffix of the FEEDER KEY.` `5) If this is a Non-Lab Transaction, there is no third suffix for the` `FEEDER KEY.` `6) Form requested on - If the form requested on is 11 (Stock Issue) then` `an "S" is concatenated to the FEEDER KEY. If the form requested on` `is 12 (Inventory Issue) then an "I" is concatenated to the FEEDER` `KEY.` `Data for the FEEDER KEY is derived from the RECORD OF PROS APPLIANCE/REPAIR file (#660). Depending how the FEEDER KEY is constructed, the components for the FEEDER KEY are derived from the following fields in the RECORD` `OF PROS APPLIANCE/REPAIR file (#660):` `1) HCPCS (#4.1) - HCPCS is a pointer to the CPT CODE field (#.01) of the` `CPT file (#81)` `2) TYPE OF TRANSACTION (#2)` `3) SOURCE (#12)` `4) RECEIVING STATION (#70). RECEIVING STATION is a pointer to the` `INSTITUTION file (#4).` `5) REQUESTING STATION (#40). REQUESTING STATION is a pointer to the` `INSTITUTION file (#4).` `6) STATION (#8). STATION is a pointer to the INSTITUTION file (#4).` `7) FORM REQUESTED ON (#11)` `SOURCE OF DATA: Data in the RECORD OF PROS APPLIANCE/REPAIR file (#660). See Technical Description.`
11	QUANTITY	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 18, 2012` HELP-PROMPT: `Type a number between 1 and 1000, 0 decimal digits.` DESCRIPTION: `The number of units issued or units repaired as indicated in the patient's prosthetic record.` TECHNICAL DESCR: `Derived from the QTY field (#5) in the RECORD OF PROS APPLIANCE/REPAIR file (#660). If the quantity is not known, a default value of 1 will be assigned to the extract record.` `SOURCE OF DATA: QUANTITY is derived from the QTY (#5) in RECORD OF PROS APPLIANCE/REPAIR file (#660).`
12	PLACEHOLD PRIMARY CARE TEAM	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1) X` LAST EDITED: `MAY 01, 2018` HELP-PROMPT: `Answer must be 1-4 characters in length.` DESCRIPTION: `This field, previously known as PRIMARY CARE TEAM, is no longer needed. The name has been changed to PLACEHOLD PRIMARY CARE TEAM and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3170.` `SOURCE OF DATA: OUTPTTM^SDUTL3 returns the teams IEN from the Team file (404.51).`
13	PLACEHOLD PC PROVIDER	0;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<2) X` LAST EDITED: `MAY 01, 2018` HELP-PROMPT: `Answer must be 2-11 characters in length.` DESCRIPTION: `This field, previously known as PRIMARY CARE PROVIDER, is no longer needed. The name has been changed to PLACEHOLD PC PROVIDER and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3170.`
14	PCE CPT/HCPCS CODE & MODIFIERS	0;15	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>17!($L(X)<5) X` OUTPUT TRANSFORM: `S Y=$$CPTOUT^ECXUTL3(Y)` LAST EDITED: `JUN 14, 2012` HELP-PROMPT: `Answer must be 5-17 characters in length.` DESCRIPTION: `HCPCS code for the item selected.` TECHNICAL DESCR: `PCE CPT/HCPCS CODE is derived from the HCPCS field (#4.1) in the RECORD OF PROS APPLIANCE/REPAIR file (#660). The HCPCS field (#4.1) is a pointer to the respective CPT CODE field (#.01) in the CPT file (#81).` `The source of CPT modifiers is the MODIFIER field (#.01) of the CPT MODIFIER file (#81.3).` `SOURCE OF DATA: Derived from the HCPCS field (4.1) in the RECORD OF PROS APPLIANCE/REPAIR file (#660).`
15	PLACEHOLDER	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X` LAST EDITED: `APR 19, 2016` HELP-PROMPT: `Enter the Prosthetics ICD-9 code.` DESCRIPTION: `This field, previously known as ICD-9 CODE, 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.` `SOURCE OF DATA:`
16	PLACEHOLDER	0;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X` LAST EDITED: `APR 19, 2016` HELP-PROMPT: `Answer must be 1-7 characters in length.` DESCRIPTION: `This field, previously known as SECONDARY ICD-9 CODE 1, 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.` `SOURCE OF DATA:`
17	PLACEHOLDER	0;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X` LAST EDITED: `APR 19, 2016` HELP-PROMPT: `Answer must be 1-7 characters in length.` DESCRIPTION: `This field, previously known as SECONDARY ICD-9 CODE 2, 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.` `SOURCE OF DATA:`
18	PLACEHOLDER	0;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X` LAST EDITED: `APR 19, 2016` HELP-PROMPT: `Answer must be 1-7 characters in length.` DESCRIPTION: `This field, previously known as SECONDARY ICD-9 CODE 3, 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.` `SOURCE OF DATA:`
19	PLACEHOLDER	0;20	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X` LAST EDITED: `APR 19, 2016` HELP-PROMPT: `Answer must be 1-7 characters in length.` DESCRIPTION: `This field, previously known as SECONDARY ICD-9 CODE 4, 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.` `SOURCE OF DATA:`
20	AGENT ORANGE STATUS	0;21	SET	'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; LAST EDITED: `JUN 14, 2012` HELP-PROMPT: `Enter the Agent Orange Status for the patient.` DESCRIPTION: `Indicates whether patient was exposed to Agent Orange.` TECHNICAL DESCR: `This field is derived from the AGENT ORANGE EXPOS. INDICATED field (#.32102) in the PATIENT file (#2) using the patient's DFN. The field will have a NULL value if the PATIENT file (#2) record does not indicate a status.` `The status indicator is returned by SVC^VADPT.` `SOURCE OF DATA: AGENT ORANGE EXPOS. INDICATED field (#.32102) from the Patient file (#2) as derived from DFN.`
21	RADIATION EXPOSURE STATUS	0;22	SET	'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; '1' FOR NO RADIATION; '2' FOR HIROSHIMA/NAGASAKI; '3' FOR ATMOSPHERIC NUCLEAR TESTING; '4' FOR H/N AND ATMOSPHERIC TESTING; '5' FOR UNDERGROUND NUCLEAR TESTING; '6' FOR EXPOSURE AT NUCLEAR FACILITY; '7' FOR OTHER; LAST EDITED: `JUN 14, 2012` HELP-PROMPT: `Enter the Radiation Status for the patient.` DESCRIPTION: `Indicates if patient claims exposure to ionizing radiation.` TECHNICAL DESCR: `This field is derived from the RADIATION EXPOSURE INDICATED field (#.32103) in the PATIENT file (#2) using the patient's DFN. This field will have a NULL value if the PATIENT file (#2) record does not indicate a status.` `The status indicator is returned by SVC^VADPT.` `SOURCE OF DATA: RADIATION EXPOSURE INDICATED field (#.32103) from the Patient file (#2) as derived from DFN.`
22	SW ASIA CONDITIONS	0;23	SET	'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; LAST EDITED: `MAY 27, 2009` HELP-PROMPT: `Enter patient's Southwest Asia Indicator status.` DESCRIPTION: `This field is used to indicate if patient claims exposure to Southwest Asia Conditions.` TECHNICAL DESCR: `This field is derived from the SOUTHWEST ASIA CONDITIONS? field (#.322013) in the PATIENT File (#2) using the patient's DFN. The status indicator is returned by SVC^VADPT which is called by PAT^ECXUTL3.` `SOURCE OF DATA: SW ASIA CONDITIONS? field (#.322013) from the Patient file (#2) as derived from DFN.`
23	PATIENT ELIGIBILITY	0;24	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `NOV 17, 1998` HELP-PROMPT: `Answer must be 1-3 characters in length.` DESCRIPTION: `PATIENT ELIGIBILITY is the patient's primary eligibility code.` TECHNICAL DESCR: `Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in the PROSTHETICS EXTRACT file (#727.826), ELIGIBILITY data is derived from the PRIMARY ELIGIBILITY CODE field (#.361) in the PATIENT file (#2).` `PRIMARY ELIGIBILITY CODE is a pointer to the ELIGIBILITY CODE file (#8). The data is derived from the MAS ELIGIBILITY CODE field (#8) in the ELIGIBILITY CODE file (#8) which in turn is a pointer to the MAS ELIGIBILITY` `CODE file (#8.1).` `The pointer value to the MAS ELIGIBILITY CODE file (#8.1) is converted by ELIG^ECXUTL3 to the corresponding eligibility code used by NPCD. This code is composed of two or three numeric characters.` `SOURCE OF DATA: PATIENT ELIGIBILITY field (#.361) from the Patient file (#2) as derived from DFN.`
24	PLACEHOLD COST OF TRANSACTION	0;25	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `FEB 04, 2019` HELP-PROMPT: `Answer must be 1-6 characters in length.` DESCRIPTION: `This field, previously known as COST OF TRANSACTION, is no longer needed. The name has been changed to PLACEHOLD COST OF TRANSACTION and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.` `SOURCE OF DATA: TOTAL COST (#14) or TOTAL LAB COST (#48) from the RECORD OF PROS APPLIANCE/REPAIR file.`
25	PLACEHOLD LAB LABOR COST	0;26	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `FEB 04, 2019` HELP-PROMPT: `Answer must be 1-6 characters in length.` DESCRIPTION: `This field, previously known as LAB LABOR COST, is no longer needed. The name has been changed to PLACEHOLD LAB LABOR COST and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.` `SOURCE OF DATA: TOTAL LABOR COST (#46) in the RECORD OF PROS APPLIANCE/REPAIR file.`
26	PLACEHOLD LAB MATERIAL COST	0;27	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `FEB 04, 2019` HELP-PROMPT: `Answer must be 1-6 characters in length.` DESCRIPTION: `This field, previously known as LAB MATERIAL COST, is no longer needed. The name has been changed to PLACEHOLD LAB MATERIAL COST and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.` `SOURCE OF DATA: TOTAL MATERIAL COST (#47) in the RECORD OF PROS APPLIANCE/REPAIR file.`
27	BILLING STATUS	0;28	SET	'1' FOR SC/OP (Service Connected Outpatient); '2' FOR SC/IP (Service Connected Inpatient); '3' FOR NSC/IP (Non Service Connected Inpatient); '4' FOR NSC/OP (Non Service Connected Outpatient); '5' FOR Other (Patient Category unknown); LAST EDITED: `JUL 15, 1998` HELP-PROMPT: `Enter the Prosthetic Patient Category for utilization.` DESCRIPTION: `Patient's billing status.` TECHNICAL DESCR: `BILLING STATUS is derived from the PATIENT CATEGORY field (#62) in the RECORD OF PROS APPLIANCE/REPAIR file (#660) for the prosthetic device record extracted.` `SOURCE OF DATA: BILLING STATUS is derived from PATIENT CATEGORY in the RECORD OF PROS APPLIANCE/REPAIR file (#660)`
28	VET/NON VET	0;29	SET	'Y' FOR Patient is a veteran; 'N' FOR Patient is not a veteran; LAST EDITED: `JUL 15, 1998` HELP-PROMPT: `Indicate if patient is a veteran.` DESCRIPTION: `Patient's veteran status.` TECHNICAL DESCR: `VET/NON VET is pulled from the VETERAN (Y/N) field (#1901) in the PATIENT file (#2). If the veteran's status is not known, a NULL value will be assigned to the VET/NON VET field.` `SOURCE OF DATA: VET/NON VET is derived from the VETERAN (Y/N) field in the Patient file using DFN.`
29	TYPE OF TRANSACTION	0;30	SET	'I' FOR Initial issue; 'R' FOR Replacement; 'S' FOR Spare; 'X' FOR Repair; '5' FOR Rental; LAST EDITED: `NOV 08, 2007` HELP-PROMPT: `Enter the transaction type for this prosthetic item.` DESCRIPTION: `The code that best describes the prosthetic transaction.` TECHNICAL DESCR: `The TYPE OF TRANSACTION is derived from the TYPE OF TRANSACTION field (#2) in the RECORD OF PROS APPLIANCE/REPAIR file (#660). If the TYPE OF TRANSACTION is not known, NULL is assigned to the field.` `SOURCE OF DATA: TYPE OF TRANSACTION field (#2) in the RECORD OF PROS APPLIANCE/REPAIR file (#660).`
30	REQUESTING STATION	0;31	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<3) X` OUTPUT TRANSFORM: `NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!` LAST EDITED: `NOV 17, 1998` HELP-PROMPT: `Answer must be 3-7 characters in length.` DESCRIPTION: `The facility that initiates the request for a Lab prosthetic.` TECHNICAL DESCR: `REQUESTING STATION is derived from the STATION NUMBER field (#99) in the INSTITUTION file (#4) as pointed to by the REQUESTING STATION field (#40) in the RECORD OF PROS APPLIANCE/REPAIR (#660).` `This field should have an upper limit of 7 characters but due to the FileMan limitation for data on this node, the field will retain its upper limit of 5.` `SOURCE OF DATA: STATION NUMBER (#99) in the INSTITUTION file pointed to by REQESTING STATION in file #660.`
31	RECEIVING STATION	0;32	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<3) X` LAST EDITED: `NOV 17, 1998` HELP-PROMPT: `Answer must be 3-7 characters in length.` DESCRIPTION: `The Lab facility that fills the Lab request and provides the prosthetic to the requesting station.` TECHNICAL DESCR: `RECEIVING STATION is derived from the STATION NUMBER field (#99) in the INSTITUTION file (#4) as pointed to by the RECEIVING STATION (#70) field in the RECORD OF PROS APPLIANCE/REPAIR (#660).` `This field should have an upper limit of 7 characters, however due to the FileMan limitation for data on this node, the field will retain its upper limit of 5 characters.` `SOURCE OF DATA: STATION NUMBER (#99) in the INSTITUTION file pointed to by RECEIVING STATION in file #660.`
32	PSAS HCPCS CODE	0;33	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<5) X` LAST EDITED: `AUG 02, 1999` HELP-PROMPT: `Answer must be 5-15 characters in length.` DESCRIPTION: `This field is used to hold the PSAS HCPCS Code from the Prosthetics record being extracted.` TECHNICAL DESCR: `The PSAS HCPCS field (#4.5) of the RECORD OF PROS APPLIANCE/REPAIR file (#660) is used. It is a pointer to the PROSTHETICS HCPCS file (#661.1). The HCPCS field (#.01) of file #661.1 is placed in this extract record` `field.`
33	ZIP CODE	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<5) X` LAST EDITED: `JUL 15, 1998` HELP-PROMPT: `Answer must be 5-10 characters in length.` DESCRIPTION: `The ZIP code for where the patient resides. The 5-character ZIP code is provided if ZIP+4 is not available.` TECHNICAL DESCR: `The patient's ZIP code with optional 4-digit extension as found in the ZIP+4 field (#.1112) of the patient's record in the PATIENT file (#2). While the ZIP+4 field in file 2 is a max of 9 characters, it does put the "-"` `in if the ZIP code is a +4 type.` `SOURCE OF DATA: ZIP+4 (.1112) in the Patient file (#2) as referenced by DFN.`
34	DATE OF BIRTH	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<8) X` OUTPUT TRANSFORM: `S Y=$$ECXDATEX^ECXUTL(Y)` LAST EDITED: `JUL 15, 1998` HELP-PROMPT: `Answer must be 8 characters in length.` DESCRIPTION: `Patient's date of birth.` TECHNICAL DESCR: `Data source:` `PATIENT file (#2); DATE OF BIRTH field (#.03)` `DATE OF BIRTH is returned through the supported call DEM^VADPT. It is then represented by an 8-character numeric string in the YYYYMMDD format.` `SOURCE OF DATA: DATE OF BIRTH (#.03) in the Patient file.`
35	SEX	1;3	SET	'M' FOR MALE; 'F' FOR FEMALE; LAST EDITED: `MAY 05, 1999` HELP-PROMPT: `Enter the sex of the patient.` DESCRIPTION: `Patient's gender.` TECHNICAL DESCR: `Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4), this data element is derived from the SEX field (#.02) in the PATIENT file (#2).` `The gender is returned by DEM^VADPT.` `SOURCE OF DATA: SEX (.02) in the Patient file (#2) as referenced by DFN.`
36	AMIS GROUPER	1;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 22, 1998` HELP-PROMPT: `Enter the specific grouper number that is used to indicate what parts combine to create a prosthetic device.` DESCRIPTION: `AMIS GROUPER holds the AMIS Grouper number that indicates what items combine to create a prosthetic device.` TECHNICAL DESCR: `AMIS GROUPER is derived from the AMIS GROUPER field (#68) in the RECORD OF PROS APPLIANCE/REPAIR file (#660). The field is used to sort prosthetic items that combine to create a prosthesis. Decimals are not allowed.` `SOURCE OF DATA: AMIS GROUPER field (#68) of the RECORD OF PROS APPLIANCE/REPAIR file (#660).`
37	PLACEHOLDER	1;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `APR 26, 2007` HELP-PROMPT: `Enter the National Provider Index for the Primary Care Provider.` DESCRIPTION: `Currently NULL.` TECHNICAL DESCR: `Currently NULL.`
38	PLACEHOLD MPI	1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `APR 29, 2022` HELP-PROMPT: `Enter the Master Patient Index for the prosthetics patient.` DESCRIPTION: `This field, previously known as MASTER PATIENT INDEX, is no longer needed. The name has been changed to PLACEHOLD MPI and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3184.`
39	PLACEHOLDER	1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `APR 19, 2016` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `This field, previously known as DSS PRODUCT DEPARTMENT, 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.` `SOURCE OF DATA:`
40	PLACEHOLD PC PROV PERSON CLASS	1;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<7) X` LAST EDITED: `MAY 01, 2018` HELP-PROMPT: `Answer must be 7 characters in length.` DESCRIPTION: `This field, previously known as PC PROVIDER PERSON CLASS, is no longer needed. The name has been changed to PLACEHOLD PC PROV PERSON CLASS and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3170.`
41	PLACEHOLD RACE	1;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `MAR 15, 2018` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: `This field, previously known as RACE, is no longer needed. The name has been changed to PLACEHOLD RACE and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3170.`
42	POW STATUS	1;10	SET	'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; LAST EDITED: `MAY 05, 1999` HELP-PROMPT: `Enter the patient's POW status.` DESCRIPTION: `Indicates if patient was confined as a Prisoner of War.` TECHNICAL DESCR: `Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in the PROSTHETICS EXTRACT file (#727.826), POW data is derived from the POW STATUS INDICATED? field (#.525) in the PATIENT file (#2).` `The status indicator is returned by SVC^VADPT.`
43	POW LOCATION	1;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `MAY 05, 1999` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: `If POW Status is indicated, then this is the POW confinement location/period.` `1 WORLD WAR I` `2 WORLD WAR II - EUROPE` `3 WORLD WAR II - PACIFIC` `4 KOREAN` `5 VIETNAM` `6 OTHER` TECHNICAL DESCR: `PATIENT file (#2); POW CONFINEMENT LOCATION field (#.526). This is a pointer value to the POW PERIOD file (#22). The location indicator is returned by SVC^VADPT.`
44	PLACEHOLD SHARE AGREEMNT PAYOR	1;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `FEB 04, 2019` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: `This field, previously known as SHARING AGREEMENT PAYOR, is no longer needed. The name has been changed to PLACEHOLD SHARE AGREEMNT PAYOR and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.`
45	PLACEHOLD SHARE AGREEMNT INSUR	1;13	POINTER TO INSURANCE COMPANY FILE (#36)	INSURANCE COMPANY(#36) LAST EDITED: `FEB 04, 2019` HELP-PROMPT: `Enter the primary insurance company for a patient with a sharing agreement.` DESCRIPTION: `This field, previously known as SHARING AGREEMENT INSURANCE, is no longer needed. The name has been changed to PLACEHOLD SHARE AGREEMNT INSUR and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.`
46	MST STATUS	1;14	SET	'Y' FOR Yes, screened reports MST; 'N' FOR Screened, does not report MST; 'D' FOR Screened, declines to answer; 'U' FOR Unknown, not screened; LAST EDITED: `JUN 15, 2012` HELP-PROMPT: `Enter patient's MST status.` DESCRIPTION: `Indicates the Military Sexual Trauma (MST) status of a patient on the date of the encounter.` TECHNICAL DESCR: `The MST HISTORY file (#29.11) holds data regarding military sexual trauma claims and effective dates. The patients MST status is stored in the MST STATUS field (#3). A call will be made to $$GETSTAT^DGMSTAPI(DFN,DGDATE)` `using the DFN in the PATIENT NO. DFN field (#4) and the date in the DAY field (#8) of the PROSTHETICS EXTRACT file (#727.826).`
47	ENROLLMENT LOCATION	1;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<3) X` LAST EDITED: `AUG 08, 2002` HELP-PROMPT: `Answer must be 3-7 characters in length` DESCRIPTION: `The facility that the patient chooses to designate as his preferred location for care.` TECHNICAL DESCR: `The PREFERRED FACILITY field (# 27.02) of the PATIENT file (#2) is defined as the facility that the patient chooses to designate as his preferred location for care. The PREFERRED FACILITY field (# 27.02) is a pointer to` `the INSTITUTION file (#4). From file #4, the value in the STATION NUMBER field (#99) is used.`
48	STATE	1;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `MAY 05, 1999` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: `The state in which the patient resides.` TECHNICAL DESCR: `Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in the extract record, data is derived from the STATE field (#.115) in the PATIENT file (#2) which points to the STATE file (#5). From the STATE` `file record, the two-character VA STATE CODE field (#2) is used.`
49	COUNTY	1;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `MAY 05, 1999` HELP-PROMPT: `Answer must be 3 characters in length.` DESCRIPTION: `The county in which the patient resides.` TECHNICAL DESCR: `Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in the extract record, data is derived from the COUNTY field (#.117) in the PATIENT file (#2), which points to a subfile record in the COUNTY` `multiple field (#3) of the STATE file (#5). The three-character VA COUNTY CODE field (#2) within the COUNTY multiple field is used.`
50	PLACEHOLD ASSOC PC PROVIDER	1;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<2) X` LAST EDITED: `MAY 01, 2018` HELP-PROMPT: `Answer must be 2-11 characters in length.` DESCRIPTION: `This field, previously known as ASSOCIATE PC PROVIDER, is no longer needed. The name has been changed to PLACEHOLD ASSOC PC PROVIDER and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3170.`
51	PLACEHOLD AS PC PROV PERSON CL	1;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<7) X` LAST EDITED: `MAY 01, 2018` HELP-PROMPT: `Answer must be 7 characters in length.` DESCRIPTION: `This field, previously known as ASSOC. PC PROV. PERSON CLASS, is no longer needed. The name has been changed to PLACEHOLD AS PC PROV PERSON CL and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3170.`
52	PLACEHOLDER	1;20	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `APR 26, 2007` HELP-PROMPT: `Answer must be 1-8 characters in length.` DESCRIPTION: `Currently NULL.` TECHNICAL DESCR: `Currently NULL.`
53	DOM,PRRTP AND SAARTP INDICATOR	1;21	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: `JUN 08, 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 the 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.`
54	ENROLLMENT CATEGORY	1;22	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `AUG 01, 2000` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: `Patient's enrollment category.` TECHNICAL DESCR: `ENROLLMENT CATEGORY is derived from the standard call $$CATEGORY^DGENA4 using the patient's DFN and the CURRENT ENROLLMENT field (#27.01) of the PATIENT file (#2).`
55	ENROLLMENT STATUS	1;23	POINTER TO ENROLLMENT STATUS FILE (#27.15)	ENROLLMENT STATUS(#27.15) LAST EDITED: `JUN 17, 2012` HELP-PROMPT: `Enter patient's enrollment status.` DESCRIPTION: `Patient's enrollment status.` TECHNICAL DESCR: `ENROLLMENT STATUS is derived from the standard call $$STATUS^DGENA using the patient's DFN and returns the ENROLLMENT STATUS field (#.04) of the PATIENT ENROLLMENT file (#27.11).`
56	PLACEHOLDER	1;24	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `MAR 01, 2004` HELP-PROMPT: `Answer must be 1 character in length.`
57	PURPLE HEART INDICATOR	1;25	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `OCT 09, 2002` HELP-PROMPT: `Enter the Purple Heart Indicator for the patient.` DESCRIPTION: `Indicates whether or not a patient is a Purple Heart recipient.` TECHNICAL DESCR: `PATIENT file (#2); CURRENT PH INDICATOR field (#.531). The status indicator is returned by SVC^VADPT.`
58	PERIOD OF SERVICE	1;26	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `AUG 01, 2000` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: `The period of service that best classifies the patient based on eligibility code.` TECHNICAL DESCR: `Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in the PROSTHETICS EXTRACT file (#727.826), PERIOD OF SERVICE data is derived from the PERIOD OF SERVICE field (#.323) in the PATIENT file (#2).` `This field is a pointer to the PERIOD OF SERVICE file (#21). Using the period of service pointer, the data is derived from the CODE field (#.03) in the PERIOD OF SERVICE file (#21). This code is a single alpha numeric` `character.` `The veteran's period of service indicator is returned by ELIG^VADPT.`
59	OBSERVATION PATIENT INDICATOR	1;27	SET	'NO' FOR NO; 'YES' FOR YES; LAST EDITED: `JUN 08, 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.`
60	ENCOUNTER NUMBER	1;28	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<1) X` LAST EDITED: `MAY 09, 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.`
61	AGENT ORANGE LOCATION	1;29	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` `MAXIMUM LENGTH: 1` LAST EDITED: `MAY 24, 2023` HELP-PROMPT: `Choose the location where the patient was exposed to Agent Orange. Answer must be 1 character in length.` DESCRIPTION: `This field indicates the location where the patient was exposed to Agent Orange. Values are:` `"B" = BLUE WATER NAVY` `"K" = KOREAN DMZ` `"V" = VIETNAM` `"T" = THAILAND(U.S. OR ROYAL THAI MIL BASE)` `"L" = LAOS` `"C" = CAMBODIA(MIMOT OR KREK,KAMPONG CHAM)` `"G" = GUAM, AMERICAN SAMOA, OR TERRITORIAL WATERS` `"J" = JOHNSTON ATOLL` `"O" = OTHER` TECHNICAL DESCR: `The location is returned by a call to SVC^VADPT which gets its data from the AGENT ORANGE EXPOSURE LOCATION field (#.3213) of the PATIENT file (#2). Values are:` `"B" = BLUE WATER NAVY` `"K" = KOREAN DMZ` `"V" = VIETNAM` `"T" = THAILAND(U.S. OR ROYAL THAI MIL BASE)` `"L" = LAOS` `"C" = CAMBODIA(MIMOT OR KREK,KAMPONG CHAM)` `"G" = GUAM, AMERICAN SAMOA, OR TERRITORIAL WATERS` `"J" = JOHNSTON ATOLL` `"O" = OTHER`
62	CNH STATUS	1;30	SET	'YES' FOR YES; 'NO' FOR NO; LAST EDITED: `MAR 12, 2014` HELP-PROMPT: `Enter the CNH status for this patient.` DESCRIPTION: `This field is used to indicate whether a patient is currently in a contract nursing home.` TECHNICAL DESCR: `Using the CNHSTAT^ECXUTL4(DFN) call, the CNH status is returned based on the CNH CURRENT field (#148) of the PATIENT file (#2).`
63	PRODUCTION DIVISION CODE	1;31	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<3) X` LAST EDITED: `JUN 17, 2012` HELP-PROMPT: `Answer must be 3-7 characters in length.` DESCRIPTION: `Identifies the division/facility where the work was performed.` TECHNICAL DESCR: `The STATION field (#8) of the RECORD OF PROS APPLIANCE/REPAIR file (#660) is used to call the api RADDIV^ECXDEPT to get the STATION NUMBER field (#99) from the INSTITUTION file (#4).`
64	HEAD & NECK CANCER INDICATOR	1;32	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `AUG 29, 2002` HELP-PROMPT: `Enter the Head & Neck Cancer Indicator for the patient.` DESCRIPTION: `Indicates whether patient has head and/or neck cancer.` TECHNICAL DESCR: `Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11).`
65	PLACEHOLD ETHNICITY	1;33	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `MAR 15, 2018` HELP-PROMPT: `Answer must be 1-6 characters in length` DESCRIPTION: `This field, previously known as ETHNICITY, is no longer needed. The name has been changed to PLACEHOLD ETHNICITY and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3170.`
66	PLACEHOLD RACE 1	1;34	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `MAR 15, 2018` HELP-PROMPT: `Answer must be 1-6 characters in length.` DESCRIPTION: `This field, previously known as RACE 1, is no longer needed. The name has been changed to PLACEHOLD RACE 1 and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3170.`
67	PLACEHOLD DSS IP #	1;35	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 04, 2019` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits.` DESCRIPTION: `This field, previously known as DSS IP #, is no longer needed. The name has been changed to PLACEHOLD DSS IP # and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.`
68	ENROLLMENT PRIORITY	1;36	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1) X` LAST EDITED: `MAR 01, 2004` HELP-PROMPT: `Answer must be 1-2 characters in length.` DESCRIPTION: `This field contains the enrollment priority group and the enrollment priority subgroup.` TECHNICAL DESCR: `ENROLLMENT PRIORITY field contains the enrollment priority group and the enrollment priority subgroup from the PATIENT ENROLLMENT File (#27.11).` `ENROLLMENT PRIORITY Groups determined for a patient enrollment include:` `'1' FOR GROUP 1` `'2' FOR GROUP 2` `'3' FOR GROUP 3` `'4' FOR GROUP 4` `'5' FOR GROUP 5` `'6' FOR GROUP 6` `'7' FOR GROUP 7` `'8' FOR GROUP 8` `ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include:` `'a' FOR 1` `'c' FOR 3` `'e' FOR 5` `'g' FOR 7`
69	USER ENROLLEE	1;37	SET	'U' FOR USER ENROLLED; LAST EDITED: `JUN 17, 2012` HELP-PROMPT: `Enter patient's current enrollment status.` DESCRIPTION: `Indicates whether a Veteran has User Enrollee status for the current or future fiscal year.` TECHNICAL DESCR: `User enrollee is determined by checking the PATIENT ENROLLMENT file (#27.11). When a user has a current or future fiscal year in the VistA User Enrollee Status (#.04) field the value is set to 'U' and Null if no date or a` `past year's value is contained. Determined by the use of an API: $$UESTAT^EASUSER where the Patient Identifier (DFN) is passed in.`
70	PATIENT TYPE	1;38	SET	'AC' FOR ACTIVE DUTY; 'AL' FOR ALLIED VETERAN; 'CO' FOR COLLATERAL; 'EM' FOR EMPLOYEE; 'IN' FOR INELIGIBLE; 'MI' FOR MILITARY RETIREE; 'NO' FOR NON-VETERAN (OTHER); 'NS' FOR NSC VETERAN; 'SC' FOR SC VETERAN; 'TR' FOR TRICARE; LAST EDITED: `MAR 01, 2004` HELP-PROMPT: `Enter type of patient.` DESCRIPTION: `Refers to the various types of patient which may be seen at a VA facility. Every patient in the system must have a TYPE specified.` TECHNICAL DESCR: `PATIENT TYPE is derived from a call to TYPE^ECXUTL5(DFN). Using the patient's DFN, the NAME field (#.01) of the TYPE OF PATIENT file (#391) as pointed to by the TYPE field (#391) of the PATIENT file (#2) is shortened to` `the first two characters to determine the value stored in the PATIENT TYPE field (#78).`
71	CV STATUS ELIGIBILITY	1;39	SET	'Y' FOR YES; 'E' FOR ELIGIBILITY EXPIRED; LAST EDITED: `JUN 18, 2012` HELP-PROMPT: `Enter patient's combat veteran eligibility.` DESCRIPTION: `Records if veteran served on active duty in a theater of combat operations during a period of war after the Persian Gulf War or in combat against a hostile force during a period of hostilities after November 11, 1998.` TECHNICAL DESCR: `CV STATUS ELIGIBILITY is determined by the use of API $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) from the PATIENT file (#2) to determine CV Status. API returns three pieces (i.e.` `1^20010106^0) and the first piece is resolved as follows.` `1 - veteran qualifies as a CV` `0 - veteran does not qualify as a CV` `-1 - bad DFN` `Based on this result the field will be set to 'Y' for 'YES' or 'E' for 'ELIGIBILITY EXPIRED' or 'NULL' for not eligible.`
72	CV ELIGIBILITY END DATE	1;40	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<8) X` LAST EDITED: `JUN 18, 2012` HELP-PROMPT: `Answer must be 8 characters in length.` DESCRIPTION: `Records the Combat Veteran eligibility expiration date of veteran who served on active duty in a theater of combat operations during a period of war after the Persian Gulf War or in combat against a hostile force during a` `period of hostilities after November 11, 1998.` TECHNICAL DESCR: `CV ELIGIBILITY END DATE is determined by the use of API $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) from the PATIENT file (#2) to determine CV Status. API returns three pieces (i.e.` `1^20010106^0) the 2nd piece is the COMBAT VET END DATE in HL7 format.`
73	PLACEHOLD ENCOUNTER CV	1;41	SET	'Y' FOR YES; LAST EDITED: `FEB 04, 2019` HELP-PROMPT: `Enter patient's combat veteran eligibility.` DESCRIPTION: `This field, previously known as ENCOUNTER CV, is no longer needed. The name has been changed to PLACEHOLD ENCOUNTER CV and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.`
74	NATIONAL PATIENT RECORD FLAG	1;42	SET	'Y' FOR YES; LAST EDITED: `JUN 18, 2012` HELP-PROMPT: `Indicate if patient is associated with a category 1 patient record flag.` DESCRIPTION: `This field records whether the patient's record contains 1 or more active category 1 (National) Patient Record Flags.` TECHNICAL DESCR: `The NATIONAL PATIENT RECORD FLAG field is set based on the results of the $$GETACT^DGPFAPI(DFN,TARGET ARRAY) call. This call looks at the category 1 national patient record flags as recorded in the PRF NATIONAL FLAG file` `(#26.15). The resulting value of this call is the number of active category I patient record flags assigned to this patient. This field is set to Y (YES) if the result is greater than zero. A value of zero causes this` `field to be left null.`
75	ERI	1;43	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1) X` `MAXIMUM LENGTH: 2` LAST EDITED: `MAY 05, 2020` HELP-PROMPT: `Answer must be 1-2 characters in length.` DESCRIPTION: `This field identifies patients from impacted zip code areas designated by the Federal Emergency Management Agency (FEMA).` TECHNICAL DESCR: `This field is extracted from the EMERGENCY RESPONSE INDICATOR field (#.181) located in the PATIENT file (#2). Values are:` `"K" = Hurricane Katrina` `"P" = Pandemic` `Null`
76	PLACEHOLD AGENT ORANGE ENC	1;44	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 04, 2019` HELP-PROMPT: `Enter patient's agent orange exposure indicator.` DESCRIPTION: `This field, previously known as AGENT ORANGE ENC INDICATOR, is no longer needed. The name has been changed to PLACEHOLD AGENT ORANGE ENC and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.`
77	PLACEHOLD ENCOUNTER SWAC	1;45	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 04, 2019` HELP-PROMPT: `Indicate if care is related to Southwest Asia Conditions status.` DESCRIPTION: `This field, previously known as ENCOUNTER SWAC, is no longer needed. The name has been changed to PLACEHOLD ENCOUNTER SWAC and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.`
78	PLACEHOLD ENC HEAD/NECK CA	1;46	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 04, 2019` HELP-PROMPT: `Indicate if service provided is related to head and/or neck cancer.` DESCRIPTION: `This field, previously known as ENC HEAD/NECK CA, is no longer needed. The name has been changed to PLACEHOLD ENC HEAD/NECK CA and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.`
79	PLACEHOLD ENCOUNTER MST	1;47	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 04, 2019` HELP-PROMPT: `Indicate if treatment is related to military sexual trauma.` DESCRIPTION: `This field, previously known as ENCOUNTER MST, is no longer needed. The name has been changed to PLACEHOLD ENCOUNTER MST and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.`
80	PLACEHOLD RADIATION ENCOUNTER	1;48	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 04, 2019` HELP-PROMPT: `Indicate if treatment is related to exposure to ionizing radiation.` DESCRIPTION: `This field, previously known as RADIATION ENCOUNTER INDICATOR, is no longer needed. The name has been changed to PLACEHOLD RADIATION ENCOUNTER and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.`
81	OEF/OIF	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<3) X` LAST EDITED: `JUN 18, 2012` HELP-PROMPT: `Answer must be 3-9 characters in length.` DESCRIPTION: `The Military Operation in which the patient was in combat during the specified time period. This field reflects the OEF or OIF where this patient was in combat.` TECHNICAL DESCR: `The Military Operation in which the patient was in combat during the specified time period. This field is a length of nine characters and reflects the OEF or OIF where this patient was in combat. The value of this field` `is derived from the LOCATION OF SERVICE field (#.01) in the SERVICE [OEF OR OIF] multiple field (#.3215) located in the PATIENT File (#2). DSS will capture once, each location where the veteran served. In order to` `accommodate multiple locations, the values for this field are concatenated into this 9-character field. Possible field values are one or more combinations of the following:` `OEF = Operation Enduring Freedom` `OIF = Operation Iraqi Freedom` `UNK = Unknown OEF/OIF`
82	OEF/OIF RETURN DATE	2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<8) X` LAST EDITED: `JUN 18, 2012` HELP-PROMPT: `Answer must be 8 characters in length.` DESCRIPTION: `The date the patient left the OEF/OIF area, if known. Otherwise, it is the end date of military pay for this OEF/OIF deployment.` TECHNICAL DESCR: `The date the patient left the OEF/OIF area, if known. Otherwise, it is the end date of military pay for this OEF/OIF deployment. This date field has a format equal to YYYYMMDD. The value of this field is derived from the` `OEF/OIF TO DATE field (#.03) of the SERVICE [OEF OR OIF] multiple field (#.3215) located in the PATIENT file (#2). In cases of multiple OEF/OIF tours, this field contains only the most recent return date.`
83	NPPD CODE	2;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<2) X` LAST EDITED: `JUN 18, 2012` HELP-PROMPT: `Answer must be 2-6 characters in length.` DESCRIPTION: `The National Prosthetics Product Database (NPPD) report line number to which the HCPCS are assigned.` TECHNICAL DESCR: `The value is derived from the PROSTHETIC HCPCS File (#661.1), field (#5) NPPD REPAIR CODE, if the record is a repair record. The value is derived from the PROSTHETIC HCPCS File (#661.1), field (#6) NPPD NEW CODE, if the` `record is for a new issue. Note: The PROSTHETICS (PRO) EXTRACT File (#727.826) already stores whether the record is for repair or a new issue in the TYPE OF TRANSACTION field (#29).`
84	NPPD ENTRY DATE	2;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<8) X` LAST EDITED: `JUN 18, 2012` HELP-PROMPT: `Answer must be 8 characters in length.` DESCRIPTION: `The date the entry was first made in the VistA Prosthetics Package.` TECHNICAL DESCR: `Format is YYYYMMDD. The date value is retrieved from the RECORD OF PROS APPLIANCE/REPAIR file (#660), field (#.01) ENTRY DATE.`
85	PLACEHOLD ASSOC PC PROV NPI	2;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `MAY 01, 2018` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `This field, previously known as ASSOCIATE PC PROVIDER NPI, is no longer needed. The name has been changed to PLACEHOLD ASSOC PC PROV NPI and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3170.`
86	PLACEHOLD PC PROVIDER NPI	2;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `MAY 01, 2018` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `This field, previously known as PRIMARY CARE PROVIDER NPI, is no longer needed. The name has been changed to PLACEHOLD PC PROVIDER NPI and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3170.`
87	COUNTRY CODE	2;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `JUN 09, 2009` HELP-PROMPT: `The code for the country. Answer must be 1-3 characters in length.` DESCRIPTION: `The code for the country associated with the address.` TECHNICAL DESCR: `The three-character alpha identifying code is copied from the CODE (#.01) field of the COUNTRY CODE (#779.004) file.`
88	SHAD STATUS	2;8	SET	'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; LAST EDITED: `FEB 12, 2010` HELP-PROMPT: `Enter SHAD Status.` DESCRIPTION: `Indicates whether patient meets requirements for Shipboard Hazard and Defense (SHAD).` TECHNICAL DESCR: `Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in the PROSTHETICS EXTRACT file (#727.826), Shipboard Hazard and Defense data is derived from using DBIA #4462 GETSHAD^DGUTL3(DFN).`
89	PLACEHOLD ENCOUNTER SHAD	2;9	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 04, 2019` HELP-PROMPT: `Encounter related to treatment for PROJ 112/SHAD condition - Y/N` DESCRIPTION: `This field, previously known as ENCOUNTER SHAD, is no longer needed. The name has been changed to PLACEHOLD ENCOUNTER SHAD and its value will be set to null.` TECHNICAL DESCR: `This field is no longer in use as of patch ECX3174.`
90	LABOR HOURS	2;10	NUMBER	INPUT TRANSFORM: `K:(X?.E1"."3N.N) X` LAST EDITED: `FEB 25, 2010` HELP-PROMPT: `Enter the Labor Hours` DESCRIPTION: `This is the number of hours spent on the job.` TECHNICAL DESCR: `Derived from the TOTAL LABOR HOURS field (#45) of the RECORD OF PROS APPLIANCE/REPAIR File (#660).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
91	PATCAT	2;11	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.`
92	PRIMARY ICD-10 CODE	2;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `MAR 04, 2012` HELP-PROMPT: `Answer must be 1-8 characters in length.` DESCRIPTION: `The primary ICD-10 code for the procedure performed. Not available in PRO extract.` TECHNICAL DESCR: `This field is not yet used by the Prosthetics Extract as the ICD information is not available in Prosthetics.`
93	SECONDARY ICD-10 CODE #1	2;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `MAR 04, 2012` HELP-PROMPT: `Answer must be 1-8 characters in length.` DESCRIPTION: `The first secondary ICD-10 code for the procedure performed. Not available in PRO extract.` TECHNICAL DESCR: `This field is not yet used by the Prosthetics Extract as the ICD information is not available in Prosthetics.`
94	SECONDARY ICD-10 CODE #2	2;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `MAR 04, 2012` HELP-PROMPT: `Answer must be 1-8 characters in length.` DESCRIPTION: `The second secondary ICD-10 code for the procedure performed. Not available in PRO extract.` TECHNICAL DESCR: `This field is not yet used by the Prosthetics Extract as the ICD information is not available in Prosthetics.`
95	SECONDARY ICD-10 CODE #3	2;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `MAR 04, 2012` HELP-PROMPT: `Answer must be 1-8 characters in length.` DESCRIPTION: `The third secondary ICD-10 code for the procedure performed. Not available in PRO extract.` TECHNICAL DESCR: `This field is not yet used by the Prosthetics Extract as the ICD information is not available in Prosthetics.`
96	SECONDARY ICD-10 CODE #4	2;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `MAR 04, 2012` HELP-PROMPT: `Answer must be 1-8 characters in length.` DESCRIPTION: `The fourth secondary ICD-10 code for the procedure performed. Not available in PRO extract.` TECHNICAL DESCR: `This field is not yet used by the Prosthetics Extract as the ICD information is not available in Prosthetics.`
97	PLACEHOLD ENCOUNTER SC	2;17	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.`
98	VIETNAM	2;18	SET	'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; LAST EDITED: `MAR 09, 2013` HELP-PROMPT: `Select the appropriate Vietnam service status for this patient.` DESCRIPTION: `Indicates if patient is a Vietnam era veteran.` TECHNICAL DESCR: `Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in the PROSTHETICS EXTRACT file (#727.826), VIETNAM data is derived from the VIETNAM SERVICE INDICATED? field (#.32101) in the PATIENT file (#2).`
99	CAMP LEJEUNE STATUS	2;19	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.`
100	PLACEHOLD ENC CAMP LEJEUNE	2;20	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.`
101	COMBAT VETERAN INDICATOR	2;21	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAR 06, 2014` HELP-PROMPT: `Enter 'YES' if this patient is a Combat Veteran.` DESCRIPTION: `Identifies if the patient served in a combat zone.` TECHNICAL DESCR: `Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in this file, COMBAT SERVICE INDICATOR data is derived from the COMBAT SERVICE INDICATED field (#.5291) in the PATIENT file (#2). COMBAT SERVICE` `INDICATED is returned by the supported call SVC^VADPT.`
102	COMBAT VETERAN LOCATION	2;22	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>14!($L(X)<1) X` LAST EDITED: `APR 03, 2014` HELP-PROMPT: `Answer must be 1-14 characters in length.` DESCRIPTION: `Identifies the war in which the combat service was incurred.` TECHNICAL DESCR: `Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in this file, COMBAT SERVICE LOCATION data is derived from the COMBAT SERVICE LOCATION field (#.5292) in the PATIENT file (#2). The COMBAT SERVICE` `LOCATION IEN is returned by the supported call SVC^VADPT, this IEN is then used to retrieve the ABBREVIATION field(#1) from the POW PERIOD file (#22).`
103	FORM REQUESTED ON	2;23	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1) X` LAST EDITED: `MAR 26, 2015` HELP-PROMPT: `Answer must be 1-2 characters in length.` DESCRIPTION: `Identifies which form was used to enter a prosthetics request.` TECHNICAL DESCR: `The source of data for this field is the FORM REQUESTED ON field (#11) of the RECORD OF PROS APPLIANCE/REPAIR file (#660). The value stored here will be the internal value of the set of codes from that field.`
104	UNIT OF ISSUE	2;24	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` `MAXIMUM LENGTH: 2` LAST EDITED: `JUN 20, 2017` HELP-PROMPT: `Enter the 2-character unit of issue related to the service/item provided.` DESCRIPTION: `This is the unit of issue associated with the item or service provided to the patient.` TECHNICAL DESCR: `This field is derived from the UNIT OF ISSUE field (#75) of the RECORD OF PROS APPLIANCE/REPAIR file (#660). The two-character NAME (#.01) field of the UNIT OF ISSUE file (#420.5) is used to represent the unit of issue` `associated with the item or service provided to the patient.`
105	NEW COST OF TRANSACTION	2;25	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0)!(X?.E1"."3.N) X` LAST EDITED: `FEB 27, 2019` HELP-PROMPT: `Type a dollar amount between 0 and 999999999, 2 decimal digits.` DESCRIPTION: `Cost to produce the prosthetic.` TECHNICAL DESCR: `NEW COST OF TRANSACTION is the value found in the TOTAL COST field (#14) in the RECORD OF PROS APPLIANCE/REPAIR file (#660) when the FORM REQUESTED ON field (#11) in the RECORD OF PROS APPLIANCE/REPAIR file (#660) is one` `of the following:` `1) PSC, represented by 1. 2) 2421, represented by 2. 3) 2237, represented by 3. 4) 2529-7, represented by 5. 5) 2474, represented by 6. 6) 2431, represented by 7. 7) 2914, represented by 8. 8) OTHER, represented by` `9. 9) 2520, represented by 10. 10) STOCK ISSUE, represented by 11. 11) INVENTORY ISSUE, represented by 12. 12) VISA, represented by 14. 13) DALC, represented by 16.` `NEW COST OF TRANSACTION is the value found in TOTAL LAB COST field (#48) in the RECORD OF PROS APPLIANCE/REPAIR file (#660) when the FORM REQUESTED ON field (#11) in the RECORD OF PROS APPLIANCE/REPAIR file (#660) is one` `of the following:` `1) 2529-3, represented by 4. 2) LAB ISSUE-3, represented by 15.` `NEW COST OF TRANSACTION is derived from the RECORD OF PROS APPLIANCE/REPAIR file (#660). Depending on how the COST OF TRANSACTION is constructed, data is derived from the following fields in the RECORD OF PROS` `APPLIANCE/REPAIR file (#660):` `1) TOTAL COST field (#14) 2) TOTAL LAB COST field (#48) 3) FORM REQUESTED ON field (#11)`
106	NEW LAB LABOR COST	2;26	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X` LAST EDITED: `FEB 27, 2019` HELP-PROMPT: `Type a dollar amount between 0 and 999999999, 2 decimal digits.` DESCRIPTION: `The total cost of the labor to perform the job.` TECHNICAL DESCR: `NEW LAB LABOR COST is derived from the TOTAL LABOR COST field (#46) in the RECORD OF PROS APPLIANCE/REPAIR file (#660).` `The following algorithm is defined:` `a) If the patient's prosthetic record indicates a Lab Transaction, the value of NEW LAB LABOR COST is equal to the value found for TOTAL LABOR COST field (#46).` `b) If the patient's prosthetic record is not a Lab Transaction, the value of NEW LAB LABOR COST is zero.` `c) If NEW LAB LABOR COST is not known, and the patient's prosthetic record indicates a Lab Transaction, a zero value is assigned to the extract record.`
107	NEW LAB MATERIAL COST	2;27	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X` LAST EDITED: `FEB 27, 2019` HELP-PROMPT: `Type a dollar amount between 0 and 999999999, 2 decimal digits.` DESCRIPTION: `The cost of all materials required to perform the job.` TECHNICAL DESCR: `The NEW LAB MATERIAL COST is derived from the RECORD OF PROS APPLIANCE/REPAIR file (#660) according to the following algorithm:` `a) If the patient's prosthetic record indicates a Lab Transaction, the value of NEW LAB MATERIAL COST is equal to the value found for TOTAL MATERIAL COST field (#47).` `b) If the patient's prosthetic record is not a Lab Transaction, the value of NEW LAB MATERIAL COST is zero.` `c) If NEW LAB MATERIAL COST is not known, and the patient's prosthetic record indicates a Lab Transaction, a zero value is assigned to the extract record.` `d) NEW LAB MATERIAL COST shall allow for values which are reported in dollars and cents. The actual value shall be extracted, including the decimal point.`
108	NEW MPI	2;28	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` `MAXIMUM LENGTH: 20` LAST EDITED: `APR 29, 2022` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `A national VA system IDENTIFIER which uniquely identifies a patient.` `Commonly called "Patient ICN" or "Patient IEN"; not to be confused with the IEN from the VistA PATIENT file.` TECHNICAL DESCR: `Derived by calling API $$GETICN^MPIF001 (supported DBIA #2701) that returns the Integration Control Number (ICN) and the ICN checksum for the given patient in the PATIENT file (#2).`
109	SELF IDENTIFIED GENDER	2;29	SET	'M' FOR Male; 'F' FOR Female; 'TM' FOR Transgender Male; 'TF' FOR Transgender Female; 'O' FOR Other; 'N' FOR Does not wish to disclose; 'B' FOR Non-Binary; LAST EDITED: `APR 29, 2022` HELP-PROMPT: `Answer must be 1-2 characters in length.` DESCRIPTION: `The SELF IDENTIFIED GENDER value indicates the patient's personal sense of their gender identity (if they choose to provide it).` `Self-identified gender may be the same or different as the sex assigned at` TECHNICAL DESCR: `Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in the PROSTHETICS EXTRACT file (#727.826), this data is derived from the SELF IDENTIFIED GENDER field (#.024) in the PATIENT file (#2).`

>>	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! , 11+1!, 12+1!, 13+1!, 14+1!, 15+1!, 16+1!, 17+1!, 18+1!, 19+1!, 23+1! , 24+1!, 25+1!, 26+1!, 30+1!, 31+1!, 32+1!, 33+1!, 34+1!, 36+1!, 37+1! , 38+1!, 39+1!, 40+1!, 41+1!, 43+1!, 44+1!, 47+1!, 48+1!, 49+1!, 50+1! , 51+1!, 52+1!, 54+1!, 56+1!, 58+1!, 60+1!, 61+1!, 63+1!, 65+1!, 66+1! , 67+1!, 68+1!, 72+1!, 75+1!, 81+1!, 82+1!, 83+1!, 84+1!, 85+1!, 86+1! , 87+1!, 90+1!, 92+1!, 93+1!, 94+1!, 95+1!, 96+1!, 102+1!, 103+1!, 104+1! , 105+1!, 106+1!, 107+1*!, 108+1!
>> Y	1OT+1, 8OT+1, 14OT+1, 30OT+1, 34OT+1*
>> Y(0	1OT+1, 8OT+1, 14OT+1, 30OT+1, 34OT+1*

Customize PDF page

Package: DSS Extracts

Global: ^ECX(727.826

Information

Description

Directly Accessed By Routines, Total: 11

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 4

Fields, Total: 110

External References

Global Variables Directly Accessed

Local Variables

Legend:

Name	Field # of Occurrence
$$ECXDATEX^ECXUTL	8OT+1, 30OT+1, 34OT+1
$$ECXYMX^ECXUTL	1OT+1
$$CPTOUT^ECXUTL3	14OT+1