EMERGENCY Released ECX*3*136 SEQ #126 Extracted from mail message **KIDS**:ECX*3.0*136^ **INSTALL NAME** ECX*3.0*136 "BLD",8254,0) ECX*3.0*136^DSS EXTRACTS^0^3120904^y "BLD",8254,1,0) ^^1^1^3111109^ "BLD",8254,1,1,0) FY13 DSS ENHANCEMENTS "BLD",8254,4,0) ^9.64PA^728.904^19 "BLD",8254,4,727.802,0) 727.802 "BLD",8254,4,727.802,2,0) ^9.641^727.802^1 "BLD",8254,4,727.802,2,727.802,0) ADMISSION EXTRACT (File-top level) "BLD",8254,4,727.802,2,727.802,1,0) ^9.6411^88^49 "BLD",8254,4,727.802,2,727.802,1,3,0) FACILITY "BLD",8254,4,727.802,2,727.802,1,5,0) SSN "BLD",8254,4,727.802,2,727.802,1,6,0) NAME "BLD",8254,4,727.802,2,727.802,1,7,0) IN OUT PATIENT INDICATOR "BLD",8254,4,727.802,2,727.802,1,11,0) DATE OF BIRTH "BLD",8254,4,727.802,2,727.802,1,14,0) HEALTH INSURANCE "BLD",8254,4,727.802,2,727.802,1,16,0) COUNTY "BLD",8254,4,727.802,2,727.802,1,17,0) ZIP+4 "BLD",8254,4,727.802,2,727.802,1,19,0) VETERAN "BLD",8254,4,727.802,2,727.802,1,20,0) VIETNAM "BLD",8254,4,727.802,2,727.802,1,21,0) AGENT ORANGE STATUS "BLD",8254,4,727.802,2,727.802,1,22,0) RADIATION STATUS "BLD",8254,4,727.802,2,727.802,1,23,0) POW STATUS "BLD",8254,4,727.802,2,727.802,1,24,0) PERIOD OF SERVICE "BLD",8254,4,727.802,2,727.802,1,25,0) MEANS TEST "BLD",8254,4,727.802,2,727.802,1,29,0) ATTENDING PHYSICIAN "BLD",8254,4,727.802,2,727.802,1,31,0) DRG "BLD",8254,4,727.802,2,727.802,1,36,0) PRIMARY WARD PROVIDER "BLD",8254,4,727.802,2,727.802,1,37,0) MASTER PATIENT INDEX "BLD",8254,4,727.802,2,727.802,1,43,0) MST STATUS "BLD",8254,4,727.802,2,727.802,1,44,0) SHAD STATUS "BLD",8254,4,727.802,2,727.802,1,48,0) PC PROVIDER PERSON CLASS "BLD",8254,4,727.802,2,727.802,1,49,0) ASSOCIATE PC PROVIDER "BLD",8254,4,727.802,2,727.802,1,50,0) ASSOC. PC PROV. PERSON CLASS "BLD",8254,4,727.802,2,727.802,1,52,0) DOM, PRRTP AND SAARTP "BLD",8254,4,727.802,2,727.802,1,53,0) ENROLLMENT CATEGORY "BLD",8254,4,727.802,2,727.802,1,54,0) ENROLLMENT STATUS "BLD",8254,4,727.802,2,727.802,1,55,0) ENCOUNTER SHAD "BLD",8254,4,727.802,2,727.802,1,57,0) OBSERVATION PATIENT INDICATOR "BLD",8254,4,727.802,2,727.802,1,58,0) ENCOUNTER NUMBER "BLD",8254,4,727.802,2,727.802,1,59,0) AGENT ORANGE LOCATION "BLD",8254,4,727.802,2,727.802,1,60,0) PRODUCTION DIVISION CODE "BLD",8254,4,727.802,2,727.802,1,63,0) HEAD & NECK CANCER INDICATOR "BLD",8254,4,727.802,2,727.802,1,65,0) RACE 1 "BLD",8254,4,727.802,2,727.802,1,66,0) ENROLLMENT PRIORITY "BLD",8254,4,727.802,2,727.802,1,67,0) USER ENROLLEE "BLD",8254,4,727.802,2,727.802,1,68,0) PATIENT TYPE "BLD",8254,4,727.802,2,727.802,1,69,0) CV STATUS ELIGIBILITY "BLD",8254,4,727.802,2,727.802,1,70,0) CV ELIGIBILITY END DATE "BLD",8254,4,727.802,2,727.802,1,71,0) ENCOUNTER CV "BLD",8254,4,727.802,2,727.802,1,72,0) NATIONAL PATIENT RECORD FLAG "BLD",8254,4,727.802,2,727.802,1,73,0) ATTENDING PHYSICIAN PC "BLD",8254,4,727.802,2,727.802,1,74,0) PRIMARY WARD PROVIDER PC "BLD",8254,4,727.802,2,727.802,1,75,0) SW ASIA CONDITIONS "BLD",8254,4,727.802,2,727.802,1,77,0) AGENT ORANGE ENC INDICATOR "BLD",8254,4,727.802,2,727.802,1,88,0) ADMIT OUTPATIENT TX FLAG "BLD",8254,4,727.802,2,727.802,1,89,0) COUNTRY CODE "BLD",8254,4,727.802,2,727.802,1,92,0) ED DISPOSITION CODE "BLD",8254,4,727.802,2,727.802,1,93,0) PRIMARY ICD-10 CODE "BLD",8254,4,727.802,222) y^n^p^^^^n^^n "BLD",8254,4,727.802,224) "BLD",8254,4,727.808,0) 727.808 "BLD",8254,4,727.808,2,0) ^9.641^727.808^1 "BLD",8254,4,727.808,2,727.808,0) PHYSICAL MOVEMENT EXTRACT (File-top level) "BLD",8254,4,727.808,2,727.808,1,0) ^9.6411^31^21 "BLD",8254,4,727.808,2,727.808,1,3,0) FACILITY "BLD",8254,4,727.808,2,727.808,1,5,0) SSN "BLD",8254,4,727.808,2,727.808,1,6,0) NAME "BLD",8254,4,727.808,2,727.808,1,7,0) IN OUT PATIENT INDICATOR "BLD",8254,4,727.808,2,727.808,1,13,0) TYPE "BLD",8254,4,727.808,2,727.808,1,14,0) LOSING WARD "BLD",8254,4,727.808,2,727.808,1,15,0) TREATING SPECIALTY "BLD",8254,4,727.808,2,727.808,1,19,0) MOV TIME "BLD",8254,4,727.808,2,727.808,1,20,0) GAINING WARD "BLD",8254,4,727.808,2,727.808,1,21,0) ADMISSION TIME "BLD",8254,4,727.808,2,727.808,1,24,0) MASTER PATIENT INDEX "BLD",8254,4,727.808,2,727.808,1,25,0) DSS DEPT. "BLD",8254,4,727.808,2,727.808,1,26,0) DOM,PRRTP AND SAARTP INDICATOR "BLD",8254,4,727.808,2,727.808,1,27,0) OBSERVATION PATIENT INDICATOR "BLD",8254,4,727.808,2,727.808,1,28,0) ENCOUNTER NUMBER "BLD",8254,4,727.808,2,727.808,1,29,0) DISCHARGE PC PROVIDER "BLD",8254,4,727.808,2,727.808,1,30,0) DISCHARGE PC TEAM "BLD",8254,4,727.808,2,727.808,1,31,0) DISCHARGE ASSOC PC PROVIDER "BLD",8254,4,727.808,2,727.808,1,32,0) PRODUCTION DIVISION CODE "BLD",8254,4,727.808,2,727.808,1,33,0) DISCHARGE PC PROV PERSON CLASS "BLD",8254,4,727.808,2,727.808,1,34,0) DISCH ASSOC PC PROVIDER PC "BLD",8254,4,727.808,222) y^n^p^^^^n^^n "BLD",8254,4,727.808,224) "BLD",8254,4,727.809,0) 727.809 "BLD",8254,4,727.809,2,0) ^9.641^727.809^1 "BLD",8254,4,727.809,2,727.809,0) UNIT DOSE LOCAL EXTRACT (File-top level) "BLD",8254,4,727.809,2,727.809,1,0) ^9.6411^65^54 "BLD",8254,4,727.809,2,727.809,1,3,0) FACILITY "BLD",8254,4,727.809,2,727.809,1,5,0) SSN "BLD",8254,4,727.809,2,727.809,1,6,0) NAME "BLD",8254,4,727.809,2,727.809,1,7,0) IN OUT PATIENT INDICATOR "BLD",8254,4,727.809,2,727.809,1,10,0) QUANTITY "BLD",8254,4,727.809,2,727.809,1,11,0) WARD "BLD",8254,4,727.809,2,727.809,1,13,0) COST "BLD",8254,4,727.809,2,727.809,1,17,0) NEW FEEDER KEY "BLD",8254,4,727.809,2,727.809,1,18,0) INVESTIGATIONAL "BLD",8254,4,727.809,2,727.809,1,19,0) UDP TIME "BLD",8254,4,727.809,2,727.809,1,20,0) ADMISSION DATE "BLD",8254,4,727.809,2,727.809,1,21,0) ADMISSION TIME "BLD",8254,4,727.809,2,727.809,1,22,0) MASTER PATIENT INDEX "BLD",8254,4,727.809,2,727.809,1,23,0) DSS PRODUCT DEPARTMENT "BLD",8254,4,727.809,2,727.809,1,25,0) DOM,PRRTP AND SAARTP INDICATOR "BLD",8254,4,727.809,2,727.809,1,26,0) OBSERVATION PATIENT INDICATOR "BLD",8254,4,727.809,2,727.809,1,27,0) ENCOUNTER NUMBER "BLD",8254,4,727.809,2,727.809,1,28,0) PRODUCTION DIVISION CODE "BLD",8254,4,727.809,2,727.809,1,29,0) MEANS TEST "BLD",8254,4,727.809,2,727.809,1,31,0) DATE OF BIRTH "BLD",8254,4,727.809,2,727.809,1,32,0) SEX "BLD",8254,4,727.809,2,727.809,1,35,0) ZIP+4 "BLD",8254,4,727.809,2,727.809,1,36,0) VETERAN "BLD",8254,4,727.809,2,727.809,1,38,0) POW STATUS "BLD",8254,4,727.809,2,727.809,1,40,0) RADIATION STATUS "BLD",8254,4,727.809,2,727.809,1,41,0) AGENT ORANGE STATUS "BLD",8254,4,727.809,2,727.809,1,42,0) AGENT ORANGE LOCATION "BLD",8254,4,727.809,2,727.809,1,43,0) PURPLE HEART INDICATOR "BLD",8254,4,727.809,2,727.809,1,44,0) MST STATUS "BLD",8254,4,727.809,2,727.809,1,45,0) CNH/SH STATUS "BLD",8254,4,727.809,2,727.809,1,47,0) ENROLLMENT CATEGORY "BLD",8254,4,727.809,2,727.809,1,48,0) ENROLLMENT STATUS "BLD",8254,4,727.809,2,727.809,1,49,0) SHAD STATUS "BLD",8254,4,727.809,2,727.809,1,51,0) PRIMARY CARE PROVIDER "BLD",8254,4,727.809,2,727.809,1,53,0) PC PROVIDER PERSON CLASS "BLD",8254,4,727.809,2,727.809,1,54,0) ASSOCIATE PC PROVIDER "BLD",8254,4,727.809,2,727.809,1,56,0) ASSOC. PC PROV. PERSON CLASS "BLD",8254,4,727.809,2,727.809,1,57,0) ORDERING DATE "BLD",8254,4,727.809,2,727.809,1,58,0) ORDERING STOP CODE "BLD",8254,4,727.809,2,727.809,1,59,0) HEAD & NECK CANCER INDICATOR "BLD",8254,4,727.809,2,727.809,1,61,0) RACE 1 "BLD",8254,4,727.809,2,727.809,1,62,0) BCMA DRUG DISPENSED "BLD",8254,4,727.809,2,727.809,1,63,0) BCMA DOSE GIVEN "BLD",8254,4,727.809,2,727.809,1,64,0) BCMA UNIT OF ADMINISTRATION "BLD",8254,4,727.809,2,727.809,1,65,0) BCMA ICU FLAG "BLD",8254,4,727.809,2,727.809,1,67,0) DSS IP # "BLD",8254,4,727.809,2,727.809,1,68,0) ENROLLMENT PRIORITY "BLD",8254,4,727.809,2,727.809,1,69,0) USER ENROLLEE "BLD",8254,4,727.809,2,727.809,1,70,0) PATIENT TYPE "BLD",8254,4,727.809,2,727.809,1,71,0) CV STATUS ELIGIBILITY "BLD",8254,4,727.809,2,727.809,1,72,0) CV ELIGIBILITY END DATE "BLD",8254,4,727.809,2,727.809,1,73,0) ENCOUNTER CV "BLD",8254,4,727.809,2,727.809,1,74,0) NATIONAL PATIENT RECORD FLAG "BLD",8254,4,727.809,2,727.809,1,82,0) COUNTRY CODE "BLD",8254,4,727.809,222) y^n^p^^^^n^^n "BLD",8254,4,727.809,224) "BLD",8254,4,727.81,0) 727.81 "BLD",8254,4,727.81,2,0) ^9.641^727.81^1 "BLD",8254,4,727.81,2,727.81,0) PRESCRIPTION EXTRACT (File-top level) "BLD",8254,4,727.81,2,727.81,1,0) ^9.6411^65^55 "BLD",8254,4,727.81,2,727.81,1,3,0) FACILITY "BLD",8254,4,727.81,2,727.81,1,5,0) SSN "BLD",8254,4,727.81,2,727.81,1,6,0) NAME "BLD",8254,4,727.81,2,727.81,1,7,0) IN OUT PATIENT INDICATOR "BLD",8254,4,727.81,2,727.81,1,10,0) PROVIDER "BLD",8254,4,727.81,2,727.81,1,12,0) MAIL "BLD",8254,4,727.81,2,727.81,1,15,0) SHAD STATUS "BLD",8254,4,727.81,2,727.81,1,16,0) QUANTITY "BLD",8254,4,727.81,2,727.81,1,17,0) COST "BLD",8254,4,727.81,2,727.81,1,18,0) ENCOUNTER SHAD "BLD",8254,4,727.81,2,727.81,1,20,0) TREATING SPECIALTY "BLD",8254,4,727.81,2,727.81,1,23,0) DATE OF BIRTH "BLD",8254,4,727.81,2,727.81,1,25,0) VETERAN "BLD",8254,4,727.81,2,727.81,1,27,0) FEEDER KEY "BLD",8254,4,727.81,2,727.81,1,28,0) DEA, SPECIAL HDLG "BLD",8254,4,727.81,2,727.81,1,30,0) PRIMARY CARE TEAM "BLD",8254,4,727.81,2,727.81,1,31,0) PRIMARY CARE PROVIDER "BLD",8254,4,727.81,2,727.81,1,32,0) TIME "BLD",8254,4,727.81,2,727.81,1,34,0) MASTER PATIENT INDEX "BLD",8254,4,727.81,2,727.81,1,35,0) DSS PRODUCT DEPARTMENT "BLD",8254,4,727.81,2,727.81,1,36,0) SEX "BLD",8254,4,727.81,2,727.81,1,37,0) ZIP+4 "BLD",8254,4,727.81,2,727.81,1,43,0) POW STATUS "BLD",8254,4,727.81,2,727.81,1,45,0) RADIATION STATUS "BLD",8254,4,727.81,2,727.81,1,46,0) AGENT ORANGE STATUS "BLD",8254,4,727.81,2,727.81,1,48,0) SHARING AGREEMENT INSURANCE "BLD",8254,4,727.81,2,727.81,1,49,0) MST STATUS "BLD",8254,4,727.81,2,727.81,1,51,0) ASSOCIATE PC PROVIDER "BLD",8254,4,727.81,2,727.81,1,52,0) ASSOC. PC PROV. PERSON CLASS "BLD",8254,4,727.81,2,727.81,1,54,0) DOM,PRRTP AND SAARTP INDICATOR "BLD",8254,4,727.81,2,727.81,1,56,0) ENROLLMENT CATEGORY "BLD",8254,4,727.81,2,727.81,1,57,0) ENROLLMENT STATUS "BLD",8254,4,727.81,2,727.81,1,59,0) CNHU STATUS "BLD",8254,4,727.81,2,727.81,1,61,0) OBSERVATION PATIENT INDICATOR "BLD",8254,4,727.81,2,727.81,1,62,0) ENCOUNTER NUMBER "BLD",8254,4,727.81,2,727.81,1,63,0) AGENT ORANGE LOCATION "BLD",8254,4,727.81,2,727.81,1,65,0) ORDERING STOP CODE "BLD",8254,4,727.81,2,727.81,1,66,0) ORDERING DATE "BLD",8254,4,727.81,2,727.81,1,67,0) CNH/SH STATUS "BLD",8254,4,727.81,2,727.81,1,68,0) PRODUCTION DIVISION CODE "BLD",8254,4,727.81,2,727.81,1,69,0) MEANS TEST "BLD",8254,4,727.81,2,727.81,1,73,0) DSS IP # "BLD",8254,4,727.81,2,727.81,1,74,0) ENROLLMENT PRIORITY "BLD",8254,4,727.81,2,727.81,1,77,0) CV STATUS ELIGIBILITY "BLD",8254,4,727.81,2,727.81,1,78,0) CV ELIGIBILITY END DATE "BLD",8254,4,727.81,2,727.81,1,79,0) ENCOUNTER CV "BLD",8254,4,727.81,2,727.81,1,80,0) NATIONAL PATIENT RECORD FLAG "BLD",8254,4,727.81,2,727.81,1,81,0) RX PATIENT STATUS "BLD",8254,4,727.81,2,727.81,1,82,0) NON VA PRESCRIBER "BLD",8254,4,727.81,2,727.81,1,85,0) AGENT ORANGE ENC INDICATOR "BLD",8254,4,727.81,2,727.81,1,86,0) ENCOUNTER SWAC "BLD",8254,4,727.81,2,727.81,1,87,0) ENC HEAD/NECK CA "BLD",8254,4,727.81,2,727.81,1,88,0) ENCOUNTER MST "BLD",8254,4,727.81,2,727.81,1,90,0) RADIATION ENCOUNTER INDICATOR "BLD",8254,4,727.81,2,727.81,1,97,0) COUNTRY CODE "BLD",8254,4,727.81,222) y^n^p^^^^n^^n "BLD",8254,4,727.81,224) "BLD",8254,4,727.811,0) 727.811 "BLD",8254,4,727.811,2,0) ^9.641^727.811^1 "BLD",8254,4,727.811,2,727.811,0) SURGERY EXTRACT (File-top level) "BLD",8254,4,727.811,2,727.811,1,0) ^9.6411^72^52 "BLD",8254,4,727.811,2,727.811,1,3,0) FACILITY "BLD",8254,4,727.811,2,727.811,1,5,0) SSN "BLD",8254,4,727.811,2,727.811,1,6,0) NAME "BLD",8254,4,727.811,2,727.811,1,7,0) IN OUT PATIENT INDICATOR "BLD",8254,4,727.811,2,727.811,1,12,0) SURGEON "BLD",8254,4,727.811,2,727.811,1,13,0) ATTENDING SURGEON "BLD",8254,4,727.811,2,727.811,1,14,0) ANESTHESIA SUPERVISOR "BLD",8254,4,727.811,2,727.811,1,22,0) PROSTHESIS "BLD",8254,4,727.811,2,727.811,1,31,0) NON-OR DSS IDENTIFIER "BLD",8254,4,727.811,2,727.811,1,35,0) PRIMARY CARE PROVIDER "BLD",8254,4,727.811,2,727.811,1,36,0) ADMISSION DATE "BLD",8254,4,727.811,2,727.811,1,37,0) MASTER PATIENT INDEX "BLD",8254,4,727.811,2,727.811,1,38,0) DSS PRODUCT DEPARTMENT "BLD",8254,4,727.811,2,727.811,1,44,0) ASSOCIATE PC PROVIDER "BLD",8254,4,727.811,2,727.811,1,45,0) ASSOC. PC PROV. PERSON CLASS "BLD",8254,4,727.811,2,727.811,1,47,0) CPT CODE QUANTITY MODIFIERS "BLD",8254,4,727.811,2,727.811,1,48,0) DOM,PRRTP AND SAARTP INDICATOR "BLD",8254,4,727.811,2,727.811,1,49,0) ENROLLMENT CATEGORY "BLD",8254,4,727.811,2,727.811,1,50,0) ENROLLMENT STATUS "BLD",8254,4,727.811,2,727.811,1,52,0) PERIOD OF SERVICE "BLD",8254,4,727.811,2,727.811,1,54,0) OBSERVATION PATIENT INDICATOR "BLD",8254,4,727.811,2,727.811,1,55,0) ENCOUNTER NUMBER "BLD",8254,4,727.811,2,727.811,1,56,0) AGENT ORANGE LOCATION "BLD",8254,4,727.811,2,727.811,1,57,0) PRODUCTION DIVISION CODE "BLD",8254,4,727.811,2,727.811,1,58,0) HEAD & NECK CANCER INDICATOR "BLD",8254,4,727.811,2,727.811,1,60,0) RACE 1 "BLD",8254,4,727.811,2,727.811,1,62,0) DSS IP # "BLD",8254,4,727.811,2,727.811,1,63,0) ENROLLMENT PRIORITY "BLD",8254,4,727.811,2,727.811,1,64,0) USER ENROLLEE "BLD",8254,4,727.811,2,727.811,1,65,0) PATIENT TYPE "BLD",8254,4,727.811,2,727.811,1,66,0) CV STATUS ELIGIBILITY "BLD",8254,4,727.811,2,727.811,1,67,0) CV ELIGIBILITY END DATE "BLD",8254,4,727.811,2,727.811,1,68,0) ENCOUNTER CV "BLD",8254,4,727.811,2,727.811,1,69,0) ROOM CLEANING TIME "BLD",8254,4,727.811,2,727.811,1,71,0) NATIONAL PATIENT RECORD FLAG "BLD",8254,4,727.811,2,727.811,1,72,0) PRINCIPAL ANESTHETIST "BLD",8254,4,727.811,2,727.811,1,78,0) AGENT ORANGE ENC INDICATOR "BLD",8254,4,727.811,2,727.811,1,79,0) ENC HEAD/NECK CA "BLD",8254,4,727.811,2,727.811,1,82,0) CLINIC POINTER "BLD",8254,4,727.811,2,727.811,1,83,0) CREDIT STOP "BLD",8254,4,727.811,2,727.811,1,84,0) STOP CODE "BLD",8254,4,727.811,2,727.811,1,85,0) PRINC POSTOP DIAGNOSIS CODE "BLD",8254,4,727.811,2,727.811,1,86,0) OTHER POSTOP DIAGNOSIS CODE #1 "BLD",8254,4,727.811,2,727.811,1,87,0) OTHER POSTOP DIAGNOSIS CODE #2 "BLD",8254,4,727.811,2,727.811,1,88,0) OTHER POSTOP DIAGNOSIS CODE #3 "BLD",8254,4,727.811,2,727.811,1,89,0) OTHER POSTOP DIAGNOSIS CODE #4 "BLD",8254,4,727.811,2,727.811,1,90,0) OTHER POSTOP DIAGNOSIS CODE #5 "BLD",8254,4,727.811,2,727.811,1,97,0) ENCOUNTER SWAC "BLD",8254,4,727.811,2,727.811,1,98,0) RADIATION ENCOUNTER INDICATOR "BLD",8254,4,727.811,2,727.811,1,101,0) AGENT ORANGE STATUS "BLD",8254,4,727.811,2,727.811,1,102,0) SW ASIA CONDITIONS "BLD",8254,4,727.811,2,727.811,1,121,0) DATE OF BIRTH "BLD",8254,4,727.811,222) y^n^p^^^^n^^n "BLD",8254,4,727.811,224) "BLD",8254,4,727.813,0) 727.813 "BLD",8254,4,727.813,2,0) ^9.641^727.813^1 "BLD",8254,4,727.813,2,727.813,0) LABORATORY EXTRACT (File-top level) "BLD",8254,4,727.813,2,727.813,1,0) ^9.6411^36^22 "BLD",8254,4,727.813,2,727.813,1,3,0) FACILITY "BLD",8254,4,727.813,2,727.813,1,4,0) PATIENT NO. - DFN "BLD",8254,4,727.813,2,727.813,1,5,0) SSN IDENTIFYING NUMBER "BLD",8254,4,727.813,2,727.813,1,7,0) IN OUT PATIENT INDICATOR "BLD",8254,4,727.813,2,727.813,1,8,0) DAY "BLD",8254,4,727.813,2,727.813,1,9,0) ACCESSION AREA "BLD",8254,4,727.813,2,727.813,1,10,0) ABBREVIATION "BLD",8254,4,727.813,2,727.813,1,11,0) TEST "BLD",8254,4,727.813,2,727.813,1,12,0) URGENCY OF TEST "BLD",8254,4,727.813,2,727.813,1,14,0) LOCATION "BLD",8254,4,727.813,2,727.813,1,21,0) PRIMARY CARE PROVIDER "BLD",8254,4,727.813,2,727.813,1,22,0) MASTER PATIENT INDEX "BLD",8254,4,727.813,2,727.813,1,23,0) DSS PRODUCT DEPARTMENT "BLD",8254,4,727.813,2,727.813,1,27,0) ASSOCIATE PC PROVIDER "BLD",8254,4,727.813,2,727.813,1,28,0) ASSOC. PC PROV. PERSON CLASS "BLD",8254,4,727.813,2,727.813,1,30,0) DOM,PRRTP AND SAARTP INDICATOR "BLD",8254,4,727.813,2,727.813,1,31,0) OBSERVATION PATIENT INDICATOR "BLD",8254,4,727.813,2,727.813,1,32,0) ENCOUNTER NUMBER "BLD",8254,4,727.813,2,727.813,1,33,0) ORDERING STOP CODE "BLD",8254,4,727.813,2,727.813,1,34,0) ORDERING DATE "BLD",8254,4,727.813,2,727.813,1,36,0) DSS IP # "BLD",8254,4,727.813,2,727.813,1,37,0) ORDERING PROVIDER PERSON CLASS "BLD",8254,4,727.813,222) y^n^p^^^^n^^n "BLD",8254,4,727.813,224) "BLD",8254,4,727.814,0) 727.814 "BLD",8254,4,727.814,2,0) ^9.641^727.814^1 "BLD",8254,4,727.814,2,727.814,0) RADIOLOGY EXTRACT (File-top level) "BLD",8254,4,727.814,2,727.814,1,0) ^9.6411^49^21 "BLD",8254,4,727.814,2,727.814,1,3,0) FACILITY "BLD",8254,4,727.814,2,727.814,1,5,0) SSN "BLD",8254,4,727.814,2,727.814,1,6,0) NAME "BLD",8254,4,727.814,2,727.814,1,7,0) IN OUT PATIENT INDICATOR "BLD",8254,4,727.814,2,727.814,1,9,0) CPT CODE & MODIFIERS "BLD",8254,4,727.814,2,727.814,1,22,0) PRIMARY CARE PROVIDER "BLD",8254,4,727.814,2,727.814,1,23,0) MASTER PATIENT INDEX "BLD",8254,4,727.814,2,727.814,1,24,0) DSS PRODUCT DEPARTMENT "BLD",8254,4,727.814,2,727.814,1,28,0) ASSOCIATE PC PROVIDER "BLD",8254,4,727.814,2,727.814,1,29,0) ASSOC. PC PROV. PERSON CLASS "BLD",8254,4,727.814,2,727.814,1,31,0) DOM,PRRTP AND SAARTP INDICATOR "BLD",8254,4,727.814,2,727.814,1,32,0) OBSERVATION PATIENT INDICATOR "BLD",8254,4,727.814,2,727.814,1,33,0) ENCOUNTER NUMBER "BLD",8254,4,727.814,2,727.814,1,34,0) RAD STOP CODE "BLD",8254,4,727.814,2,727.814,1,35,0) ORDERING DATE "BLD",8254,4,727.814,2,727.814,1,37,0) DSS IP # "BLD",8254,4,727.814,2,727.814,1,38,0) ORDERING PROVIDER PERSON CLASS "BLD",8254,4,727.814,2,727.814,1,39,0) INTERPRETING RADIOLOGIST "BLD",8254,4,727.814,2,727.814,1,40,0) INTERPRETING RADIOLOGIST PC "BLD",8254,4,727.814,2,727.814,1,42,0) CLINIC STOP CODE "BLD",8254,4,727.814,2,727.814,1,49,0) CREDIT METHOD "BLD",8254,4,727.814,222) y^n^p^^^^n^^n "BLD",8254,4,727.814,224) "BLD",8254,4,727.815,0) 727.815 "BLD",8254,4,727.815,2,0) ^9.641^727.815^1 "BLD",8254,4,727.815,2,727.815,0) EVENT CAPTURE LOCAL EXTRACT (File-top level) "BLD",8254,4,727.815,2,727.815,1,0) ^9.6411^110^65 "BLD",8254,4,727.815,2,727.815,1,3,0) FACILITY "BLD",8254,4,727.815,2,727.815,1,5,0) SSN "BLD",8254,4,727.815,2,727.815,1,6,0) NAME "BLD",8254,4,727.815,2,727.815,1,7,0) IN OUT PATIENT INDICATOR "BLD",8254,4,727.815,2,727.815,1,8,0) DAY "BLD",8254,4,727.815,2,727.815,1,9,0) DSS UNIT "BLD",8254,4,727.815,2,727.815,1,12,0) VOLUME "BLD",8254,4,727.815,2,727.815,1,13,0) COST CENTER "BLD",8254,4,727.815,2,727.815,1,14,0) ORDERING SECTION "BLD",8254,4,727.815,2,727.815,1,16,0) PROVIDER "BLD",8254,4,727.815,2,727.815,1,17,0) PROVIDER PERSON CLASS "BLD",8254,4,727.815,2,727.815,1,18,0) PROVIDER #2 "BLD",8254,4,727.815,2,727.815,1,19,0) PROVIDER #2 PERSON CLASS "BLD",8254,4,727.815,2,727.815,1,20,0) PROVIDER #3 "BLD",8254,4,727.815,2,727.815,1,21,0) PROVIDER #3 PERSON CLASS "BLD",8254,4,727.815,2,727.815,1,26,0) PRIMARY CARE TEAM "BLD",8254,4,727.815,2,727.815,1,28,0) PCE CPT CODE & MODIFIERS "BLD",8254,4,727.815,2,727.815,1,29,0) ICD-9 CODE "BLD",8254,4,727.815,2,727.815,1,30,0) SECONDARY ICD9 CODE #1 "BLD",8254,4,727.815,2,727.815,1,31,0) SECONDARY ICD9 CODE #2 "BLD",8254,4,727.815,2,727.815,1,32,0) SECONDARY ICD9 CODE #3 "BLD",8254,4,727.815,2,727.815,1,33,0) SECONDARY ICD9 CODE #4 "BLD",8254,4,727.815,2,727.815,1,34,0) AGENT ORANGE "BLD",8254,4,727.815,2,727.815,1,35,0) RADIATION EXPOSURE "BLD",8254,4,727.815,2,727.815,1,36,0) SW ASIA CONDITIONS "BLD",8254,4,727.815,2,727.815,1,37,0) SERVICE CONNECTED "BLD",8254,4,727.815,2,727.815,1,40,0) DSS IDENTIFIER "BLD",8254,4,727.815,2,727.815,1,42,0) MASTER PATIENT INDEX "BLD",8254,4,727.815,2,727.815,1,43,0) DSS PRODUCT DEPARTMENT "BLD",8254,4,727.815,2,727.815,1,47,0) PC PROVIDER PERSON CLASS "BLD",8254,4,727.815,2,727.815,1,49,0) ASSOCIATE PC PROVIDER "BLD",8254,4,727.815,2,727.815,1,50,0) ASSOC. PC PROV. PERSON CLASS "BLD",8254,4,727.815,2,727.815,1,53,0) MST STATUS "BLD",8254,4,727.815,2,727.815,1,54,0) DOM,PRRTP AND SAARTP INDICATOR "BLD",8254,4,727.815,2,727.815,1,55,0) DATE OF BIRTH "BLD",8254,4,727.815,2,727.815,1,56,0) ENROLLMENT CATEGORY "BLD",8254,4,727.815,2,727.815,1,57,0) ENROLLMENT STATUS "BLD",8254,4,727.815,2,727.815,1,61,0) OBSERVATION PATIENT INDICATOR "BLD",8254,4,727.815,2,727.815,1,62,0) ENCOUNTER NUMBER "BLD",8254,4,727.815,2,727.815,1,63,0) AGENT ORANGE LOCATION "BLD",8254,4,727.815,2,727.815,1,68,0) CNH/SH STATUS "BLD",8254,4,727.815,2,727.815,1,69,0) PRODUCTION DIVISION CODE "BLD",8254,4,727.815,2,727.815,1,71,0) HEAD & NECK CANCER INDICATOR "BLD",8254,4,727.815,2,727.815,1,73,0) RACE 1 "BLD",8254,4,727.815,2,727.815,1,76,0) ENROLLMENT PRIORITY "BLD",8254,4,727.815,2,727.815,1,77,0) USER ENROLLEE "BLD",8254,4,727.815,2,727.815,1,78,0) PATIENT TYPE "BLD",8254,4,727.815,2,727.815,1,79,0) CV STATUS ELIGIBILITY "BLD",8254,4,727.815,2,727.815,1,80,0) CV ELIGIBILITY END DATE "BLD",8254,4,727.815,2,727.815,1,81,0) ENCOUNTER CV "BLD",8254,4,727.815,2,727.815,1,82,0) NATIONAL PATIENT RECORD FLAG "BLD",8254,4,727.815,2,727.815,1,84,0) AGENT ORANGE ENC INDICATOR "BLD",8254,4,727.815,2,727.815,1,85,0) ENCOUNTER SWAC "BLD",8254,4,727.815,2,727.815,1,86,0) ENC HEAD/NECK CA "BLD",8254,4,727.815,2,727.815,1,87,0) ENCOUNTER MST "BLD",8254,4,727.815,2,727.815,1,88,0) RADIATION ENCOUNTER INDICATOR "BLD",8254,4,727.815,2,727.815,1,89,0) NUTRITION DIAGNOSIS "BLD",8254,4,727.815,2,727.815,1,97,0) SHAD STATUS "BLD",8254,4,727.815,2,727.815,1,100,0) PROVIDER #4 "BLD",8254,4,727.815,2,727.815,1,103,0) PROVIDER #5 "BLD",8254,4,727.815,2,727.815,1,106,0) PRIMARY ICD-10 CODE "BLD",8254,4,727.815,2,727.815,1,107,0) SECONDARY ICD-10 CODE #1 "BLD",8254,4,727.815,2,727.815,1,108,0) SECONDARY ICD-10 CODE #2 "BLD",8254,4,727.815,2,727.815,1,109,0) SECONDARY ICD-10 CODE #3 "BLD",8254,4,727.815,2,727.815,1,110,0) SECONDARY ICD-10 CODE #4 "BLD",8254,4,727.815,222) y^n^p^^^^n^^n "BLD",8254,4,727.815,224) "BLD",8254,4,727.817,0) 727.817 "BLD",8254,4,727.817,2,0) ^9.641^727.817^1 "BLD",8254,4,727.817,2,727.817,0) TREATING SPECIALTY CHANGE EXTRACT (File-top level) "BLD",8254,4,727.817,2,727.817,1,0) ^9.6411^31^17 "BLD",8254,4,727.817,2,727.817,1,3,0) FACILITY "BLD",8254,4,727.817,2,727.817,1,5,0) SSN "BLD",8254,4,727.817,2,727.817,1,6,0) NAME "BLD",8254,4,727.817,2,727.817,1,7,0) IN OUT PATIENT INDICATOR "BLD",8254,4,727.817,2,727.817,1,10,0) ADMISSION DATE "BLD",8254,4,727.817,2,727.817,1,11,0) DISCHARGE DATE "BLD",8254,4,727.817,2,727.817,1,12,0) MOVEMENT FILE # "BLD",8254,4,727.817,2,727.817,1,14,0) NEW TREATING SPECIALTY "BLD",8254,4,727.817,2,727.817,1,15,0) LOSING TREATING SPECIALTY "BLD",8254,4,727.817,2,727.817,1,16,0) LOSING TREATING SPECIALTY LOS "BLD",8254,4,727.817,2,727.817,1,20,0) ADMISSION TIME "BLD",8254,4,727.817,2,727.817,1,24,0) MASTER PATIENT INDEX "BLD",8254,4,727.817,2,727.817,1,30,0) ATTENDING PHYSICIAN LOS "BLD",8254,4,727.817,2,727.817,1,31,0) PRIMARY WARD PROVIDER LOS "BLD",8254,4,727.817,2,727.817,1,32,0) DOM,PRRTP AND SAARTP INDICATOR "BLD",8254,4,727.817,2,727.817,1,33,0) OBSERVATION PATIENT INDICATOR "BLD",8254,4,727.817,2,727.817,1,34,0) ENCOUNTER NUMBER "BLD",8254,4,727.817,222) y^n^p^^^^n^^n "BLD",8254,4,727.817,224) "BLD",8254,4,727.819,0) 727.819 "BLD",8254,4,727.819,2,0) ^9.641^727.819^1 "BLD",8254,4,727.819,2,727.819,0) IV DETAIL EXTRACT (File-top level) "BLD",8254,4,727.819,2,727.819,1,0) ^9.6411^37^57 "BLD",8254,4,727.819,2,727.819,1,3,0) FACILITY "BLD",8254,4,727.819,2,727.819,1,5,0) SSN "BLD",8254,4,727.819,2,727.819,1,6,0) NAME "BLD",8254,4,727.819,2,727.819,1,7,0) IN OUT PATIENT INDICATOR "BLD",8254,4,727.819,2,727.819,1,10,0) QUANTITY "BLD",8254,4,727.819,2,727.819,1,11,0) WARD "BLD",8254,4,727.819,2,727.819,1,13,0) COST "BLD",8254,4,727.819,2,727.819,1,17,0) DEA, SPECIAL HDLG "BLD",8254,4,727.819,2,727.819,1,18,0) PHARMACY IV DISPENSING FEE "BLD",8254,4,727.819,2,727.819,1,19,0) NEW FEEDER KEY "BLD",8254,4,727.819,2,727.819,1,22,0) PRIMARY CARE PROVIDER "BLD",8254,4,727.819,2,727.819,1,23,0) IVP TIME "BLD",8254,4,727.819,2,727.819,1,24,0) ADMISSION DATE "BLD",8254,4,727.819,2,727.819,1,25,0) ADMISSION TIME "BLD",8254,4,727.819,2,727.819,1,26,0) DSS IDENTIFIER FOR ENCOUNTER "BLD",8254,4,727.819,2,727.819,1,27,0) MASTER PATIENT INDEX "BLD",8254,4,727.819,2,727.819,1,28,0) DSS PRODUCT DEPARTMENT "BLD",8254,4,727.819,2,727.819,1,30,0) PC PROVIDER PERSON CLASS "BLD",8254,4,727.819,2,727.819,1,31,0) ASSOCIATE PC PROVIDER "BLD",8254,4,727.819,2,727.819,1,32,0) ASSOC. PC PROV. PERSON CLASS "BLD",8254,4,727.819,2,727.819,1,34,0) DOM,PRRTP AND SAARTP INDICATOR "BLD",8254,4,727.819,2,727.819,1,35,0) OBSERVATION PATIENT INDICATOR "BLD",8254,4,727.819,2,727.819,1,36,0) ENCOUNTER NUMBER "BLD",8254,4,727.819,2,727.819,1,37,0) ORDERING PROVIDER "BLD",8254,4,727.819,2,727.819,1,38,0) ORDERING STOP CODE "BLD",8254,4,727.819,2,727.819,1,39,0) ORDERING DATE "BLD",8254,4,727.819,2,727.819,1,41,0) PRODUCTION DIVISION CODE "BLD",8254,4,727.819,2,727.819,1,42,0) MEANS TEST "BLD",8254,4,727.819,2,727.819,1,44,0) DATE OF BIRTH "BLD",8254,4,727.819,2,727.819,1,45,0) SEX "BLD",8254,4,727.819,2,727.819,1,48,0) ZIP+4 "BLD",8254,4,727.819,2,727.819,1,49,0) VETERAN "BLD",8254,4,727.819,2,727.819,1,51,0) POW STATUS "BLD",8254,4,727.819,2,727.819,1,53,0) RADIATION STATUS "BLD",8254,4,727.819,2,727.819,1,54,0) AGENT ORANGE STATUS "BLD",8254,4,727.819,2,727.819,1,55,0) AGENT ORANGE LOCATION "BLD",8254,4,727.819,2,727.819,1,56,0) PURPLE HEART INDICATOR "BLD",8254,4,727.819,2,727.819,1,57,0) MST STATUS "BLD",8254,4,727.819,2,727.819,1,59,0) ENROLLMENT CATEGORY "BLD",8254,4,727.819,2,727.819,1,60,0) ENROLLMENT STATUS "BLD",8254,4,727.819,2,727.819,1,61,0) SHAD STATUS "BLD",8254,4,727.819,2,727.819,1,62,0) CNH/SH STATUS "BLD",8254,4,727.819,2,727.819,1,64,0) HEAD & NECK CANCER INDICATOR "BLD",8254,4,727.819,2,727.819,1,66,0) RACE 1 "BLD",8254,4,727.819,2,727.819,1,67,0) BCMA DRUG DISPENSED "BLD",8254,4,727.819,2,727.819,1,68,0) BCMA DOSE GIVEN "BLD",8254,4,727.819,2,727.819,1,69,0) BCMA UNIT OF ADMINISTRATION "BLD",8254,4,727.819,2,727.819,1,70,0) BCMA ICU FLAG "BLD",8254,4,727.819,2,727.819,1,72,0) DSS IP # "BLD",8254,4,727.819,2,727.819,1,73,0) ENROLLMENT PRIORITY "BLD",8254,4,727.819,2,727.819,1,74,0) USER ENROLLEE "BLD",8254,4,727.819,2,727.819,1,75,0) PATIENT TYPE "BLD",8254,4,727.819,2,727.819,1,76,0) CV STATUS ELIGIBILITY "BLD",8254,4,727.819,2,727.819,1,77,0) CV ELIGIBILITY END DATE "BLD",8254,4,727.819,2,727.819,1,78,0) ENCOUNTER CV "BLD",8254,4,727.819,2,727.819,1,79,0) NATIONAL PATIENT RECORD FLAG "BLD",8254,4,727.819,2,727.819,1,87,0) COUNTRY CODE "BLD",8254,4,727.819,222) y^n^p^^^^n^^n "BLD",8254,4,727.819,224) "BLD",8254,4,727.824,0) 727.824 "BLD",8254,4,727.824,2,0) ^9.641^727.824^1 "BLD",8254,4,727.824,2,727.824,0) LAB RESULTS EXTRACT (File-top level) "BLD",8254,4,727.824,2,727.824,1,0) ^9.6411^23^15 "BLD",8254,4,727.824,2,727.824,1,3,0) FACILITY "BLD",8254,4,727.824,2,727.824,1,5,0) SSN "BLD",8254,4,727.824,2,727.824,1,6,0) NAME "BLD",8254,4,727.824,2,727.824,1,7,0) IN OUT PATIENT INDICATOR "BLD",8254,4,727.824,2,727.824,1,8,0) DAY "BLD",8254,4,727.824,2,727.824,1,12,0) HI/LO INDICATOR "BLD",8254,4,727.824,2,727.824,1,19,0) WORKLOAD CODE "BLD",8254,4,727.824,2,727.824,1,20,0) MASTER PATIENT INDEX "BLD",8254,4,727.824,2,727.824,1,22,0) DOM,PRRTP AND SAARTP INDICATOR "BLD",8254,4,727.824,2,727.824,1,23,0) TIME COLLECTED "BLD",8254,4,727.824,2,727.824,1,24,0) OBSERVATION PATIENT INDICATOR "BLD",8254,4,727.824,2,727.824,1,25,0) ENCOUNTER NUMBER "BLD",8254,4,727.824,2,727.824,1,26,0) PRODUCTION DIVISION CODE "BLD",8254,4,727.824,2,727.824,1,28,0) ORDERING PROVIDER "BLD",8254,4,727.824,2,727.824,1,29,0) ORDERING PROVIDER PERSON CLASS "BLD",8254,4,727.824,222) y^n^p^^^^n^^n "BLD",8254,4,727.824,224) "BLD",8254,4,727.825,0) 727.825 "BLD",8254,4,727.825,2,0) ^9.641^727.825^1 "BLD",8254,4,727.825,2,727.825,0) QUASAR EXTRACT (File-top level) "BLD",8254,4,727.825,2,727.825,1,0) ^9.6411^2^69 "BLD",8254,4,727.825,2,727.825,1,2,0) EXTRACT NUMBER "BLD",8254,4,727.825,2,727.825,1,3,0) FACILITY "BLD",8254,4,727.825,2,727.825,1,4,0) PATIENT NO. - DFN "BLD",8254,4,727.825,2,727.825,1,5,0) SSN "BLD",8254,4,727.825,2,727.825,1,6,0) NAME "BLD",8254,4,727.825,2,727.825,1,7,0) IN OUT PATIENT INDICATOR "BLD",8254,4,727.825,2,727.825,1,8,0) DAY "BLD",8254,4,727.825,2,727.825,1,9,0) DSS UNIT "BLD",8254,4,727.825,2,727.825,1,10,0) CATEGORY "BLD",8254,4,727.825,2,727.825,1,12,0) VOLUME "BLD",8254,4,727.825,2,727.825,1,13,0) COST CENTER "BLD",8254,4,727.825,2,727.825,1,14,0) ORDERING SECTION "BLD",8254,4,727.825,2,727.825,1,15,0) SECTION "BLD",8254,4,727.825,2,727.825,1,16,0) PROVIDER "BLD",8254,4,727.825,2,727.825,1,17,0) PROVIDER PERSON CLASS "BLD",8254,4,727.825,2,727.825,1,19,0) PROVIDER #2 PERSON CLASS "BLD",8254,4,727.825,2,727.825,1,21,0) PROVIDER #3 PERSON CLASS "BLD",8254,4,727.825,2,727.825,1,25,0) TIME "BLD",8254,4,727.825,2,727.825,1,26,0) PRIMARY CARE TEAM "BLD",8254,4,727.825,2,727.825,1,27,0) PRIMARY CARE PROVIDER "BLD",8254,4,727.825,2,727.825,1,28,0) PCE CPT CODE & MODIFIERS "BLD",8254,4,727.825,2,727.825,1,29,0) ICD-9 CODE "BLD",8254,4,727.825,2,727.825,1,30,0) SECONDARY ICD9 CODE #1 "BLD",8254,4,727.825,2,727.825,1,31,0) SECONDARY ICD9 CODE #2 "BLD",8254,4,727.825,2,727.825,1,32,0) SECONDARY ICD9 CODE #3 "BLD",8254,4,727.825,2,727.825,1,33,0) SECONDARY ICD9 CODE #4 "BLD",8254,4,727.825,2,727.825,1,34,0) AGENT ORANGE "BLD",8254,4,727.825,2,727.825,1,35,0) RADIATION EXPOSURE "BLD",8254,4,727.825,2,727.825,1,36,0) SW ASIA CONDITIONS "BLD",8254,4,727.825,2,727.825,1,37,0) SERVICE CONNECTED "BLD",8254,4,727.825,2,727.825,1,38,0) SENT TO PCE "BLD",8254,4,727.825,2,727.825,1,40,0) DSS IDENTIFIER "BLD",8254,4,727.825,2,727.825,1,42,0) MASTER PATIENT INDEX "BLD",8254,4,727.825,2,727.825,1,43,0) DSS PRODUCT DEPARTMENT "BLD",8254,4,727.825,2,727.825,1,47,0) PC PROVIDER PERSON CLASS "BLD",8254,4,727.825,2,727.825,1,49,0) ASSOCIATE PC PROVIDER "BLD",8254,4,727.825,2,727.825,1,50,0) ASSOC. PC PROV. PERSON CLASS "BLD",8254,4,727.825,2,727.825,1,52,0) DIVISION "BLD",8254,4,727.825,2,727.825,1,53,0) MST STATUS "BLD",8254,4,727.825,2,727.825,1,54,0) DOM,PRRTP AND SAARTP INDICATOR "BLD",8254,4,727.825,2,727.825,1,55,0) DATE OF BIRTH "BLD",8254,4,727.825,2,727.825,1,56,0) ENROLLMENT CATEGORY "BLD",8254,4,727.825,2,727.825,1,57,0) ENROLLMENT STATUS "BLD",8254,4,727.825,2,727.825,1,61,0) OBSERVATION PATIENT INDICATOR "BLD",8254,4,727.825,2,727.825,1,62,0) ENCOUNTER NUMBER "BLD",8254,4,727.825,2,727.825,1,63,0) AGENT ORANGE LOCATION "BLD",8254,4,727.825,2,727.825,1,68,0) CNH/SH STATUS "BLD",8254,4,727.825,2,727.825,1,69,0) PRODUCTION DIVISION CODE "BLD",8254,4,727.825,2,727.825,1,71,0) HEAD & NECK CANCER INDICATOR "BLD",8254,4,727.825,2,727.825,1,73,0) RACE 1 "BLD",8254,4,727.825,2,727.825,1,76,0) ENROLLMENT PRIORITY "BLD",8254,4,727.825,2,727.825,1,77,0) USER ENROLLEE "BLD",8254,4,727.825,2,727.825,1,78,0) PATIENT TYPE "BLD",8254,4,727.825,2,727.825,1,79,0) CV STATUS ELIGIBILITY "BLD",8254,4,727.825,2,727.825,1,80,0) CV ELIGIBILITY END DATE "BLD",8254,4,727.825,2,727.825,1,81,0) ENCOUNTER CV "BLD",8254,4,727.825,2,727.825,1,82,0) NATIONAL PATIENT RECORD FLAG "BLD",8254,4,727.825,2,727.825,1,84,0) AGENT ORANGE ENC INDICATOR "BLD",8254,4,727.825,2,727.825,1,85,0) ENCOUNTER SWAC "BLD",8254,4,727.825,2,727.825,1,86,0) ENC HEAD/NECK CA "BLD",8254,4,727.825,2,727.825,1,87,0) ENCOUNTER MST "BLD",8254,4,727.825,2,727.825,1,88,0) RADIATION ENCOUNTER INDICATOR "BLD",8254,4,727.825,2,727.825,1,89,0) NUTRITION DIAGNOSIS "BLD",8254,4,727.825,2,727.825,1,97,0) SHAD STATUS "BLD",8254,4,727.825,2,727.825,1,106,0) PRIMARY ICD-10 CODE "BLD",8254,4,727.825,2,727.825,1,107,0) SECONDARY ICD-10 CODE #1 "BLD",8254,4,727.825,2,727.825,1,108,0) SECONDARY ICD-10 CODE #2 "BLD",8254,4,727.825,2,727.825,1,109,0) SECONDARY ICD-10 CODE #3 "BLD",8254,4,727.825,2,727.825,1,110,0) SECONDARY ICD-10 CODE #4 "BLD",8254,4,727.825,222) y^n^p^^^^n^^n "BLD",8254,4,727.825,224) "BLD",8254,4,727.826,0) 727.826 "BLD",8254,4,727.826,2,0) ^9.641^727.826^1 "BLD",8254,4,727.826,2,727.826,0) PROSTHETICS EXTRACT (File-top level) "BLD",8254,4,727.826,2,727.826,1,0) ^9.6411^2^72 "BLD",8254,4,727.826,2,727.826,1,.01,0) SEQUENCE NUMBER "BLD",8254,4,727.826,2,727.826,1,1,0) YEAR MONTH "BLD",8254,4,727.826,2,727.826,1,2,0) EXTRACT NUMBER "BLD",8254,4,727.826,2,727.826,1,3,0) FACILITY "BLD",8254,4,727.826,2,727.826,1,4,0) PATIENT NO. DFN "BLD",8254,4,727.826,2,727.826,1,5,0) SSN "BLD",8254,4,727.826,2,727.826,1,6,0) NAME "BLD",8254,4,727.826,2,727.826,1,7,0) IN OUTPATIENT INDICATOR "BLD",8254,4,727.826,2,727.826,1,8,0) DATE OF SERVICE "BLD",8254,4,727.826,2,727.826,1,9,0) FEEDER LOCATION "BLD",8254,4,727.826,2,727.826,1,10,0) FEEDER KEY "BLD",8254,4,727.826,2,727.826,1,11,0) QUANTITY "BLD",8254,4,727.826,2,727.826,1,12,0) PRIMARY CARE TEAM "BLD",8254,4,727.826,2,727.826,1,13,0) PRIMARY CARE PROVIDER "BLD",8254,4,727.826,2,727.826,1,14,0) PCE CPT/HCPCS CODE & MODIFIERS "BLD",8254,4,727.826,2,727.826,1,20,0) AGENT ORANGE STATUS "BLD",8254,4,727.826,2,727.826,1,21,0) RADIATION EXPOSURE STATUS "BLD",8254,4,727.826,2,727.826,1,22,0) SW ASIA CONDITIONS "BLD",8254,4,727.826,2,727.826,1,24,0) COST OF TRANSACTION "BLD",8254,4,727.826,2,727.826,1,25,0) LAB LABOR COST "BLD",8254,4,727.826,2,727.826,1,26,0) LAB MATERIAL COST "BLD",8254,4,727.826,2,727.826,1,27,0) BILLING STATUS "BLD",8254,4,727.826,2,727.826,1,28,0) VET/NON VET "BLD",8254,4,727.826,2,727.826,1,29,0) TYPE OF TRANSACTION "BLD",8254,4,727.826,2,727.826,1,30,0) REQUESTING STATION "BLD",8254,4,727.826,2,727.826,1,31,0) RECEIVING STATION "BLD",8254,4,727.826,2,727.826,1,33,0) ZIP CODE "BLD",8254,4,727.826,2,727.826,1,34,0) DATE OF BIRTH "BLD",8254,4,727.826,2,727.826,1,35,0) SEX "BLD",8254,4,727.826,2,727.826,1,38,0) MASTER PATIENT INDEX "BLD",8254,4,727.826,2,727.826,1,39,0) DSS PRODUCT DEPARTMENT "BLD",8254,4,727.826,2,727.826,1,40,0) PC PROVIDER PERSON CLASS "BLD",8254,4,727.826,2,727.826,1,42,0) POW STATUS "BLD",8254,4,727.826,2,727.826,1,45,0) SHARING AGREEMENT INSURANCE "BLD",8254,4,727.826,2,727.826,1,46,0) MST STATUS "BLD",8254,4,727.826,2,727.826,1,50,0) ASSOCIATE PC PROVIDER "BLD",8254,4,727.826,2,727.826,1,51,0) ASSOC. PC PROV. PERSON CLASS "BLD",8254,4,727.826,2,727.826,1,53,0) DOM,PRRTP AND SAARTP INDICATOR "BLD",8254,4,727.826,2,727.826,1,54,0) ENROLLMENT CATEGORY "BLD",8254,4,727.826,2,727.826,1,55,0) ENROLLMENT STATUS "BLD",8254,4,727.826,2,727.826,1,58,0) PERIOD OF SERVICE "BLD",8254,4,727.826,2,727.826,1,59,0) OBSERVATION PATIENT INDICATOR "BLD",8254,4,727.826,2,727.826,1,60,0) ENCOUNTER NUMBER "BLD",8254,4,727.826,2,727.826,1,61,0) AGENT ORANGE LOCATION "BLD",8254,4,727.826,2,727.826,1,62,0) CNH/SH STATUS "BLD",8254,4,727.826,2,727.826,1,63,0) PRODUCTION DIVISION CODE "BLD",8254,4,727.826,2,727.826,1,64,0) HEAD & NECK CANCER INDICATOR "BLD",8254,4,727.826,2,727.826,1,66,0) RACE 1 "BLD",8254,4,727.826,2,727.826,1,67,0) DSS IP # "BLD",8254,4,727.826,2,727.826,1,68,0) ENROLLMENT PRIORITY "BLD",8254,4,727.826,2,727.826,1,69,0) USER ENROLLEE "BLD",8254,4,727.826,2,727.826,1,70,0) PATIENT TYPE "BLD",8254,4,727.826,2,727.826,1,71,0) CV STATUS ELIGIBILITY "BLD",8254,4,727.826,2,727.826,1,72,0) CV ELIGIBILITY END DATE "BLD",8254,4,727.826,2,727.826,1,73,0) ENCOUNTER CV "BLD",8254,4,727.826,2,727.826,1,74,0) NATIONAL PATIENT RECORD FLAG "BLD",8254,4,727.826,2,727.826,1,76,0) AGENT ORANGE ENC INDICATOR "BLD",8254,4,727.826,2,727.826,1,77,0) ENCOUNTER SWAC "BLD",8254,4,727.826,2,727.826,1,78,0) ENC HEAD/NECK CA "BLD",8254,4,727.826,2,727.826,1,79,0) ENCOUNTER MST "BLD",8254,4,727.826,2,727.826,1,80,0) RADIATION ENCOUNTER INDICATOR "BLD",8254,4,727.826,2,727.826,1,81,0) OEF/OIF "BLD",8254,4,727.826,2,727.826,1,82,0) OEF/OIF RETURN DATE "BLD",8254,4,727.826,2,727.826,1,83,0) NPPD CODE "BLD",8254,4,727.826,2,727.826,1,84,0) NPPD ENTRY DATE "BLD",8254,4,727.826,2,727.826,1,87,0) COUNTRY CODE "BLD",8254,4,727.826,2,727.826,1,88,0) SHAD STATUS "BLD",8254,4,727.826,2,727.826,1,92,0) PRIMARY ICD-10 CODE "BLD",8254,4,727.826,2,727.826,1,93,0) SECONDARY ICD-10 CODE #1 "BLD",8254,4,727.826,2,727.826,1,94,0) SECONDARY ICD-10 CODE #2 "BLD",8254,4,727.826,2,727.826,1,95,0) SECONDARY ICD-10 CODE #3 "BLD",8254,4,727.826,2,727.826,1,96,0) SECONDARY ICD-10 CODE #4 "BLD",8254,4,727.826,222) y^n^p^^^^n^^n "BLD",8254,4,727.826,224) "BLD",8254,4,727.827,0) 727.827 "BLD",8254,4,727.827,2,0) ^9.641^727.827^1 "BLD",8254,4,727.827,2,727.827,0) CLINIC EXTRACT (File-top level) "BLD",8254,4,727.827,2,727.827,1,0) ^9.6411^35^86 "BLD",8254,4,727.827,2,727.827,1,.01,0) SEQUENCE NUMBER "BLD",8254,4,727.827,2,727.827,1,1,0) YEAR MONTH "BLD",8254,4,727.827,2,727.827,1,2,0) EXTRACT NUMBER "BLD",8254,4,727.827,2,727.827,1,3,0) FACILITY "BLD",8254,4,727.827,2,727.827,1,4,0) PATIENT NO. - DFN "BLD",8254,4,727.827,2,727.827,1,5,0) SSN "BLD",8254,4,727.827,2,727.827,1,6,0) NAME "BLD",8254,4,727.827,2,727.827,1,7,0) IN/OUT PATIENT INDICATOR "BLD",8254,4,727.827,2,727.827,1,8,0) DAY "BLD",8254,4,727.827,2,727.827,1,9,0) FEEDER KEY "BLD",8254,4,727.827,2,727.827,1,10,0) OVERBOOKED INDICATOR "BLD",8254,4,727.827,2,727.827,1,11,0) CLINIC NAME "BLD",8254,4,727.827,2,727.827,1,12,0) TREATING SPECIALITY "BLD",8254,4,727.827,2,727.827,1,13,0) TIME "BLD",8254,4,727.827,2,727.827,1,14,0) PRIMARY CARE TEAM "BLD",8254,4,727.827,2,727.827,1,15,0) PRIMARY CARE PROVIDER "BLD",8254,4,727.827,2,727.827,1,16,0) PRIMARY CARE PRV PERSON CLASS "BLD",8254,4,727.827,2,727.827,1,17,0) PROVIDER "BLD",8254,4,727.827,2,727.827,1,18,0) PROVIDER PERSON CLASS "BLD",8254,4,727.827,2,727.827,1,19,0) CPT CODE QTY & MODIFIERS #1 "BLD",8254,4,727.827,2,727.827,1,20,0) CPT CODE QTY & MODIFIERS #2 "BLD",8254,4,727.827,2,727.827,1,21,0) CPT CODE QTY & MODIFIERS #3 "BLD",8254,4,727.827,2,727.827,1,22,0) CPT CODE QTY & MODIFIERS #4 "BLD",8254,4,727.827,2,727.827,1,23,0) CPT CODE QTY AND MODIFERS #5 "BLD",8254,4,727.827,2,727.827,1,24,0) CPT CODE QTY AND MODIFIERS #6 "BLD",8254,4,727.827,2,727.827,1,25,0) CPT CODE QTY AND MODIFERS #7 "BLD",8254,4,727.827,2,727.827,1,26,0) CPT CODE QTY AND MODIFIERS #8 "BLD",8254,4,727.827,2,727.827,1,27,0) PRIMARY ICD9 CODE "BLD",8254,4,727.827,2,727.827,1,28,0) SECONDARY ICD9 1 "BLD",8254,4,727.827,2,727.827,1,29,0) SECONDARY ICD9 2 "BLD",8254,4,727.827,2,727.827,1,30,0) SECONDARY ICD9 3 "BLD",8254,4,727.827,2,727.827,1,31,0) SECONDARY ICD9 4 "BLD",8254,4,727.827,2,727.827,1,32,0) DATE OF BIRTH "BLD",8254,4,727.827,2,727.827,1,33,0) ELIGIBILITY "BLD",8254,4,727.827,2,727.827,1,34,0) VETERAN "BLD",8254,4,727.827,2,727.827,1,35,0) RACE "BLD",8254,4,727.827,2,727.827,1,36,0) POW STATUS "BLD",8254,4,727.827,2,727.827,1,37,0) POW LOCATION "BLD",8254,4,727.827,2,727.827,1,38,0) RADIATION STATUS "BLD",8254,4,727.827,2,727.827,1,39,0) RADIATION ENCOUNTER INDICATOR "BLD",8254,4,727.827,2,727.827,1,40,0) AGENT ORANGE STATUS "BLD",8254,4,727.827,2,727.827,1,41,0) AGENT ORANGE ENC INDICATOR "BLD",8254,4,727.827,2,727.827,1,42,0) MASTER PATIENT INDEX "BLD",8254,4,727.827,2,727.827,1,44,0) SEX "BLD",8254,4,727.827,2,727.827,1,45,0) ZIP+4 "BLD",8254,4,727.827,2,727.827,1,48,0) ENCOUNTER ELIGIBILITY "BLD",8254,4,727.827,2,727.827,1,49,0) MST STATUS "BLD",8254,4,727.827,2,727.827,1,50,0) MST ENCOUNTER INDICATOR "BLD",8254,4,727.827,2,727.827,1,51,0) SHARING AGREEMENT PAYOR "BLD",8254,4,727.827,2,727.827,1,52,0) SHARING AGREEMENT INSURANCE CO "BLD",8254,4,727.827,2,727.827,1,53,0) ENROLLMENT LOCATION "BLD",8254,4,727.827,2,727.827,1,54,0) STATE CODE "BLD",8254,4,727.827,2,727.827,1,55,0) COUNTY CODE "BLD",8254,4,727.827,2,727.827,1,56,0) ASSOCIATE PC PROVIDER "BLD",8254,4,727.827,2,727.827,1,57,0) ASSOCIATE PC PROV PERSON CLASS "BLD",8254,4,727.827,2,727.827,1,59,0) DOM,PRRTP AND SAARTP INDICATOR "BLD",8254,4,727.827,2,727.827,1,60,0) ENROLLMENT CATEGORY "BLD",8254,4,727.827,2,727.827,1,61,0) ENROLLMENT STATUS "BLD",8254,4,727.827,2,727.827,1,62,0) SHAD STATUS "BLD",8254,4,727.827,2,727.827,1,64,0) PERIOD OF SERVICE "BLD",8254,4,727.827,2,727.827,1,65,0) OBSERVATION PATIENT INDICATOR "BLD",8254,4,727.827,2,727.827,1,66,0) ENCOUNTER NUMBER "BLD",8254,4,727.827,2,727.827,1,67,0) AGENT ORANGE LOCATION "BLD",8254,4,727.827,2,727.827,1,68,0) PRODUCTION DIVISION CODE "BLD",8254,4,727.827,2,727.827,1,71,0) MEANS TEST "BLD",8254,4,727.827,2,727.827,1,72,0) HEAD & NECK CANCER INDICATOR "BLD",8254,4,727.827,2,727.827,1,74,0) RACE 1 "BLD",8254,4,727.827,2,727.827,1,75,0) CBOC STATUS INDICATOR "BLD",8254,4,727.827,2,727.827,1,76,0) DSS IP # "BLD",8254,4,727.827,2,727.827,1,77,0) ENROLLMENT PRIORITY "BLD",8254,4,727.827,2,727.827,1,78,0) USER ENROLLEE "BLD",8254,4,727.827,2,727.827,1,79,0) PATIENT TYPE "BLD",8254,4,727.827,2,727.827,1,80,0) CV STATUS ELIGIBILITY "BLD",8254,4,727.827,2,727.827,1,81,0) CV ELIGIBILITY END DATE "BLD",8254,4,727.827,2,727.827,1,82,0) ENCOUNTER CV "BLD",8254,4,727.827,2,727.827,1,83,0) NATIONAL PATIENT RECORD FLAG "BLD",8254,4,727.827,2,727.827,1,84,0) SW ASIA CONDITIONS "BLD",8254,4,727.827,2,727.827,1,87,0) ENC HEAD/NECK CA "BLD",8254,4,727.827,2,727.827,1,93,0) COUNTRY CODE "BLD",8254,4,727.827,2,727.827,1,94,0) ENCOUNTER SHAD "BLD",8254,4,727.827,2,727.827,1,111,0) ED DISPOSITION CODE "BLD",8254,4,727.827,2,727.827,1,112,0) PRIMARY ICD-10 CODE "BLD",8254,4,727.827,2,727.827,1,113,0) SECONDARY ICD-10 CODE #1 "BLD",8254,4,727.827,2,727.827,1,114,0) SECONDARY ICD-10 CODE #2 "BLD",8254,4,727.827,2,727.827,1,115,0) SECONDARY ICD-10 CODE #3 "BLD",8254,4,727.827,2,727.827,1,116,0) SECONDARY ICD-10 CODE #4 "BLD",8254,4,727.827,222) y^n^p^^^^n^^n "BLD",8254,4,727.827,224) "BLD",8254,4,727.829,0) 727.829 "BLD",8254,4,727.829,2,0) ^9.641^727.829^1 "BLD",8254,4,727.829,2,727.829,0) BLOOD BANK EXTRACT (File-top level) "BLD",8254,4,727.829,2,727.829,1,0) ^9.6411^7^19 "BLD",8254,4,727.829,2,727.829,1,.01,0) SEQUENCE NUMBER "BLD",8254,4,727.829,2,727.829,1,1,0) YEAR MONTH "BLD",8254,4,727.829,2,727.829,1,3,0) FACILITY "BLD",8254,4,727.829,2,727.829,1,5,0) SSN "BLD",8254,4,727.829,2,727.829,1,6,0) NAME "BLD",8254,4,727.829,2,727.829,1,7,0) IN/OUT PATIENT INDICATOR "BLD",8254,4,727.829,2,727.829,1,8,0) ENCOUNTER NUMBER "BLD",8254,4,727.829,2,727.829,1,12,0) COMPONENT ABBREVIATION "BLD",8254,4,727.829,2,727.829,1,13,0) NUMBER OF UNITS "BLD",8254,4,727.829,2,727.829,1,17,0) FEEDER LOCATION "BLD",8254,4,727.829,2,727.829,1,18,0) DSS PRODUCT DEPARTMENT "BLD",8254,4,727.829,2,727.829,1,19,0) DSS IP # "BLD",8254,4,727.829,2,727.829,1,20,0) ORDERING PROVIDER "BLD",8254,4,727.829,2,727.829,1,21,0) ORDERING PROVIDER PERSON CLASS "BLD",8254,4,727.829,2,727.829,1,23,0) UNIT MODIFIED "BLD",8254,4,727.829,2,727.829,1,24,0) UNIT MODIFICATION "BLD",8254,4,727.829,2,727.829,1,25,0) REQUESTING PROVIDER "BLD",8254,4,727.829,2,727.829,1,26,0) REQUESTING PROVIDER PC "BLD",8254,4,727.829,2,727.829,1,27,0) PRODUCTION DIVISION CODE "BLD",8254,4,727.829,222) y^n^p^^^^n^^n "BLD",8254,4,727.829,224) "BLD",8254,4,727.832,0) 727.832 "BLD",8254,4,727.832,2,0) ^9.641^727.832^1 "BLD",8254,4,727.832,2,727.832,0) NUTRITION EXTRACT (File-top level) "BLD",8254,4,727.832,2,727.832,1,0) ^9.6411^17^47 "BLD",8254,4,727.832,2,727.832,1,.01,0) SEQUENCE NUMBER "BLD",8254,4,727.832,2,727.832,1,3,0) FACILITY "BLD",8254,4,727.832,2,727.832,1,5,0) SSN "BLD",8254,4,727.832,2,727.832,1,6,0) NAME "BLD",8254,4,727.832,2,727.832,1,7,0) IN/OUT PATIENT INDICATOR "BLD",8254,4,727.832,2,727.832,1,8,0) DAY "BLD",8254,4,727.832,2,727.832,1,11,0) ORDERING PROVIDER "BLD",8254,4,727.832,2,727.832,1,12,0) ORDERING PROVIDER PERSON CLASS "BLD",8254,4,727.832,2,727.832,1,13,0) PRIMARY CARE PROVIDER "BLD",8254,4,727.832,2,727.832,1,14,0) PRIMARY CARE PRV PERSON CLASS "BLD",8254,4,727.832,2,727.832,1,15,0) PRIMARY CARE TEAM "BLD",8254,4,727.832,2,727.832,1,16,0) MASTER PATIENT INDEX "BLD",8254,4,727.832,2,727.832,1,17,0) DATE OF BIRTH "BLD",8254,4,727.832,2,727.832,1,18,0) SEX "BLD",8254,4,727.832,2,727.832,1,19,0) RACE 1 "BLD",8254,4,727.832,2,727.832,1,20,0) ETHNICITY "BLD",8254,4,727.832,2,727.832,1,21,0) VETERAN "BLD",8254,4,727.832,2,727.832,1,22,0) ENROLLMENT STATUS "BLD",8254,4,727.832,2,727.832,1,24,0) ENROLLMENT CATEGORY "BLD",8254,4,727.832,2,727.832,1,25,0) ENROLLMENT PRIORITY "BLD",8254,4,727.832,2,727.832,1,28,0) AGENT ORANGE STATUS "BLD",8254,4,727.832,2,727.832,1,29,0) AGENT ORANGE LOCATION "BLD",8254,4,727.832,2,727.832,1,30,0) RADIATION STATUS "BLD",8254,4,727.832,2,727.832,1,31,0) SW ASIA CONDITIONS "BLD",8254,4,727.832,2,727.832,1,32,0) MST STATUS "BLD",8254,4,727.832,2,727.832,1,33,0) HEAD & NECK CANCER INDICATOR "BLD",8254,4,727.832,2,727.832,1,35,0) POW LOCATION "BLD",8254,4,727.832,2,727.832,1,37,0) MEANS TEST "BLD",8254,4,727.832,2,727.832,1,40,0) ZIP+4 "BLD",8254,4,727.832,2,727.832,1,41,0) OBSERVATION PATIENT INDICATOR "BLD",8254,4,727.832,2,727.832,1,42,0) RRTP, PRRTP, SAARTP INDICATOR "BLD",8254,4,727.832,2,727.832,1,43,0) ENCOUNTER NUMBER "BLD",8254,4,727.832,2,727.832,1,45,0) FOOD PRODUCTION DIVISION "BLD",8254,4,727.832,2,727.832,1,46,0) DELIVERY DIVISION "BLD",8254,4,727.832,2,727.832,1,49,0) DELIVERY LOCATION TYPE "BLD",8254,4,727.832,2,727.832,1,50,0) DELIVERY FEEDER LOCATION "BLD",8254,4,727.832,2,727.832,1,51,0) QUANTITY "BLD",8254,4,727.832,2,727.832,1,52,0) CBOC STATUS "BLD",8254,4,727.832,2,727.832,1,53,0) USER ENROLLEE "BLD",8254,4,727.832,2,727.832,1,54,0) PATIENT TYPE "BLD",8254,4,727.832,2,727.832,1,55,0) CV STATUS ELIGIBILITY "BLD",8254,4,727.832,2,727.832,1,56,0) NATIONAL PATIENT RECORD FLAG "BLD",8254,4,727.832,2,727.832,1,57,0) ERI "BLD",8254,4,727.832,2,727.832,1,60,0) OEF/OIF RETURN DATE "BLD",8254,4,727.832,2,727.832,1,61,0) TF UNITS "BLD",8254,4,727.832,2,727.832,1,64,0) COUNTRY CODE "BLD",8254,4,727.832,2,727.832,1,65,0) SHAD STATUS "BLD",8254,4,727.832,222) y^n^p^^^^n^^n "BLD",8254,4,727.832,224) "BLD",8254,4,727.833,0) 727.833 "BLD",8254,4,727.833,222) y^n^f^^^^n^^n "BLD",8254,4,727.833,224) "BLD",8254,4,728.44,0) 728.44 "BLD",8254,4,728.44,2,0) ^9.641^728.44^1 "BLD",8254,4,728.44,2,728.44,0) CLINICS AND STOP CODES (File-top level) "BLD",8254,4,728.44,2,728.44,1,0) ^9.6411^5^1 "BLD",8254,4,728.44,2,728.44,1,5,0) ACTION TO SEND "BLD",8254,4,728.44,222) y^n^p^^^^n^^n "BLD",8254,4,728.44,224) "BLD",8254,4,728.904,0) 728.904 "BLD",8254,4,728.904,2,0) ^9.641^728.904^1 "BLD",8254,4,728.904,2,728.904,0) UNIT DOSE EXTRACT DATA (File-top level) "BLD",8254,4,728.904,2,728.904,1,0) ^9.6411^2.5^1 "BLD",8254,4,728.904,2,728.904,1,2.5,0) ORDER NUMBER "BLD",8254,4,728.904,222) y^y^p^^^^n^^n "BLD",8254,4,728.904,224) "BLD",8254,4,"APDD",727.802,727.802) "BLD",8254,4,"APDD",727.802,727.802,3) "BLD",8254,4,"APDD",727.802,727.802,5) "BLD",8254,4,"APDD",727.802,727.802,6) "BLD",8254,4,"APDD",727.802,727.802,7) "BLD",8254,4,"APDD",727.802,727.802,11) "BLD",8254,4,"APDD",727.802,727.802,14) "BLD",8254,4,"APDD",727.802,727.802,16) "BLD",8254,4,"APDD",727.802,727.802,17) "BLD",8254,4,"APDD",727.802,727.802,19) "BLD",8254,4,"APDD",727.802,727.802,20) "BLD",8254,4,"APDD",727.802,727.802,21) "BLD",8254,4,"APDD",727.802,727.802,22) "BLD",8254,4,"APDD",727.802,727.802,23) "BLD",8254,4,"APDD",727.802,727.802,24) "BLD",8254,4,"APDD",727.802,727.802,25) "BLD",8254,4,"APDD",727.802,727.802,29) "BLD",8254,4,"APDD",727.802,727.802,31) "BLD",8254,4,"APDD",727.802,727.802,36) "BLD",8254,4,"APDD",727.802,727.802,37) "BLD",8254,4,"APDD",727.802,727.802,43) "BLD",8254,4,"APDD",727.802,727.802,44) "BLD",8254,4,"APDD",727.802,727.802,48) "BLD",8254,4,"APDD",727.802,727.802,49) "BLD",8254,4,"APDD",727.802,727.802,50) "BLD",8254,4,"APDD",727.802,727.802,52) "BLD",8254,4,"APDD",727.802,727.802,53) "BLD",8254,4,"APDD",727.802,727.802,54) "BLD",8254,4,"APDD",727.802,727.802,55) "BLD",8254,4,"APDD",727.802,727.802,57) "BLD",8254,4,"APDD",727.802,727.802,58) "BLD",8254,4,"APDD",727.802,727.802,59) "BLD",8254,4,"APDD",727.802,727.802,60) "BLD",8254,4,"APDD",727.802,727.802,63) "BLD",8254,4,"APDD",727.802,727.802,65) "BLD",8254,4,"APDD",727.802,727.802,66) "BLD",8254,4,"APDD",727.802,727.802,67) "BLD",8254,4,"APDD",727.802,727.802,68) "BLD",8254,4,"APDD",727.802,727.802,69) "BLD",8254,4,"APDD",727.802,727.802,70) "BLD",8254,4,"APDD",727.802,727.802,71) "BLD",8254,4,"APDD",727.802,727.802,72) "BLD",8254,4,"APDD",727.802,727.802,73) "BLD",8254,4,"APDD",727.802,727.802,74) "BLD",8254,4,"APDD",727.802,727.802,75) "BLD",8254,4,"APDD",727.802,727.802,77) "BLD",8254,4,"APDD",727.802,727.802,88) "BLD",8254,4,"APDD",727.802,727.802,89) "BLD",8254,4,"APDD",727.802,727.802,92) "BLD",8254,4,"APDD",727.802,727.802,93) "BLD",8254,4,"APDD",727.808,727.808) "BLD",8254,4,"APDD",727.808,727.808,3) "BLD",8254,4,"APDD",727.808,727.808,5) "BLD",8254,4,"APDD",727.808,727.808,6) "BLD",8254,4,"APDD",727.808,727.808,7) "BLD",8254,4,"APDD",727.808,727.808,13) "BLD",8254,4,"APDD",727.808,727.808,14) "BLD",8254,4,"APDD",727.808,727.808,15) "BLD",8254,4,"APDD",727.808,727.808,19) "BLD",8254,4,"APDD",727.808,727.808,20) "BLD",8254,4,"APDD",727.808,727.808,21) "BLD",8254,4,"APDD",727.808,727.808,24) "BLD",8254,4,"APDD",727.808,727.808,25) "BLD",8254,4,"APDD",727.808,727.808,26) "BLD",8254,4,"APDD",727.808,727.808,27) "BLD",8254,4,"APDD",727.808,727.808,28) "BLD",8254,4,"APDD",727.808,727.808,29) "BLD",8254,4,"APDD",727.808,727.808,30) "BLD",8254,4,"APDD",727.808,727.808,31) "BLD",8254,4,"APDD",727.808,727.808,32) "BLD",8254,4,"APDD",727.808,727.808,33) "BLD",8254,4,"APDD",727.808,727.808,34) "BLD",8254,4,"APDD",727.809,727.809) "BLD",8254,4,"APDD",727.809,727.809,3) "BLD",8254,4,"APDD",727.809,727.809,5) "BLD",8254,4,"APDD",727.809,727.809,6) "BLD",8254,4,"APDD",727.809,727.809,7) "BLD",8254,4,"APDD",727.809,727.809,10) "BLD",8254,4,"APDD",727.809,727.809,11) "BLD",8254,4,"APDD",727.809,727.809,13) "BLD",8254,4,"APDD",727.809,727.809,17) "BLD",8254,4,"APDD",727.809,727.809,18) "BLD",8254,4,"APDD",727.809,727.809,19) "BLD",8254,4,"APDD",727.809,727.809,20) "BLD",8254,4,"APDD",727.809,727.809,21) "BLD",8254,4,"APDD",727.809,727.809,22) "BLD",8254,4,"APDD",727.809,727.809,23) "BLD",8254,4,"APDD",727.809,727.809,25) "BLD",8254,4,"APDD",727.809,727.809,26) "BLD",8254,4,"APDD",727.809,727.809,27) "BLD",8254,4,"APDD",727.809,727.809,28) "BLD",8254,4,"APDD",727.809,727.809,29) "BLD",8254,4,"APDD",727.809,727.809,31) "BLD",8254,4,"APDD",727.809,727.809,32) "BLD",8254,4,"APDD",727.809,727.809,35) "BLD",8254,4,"APDD",727.809,727.809,36) "BLD",8254,4,"APDD",727.809,727.809,38) "BLD",8254,4,"APDD",727.809,727.809,40) "BLD",8254,4,"APDD",727.809,727.809,41) "BLD",8254,4,"APDD",727.809,727.809,42) "BLD",8254,4,"APDD",727.809,727.809,43) "BLD",8254,4,"APDD",727.809,727.809,44) "BLD",8254,4,"APDD",727.809,727.809,45) "BLD",8254,4,"APDD",727.809,727.809,47) "BLD",8254,4,"APDD",727.809,727.809,48) "BLD",8254,4,"APDD",727.809,727.809,49) "BLD",8254,4,"APDD",727.809,727.809,51) "BLD",8254,4,"APDD",727.809,727.809,53) "BLD",8254,4,"APDD",727.809,727.809,54) "BLD",8254,4,"APDD",727.809,727.809,56) "BLD",8254,4,"APDD",727.809,727.809,57) "BLD",8254,4,"APDD",727.809,727.809,58) "BLD",8254,4,"APDD",727.809,727.809,59) "BLD",8254,4,"APDD",727.809,727.809,61) "BLD",8254,4,"APDD",727.809,727.809,62) "BLD",8254,4,"APDD",727.809,727.809,63) "BLD",8254,4,"APDD",727.809,727.809,64) "BLD",8254,4,"APDD",727.809,727.809,65) "BLD",8254,4,"APDD",727.809,727.809,67) "BLD",8254,4,"APDD",727.809,727.809,68) "BLD",8254,4,"APDD",727.809,727.809,69) "BLD",8254,4,"APDD",727.809,727.809,70) "BLD",8254,4,"APDD",727.809,727.809,71) "BLD",8254,4,"APDD",727.809,727.809,72) "BLD",8254,4,"APDD",727.809,727.809,73) "BLD",8254,4,"APDD",727.809,727.809,74) "BLD",8254,4,"APDD",727.809,727.809,82) "BLD",8254,4,"APDD",727.81,727.81) "BLD",8254,4,"APDD",727.81,727.81,3) "BLD",8254,4,"APDD",727.81,727.81,5) "BLD",8254,4,"APDD",727.81,727.81,6) "BLD",8254,4,"APDD",727.81,727.81,7) "BLD",8254,4,"APDD",727.81,727.81,10) "BLD",8254,4,"APDD",727.81,727.81,12) "BLD",8254,4,"APDD",727.81,727.81,15) "BLD",8254,4,"APDD",727.81,727.81,16) "BLD",8254,4,"APDD",727.81,727.81,17) "BLD",8254,4,"APDD",727.81,727.81,18) "BLD",8254,4,"APDD",727.81,727.81,20) "BLD",8254,4,"APDD",727.81,727.81,23) "BLD",8254,4,"APDD",727.81,727.81,25) "BLD",8254,4,"APDD",727.81,727.81,27) "BLD",8254,4,"APDD",727.81,727.81,28) "BLD",8254,4,"APDD",727.81,727.81,30) "BLD",8254,4,"APDD",727.81,727.81,31) "BLD",8254,4,"APDD",727.81,727.81,32) "BLD",8254,4,"APDD",727.81,727.81,34) "BLD",8254,4,"APDD",727.81,727.81,35) "BLD",8254,4,"APDD",727.81,727.81,36) "BLD",8254,4,"APDD",727.81,727.81,37) "BLD",8254,4,"APDD",727.81,727.81,43) "BLD",8254,4,"APDD",727.81,727.81,45) "BLD",8254,4,"APDD",727.81,727.81,46) "BLD",8254,4,"APDD",727.81,727.81,48) "BLD",8254,4,"APDD",727.81,727.81,49) "BLD",8254,4,"APDD",727.81,727.81,51) "BLD",8254,4,"APDD",727.81,727.81,52) "BLD",8254,4,"APDD",727.81,727.81,54) "BLD",8254,4,"APDD",727.81,727.81,56) "BLD",8254,4,"APDD",727.81,727.81,57) "BLD",8254,4,"APDD",727.81,727.81,59) "BLD",8254,4,"APDD",727.81,727.81,61) "BLD",8254,4,"APDD",727.81,727.81,62) "BLD",8254,4,"APDD",727.81,727.81,63) "BLD",8254,4,"APDD",727.81,727.81,65) "BLD",8254,4,"APDD",727.81,727.81,66) "BLD",8254,4,"APDD",727.81,727.81,67) "BLD",8254,4,"APDD",727.81,727.81,68) "BLD",8254,4,"APDD",727.81,727.81,69) "BLD",8254,4,"APDD",727.81,727.81,73) "BLD",8254,4,"APDD",727.81,727.81,74) "BLD",8254,4,"APDD",727.81,727.81,77) "BLD",8254,4,"APDD",727.81,727.81,78) "BLD",8254,4,"APDD",727.81,727.81,79) "BLD",8254,4,"APDD",727.81,727.81,80) "BLD",8254,4,"APDD",727.81,727.81,81) "BLD",8254,4,"APDD",727.81,727.81,82) "BLD",8254,4,"APDD",727.81,727.81,85) "BLD",8254,4,"APDD",727.81,727.81,86) "BLD",8254,4,"APDD",727.81,727.81,87) "BLD",8254,4,"APDD",727.81,727.81,88) "BLD",8254,4,"APDD",727.81,727.81,90) "BLD",8254,4,"APDD",727.81,727.81,97) "BLD",8254,4,"APDD",727.811,727.811) "BLD",8254,4,"APDD",727.811,727.811,3) "BLD",8254,4,"APDD",727.811,727.811,5) "BLD",8254,4,"APDD",727.811,727.811,6) "BLD",8254,4,"APDD",727.811,727.811,7) "BLD",8254,4,"APDD",727.811,727.811,12) "BLD",8254,4,"APDD",727.811,727.811,13) "BLD",8254,4,"APDD",727.811,727.811,14) "BLD",8254,4,"APDD",727.811,727.811,22) "BLD",8254,4,"APDD",727.811,727.811,31) "BLD",8254,4,"APDD",727.811,727.811,35) "BLD",8254,4,"APDD",727.811,727.811,36) "BLD",8254,4,"APDD",727.811,727.811,37) "BLD",8254,4,"APDD",727.811,727.811,38) "BLD",8254,4,"APDD",727.811,727.811,44) "BLD",8254,4,"APDD",727.811,727.811,45) "BLD",8254,4,"APDD",727.811,727.811,47) "BLD",8254,4,"APDD",727.811,727.811,48) "BLD",8254,4,"APDD",727.811,727.811,49) "BLD",8254,4,"APDD",727.811,727.811,50) "BLD",8254,4,"APDD",727.811,727.811,52) "BLD",8254,4,"APDD",727.811,727.811,54) "BLD",8254,4,"APDD",727.811,727.811,55) "BLD",8254,4,"APDD",727.811,727.811,56) "BLD",8254,4,"APDD",727.811,727.811,57) "BLD",8254,4,"APDD",727.811,727.811,58) "BLD",8254,4,"APDD",727.811,727.811,60) "BLD",8254,4,"APDD",727.811,727.811,62) "BLD",8254,4,"APDD",727.811,727.811,63) "BLD",8254,4,"APDD",727.811,727.811,64) "BLD",8254,4,"APDD",727.811,727.811,65) "BLD",8254,4,"APDD",727.811,727.811,66) "BLD",8254,4,"APDD",727.811,727.811,67) "BLD",8254,4,"APDD",727.811,727.811,68) "BLD",8254,4,"APDD",727.811,727.811,69) "BLD",8254,4,"APDD",727.811,727.811,71) "BLD",8254,4,"APDD",727.811,727.811,72) "BLD",8254,4,"APDD",727.811,727.811,78) "BLD",8254,4,"APDD",727.811,727.811,79) "BLD",8254,4,"APDD",727.811,727.811,82) "BLD",8254,4,"APDD",727.811,727.811,83) "BLD",8254,4,"APDD",727.811,727.811,84) "BLD",8254,4,"APDD",727.811,727.811,85) "BLD",8254,4,"APDD",727.811,727.811,86) "BLD",8254,4,"APDD",727.811,727.811,87) "BLD",8254,4,"APDD",727.811,727.811,88) "BLD",8254,4,"APDD",727.811,727.811,89) "BLD",8254,4,"APDD",727.811,727.811,90) "BLD",8254,4,"APDD",727.811,727.811,97) "BLD",8254,4,"APDD",727.811,727.811,98) "BLD",8254,4,"APDD",727.811,727.811,101) "BLD",8254,4,"APDD",727.811,727.811,102) "BLD",8254,4,"APDD",727.811,727.811,121) "BLD",8254,4,"APDD",727.813,727.813) "BLD",8254,4,"APDD",727.813,727.813,3) "BLD",8254,4,"APDD",727.813,727.813,4) "BLD",8254,4,"APDD",727.813,727.813,5) "BLD",8254,4,"APDD",727.813,727.813,7) "BLD",8254,4,"APDD",727.813,727.813,8) "BLD",8254,4,"APDD",727.813,727.813,9) "BLD",8254,4,"APDD",727.813,727.813,10) "BLD",8254,4,"APDD",727.813,727.813,11) "BLD",8254,4,"APDD",727.813,727.813,12) "BLD",8254,4,"APDD",727.813,727.813,14) "BLD",8254,4,"APDD",727.813,727.813,21) "BLD",8254,4,"APDD",727.813,727.813,22) "BLD",8254,4,"APDD",727.813,727.813,23) "BLD",8254,4,"APDD",727.813,727.813,27) "BLD",8254,4,"APDD",727.813,727.813,28) "BLD",8254,4,"APDD",727.813,727.813,30) "BLD",8254,4,"APDD",727.813,727.813,31) "BLD",8254,4,"APDD",727.813,727.813,32) "BLD",8254,4,"APDD",727.813,727.813,33) "BLD",8254,4,"APDD",727.813,727.813,34) "BLD",8254,4,"APDD",727.813,727.813,36) "BLD",8254,4,"APDD",727.813,727.813,37) "BLD",8254,4,"APDD",727.814,727.814) "BLD",8254,4,"APDD",727.814,727.814,3) "BLD",8254,4,"APDD",727.814,727.814,5) "BLD",8254,4,"APDD",727.814,727.814,6) "BLD",8254,4,"APDD",727.814,727.814,7) "BLD",8254,4,"APDD",727.814,727.814,9) "BLD",8254,4,"APDD",727.814,727.814,22) "BLD",8254,4,"APDD",727.814,727.814,23) "BLD",8254,4,"APDD",727.814,727.814,24) "BLD",8254,4,"APDD",727.814,727.814,28) "BLD",8254,4,"APDD",727.814,727.814,29) "BLD",8254,4,"APDD",727.814,727.814,31) "BLD",8254,4,"APDD",727.814,727.814,32) "BLD",8254,4,"APDD",727.814,727.814,33) "BLD",8254,4,"APDD",727.814,727.814,34) "BLD",8254,4,"APDD",727.814,727.814,35) "BLD",8254,4,"APDD",727.814,727.814,37) "BLD",8254,4,"APDD",727.814,727.814,38) "BLD",8254,4,"APDD",727.814,727.814,39) "BLD",8254,4,"APDD",727.814,727.814,40) "BLD",8254,4,"APDD",727.814,727.814,42) "BLD",8254,4,"APDD",727.814,727.814,49) "BLD",8254,4,"APDD",727.815,727.815) "BLD",8254,4,"APDD",727.815,727.815,3) "BLD",8254,4,"APDD",727.815,727.815,5) "BLD",8254,4,"APDD",727.815,727.815,6) "BLD",8254,4,"APDD",727.815,727.815,7) "BLD",8254,4,"APDD",727.815,727.815,8) "BLD",8254,4,"APDD",727.815,727.815,9) "BLD",8254,4,"APDD",727.815,727.815,12) "BLD",8254,4,"APDD",727.815,727.815,13) "BLD",8254,4,"APDD",727.815,727.815,14) "BLD",8254,4,"APDD",727.815,727.815,16) "BLD",8254,4,"APDD",727.815,727.815,17) "BLD",8254,4,"APDD",727.815,727.815,18) "BLD",8254,4,"APDD",727.815,727.815,19) "BLD",8254,4,"APDD",727.815,727.815,20) "BLD",8254,4,"APDD",727.815,727.815,21) "BLD",8254,4,"APDD",727.815,727.815,26) "BLD",8254,4,"APDD",727.815,727.815,28) "BLD",8254,4,"APDD",727.815,727.815,29) "BLD",8254,4,"APDD",727.815,727.815,30) "BLD",8254,4,"APDD",727.815,727.815,31) "BLD",8254,4,"APDD",727.815,727.815,32) "BLD",8254,4,"APDD",727.815,727.815,33) "BLD",8254,4,"APDD",727.815,727.815,34) "BLD",8254,4,"APDD",727.815,727.815,35) "BLD",8254,4,"APDD",727.815,727.815,36) "BLD",8254,4,"APDD",727.815,727.815,37) "BLD",8254,4,"APDD",727.815,727.815,40) "BLD",8254,4,"APDD",727.815,727.815,42) "BLD",8254,4,"APDD",727.815,727.815,43) "BLD",8254,4,"APDD",727.815,727.815,47) "BLD",8254,4,"APDD",727.815,727.815,49) "BLD",8254,4,"APDD",727.815,727.815,50) "BLD",8254,4,"APDD",727.815,727.815,53) "BLD",8254,4,"APDD",727.815,727.815,54) "BLD",8254,4,"APDD",727.815,727.815,55) "BLD",8254,4,"APDD",727.815,727.815,56) "BLD",8254,4,"APDD",727.815,727.815,57) "BLD",8254,4,"APDD",727.815,727.815,61) "BLD",8254,4,"APDD",727.815,727.815,62) "BLD",8254,4,"APDD",727.815,727.815,63) "BLD",8254,4,"APDD",727.815,727.815,68) "BLD",8254,4,"APDD",727.815,727.815,69) "BLD",8254,4,"APDD",727.815,727.815,71) "BLD",8254,4,"APDD",727.815,727.815,73) "BLD",8254,4,"APDD",727.815,727.815,76) "BLD",8254,4,"APDD",727.815,727.815,77) "BLD",8254,4,"APDD",727.815,727.815,78) "BLD",8254,4,"APDD",727.815,727.815,79) "BLD",8254,4,"APDD",727.815,727.815,80) "BLD",8254,4,"APDD",727.815,727.815,81) "BLD",8254,4,"APDD",727.815,727.815,82) "BLD",8254,4,"APDD",727.815,727.815,84) "BLD",8254,4,"APDD",727.815,727.815,85) "BLD",8254,4,"APDD",727.815,727.815,86) "BLD",8254,4,"APDD",727.815,727.815,87) "BLD",8254,4,"APDD",727.815,727.815,88) "BLD",8254,4,"APDD",727.815,727.815,89) "BLD",8254,4,"APDD",727.815,727.815,97) "BLD",8254,4,"APDD",727.815,727.815,100) "BLD",8254,4,"APDD",727.815,727.815,103) "BLD",8254,4,"APDD",727.815,727.815,106) "BLD",8254,4,"APDD",727.815,727.815,107) "BLD",8254,4,"APDD",727.815,727.815,108) "BLD",8254,4,"APDD",727.815,727.815,109) "BLD",8254,4,"APDD",727.815,727.815,110) "BLD",8254,4,"APDD",727.817,727.817) "BLD",8254,4,"APDD",727.817,727.817,3) "BLD",8254,4,"APDD",727.817,727.817,5) "BLD",8254,4,"APDD",727.817,727.817,6) "BLD",8254,4,"APDD",727.817,727.817,7) "BLD",8254,4,"APDD",727.817,727.817,10) "BLD",8254,4,"APDD",727.817,727.817,11) "BLD",8254,4,"APDD",727.817,727.817,12) "BLD",8254,4,"APDD",727.817,727.817,14) "BLD",8254,4,"APDD",727.817,727.817,15) "BLD",8254,4,"APDD",727.817,727.817,16) "BLD",8254,4,"APDD",727.817,727.817,20) "BLD",8254,4,"APDD",727.817,727.817,24) "BLD",8254,4,"APDD",727.817,727.817,30) "BLD",8254,4,"APDD",727.817,727.817,31) "BLD",8254,4,"APDD",727.817,727.817,32) "BLD",8254,4,"APDD",727.817,727.817,33) "BLD",8254,4,"APDD",727.817,727.817,34) "BLD",8254,4,"APDD",727.819,727.819) "BLD",8254,4,"APDD",727.819,727.819,3) "BLD",8254,4,"APDD",727.819,727.819,5) "BLD",8254,4,"APDD",727.819,727.819,6) "BLD",8254,4,"APDD",727.819,727.819,7) "BLD",8254,4,"APDD",727.819,727.819,10) "BLD",8254,4,"APDD",727.819,727.819,11) "BLD",8254,4,"APDD",727.819,727.819,13) "BLD",8254,4,"APDD",727.819,727.819,17) "BLD",8254,4,"APDD",727.819,727.819,18) "BLD",8254,4,"APDD",727.819,727.819,19) "BLD",8254,4,"APDD",727.819,727.819,22) "BLD",8254,4,"APDD",727.819,727.819,23) "BLD",8254,4,"APDD",727.819,727.819,24) "BLD",8254,4,"APDD",727.819,727.819,25) "BLD",8254,4,"APDD",727.819,727.819,26) "BLD",8254,4,"APDD",727.819,727.819,27) "BLD",8254,4,"APDD",727.819,727.819,28) "BLD",8254,4,"APDD",727.819,727.819,30) "BLD",8254,4,"APDD",727.819,727.819,31) "BLD",8254,4,"APDD",727.819,727.819,32) "BLD",8254,4,"APDD",727.819,727.819,34) "BLD",8254,4,"APDD",727.819,727.819,35) "BLD",8254,4,"APDD",727.819,727.819,36) "BLD",8254,4,"APDD",727.819,727.819,37) "BLD",8254,4,"APDD",727.819,727.819,38) "BLD",8254,4,"APDD",727.819,727.819,39) "BLD",8254,4,"APDD",727.819,727.819,41) "BLD",8254,4,"APDD",727.819,727.819,42) "BLD",8254,4,"APDD",727.819,727.819,44) "BLD",8254,4,"APDD",727.819,727.819,45) "BLD",8254,4,"APDD",727.819,727.819,48) "BLD",8254,4,"APDD",727.819,727.819,49) "BLD",8254,4,"APDD",727.819,727.819,51) "BLD",8254,4,"APDD",727.819,727.819,53) "BLD",8254,4,"APDD",727.819,727.819,54) "BLD",8254,4,"APDD",727.819,727.819,55) "BLD",8254,4,"APDD",727.819,727.819,56) "BLD",8254,4,"APDD",727.819,727.819,57) "BLD",8254,4,"APDD",727.819,727.819,59) "BLD",8254,4,"APDD",727.819,727.819,60) "BLD",8254,4,"APDD",727.819,727.819,61) "BLD",8254,4,"APDD",727.819,727.819,62) "BLD",8254,4,"APDD",727.819,727.819,64) "BLD",8254,4,"APDD",727.819,727.819,66) "BLD",8254,4,"APDD",727.819,727.819,67) "BLD",8254,4,"APDD",727.819,727.819,68) "BLD",8254,4,"APDD",727.819,727.819,69) "BLD",8254,4,"APDD",727.819,727.819,70) "BLD",8254,4,"APDD",727.819,727.819,72) "BLD",8254,4,"APDD",727.819,727.819,73) "BLD",8254,4,"APDD",727.819,727.819,74) "BLD",8254,4,"APDD",727.819,727.819,75) "BLD",8254,4,"APDD",727.819,727.819,76) "BLD",8254,4,"APDD",727.819,727.819,77) "BLD",8254,4,"APDD",727.819,727.819,78) "BLD",8254,4,"APDD",727.819,727.819,79) "BLD",8254,4,"APDD",727.819,727.819,87) "BLD",8254,4,"APDD",727.824,727.824) "BLD",8254,4,"APDD",727.824,727.824,3) "BLD",8254,4,"APDD",727.824,727.824,5) "BLD",8254,4,"APDD",727.824,727.824,6) "BLD",8254,4,"APDD",727.824,727.824,7) "BLD",8254,4,"APDD",727.824,727.824,8) "BLD",8254,4,"APDD",727.824,727.824,12) "BLD",8254,4,"APDD",727.824,727.824,19) "BLD",8254,4,"APDD",727.824,727.824,20) "BLD",8254,4,"APDD",727.824,727.824,22) "BLD",8254,4,"APDD",727.824,727.824,23) "BLD",8254,4,"APDD",727.824,727.824,24) "BLD",8254,4,"APDD",727.824,727.824,25) "BLD",8254,4,"APDD",727.824,727.824,26) "BLD",8254,4,"APDD",727.824,727.824,28) "BLD",8254,4,"APDD",727.824,727.824,29) "BLD",8254,4,"APDD",727.825,727.825) "BLD",8254,4,"APDD",727.825,727.825,2) "BLD",8254,4,"APDD",727.825,727.825,3) "BLD",8254,4,"APDD",727.825,727.825,4) "BLD",8254,4,"APDD",727.825,727.825,5) "BLD",8254,4,"APDD",727.825,727.825,6) "BLD",8254,4,"APDD",727.825,727.825,7) "BLD",8254,4,"APDD",727.825,727.825,8) "BLD",8254,4,"APDD",727.825,727.825,9) "BLD",8254,4,"APDD",727.825,727.825,10) "BLD",8254,4,"APDD",727.825,727.825,12) "BLD",8254,4,"APDD",727.825,727.825,13) "BLD",8254,4,"APDD",727.825,727.825,14) "BLD",8254,4,"APDD",727.825,727.825,15) "BLD",8254,4,"APDD",727.825,727.825,16) "BLD",8254,4,"APDD",727.825,727.825,17) "BLD",8254,4,"APDD",727.825,727.825,19) "BLD",8254,4,"APDD",727.825,727.825,21) "BLD",8254,4,"APDD",727.825,727.825,25) "BLD",8254,4,"APDD",727.825,727.825,26) "BLD",8254,4,"APDD",727.825,727.825,27) "BLD",8254,4,"APDD",727.825,727.825,28) "BLD",8254,4,"APDD",727.825,727.825,29) "BLD",8254,4,"APDD",727.825,727.825,30) "BLD",8254,4,"APDD",727.825,727.825,31) "BLD",8254,4,"APDD",727.825,727.825,32) "BLD",8254,4,"APDD",727.825,727.825,33) "BLD",8254,4,"APDD",727.825,727.825,34) "BLD",8254,4,"APDD",727.825,727.825,35) "BLD",8254,4,"APDD",727.825,727.825,36) "BLD",8254,4,"APDD",727.825,727.825,37) "BLD",8254,4,"APDD",727.825,727.825,38) "BLD",8254,4,"APDD",727.825,727.825,40) "BLD",8254,4,"APDD",727.825,727.825,42) "BLD",8254,4,"APDD",727.825,727.825,43) "BLD",8254,4,"APDD",727.825,727.825,47) "BLD",8254,4,"APDD",727.825,727.825,49) "BLD",8254,4,"APDD",727.825,727.825,50) "BLD",8254,4,"APDD",727.825,727.825,52) "BLD",8254,4,"APDD",727.825,727.825,53) "BLD",8254,4,"APDD",727.825,727.825,54) "BLD",8254,4,"APDD",727.825,727.825,55) "BLD",8254,4,"APDD",727.825,727.825,56) "BLD",8254,4,"APDD",727.825,727.825,57) "BLD",8254,4,"APDD",727.825,727.825,61) "BLD",8254,4,"APDD",727.825,727.825,62) "BLD",8254,4,"APDD",727.825,727.825,63) "BLD",8254,4,"APDD",727.825,727.825,68) "BLD",8254,4,"APDD",727.825,727.825,69) "BLD",8254,4,"APDD",727.825,727.825,71) "BLD",8254,4,"APDD",727.825,727.825,73) "BLD",8254,4,"APDD",727.825,727.825,76) "BLD",8254,4,"APDD",727.825,727.825,77) "BLD",8254,4,"APDD",727.825,727.825,78) "BLD",8254,4,"APDD",727.825,727.825,79) "BLD",8254,4,"APDD",727.825,727.825,80) "BLD",8254,4,"APDD",727.825,727.825,81) "BLD",8254,4,"APDD",727.825,727.825,82) "BLD",8254,4,"APDD",727.825,727.825,84) "BLD",8254,4,"APDD",727.825,727.825,85) "BLD",8254,4,"APDD",727.825,727.825,86) "BLD",8254,4,"APDD",727.825,727.825,87) "BLD",8254,4,"APDD",727.825,727.825,88) "BLD",8254,4,"APDD",727.825,727.825,89) "BLD",8254,4,"APDD",727.825,727.825,97) "BLD",8254,4,"APDD",727.825,727.825,106) "BLD",8254,4,"APDD",727.825,727.825,107) "BLD",8254,4,"APDD",727.825,727.825,108) "BLD",8254,4,"APDD",727.825,727.825,109) "BLD",8254,4,"APDD",727.825,727.825,110) "BLD",8254,4,"APDD",727.826,727.826) "BLD",8254,4,"APDD",727.826,727.826,.01) "BLD",8254,4,"APDD",727.826,727.826,1) "BLD",8254,4,"APDD",727.826,727.826,2) "BLD",8254,4,"APDD",727.826,727.826,3) "BLD",8254,4,"APDD",727.826,727.826,4) "BLD",8254,4,"APDD",727.826,727.826,5) "BLD",8254,4,"APDD",727.826,727.826,6) "BLD",8254,4,"APDD",727.826,727.826,7) "BLD",8254,4,"APDD",727.826,727.826,8) "BLD",8254,4,"APDD",727.826,727.826,9) "BLD",8254,4,"APDD",727.826,727.826,10) "BLD",8254,4,"APDD",727.826,727.826,11) "BLD",8254,4,"APDD",727.826,727.826,12) "BLD",8254,4,"APDD",727.826,727.826,13) "BLD",8254,4,"APDD",727.826,727.826,14) "BLD",8254,4,"APDD",727.826,727.826,20) "BLD",8254,4,"APDD",727.826,727.826,21) "BLD",8254,4,"APDD",727.826,727.826,22) "BLD",8254,4,"APDD",727.826,727.826,24) "BLD",8254,4,"APDD",727.826,727.826,25) "BLD",8254,4,"APDD",727.826,727.826,26) "BLD",8254,4,"APDD",727.826,727.826,27) "BLD",8254,4,"APDD",727.826,727.826,28) "BLD",8254,4,"APDD",727.826,727.826,29) "BLD",8254,4,"APDD",727.826,727.826,30) "BLD",8254,4,"APDD",727.826,727.826,31) "BLD",8254,4,"APDD",727.826,727.826,33) "BLD",8254,4,"APDD",727.826,727.826,34) "BLD",8254,4,"APDD",727.826,727.826,35) "BLD",8254,4,"APDD",727.826,727.826,38) "BLD",8254,4,"APDD",727.826,727.826,39) "BLD",8254,4,"APDD",727.826,727.826,40) "BLD",8254,4,"APDD",727.826,727.826,42) "BLD",8254,4,"APDD",727.826,727.826,45) "BLD",8254,4,"APDD",727.826,727.826,46) "BLD",8254,4,"APDD",727.826,727.826,50) "BLD",8254,4,"APDD",727.826,727.826,51) "BLD",8254,4,"APDD",727.826,727.826,53) "BLD",8254,4,"APDD",727.826,727.826,54) "BLD",8254,4,"APDD",727.826,727.826,55) "BLD",8254,4,"APDD",727.826,727.826,58) "BLD",8254,4,"APDD",727.826,727.826,59) "BLD",8254,4,"APDD",727.826,727.826,60) "BLD",8254,4,"APDD",727.826,727.826,61) "BLD",8254,4,"APDD",727.826,727.826,62) "BLD",8254,4,"APDD",727.826,727.826,63) "BLD",8254,4,"APDD",727.826,727.826,64) "BLD",8254,4,"APDD",727.826,727.826,66) "BLD",8254,4,"APDD",727.826,727.826,67) "BLD",8254,4,"APDD",727.826,727.826,68) "BLD",8254,4,"APDD",727.826,727.826,69) "BLD",8254,4,"APDD",727.826,727.826,70) "BLD",8254,4,"APDD",727.826,727.826,71) "BLD",8254,4,"APDD",727.826,727.826,72) "BLD",8254,4,"APDD",727.826,727.826,73) "BLD",8254,4,"APDD",727.826,727.826,74) "BLD",8254,4,"APDD",727.826,727.826,76) "BLD",8254,4,"APDD",727.826,727.826,77) "BLD",8254,4,"APDD",727.826,727.826,78) "BLD",8254,4,"APDD",727.826,727.826,79) "BLD",8254,4,"APDD",727.826,727.826,80) "BLD",8254,4,"APDD",727.826,727.826,81) "BLD",8254,4,"APDD",727.826,727.826,82) "BLD",8254,4,"APDD",727.826,727.826,83) "BLD",8254,4,"APDD",727.826,727.826,84) "BLD",8254,4,"APDD",727.826,727.826,87) "BLD",8254,4,"APDD",727.826,727.826,88) "BLD",8254,4,"APDD",727.826,727.826,92) "BLD",8254,4,"APDD",727.826,727.826,93) "BLD",8254,4,"APDD",727.826,727.826,94) "BLD",8254,4,"APDD",727.826,727.826,95) "BLD",8254,4,"APDD",727.826,727.826,96) "BLD",8254,4,"APDD",727.827,727.827) "BLD",8254,4,"APDD",727.827,727.827,.01) "BLD",8254,4,"APDD",727.827,727.827,1) "BLD",8254,4,"APDD",727.827,727.827,2) "BLD",8254,4,"APDD",727.827,727.827,3) "BLD",8254,4,"APDD",727.827,727.827,4) "BLD",8254,4,"APDD",727.827,727.827,5) "BLD",8254,4,"APDD",727.827,727.827,6) "BLD",8254,4,"APDD",727.827,727.827,7) "BLD",8254,4,"APDD",727.827,727.827,8) "BLD",8254,4,"APDD",727.827,727.827,9) "BLD",8254,4,"APDD",727.827,727.827,10) "BLD",8254,4,"APDD",727.827,727.827,11) "BLD",8254,4,"APDD",727.827,727.827,12) "BLD",8254,4,"APDD",727.827,727.827,13) "BLD",8254,4,"APDD",727.827,727.827,14) "BLD",8254,4,"APDD",727.827,727.827,15) "BLD",8254,4,"APDD",727.827,727.827,16) "BLD",8254,4,"APDD",727.827,727.827,17) "BLD",8254,4,"APDD",727.827,727.827,18) "BLD",8254,4,"APDD",727.827,727.827,19) "BLD",8254,4,"APDD",727.827,727.827,20) "BLD",8254,4,"APDD",727.827,727.827,21) "BLD",8254,4,"APDD",727.827,727.827,22) "BLD",8254,4,"APDD",727.827,727.827,23) "BLD",8254,4,"APDD",727.827,727.827,24) "BLD",8254,4,"APDD",727.827,727.827,25) "BLD",8254,4,"APDD",727.827,727.827,26) "BLD",8254,4,"APDD",727.827,727.827,27) "BLD",8254,4,"APDD",727.827,727.827,28) "BLD",8254,4,"APDD",727.827,727.827,29) "BLD",8254,4,"APDD",727.827,727.827,30) "BLD",8254,4,"APDD",727.827,727.827,31) "BLD",8254,4,"APDD",727.827,727.827,32) "BLD",8254,4,"APDD",727.827,727.827,33) "BLD",8254,4,"APDD",727.827,727.827,34) "BLD",8254,4,"APDD",727.827,727.827,35) "BLD",8254,4,"APDD",727.827,727.827,36) "BLD",8254,4,"APDD",727.827,727.827,37) "BLD",8254,4,"APDD",727.827,727.827,38) "BLD",8254,4,"APDD",727.827,727.827,39) "BLD",8254,4,"APDD",727.827,727.827,40) "BLD",8254,4,"APDD",727.827,727.827,41) "BLD",8254,4,"APDD",727.827,727.827,42) "BLD",8254,4,"APDD",727.827,727.827,44) "BLD",8254,4,"APDD",727.827,727.827,45) "BLD",8254,4,"APDD",727.827,727.827,48) "BLD",8254,4,"APDD",727.827,727.827,49) "BLD",8254,4,"APDD",727.827,727.827,50) "BLD",8254,4,"APDD",727.827,727.827,51) "BLD",8254,4,"APDD",727.827,727.827,52) "BLD",8254,4,"APDD",727.827,727.827,53) "BLD",8254,4,"APDD",727.827,727.827,54) "BLD",8254,4,"APDD",727.827,727.827,55) "BLD",8254,4,"APDD",727.827,727.827,56) "BLD",8254,4,"APDD",727.827,727.827,57) "BLD",8254,4,"APDD",727.827,727.827,59) "BLD",8254,4,"APDD",727.827,727.827,60) "BLD",8254,4,"APDD",727.827,727.827,61) "BLD",8254,4,"APDD",727.827,727.827,62) "BLD",8254,4,"APDD",727.827,727.827,64) "BLD",8254,4,"APDD",727.827,727.827,65) "BLD",8254,4,"APDD",727.827,727.827,66) "BLD",8254,4,"APDD",727.827,727.827,67) "BLD",8254,4,"APDD",727.827,727.827,68) "BLD",8254,4,"APDD",727.827,727.827,71) "BLD",8254,4,"APDD",727.827,727.827,72) "BLD",8254,4,"APDD",727.827,727.827,74) "BLD",8254,4,"APDD",727.827,727.827,75) "BLD",8254,4,"APDD",727.827,727.827,76) "BLD",8254,4,"APDD",727.827,727.827,77) "BLD",8254,4,"APDD",727.827,727.827,78) "BLD",8254,4,"APDD",727.827,727.827,79) "BLD",8254,4,"APDD",727.827,727.827,80) "BLD",8254,4,"APDD",727.827,727.827,81) "BLD",8254,4,"APDD",727.827,727.827,82) "BLD",8254,4,"APDD",727.827,727.827,83) "BLD",8254,4,"APDD",727.827,727.827,84) "BLD",8254,4,"APDD",727.827,727.827,87) "BLD",8254,4,"APDD",727.827,727.827,93) "BLD",8254,4,"APDD",727.827,727.827,94) "BLD",8254,4,"APDD",727.827,727.827,111) "BLD",8254,4,"APDD",727.827,727.827,112) "BLD",8254,4,"APDD",727.827,727.827,113) "BLD",8254,4,"APDD",727.827,727.827,114) "BLD",8254,4,"APDD",727.827,727.827,115) "BLD",8254,4,"APDD",727.827,727.827,116) "BLD",8254,4,"APDD",727.829,727.829) "BLD",8254,4,"APDD",727.829,727.829,.01) "BLD",8254,4,"APDD",727.829,727.829,1) "BLD",8254,4,"APDD",727.829,727.829,3) "BLD",8254,4,"APDD",727.829,727.829,5) "BLD",8254,4,"APDD",727.829,727.829,6) "BLD",8254,4,"APDD",727.829,727.829,7) "BLD",8254,4,"APDD",727.829,727.829,8) "BLD",8254,4,"APDD",727.829,727.829,12) "BLD",8254,4,"APDD",727.829,727.829,13) "BLD",8254,4,"APDD",727.829,727.829,17) "BLD",8254,4,"APDD",727.829,727.829,18) "BLD",8254,4,"APDD",727.829,727.829,19) "BLD",8254,4,"APDD",727.829,727.829,20) "BLD",8254,4,"APDD",727.829,727.829,21) "BLD",8254,4,"APDD",727.829,727.829,23) "BLD",8254,4,"APDD",727.829,727.829,24) "BLD",8254,4,"APDD",727.829,727.829,25) "BLD",8254,4,"APDD",727.829,727.829,26) "BLD",8254,4,"APDD",727.829,727.829,27) "BLD",8254,4,"APDD",727.832,727.832) "BLD",8254,4,"APDD",727.832,727.832,.01) "BLD",8254,4,"APDD",727.832,727.832,3) "BLD",8254,4,"APDD",727.832,727.832,5) "BLD",8254,4,"APDD",727.832,727.832,6) "BLD",8254,4,"APDD",727.832,727.832,7) "BLD",8254,4,"APDD",727.832,727.832,8) "BLD",8254,4,"APDD",727.832,727.832,11) "BLD",8254,4,"APDD",727.832,727.832,12) "BLD",8254,4,"APDD",727.832,727.832,13) "BLD",8254,4,"APDD",727.832,727.832,14) "BLD",8254,4,"APDD",727.832,727.832,15) "BLD",8254,4,"APDD",727.832,727.832,16) "BLD",8254,4,"APDD",727.832,727.832,17) "BLD",8254,4,"APDD",727.832,727.832,18) "BLD",8254,4,"APDD",727.832,727.832,19) "BLD",8254,4,"APDD",727.832,727.832,20) "BLD",8254,4,"APDD",727.832,727.832,21) "BLD",8254,4,"APDD",727.832,727.832,22) "BLD",8254,4,"APDD",727.832,727.832,24) "BLD",8254,4,"APDD",727.832,727.832,25) "BLD",8254,4,"APDD",727.832,727.832,28) "BLD",8254,4,"APDD",727.832,727.832,29) "BLD",8254,4,"APDD",727.832,727.832,30) "BLD",8254,4,"APDD",727.832,727.832,31) "BLD",8254,4,"APDD",727.832,727.832,32) "BLD",8254,4,"APDD",727.832,727.832,33) "BLD",8254,4,"APDD",727.832,727.832,35) "BLD",8254,4,"APDD",727.832,727.832,37) "BLD",8254,4,"APDD",727.832,727.832,40) "BLD",8254,4,"APDD",727.832,727.832,41) "BLD",8254,4,"APDD",727.832,727.832,42) "BLD",8254,4,"APDD",727.832,727.832,43) "BLD",8254,4,"APDD",727.832,727.832,45) "BLD",8254,4,"APDD",727.832,727.832,46) "BLD",8254,4,"APDD",727.832,727.832,49) "BLD",8254,4,"APDD",727.832,727.832,50) "BLD",8254,4,"APDD",727.832,727.832,51) "BLD",8254,4,"APDD",727.832,727.832,52) "BLD",8254,4,"APDD",727.832,727.832,53) "BLD",8254,4,"APDD",727.832,727.832,54) "BLD",8254,4,"APDD",727.832,727.832,55) "BLD",8254,4,"APDD",727.832,727.832,56) "BLD",8254,4,"APDD",727.832,727.832,57) "BLD",8254,4,"APDD",727.832,727.832,60) "BLD",8254,4,"APDD",727.832,727.832,61) "BLD",8254,4,"APDD",727.832,727.832,64) "BLD",8254,4,"APDD",727.832,727.832,65) "BLD",8254,4,"APDD",728.44,728.44) "BLD",8254,4,"APDD",728.44,728.44,5) "BLD",8254,4,"APDD",728.904,728.904) "BLD",8254,4,"APDD",728.904,728.904,2.5) "BLD",8254,4,"B",727.802,727.802) "BLD",8254,4,"B",727.808,727.808) "BLD",8254,4,"B",727.809,727.809) "BLD",8254,4,"B",727.81,727.81) "BLD",8254,4,"B",727.811,727.811) "BLD",8254,4,"B",727.813,727.813) "BLD",8254,4,"B",727.814,727.814) "BLD",8254,4,"B",727.815,727.815) "BLD",8254,4,"B",727.817,727.817) "BLD",8254,4,"B",727.819,727.819) "BLD",8254,4,"B",727.824,727.824) "BLD",8254,4,"B",727.825,727.825) "BLD",8254,4,"B",727.826,727.826) "BLD",8254,4,"B",727.827,727.827) "BLD",8254,4,"B",727.829,727.829) "BLD",8254,4,"B",727.832,727.832) "BLD",8254,4,"B",727.833,727.833) "BLD",8254,4,"B",728.44,728.44) "BLD",8254,4,"B",728.904,728.904) "BLD",8254,6.3) 28 "BLD",8254,"ABPKG") n "BLD",8254,"INI") PRE^ECX3P136 "BLD",8254,"INIT") POST^ECX3P136 "BLD",8254,"KRN",0) ^9.67PA^779.2^20 "BLD",8254,"KRN",.4,0) .4 "BLD",8254,"KRN",.4,"NM",0) ^9.68A^1^1 "BLD",8254,"KRN",.4,"NM",1,0) ECX CLINIC REVIEW EXPORT FILE #728.44^728.44^0 "BLD",8254,"KRN",.4,"NM","B","ECX CLINIC REVIEW EXPORT FILE #728.44",1) "BLD",8254,"KRN",.401,0) .401 "BLD",8254,"KRN",.402,0) .402 "BLD",8254,"KRN",.403,0) .403 "BLD",8254,"KRN",.5,0) .5 "BLD",8254,"KRN",.84,0) .84 "BLD",8254,"KRN",3.6,0) 3.6 "BLD",8254,"KRN",3.8,0) 3.8 "BLD",8254,"KRN",9.2,0) 9.2 "BLD",8254,"KRN",9.8,0) 9.8 "BLD",8254,"KRN",9.8,"NM",0) ^9.68A^26^25 "BLD",8254,"KRN",9.8,"NM",1,0) ECXRAD^^0^B39628286 "BLD",8254,"KRN",9.8,"NM",2,0) ECXPHVE^^0^B20171490 "BLD",8254,"KRN",9.8,"NM",3,0) ECXKILL^^0^B9492478 "BLD",8254,"KRN",9.8,"NM",4,0) ECXPIVDN^^0^B60600395 "BLD",8254,"KRN",9.8,"NM",5,0) ECXOPRX^^0^B60339399 "BLD",8254,"KRN",9.8,"NM",7,0) ECXSCXN^^0^B73018945 "BLD",8254,"KRN",9.8,"NM",8,0) ECXEC^^0^B61924291 "BLD",8254,"KRN",9.8,"NM",9,0) ECXPRO^^0^B42025638 "BLD",8254,"KRN",9.8,"NM",10,0) ECXKILL1^^0^B13723476 "BLD",8254,"KRN",9.8,"NM",11,0) ECXQSR^^0^B49856684 "BLD",8254,"KRN",9.8,"NM",12,0) ECXQSR1^^0^B13899890 "BLD",8254,"KRN",9.8,"NM",13,0) ECXPLBB^^0^B21006006 "BLD",8254,"KRN",9.8,"NM",14,0) ECXAPHA2^^0^B31277218 "BLD",8254,"KRN",9.8,"NM",15,0) ECXLARA^^0^B30949100 "BLD",8254,"KRN",9.8,"NM",16,0) ECXALAR^^0^B18375176 "BLD",8254,"KRN",9.8,"NM",17,0) ECXSCLD^^0^B200358220 "BLD",8254,"KRN",9.8,"NM",18,0) ECXSCLD1^^0^B4160258 "BLD",8254,"KRN",9.8,"NM",19,0) ECXUTL1^^0^B41491361 "BLD",8254,"KRN",9.8,"NM",20,0) ECXADM^^0^B52630295 "BLD",8254,"KRN",9.8,"NM",21,0) ECXSCXN1^^0^B14855625 "BLD",8254,"KRN",9.8,"NM",22,0) ECXBCM^^0^B69163399 "BLD",8254,"KRN",9.8,"NM",23,0) ECXFELOC^^0^B20722255 "BLD",8254,"KRN",9.8,"NM",24,0) ECXFEKEY^^0^B52506007 "BLD",8254,"KRN",9.8,"NM",25,0) ECXUTL5^^0^B37238715 "BLD",8254,"KRN",9.8,"NM",26,0) ECXAPHA^^0^B35967865 "BLD",8254,"KRN",9.8,"NM","B","ECXADM",20) "BLD",8254,"KRN",9.8,"NM","B","ECXALAR",16) "BLD",8254,"KRN",9.8,"NM","B","ECXAPHA",26) "BLD",8254,"KRN",9.8,"NM","B","ECXAPHA2",14) "BLD",8254,"KRN",9.8,"NM","B","ECXBCM",22) "BLD",8254,"KRN",9.8,"NM","B","ECXEC",8) "BLD",8254,"KRN",9.8,"NM","B","ECXFEKEY",24) "BLD",8254,"KRN",9.8,"NM","B","ECXFELOC",23) "BLD",8254,"KRN",9.8,"NM","B","ECXKILL",3) "BLD",8254,"KRN",9.8,"NM","B","ECXKILL1",10) "BLD",8254,"KRN",9.8,"NM","B","ECXLARA",15) "BLD",8254,"KRN",9.8,"NM","B","ECXOPRX",5) "BLD",8254,"KRN",9.8,"NM","B","ECXPHVE",2) "BLD",8254,"KRN",9.8,"NM","B","ECXPIVDN",4) "BLD",8254,"KRN",9.8,"NM","B","ECXPLBB",13) "BLD",8254,"KRN",9.8,"NM","B","ECXPRO",9) "BLD",8254,"KRN",9.8,"NM","B","ECXQSR",11) "BLD",8254,"KRN",9.8,"NM","B","ECXQSR1",12) "BLD",8254,"KRN",9.8,"NM","B","ECXRAD",1) "BLD",8254,"KRN",9.8,"NM","B","ECXSCLD",17) "BLD",8254,"KRN",9.8,"NM","B","ECXSCLD1",18) "BLD",8254,"KRN",9.8,"NM","B","ECXSCXN",7) "BLD",8254,"KRN",9.8,"NM","B","ECXSCXN1",21) "BLD",8254,"KRN",9.8,"NM","B","ECXUTL1",19) "BLD",8254,"KRN",9.8,"NM","B","ECXUTL5",25) "BLD",8254,"KRN",19,0) 19 "BLD",8254,"KRN",19,"NM",0) ^9.68A^^0 "BLD",8254,"KRN",19.1,0) 19.1 "BLD",8254,"KRN",19.1,"NM",0) ^9.68A^1^1 "BLD",8254,"KRN",19.1,"NM",1,0) ECX DSS TEST^^0 "BLD",8254,"KRN",19.1,"NM","B","ECX DSS TEST",1) "BLD",8254,"KRN",101,0) 101 "BLD",8254,"KRN",101,"NM",0) ^9.68A^^ "BLD",8254,"KRN",409.61,0) 409.61 "BLD",8254,"KRN",771,0) 771 "BLD",8254,"KRN",779.2,0) 779.2 "BLD",8254,"KRN",870,0) 870 "BLD",8254,"KRN",8989.51,0) 8989.51 "BLD",8254,"KRN",8989.52,0) 8989.52 "BLD",8254,"KRN",8994,0) 8994 "BLD",8254,"KRN","B",.4,.4) "BLD",8254,"KRN","B",.401,.401) "BLD",8254,"KRN","B",.402,.402) "BLD",8254,"KRN","B",.403,.403) "BLD",8254,"KRN","B",.5,.5) "BLD",8254,"KRN","B",.84,.84) "BLD",8254,"KRN","B",3.6,3.6) "BLD",8254,"KRN","B",3.8,3.8) "BLD",8254,"KRN","B",9.2,9.2) "BLD",8254,"KRN","B",9.8,9.8) "BLD",8254,"KRN","B",19,19) "BLD",8254,"KRN","B",19.1,19.1) "BLD",8254,"KRN","B",101,101) "BLD",8254,"KRN","B",409.61,409.61) "BLD",8254,"KRN","B",771,771) "BLD",8254,"KRN","B",779.2,779.2) "BLD",8254,"KRN","B",870,870) "BLD",8254,"KRN","B",8989.51,8989.51) "BLD",8254,"KRN","B",8989.52,8989.52) "BLD",8254,"KRN","B",8994,8994) "BLD",8254,"QUES",0) ^9.62^^ "BLD",8254,"REQB",0) ^9.611^1^1 "BLD",8254,"REQB",1,0) ECX*3.0*132^1 "BLD",8254,"REQB","B","ECX*3.0*132",1) "FIA",727.802) ADMISSION EXTRACT "FIA",727.802,0) ^ECX(727.802, "FIA",727.802,0,0) 727.802 "FIA",727.802,0,1) y^n^p^^^^n^^n "FIA",727.802,0,10) "FIA",727.802,0,11) "FIA",727.802,0,"RLRO") "FIA",727.802,0,"VR") 3.0^ECX "FIA",727.802,727.802) 1 "FIA",727.802,727.802,3) "FIA",727.802,727.802,5) "FIA",727.802,727.802,6) "FIA",727.802,727.802,7) "FIA",727.802,727.802,11) "FIA",727.802,727.802,14) "FIA",727.802,727.802,16) "FIA",727.802,727.802,17) "FIA",727.802,727.802,19) "FIA",727.802,727.802,20) "FIA",727.802,727.802,21) "FIA",727.802,727.802,22) "FIA",727.802,727.802,23) "FIA",727.802,727.802,24) "FIA",727.802,727.802,25) "FIA",727.802,727.802,29) "FIA",727.802,727.802,31) "FIA",727.802,727.802,36) "FIA",727.802,727.802,37) "FIA",727.802,727.802,43) "FIA",727.802,727.802,44) "FIA",727.802,727.802,48) "FIA",727.802,727.802,49) "FIA",727.802,727.802,50) "FIA",727.802,727.802,52) "FIA",727.802,727.802,53) "FIA",727.802,727.802,54) "FIA",727.802,727.802,55) "FIA",727.802,727.802,57) "FIA",727.802,727.802,58) "FIA",727.802,727.802,59) "FIA",727.802,727.802,60) "FIA",727.802,727.802,63) "FIA",727.802,727.802,65) "FIA",727.802,727.802,66) "FIA",727.802,727.802,67) "FIA",727.802,727.802,68) "FIA",727.802,727.802,69) "FIA",727.802,727.802,70) "FIA",727.802,727.802,71) "FIA",727.802,727.802,72) "FIA",727.802,727.802,73) "FIA",727.802,727.802,74) "FIA",727.802,727.802,75) "FIA",727.802,727.802,77) "FIA",727.802,727.802,88) "FIA",727.802,727.802,89) "FIA",727.802,727.802,92) "FIA",727.802,727.802,93) "FIA",727.808) PHYSICAL MOVEMENT EXTRACT "FIA",727.808,0) ^ECX(727.808, "FIA",727.808,0,0) 727.808 "FIA",727.808,0,1) y^n^p^^^^n^^n "FIA",727.808,0,10) "FIA",727.808,0,11) "FIA",727.808,0,"RLRO") "FIA",727.808,0,"VR") 3.0^ECX "FIA",727.808,727.808) 1 "FIA",727.808,727.808,3) "FIA",727.808,727.808,5) "FIA",727.808,727.808,6) "FIA",727.808,727.808,7) "FIA",727.808,727.808,13) "FIA",727.808,727.808,14) "FIA",727.808,727.808,15) "FIA",727.808,727.808,19) "FIA",727.808,727.808,20) "FIA",727.808,727.808,21) "FIA",727.808,727.808,24) "FIA",727.808,727.808,25) "FIA",727.808,727.808,26) "FIA",727.808,727.808,27) "FIA",727.808,727.808,28) "FIA",727.808,727.808,29) "FIA",727.808,727.808,30) "FIA",727.808,727.808,31) "FIA",727.808,727.808,32) "FIA",727.808,727.808,33) "FIA",727.808,727.808,34) "FIA",727.809) UNIT DOSE LOCAL EXTRACT "FIA",727.809,0) ^ECX(727.809, "FIA",727.809,0,0) 727.809 "FIA",727.809,0,1) y^n^p^^^^n^^n "FIA",727.809,0,10) "FIA",727.809,0,11) "FIA",727.809,0,"RLRO") "FIA",727.809,0,"VR") 3.0^ECX "FIA",727.809,727.809) 1 "FIA",727.809,727.809,3) "FIA",727.809,727.809,5) "FIA",727.809,727.809,6) "FIA",727.809,727.809,7) "FIA",727.809,727.809,10) "FIA",727.809,727.809,11) "FIA",727.809,727.809,13) "FIA",727.809,727.809,17) "FIA",727.809,727.809,18) "FIA",727.809,727.809,19) "FIA",727.809,727.809,20) "FIA",727.809,727.809,21) "FIA",727.809,727.809,22) "FIA",727.809,727.809,23) "FIA",727.809,727.809,25) "FIA",727.809,727.809,26) "FIA",727.809,727.809,27) "FIA",727.809,727.809,28) "FIA",727.809,727.809,29) "FIA",727.809,727.809,31) "FIA",727.809,727.809,32) "FIA",727.809,727.809,35) "FIA",727.809,727.809,36) "FIA",727.809,727.809,38) "FIA",727.809,727.809,40) "FIA",727.809,727.809,41) "FIA",727.809,727.809,42) "FIA",727.809,727.809,43) "FIA",727.809,727.809,44) "FIA",727.809,727.809,45) "FIA",727.809,727.809,47) "FIA",727.809,727.809,48) "FIA",727.809,727.809,49) "FIA",727.809,727.809,51) "FIA",727.809,727.809,53) "FIA",727.809,727.809,54) "FIA",727.809,727.809,56) "FIA",727.809,727.809,57) "FIA",727.809,727.809,58) "FIA",727.809,727.809,59) "FIA",727.809,727.809,61) "FIA",727.809,727.809,62) "FIA",727.809,727.809,63) "FIA",727.809,727.809,64) "FIA",727.809,727.809,65) "FIA",727.809,727.809,67) "FIA",727.809,727.809,68) "FIA",727.809,727.809,69) "FIA",727.809,727.809,70) "FIA",727.809,727.809,71) "FIA",727.809,727.809,72) "FIA",727.809,727.809,73) "FIA",727.809,727.809,74) "FIA",727.809,727.809,82) "FIA",727.81) PRESCRIPTION EXTRACT "FIA",727.81,0) ^ECX(727.81, "FIA",727.81,0,0) 727.81 "FIA",727.81,0,1) y^n^p^^^^n^^n "FIA",727.81,0,10) "FIA",727.81,0,11) "FIA",727.81,0,"RLRO") "FIA",727.81,0,"VR") 3.0^ECX "FIA",727.81,727.81) 1 "FIA",727.81,727.81,3) "FIA",727.81,727.81,5) "FIA",727.81,727.81,6) "FIA",727.81,727.81,7) "FIA",727.81,727.81,10) "FIA",727.81,727.81,12) "FIA",727.81,727.81,15) "FIA",727.81,727.81,16) "FIA",727.81,727.81,17) "FIA",727.81,727.81,18) "FIA",727.81,727.81,20) "FIA",727.81,727.81,23) "FIA",727.81,727.81,25) "FIA",727.81,727.81,27) "FIA",727.81,727.81,28) "FIA",727.81,727.81,30) "FIA",727.81,727.81,31) "FIA",727.81,727.81,32) "FIA",727.81,727.81,34) "FIA",727.81,727.81,35) "FIA",727.81,727.81,36) "FIA",727.81,727.81,37) "FIA",727.81,727.81,43) "FIA",727.81,727.81,45) "FIA",727.81,727.81,46) "FIA",727.81,727.81,48) "FIA",727.81,727.81,49) "FIA",727.81,727.81,51) "FIA",727.81,727.81,52) "FIA",727.81,727.81,54) "FIA",727.81,727.81,56) "FIA",727.81,727.81,57) "FIA",727.81,727.81,59) "FIA",727.81,727.81,61) "FIA",727.81,727.81,62) "FIA",727.81,727.81,63) "FIA",727.81,727.81,65) "FIA",727.81,727.81,66) "FIA",727.81,727.81,67) "FIA",727.81,727.81,68) "FIA",727.81,727.81,69) "FIA",727.81,727.81,73) "FIA",727.81,727.81,74) "FIA",727.81,727.81,77) "FIA",727.81,727.81,78) "FIA",727.81,727.81,79) "FIA",727.81,727.81,80) "FIA",727.81,727.81,81) "FIA",727.81,727.81,82) "FIA",727.81,727.81,85) "FIA",727.81,727.81,86) "FIA",727.81,727.81,87) "FIA",727.81,727.81,88) "FIA",727.81,727.81,90) "FIA",727.81,727.81,97) "FIA",727.811) SURGERY EXTRACT "FIA",727.811,0) ^ECX(727.811, "FIA",727.811,0,0) 727.811 "FIA",727.811,0,1) y^n^p^^^^n^^n "FIA",727.811,0,10) "FIA",727.811,0,11) "FIA",727.811,0,"RLRO") "FIA",727.811,0,"VR") 3.0^ECX "FIA",727.811,727.811) 1 "FIA",727.811,727.811,3) "FIA",727.811,727.811,5) "FIA",727.811,727.811,6) "FIA",727.811,727.811,7) "FIA",727.811,727.811,12) "FIA",727.811,727.811,13) "FIA",727.811,727.811,14) "FIA",727.811,727.811,22) "FIA",727.811,727.811,31) "FIA",727.811,727.811,35) "FIA",727.811,727.811,36) "FIA",727.811,727.811,37) "FIA",727.811,727.811,38) "FIA",727.811,727.811,44) "FIA",727.811,727.811,45) "FIA",727.811,727.811,47) "FIA",727.811,727.811,48) "FIA",727.811,727.811,49) "FIA",727.811,727.811,50) "FIA",727.811,727.811,52) "FIA",727.811,727.811,54) "FIA",727.811,727.811,55) "FIA",727.811,727.811,56) "FIA",727.811,727.811,57) "FIA",727.811,727.811,58) "FIA",727.811,727.811,60) "FIA",727.811,727.811,62) "FIA",727.811,727.811,63) "FIA",727.811,727.811,64) "FIA",727.811,727.811,65) "FIA",727.811,727.811,66) "FIA",727.811,727.811,67) "FIA",727.811,727.811,68) "FIA",727.811,727.811,69) "FIA",727.811,727.811,71) "FIA",727.811,727.811,72) "FIA",727.811,727.811,78) "FIA",727.811,727.811,79) "FIA",727.811,727.811,82) "FIA",727.811,727.811,83) "FIA",727.811,727.811,84) "FIA",727.811,727.811,85) "FIA",727.811,727.811,86) "FIA",727.811,727.811,87) "FIA",727.811,727.811,88) "FIA",727.811,727.811,89) "FIA",727.811,727.811,90) "FIA",727.811,727.811,97) "FIA",727.811,727.811,98) "FIA",727.811,727.811,101) "FIA",727.811,727.811,102) "FIA",727.811,727.811,121) "FIA",727.813) LABORATORY EXTRACT "FIA",727.813,0) ^ECX(727.813, "FIA",727.813,0,0) 727.813 "FIA",727.813,0,1) y^n^p^^^^n^^n "FIA",727.813,0,10) "FIA",727.813,0,11) "FIA",727.813,0,"RLRO") "FIA",727.813,0,"VR") 3.0^ECX "FIA",727.813,727.813) 1 "FIA",727.813,727.813,3) "FIA",727.813,727.813,4) "FIA",727.813,727.813,5) "FIA",727.813,727.813,7) "FIA",727.813,727.813,8) "FIA",727.813,727.813,9) "FIA",727.813,727.813,10) "FIA",727.813,727.813,11) "FIA",727.813,727.813,12) "FIA",727.813,727.813,14) "FIA",727.813,727.813,21) "FIA",727.813,727.813,22) "FIA",727.813,727.813,23) "FIA",727.813,727.813,27) "FIA",727.813,727.813,28) "FIA",727.813,727.813,30) "FIA",727.813,727.813,31) "FIA",727.813,727.813,32) "FIA",727.813,727.813,33) "FIA",727.813,727.813,34) "FIA",727.813,727.813,36) "FIA",727.813,727.813,37) "FIA",727.814) RADIOLOGY EXTRACT "FIA",727.814,0) ^ECX(727.814, "FIA",727.814,0,0) 727.814 "FIA",727.814,0,1) y^n^p^^^^n^^n "FIA",727.814,0,10) "FIA",727.814,0,11) "FIA",727.814,0,"RLRO") "FIA",727.814,0,"VR") 3.0^ECX "FIA",727.814,727.814) 1 "FIA",727.814,727.814,3) "FIA",727.814,727.814,5) "FIA",727.814,727.814,6) "FIA",727.814,727.814,7) "FIA",727.814,727.814,9) "FIA",727.814,727.814,22) "FIA",727.814,727.814,23) "FIA",727.814,727.814,24) "FIA",727.814,727.814,28) "FIA",727.814,727.814,29) "FIA",727.814,727.814,31) "FIA",727.814,727.814,32) "FIA",727.814,727.814,33) "FIA",727.814,727.814,34) "FIA",727.814,727.814,35) "FIA",727.814,727.814,37) "FIA",727.814,727.814,38) "FIA",727.814,727.814,39) "FIA",727.814,727.814,40) "FIA",727.814,727.814,42) "FIA",727.814,727.814,49) "FIA",727.815) EVENT CAPTURE LOCAL EXTRACT "FIA",727.815,0) ^ECX(727.815, "FIA",727.815,0,0) 727.815 "FIA",727.815,0,1) y^n^p^^^^n^^n "FIA",727.815,0,10) "FIA",727.815,0,11) "FIA",727.815,0,"RLRO") "FIA",727.815,0,"VR") 3.0^ECX "FIA",727.815,727.815) 1 "FIA",727.815,727.815,3) "FIA",727.815,727.815,5) "FIA",727.815,727.815,6) "FIA",727.815,727.815,7) "FIA",727.815,727.815,8) "FIA",727.815,727.815,9) "FIA",727.815,727.815,12) "FIA",727.815,727.815,13) "FIA",727.815,727.815,14) "FIA",727.815,727.815,16) "FIA",727.815,727.815,17) "FIA",727.815,727.815,18) "FIA",727.815,727.815,19) "FIA",727.815,727.815,20) "FIA",727.815,727.815,21) "FIA",727.815,727.815,26) "FIA",727.815,727.815,28) "FIA",727.815,727.815,29) "FIA",727.815,727.815,30) "FIA",727.815,727.815,31) "FIA",727.815,727.815,32) "FIA",727.815,727.815,33) "FIA",727.815,727.815,34) "FIA",727.815,727.815,35) "FIA",727.815,727.815,36) "FIA",727.815,727.815,37) "FIA",727.815,727.815,40) "FIA",727.815,727.815,42) "FIA",727.815,727.815,43) "FIA",727.815,727.815,47) "FIA",727.815,727.815,49) "FIA",727.815,727.815,50) "FIA",727.815,727.815,53) "FIA",727.815,727.815,54) "FIA",727.815,727.815,55) "FIA",727.815,727.815,56) "FIA",727.815,727.815,57) "FIA",727.815,727.815,61) "FIA",727.815,727.815,62) "FIA",727.815,727.815,63) "FIA",727.815,727.815,68) "FIA",727.815,727.815,69) "FIA",727.815,727.815,71) "FIA",727.815,727.815,73) "FIA",727.815,727.815,76) "FIA",727.815,727.815,77) "FIA",727.815,727.815,78) "FIA",727.815,727.815,79) "FIA",727.815,727.815,80) "FIA",727.815,727.815,81) "FIA",727.815,727.815,82) "FIA",727.815,727.815,84) "FIA",727.815,727.815,85) "FIA",727.815,727.815,86) "FIA",727.815,727.815,87) "FIA",727.815,727.815,88) "FIA",727.815,727.815,89) "FIA",727.815,727.815,97) "FIA",727.815,727.815,100) "FIA",727.815,727.815,103) "FIA",727.815,727.815,106) "FIA",727.815,727.815,107) "FIA",727.815,727.815,108) "FIA",727.815,727.815,109) "FIA",727.815,727.815,110) "FIA",727.817) TREATING SPECIALTY CHANGE EXTRACT "FIA",727.817,0) ^ECX(727.817, "FIA",727.817,0,0) 727.817 "FIA",727.817,0,1) y^n^p^^^^n^^n "FIA",727.817,0,10) "FIA",727.817,0,11) "FIA",727.817,0,"RLRO") "FIA",727.817,0,"VR") 3.0^ECX "FIA",727.817,727.817) 1 "FIA",727.817,727.817,3) "FIA",727.817,727.817,5) "FIA",727.817,727.817,6) "FIA",727.817,727.817,7) "FIA",727.817,727.817,10) "FIA",727.817,727.817,11) "FIA",727.817,727.817,12) "FIA",727.817,727.817,14) "FIA",727.817,727.817,15) "FIA",727.817,727.817,16) "FIA",727.817,727.817,20) "FIA",727.817,727.817,24) "FIA",727.817,727.817,30) "FIA",727.817,727.817,31) "FIA",727.817,727.817,32) "FIA",727.817,727.817,33) "FIA",727.817,727.817,34) "FIA",727.819) IV DETAIL EXTRACT "FIA",727.819,0) ^ECX(727.819, "FIA",727.819,0,0) 727.819 "FIA",727.819,0,1) y^n^p^^^^n^^n "FIA",727.819,0,10) "FIA",727.819,0,11) "FIA",727.819,0,"RLRO") "FIA",727.819,0,"VR") 3.0^ECX "FIA",727.819,727.819) 1 "FIA",727.819,727.819,3) "FIA",727.819,727.819,5) "FIA",727.819,727.819,6) "FIA",727.819,727.819,7) "FIA",727.819,727.819,10) "FIA",727.819,727.819,11) "FIA",727.819,727.819,13) "FIA",727.819,727.819,17) "FIA",727.819,727.819,18) "FIA",727.819,727.819,19) "FIA",727.819,727.819,22) "FIA",727.819,727.819,23) "FIA",727.819,727.819,24) "FIA",727.819,727.819,25) "FIA",727.819,727.819,26) "FIA",727.819,727.819,27) "FIA",727.819,727.819,28) "FIA",727.819,727.819,30) "FIA",727.819,727.819,31) "FIA",727.819,727.819,32) "FIA",727.819,727.819,34) "FIA",727.819,727.819,35) "FIA",727.819,727.819,36) "FIA",727.819,727.819,37) "FIA",727.819,727.819,38) "FIA",727.819,727.819,39) "FIA",727.819,727.819,41) "FIA",727.819,727.819,42) "FIA",727.819,727.819,44) "FIA",727.819,727.819,45) "FIA",727.819,727.819,48) "FIA",727.819,727.819,49) "FIA",727.819,727.819,51) "FIA",727.819,727.819,53) "FIA",727.819,727.819,54) "FIA",727.819,727.819,55) "FIA",727.819,727.819,56) "FIA",727.819,727.819,57) "FIA",727.819,727.819,59) "FIA",727.819,727.819,60) "FIA",727.819,727.819,61) "FIA",727.819,727.819,62) "FIA",727.819,727.819,64) "FIA",727.819,727.819,66) "FIA",727.819,727.819,67) "FIA",727.819,727.819,68) "FIA",727.819,727.819,69) "FIA",727.819,727.819,70) "FIA",727.819,727.819,72) "FIA",727.819,727.819,73) "FIA",727.819,727.819,74) "FIA",727.819,727.819,75) "FIA",727.819,727.819,76) "FIA",727.819,727.819,77) "FIA",727.819,727.819,78) "FIA",727.819,727.819,79) "FIA",727.819,727.819,87) "FIA",727.824) LAB RESULTS EXTRACT "FIA",727.824,0) ^ECX(727.824, "FIA",727.824,0,0) 727.824 "FIA",727.824,0,1) y^n^p^^^^n^^n "FIA",727.824,0,10) "FIA",727.824,0,11) "FIA",727.824,0,"RLRO") "FIA",727.824,0,"VR") 3.0^ECX "FIA",727.824,727.824) 1 "FIA",727.824,727.824,3) "FIA",727.824,727.824,5) "FIA",727.824,727.824,6) "FIA",727.824,727.824,7) "FIA",727.824,727.824,8) "FIA",727.824,727.824,12) "FIA",727.824,727.824,19) "FIA",727.824,727.824,20) "FIA",727.824,727.824,22) "FIA",727.824,727.824,23) "FIA",727.824,727.824,24) "FIA",727.824,727.824,25) "FIA",727.824,727.824,26) "FIA",727.824,727.824,28) "FIA",727.824,727.824,29) "FIA",727.825) QUASAR EXTRACT "FIA",727.825,0) ^ECX(727.825, "FIA",727.825,0,0) 727.825 "FIA",727.825,0,1) y^n^p^^^^n^^n "FIA",727.825,0,10) "FIA",727.825,0,11) "FIA",727.825,0,"RLRO") "FIA",727.825,0,"VR") 3.0^ECX "FIA",727.825,727.825) 1 "FIA",727.825,727.825,2) "FIA",727.825,727.825,3) "FIA",727.825,727.825,4) "FIA",727.825,727.825,5) "FIA",727.825,727.825,6) "FIA",727.825,727.825,7) "FIA",727.825,727.825,8) "FIA",727.825,727.825,9) "FIA",727.825,727.825,10) "FIA",727.825,727.825,12) "FIA",727.825,727.825,13) "FIA",727.825,727.825,14) "FIA",727.825,727.825,15) "FIA",727.825,727.825,16) "FIA",727.825,727.825,17) "FIA",727.825,727.825,19) "FIA",727.825,727.825,21) "FIA",727.825,727.825,25) "FIA",727.825,727.825,26) "FIA",727.825,727.825,27) "FIA",727.825,727.825,28) "FIA",727.825,727.825,29) "FIA",727.825,727.825,30) "FIA",727.825,727.825,31) "FIA",727.825,727.825,32) "FIA",727.825,727.825,33) "FIA",727.825,727.825,34) "FIA",727.825,727.825,35) "FIA",727.825,727.825,36) "FIA",727.825,727.825,37) "FIA",727.825,727.825,38) "FIA",727.825,727.825,40) "FIA",727.825,727.825,42) "FIA",727.825,727.825,43) "FIA",727.825,727.825,47) "FIA",727.825,727.825,49) "FIA",727.825,727.825,50) "FIA",727.825,727.825,52) "FIA",727.825,727.825,53) "FIA",727.825,727.825,54) "FIA",727.825,727.825,55) "FIA",727.825,727.825,56) "FIA",727.825,727.825,57) "FIA",727.825,727.825,61) "FIA",727.825,727.825,62) "FIA",727.825,727.825,63) "FIA",727.825,727.825,68) "FIA",727.825,727.825,69) "FIA",727.825,727.825,71) "FIA",727.825,727.825,73) "FIA",727.825,727.825,76) "FIA",727.825,727.825,77) "FIA",727.825,727.825,78) "FIA",727.825,727.825,79) "FIA",727.825,727.825,80) "FIA",727.825,727.825,81) "FIA",727.825,727.825,82) "FIA",727.825,727.825,84) "FIA",727.825,727.825,85) "FIA",727.825,727.825,86) "FIA",727.825,727.825,87) "FIA",727.825,727.825,88) "FIA",727.825,727.825,89) "FIA",727.825,727.825,97) "FIA",727.825,727.825,106) "FIA",727.825,727.825,107) "FIA",727.825,727.825,108) "FIA",727.825,727.825,109) "FIA",727.825,727.825,110) "FIA",727.826) PROSTHETICS EXTRACT "FIA",727.826,0) ^ECX(727.826, "FIA",727.826,0,0) 727.826 "FIA",727.826,0,1) y^n^p^^^^n^^n "FIA",727.826,0,10) "FIA",727.826,0,11) "FIA",727.826,0,"RLRO") "FIA",727.826,0,"VR") 3.0^ECX "FIA",727.826,727.826) 1 "FIA",727.826,727.826,.01) "FIA",727.826,727.826,1) "FIA",727.826,727.826,2) "FIA",727.826,727.826,3) "FIA",727.826,727.826,4) "FIA",727.826,727.826,5) "FIA",727.826,727.826,6) "FIA",727.826,727.826,7) "FIA",727.826,727.826,8) "FIA",727.826,727.826,9) "FIA",727.826,727.826,10) "FIA",727.826,727.826,11) "FIA",727.826,727.826,12) "FIA",727.826,727.826,13) "FIA",727.826,727.826,14) "FIA",727.826,727.826,20) "FIA",727.826,727.826,21) "FIA",727.826,727.826,22) "FIA",727.826,727.826,24) "FIA",727.826,727.826,25) "FIA",727.826,727.826,26) "FIA",727.826,727.826,27) "FIA",727.826,727.826,28) "FIA",727.826,727.826,29) "FIA",727.826,727.826,30) "FIA",727.826,727.826,31) "FIA",727.826,727.826,33) "FIA",727.826,727.826,34) "FIA",727.826,727.826,35) "FIA",727.826,727.826,38) "FIA",727.826,727.826,39) "FIA",727.826,727.826,40) "FIA",727.826,727.826,42) "FIA",727.826,727.826,45) "FIA",727.826,727.826,46) "FIA",727.826,727.826,50) "FIA",727.826,727.826,51) "FIA",727.826,727.826,53) "FIA",727.826,727.826,54) "FIA",727.826,727.826,55) "FIA",727.826,727.826,58) "FIA",727.826,727.826,59) "FIA",727.826,727.826,60) "FIA",727.826,727.826,61) "FIA",727.826,727.826,62) "FIA",727.826,727.826,63) "FIA",727.826,727.826,64) "FIA",727.826,727.826,66) "FIA",727.826,727.826,67) "FIA",727.826,727.826,68) "FIA",727.826,727.826,69) "FIA",727.826,727.826,70) "FIA",727.826,727.826,71) "FIA",727.826,727.826,72) "FIA",727.826,727.826,73) "FIA",727.826,727.826,74) "FIA",727.826,727.826,76) "FIA",727.826,727.826,77) "FIA",727.826,727.826,78) "FIA",727.826,727.826,79) "FIA",727.826,727.826,80) "FIA",727.826,727.826,81) "FIA",727.826,727.826,82) "FIA",727.826,727.826,83) "FIA",727.826,727.826,84) "FIA",727.826,727.826,87) "FIA",727.826,727.826,88) "FIA",727.826,727.826,92) "FIA",727.826,727.826,93) "FIA",727.826,727.826,94) "FIA",727.826,727.826,95) "FIA",727.826,727.826,96) "FIA",727.827) CLINIC EXTRACT "FIA",727.827,0) ^ECX(727.827, "FIA",727.827,0,0) 727.827 "FIA",727.827,0,1) y^n^p^^^^n^^n "FIA",727.827,0,10) "FIA",727.827,0,11) "FIA",727.827,0,"RLRO") "FIA",727.827,0,"VR") 3.0^ECX "FIA",727.827,727.827) 1 "FIA",727.827,727.827,.01) "FIA",727.827,727.827,1) "FIA",727.827,727.827,2) "FIA",727.827,727.827,3) "FIA",727.827,727.827,4) "FIA",727.827,727.827,5) "FIA",727.827,727.827,6) "FIA",727.827,727.827,7) "FIA",727.827,727.827,8) "FIA",727.827,727.827,9) "FIA",727.827,727.827,10) "FIA",727.827,727.827,11) "FIA",727.827,727.827,12) "FIA",727.827,727.827,13) "FIA",727.827,727.827,14) "FIA",727.827,727.827,15) "FIA",727.827,727.827,16) "FIA",727.827,727.827,17) "FIA",727.827,727.827,18) "FIA",727.827,727.827,19) "FIA",727.827,727.827,20) "FIA",727.827,727.827,21) "FIA",727.827,727.827,22) "FIA",727.827,727.827,23) "FIA",727.827,727.827,24) "FIA",727.827,727.827,25) "FIA",727.827,727.827,26) "FIA",727.827,727.827,27) "FIA",727.827,727.827,28) "FIA",727.827,727.827,29) "FIA",727.827,727.827,30) "FIA",727.827,727.827,31) "FIA",727.827,727.827,32) "FIA",727.827,727.827,33) "FIA",727.827,727.827,34) "FIA",727.827,727.827,35) "FIA",727.827,727.827,36) "FIA",727.827,727.827,37) "FIA",727.827,727.827,38) "FIA",727.827,727.827,39) "FIA",727.827,727.827,40) "FIA",727.827,727.827,41) "FIA",727.827,727.827,42) "FIA",727.827,727.827,44) "FIA",727.827,727.827,45) "FIA",727.827,727.827,48) "FIA",727.827,727.827,49) "FIA",727.827,727.827,50) "FIA",727.827,727.827,51) "FIA",727.827,727.827,52) "FIA",727.827,727.827,53) "FIA",727.827,727.827,54) "FIA",727.827,727.827,55) "FIA",727.827,727.827,56) "FIA",727.827,727.827,57) "FIA",727.827,727.827,59) "FIA",727.827,727.827,60) "FIA",727.827,727.827,61) "FIA",727.827,727.827,62) "FIA",727.827,727.827,64) "FIA",727.827,727.827,65) "FIA",727.827,727.827,66) "FIA",727.827,727.827,67) "FIA",727.827,727.827,68) "FIA",727.827,727.827,71) "FIA",727.827,727.827,72) "FIA",727.827,727.827,74) "FIA",727.827,727.827,75) "FIA",727.827,727.827,76) "FIA",727.827,727.827,77) "FIA",727.827,727.827,78) "FIA",727.827,727.827,79) "FIA",727.827,727.827,80) "FIA",727.827,727.827,81) "FIA",727.827,727.827,82) "FIA",727.827,727.827,83) "FIA",727.827,727.827,84) "FIA",727.827,727.827,87) "FIA",727.827,727.827,93) "FIA",727.827,727.827,94) "FIA",727.827,727.827,111) "FIA",727.827,727.827,112) "FIA",727.827,727.827,113) "FIA",727.827,727.827,114) "FIA",727.827,727.827,115) "FIA",727.827,727.827,116) "FIA",727.829) BLOOD BANK EXTRACT "FIA",727.829,0) ^ECX(727.829, "FIA",727.829,0,0) 727.829 "FIA",727.829,0,1) y^n^p^^^^n^^n "FIA",727.829,0,10) "FIA",727.829,0,11) "FIA",727.829,0,"RLRO") "FIA",727.829,0,"VR") 3.0^ECX "FIA",727.829,727.829) 1 "FIA",727.829,727.829,.01) "FIA",727.829,727.829,1) "FIA",727.829,727.829,3) "FIA",727.829,727.829,5) "FIA",727.829,727.829,6) "FIA",727.829,727.829,7) "FIA",727.829,727.829,8) "FIA",727.829,727.829,12) "FIA",727.829,727.829,13) "FIA",727.829,727.829,17) "FIA",727.829,727.829,18) "FIA",727.829,727.829,19) "FIA",727.829,727.829,20) "FIA",727.829,727.829,21) "FIA",727.829,727.829,23) "FIA",727.829,727.829,24) "FIA",727.829,727.829,25) "FIA",727.829,727.829,26) "FIA",727.829,727.829,27) "FIA",727.832) NUTRITION EXTRACT "FIA",727.832,0) ^ECX(727.832, "FIA",727.832,0,0) 727.832 "FIA",727.832,0,1) y^n^p^^^^n^^n "FIA",727.832,0,10) "FIA",727.832,0,11) "FIA",727.832,0,"RLRO") "FIA",727.832,0,"VR") 3.0^ECX "FIA",727.832,727.832) 1 "FIA",727.832,727.832,.01) "FIA",727.832,727.832,3) "FIA",727.832,727.832,5) "FIA",727.832,727.832,6) "FIA",727.832,727.832,7) "FIA",727.832,727.832,8) "FIA",727.832,727.832,11) "FIA",727.832,727.832,12) "FIA",727.832,727.832,13) "FIA",727.832,727.832,14) "FIA",727.832,727.832,15) "FIA",727.832,727.832,16) "FIA",727.832,727.832,17) "FIA",727.832,727.832,18) "FIA",727.832,727.832,19) "FIA",727.832,727.832,20) "FIA",727.832,727.832,21) "FIA",727.832,727.832,22) "FIA",727.832,727.832,24) "FIA",727.832,727.832,25) "FIA",727.832,727.832,28) "FIA",727.832,727.832,29) "FIA",727.832,727.832,30) "FIA",727.832,727.832,31) "FIA",727.832,727.832,32) "FIA",727.832,727.832,33) "FIA",727.832,727.832,35) "FIA",727.832,727.832,37) "FIA",727.832,727.832,40) "FIA",727.832,727.832,41) "FIA",727.832,727.832,42) "FIA",727.832,727.832,43) "FIA",727.832,727.832,45) "FIA",727.832,727.832,46) "FIA",727.832,727.832,49) "FIA",727.832,727.832,50) "FIA",727.832,727.832,51) "FIA",727.832,727.832,52) "FIA",727.832,727.832,53) "FIA",727.832,727.832,54) "FIA",727.832,727.832,55) "FIA",727.832,727.832,56) "FIA",727.832,727.832,57) "FIA",727.832,727.832,60) "FIA",727.832,727.832,61) "FIA",727.832,727.832,64) "FIA",727.832,727.832,65) "FIA",727.833) BCMA EXTRACT "FIA",727.833,0) ^ECX(727.833, "FIA",727.833,0,0) 727.833 "FIA",727.833,0,1) y^n^f^^^^n^^n "FIA",727.833,0,10) "FIA",727.833,0,11) "FIA",727.833,0,"RLRO") "FIA",727.833,0,"VR") 3.0^ECX "FIA",727.833,727.833) 0 "FIA",728.44) CLINICS AND STOP CODES "FIA",728.44,0) ^ECX(728.44, "FIA",728.44,0,0) 728.44P "FIA",728.44,0,1) y^n^p^^^^n^^n "FIA",728.44,0,10) "FIA",728.44,0,11) "FIA",728.44,0,"RLRO") "FIA",728.44,0,"VR") 3.0^ECX "FIA",728.44,728.44) 1 "FIA",728.44,728.44,5) "FIA",728.904) UNIT DOSE EXTRACT DATA "FIA",728.904,0) ^ECX(728.904, "FIA",728.904,0,0) 728.904 "FIA",728.904,0,1) y^y^p^^^^n^^n "FIA",728.904,0,10) "FIA",728.904,0,11) "FIA",728.904,0,"RLRO") "FIA",728.904,0,"VR") 3.0^ECX "FIA",728.904,728.904) 1 "FIA",728.904,728.904,2.5) "INI") PRE^ECX3P136 "INIT") POST^ECX3P136 "IX",728.904,728.904,"AO",0) 728.904^AO^Regular index of DFN and ORDER NUMBER.^R^^R^IR^I^728.904^^^^^S "IX",728.904,728.904,"AO",.1,0) ^^3^3^3120521^ "IX",728.904,728.904,"AO",.1,1,0) This cross reference is by patient DFN and ORDER NUMBER. It is used to "IX",728.904,728.904,"AO",.1,2,0) identify unit dose ORDER numbers for comparison with entries in the BCMA "IX",728.904,728.904,"AO",.1,3,0) MEDICATION LOG file (#53.79) as part of the BCM extract. "IX",728.904,728.904,"AO",1) S ^ECX(728.904,"AO",X(1),X(2),DA)="" "IX",728.904,728.904,"AO",2) K ^ECX(728.904,"AO",X(1),X(2),DA) "IX",728.904,728.904,"AO",2.5) K ^ECX(728.904,"AO") "IX",728.904,728.904,"AO",11.1,0) ^.114IA^2^2 "IX",728.904,728.904,"AO",11.1,1,0) 1^F^728.904^1^^1^F "IX",728.904,728.904,"AO",11.1,2,0) 2^F^728.904^2.5^^2^F "KRN",.4,2642,-1) 0^1 "KRN",.4,2642,0) ECX CLINIC REVIEW EXPORT^3120516.1009^@^728.44^^@^3120814 "KRN",.4,2642,"DXS",1,9.2) S DIP(2)=$S($D(^ECX(728.44,D0,0)):^(0),1:"") S X="^",DIP(1)=$G(X) S X=$P(DIP(2),U,7) S:X X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3) S Y=X,X=DIP(1),X=X S X=X "KRN",.4,2642,"DXS",2,9.2) S DIP(102)=$S($D(^SC(D0,"I")):^("I"),1:"") S X="^",DIP(101)=$G(X) S X=$P(DIP(102),U,1) S:X X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3) S Y=X,X=DIP(101),X=X S X=X "KRN",.4,2642,"DXS",3,9.2) S DIP(102)=$S($D(^SC(D0,"I")):^("I"),1:"") S X="^",DIP(101)=$G(X) S X=$P(DIP(102),U,2) S:X X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3) S Y=X,X=DIP(101),X=X S X=X "KRN",.4,2642,"F",1) 0;L5~S DIP(1)=$S($D(^ECX(728.44,D0,0)):^(0),1:"") S X="^"_$P($G(^SC(+$P(DIP(1),U,1),0)),U) W X K DIP;Z;""^"_CLINIC NAME"~ "KRN",.4,2642,"F",2) S DIP(1)=$S($D(^ECX(728.44,D0,0)):^(0),1:"") S X="^"_$P(DIP(1),U,2) W X K DIP;L4;Z;""^"_STOP CODE"~ "KRN",.4,2642,"F",3) S DIP(1)=$S($D(^ECX(728.44,D0,0)):^(0),1:"") S X="^"_$P(DIP(1),U,3) W X K DIP;L4;Z;""^"_CREDIT STOP CODE"~ "KRN",.4,2642,"F",4) S DIP(1)=$S($D(^ECX(728.44,D0,0)):^(0),1:"") S X="^"_$P(DIP(1),U,4) W X K DIP;L4;Z;""^"_DSS STOP CODE"~ "KRN",.4,2642,"F",5) S DIP(1)=$S($D(^ECX(728.44,D0,0)):^(0),1:"") S X="^"_$P(DIP(1),U,5) W X K DIP;L4;Z;""^"_DSS CREDIT STOP CODE"~ "KRN",.4,2642,"F",6) S DIP(2)=$S($D(^ECX(728.44,D0,0)):^(0),1:"") S X="^",DIP(1)=$G(X) S X=$P(DIP(2),U,6),X=X S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;L2;Z;""^"_INTERNAL(ACTION TO SEND)"~ "KRN",.4,2642,"F",7) X DXS(1,9.2) S X=X_Y W X K DIP;L9;Z;""^"_NUMDATE(DATE LAST REVIEWED)"~ "KRN",.4,2642,"F",8) S DIP(1)=$S($D(^ECX(728.44,D0,0)):^(0),1:"") S X="^"_$P($G(^ECX(728.441,+$P(DIP(1),U,8),0)),U) W X K DIP;L5;Z;""^"_NATIONAL CODE"~ "KRN",.4,2642,"F",9) -44,^SC(^^S I(0,0)=D0 S DIP(1)=$S($D(^ECX(728.44,D0,0)):^(0),1:"") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"CLINIC NAME:"~ "KRN",.4,2642,"F",10) -44,X DXS(2,9.2) S X=X_Y W X K DIP;L9;Z;""^"_NUMDATE(INACTIVATE DATE)"~-44,X DXS(3,9.2) S X=X_Y W X K DIP;L9;Z;""^"_NUMDATE(REACTIVATE DATE)"~ "KRN",.4,2642,"F",11) -44,S DIP(102)=$C(59)_$P($G(^DD(44,2,0)),U,3),DIP(101)=$S($D(^SC(D0,0)):^(0),1:"") S X="^"_$P($P(DIP(102),$C(59)_$P(DIP(101),U,3)_":",2),$C(59)) W X K DIP;L4;Z;""^"_TYPE"~ "KRN",.4,2642,"F",12) -44,S DIP(101)=$S($D(^SC(D0,"SL")):^("SL"),1:"") S X="^"_$P(DIP(101),U,1) W X K DIP;L4;Z;""^"_LENGTH OF APP'T"~ "KRN",.4,2642,"F",13) -44,S DIP(102)=$S($D(^SC(D0,0)):^(0),1:"") S X="^",DIP(101)=$G(X) S X=$P(DIP(102),U,15),X=X S Y=X,X=DIP(101),X=X S X=X_Y W X K DIP;L4;Z;""^"_INTERNAL(DIVISION)"~ "KRN",.4,2642,"F",14) -44,S DIP(101)=$S($D(^SC(D0,"AT")):^("AT"),1:"") S X="^"_$P($G(^SD(409.1,+$P(DIP(101),U,1),0)),U) W X K DIP;L11;Z;""^"_DEFAULT APPOINTMENT TYPE"~ "KRN",.4,2642,"F",15) -44,S DIP(102)=$C(59)_$P($G(^DD(44,2502,0)),U,3),DIP(101)=$S($D(^SC(D0,0)):^(0),1:"") S X="^"_$P($P(DIP(102),$C(59)_$P(DIP(101),U,17)_":",2),$C(59)) W X K DIP;Z;""^"_NON-COUNT CLINIC? (Y OR N)"~ "KRN",.4,2642,"F",16) -44,S DIP(102)=$C(59)_$P($G(^DD(44,50.01,0)),U,3),DIP(101)=$S($D(^SC(D0,"OOS")):^("OOS"),1:"") S X="^"_$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_":",2),$C(59)) W X K DIP;Z;""^"_OCCA"~ "KRN",.4,2642,"F",17) -44,S DIP(101)=$S($D(^SC(D0,"OOS")):^("OOS"),1:"") S X="^"_$P($G(^DIC(9.4,+$P(DIP(101),U,2),0)),U) W X K DIP;Z;""^"_OOS"~ "KRN",.4,2642,"F",18) -44,S DIP(102)=$S($D(^SC(D0,"SL")):^("SL"),1:"") S X="^",DIP(101)=$G(X) S X=$P(DIP(102),U,2),X=X S Y=X,X=DIP(101),X=X S X=X_Y W X K DIP;Z;""^"_INTERNAL(VARIABLE)"~ "KRN",.4,2642,"F",19) S DIP(1)=$S($D(^ECX(728.44,D0,0)):^(0),1:"") S X="^"_$P(DIP(1),U,11) W X K DIP;Z;""^"_DSS PRODUCT"~ "KRN",.4,2642,"H") @@ "KRN",19.1,626,-1) 0^1 "KRN",19.1,626,0) ECX DSS TEST^DSS FY Conversion Testing "KRN",19.1,626,1,0) ^19.11^8^8^3110513^^^^ "KRN",19.1,626,1,1,0) This key controls access to the ECX FISCAL YEAR EXTRACT option. It "KRN",19.1,626,1,2,0) should be given only to holders of the ECXMGR key whenever the site "KRN",19.1,626,1,3,0) has been enrolled as an official DSS test site for fiscal year "KRN",19.1,626,1,4,0) conversion. "KRN",19.1,626,1,5,0) "KRN",19.1,626,1,6,0) This key should be removed from the user(s) whenever the "KRN",19.1,626,1,7,0) nationally released version of the DSS Fiscal Year patch is "KRN",19.1,626,1,8,0) installed. "MBREQ") 0 "ORD",3,19.1) 19.1;3;;;KEY^XPDTA1;KEYF1^XPDIA1;KEYE1^XPDIA1;KEYF2^XPDIA1;;KEYDEL^XPDIA1 "ORD",3,19.1,0) SECURITY KEY "ORD",5,.4) .4;5;;;EDEOUT^DIFROMSO(.4,DA,"",XPDA);FPRE^DIFROMSI(.4,"",XPDA);EPRE^DIFROMSI(.4,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.4,DA,"",XPDA);DEL^DIFROMSK(.4,"",%) "ORD",5,.4,0) PRINT TEMPLATE "PKG",513,-1) 1^1 "PKG",513,0) DSS EXTRACTS^ECX^Decision Support System. (DSS) "PKG",513,20,0) ^9.402P^^ "PKG",513,22,0) ^9.49I^1^1 "PKG",513,22,1,0) 3.0^3010618^2980112^11714 "PKG",513,22,1,"PAH",1,0) 136^3120904 "PKG",513,22,1,"PAH",1,1,0) ^^1^1^3120904 "PKG",513,22,1,"PAH",1,1,1,0) FY13 DSS ENHANCEMENTS "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 26 "RTN","ECX3P136") 0^^B14670508^n/a "RTN","ECX3P136",1,0) ECX3P136 ;ALB/DAN - DSS FY2013 Conversion, Post-init ;6/7/12 15:04 "RTN","ECX3P136",2,0) ;;3.0;DSS EXTRACTS;**136**;Dec 22, 1997;Build 28 "RTN","ECX3P136",3,0) ; "RTN","ECX3P136",4,0) ;**************************************** "RTN","ECX3P136",5,0) ;Every year: Populate FY Year's version "RTN","ECX3P136",6,0) ; TESTON^ECXTREX(XPDNM,"FY2013") "RTN","ECX3P136",7,0) ;**************************************** "RTN","ECX3P136",8,0) ; "RTN","ECX3P136",9,0) PRE ;Pre-install tasks "RTN","ECX3P136",10,0) ;Delete file 727.833 so that we start with a fresh data dictionary install "RTN","ECX3P136",11,0) N DIU "RTN","ECX3P136",12,0) S DIU=727.833,DIU(0)="D" ;D denotes that we're deleting data as well "RTN","ECX3P136",13,0) D EN^DIU2 "RTN","ECX3P136",14,0) Q "RTN","ECX3P136",15,0) POST ;post-init "RTN","ECX3P136",16,0) D TEST,REMENU,UPDMENU,ACT,QINDEX "RTN","ECX3P136",17,0) Q "RTN","ECX3P136",18,0) ; "RTN","ECX3P136",19,0) TEST ;turn-on fld #73 in file #728 for Field Test Site; "RTN","ECX3P136",20,0) ;allows use of option ECX FISCAL YEAR EXTRACT by test sites; "RTN","ECX3P136",21,0) D MES^XPDUTL(" ") "RTN","ECX3P136",22,0) D MES^XPDUTL("Providing special menu option access for DSS FY Conversion test sites.") "RTN","ECX3P136",23,0) D TESTON^ECXTREX(XPDNM,"FY2013") "RTN","ECX3P136",24,0) D MES^XPDUTL(" ") "RTN","ECX3P136",25,0) ;if this is the national released version, then fld #73 will be turned-off "RTN","ECX3P136",26,0) ;the first time any user attempts to use ECX FISCAL YEAR EXTRACT option "RTN","ECX3P136",27,0) Q "RTN","ECX3P136",28,0) ; "RTN","ECX3P136",29,0) REMENU ;Remove options from menu and place out of order "RTN","ECX3P136",30,0) N MENU,OPTION,CHECK,IEN "RTN","ECX3P136",31,0) S OPTION="ECX PHA SOURCE AUDIT",MENU="ECX SOURCE AUDITS" "RTN","ECX3P136",32,0) S CHECK=$$DELETE^XPDMENU(MENU,OPTION) "RTN","ECX3P136",33,0) D BMES^XPDUTL(">>> "_OPTION_" OPTION "_$S(CHECK:"REMOVED FROM ",1:"DOES NOT EXIST IN ")_MENU_" <<<") "RTN","ECX3P136",34,0) D OUT^XPDMENU(OPTION,"OUT OF ORDER, DO NOT USE THIS OPTION!!!") "RTN","ECX3P136",35,0) D BMES^XPDUTL(">>> "_OPTION_" OPTION PLACED OUT ORDER <<<") "RTN","ECX3P136",36,0) Q "RTN","ECX3P136",37,0) ; "RTN","ECX3P136",38,0) UPDMENU ;Update Audit Menu Option "RTN","ECX3P136",39,0) N MENU,SMENU,PTR,DA,DIK "RTN","ECX3P136",40,0) S (MENU,SMENU,PTR)="" "RTN","ECX3P136",41,0) S ECXMSG(1)=" " "RTN","ECX3P136",42,0) S ECXMSG(2)="** Looking for ECX LBB SOURCE AUDIT menu **" "RTN","ECX3P136",43,0) S ECXMSG(3)=" If found, the submenu item will be updated " "RTN","ECX3P136",44,0) D MES^XPDUTL(.ECXMSG) "RTN","ECX3P136",45,0) ;Order thru option file and find ECX DSSDEPT MGMT and retrieve IEN "RTN","ECX3P136",46,0) S MENU=$O(^DIC(19,"B","ECX LBB SOURCE AUDIT",MENU)) "RTN","ECX3P136",47,0) I 'MENU D BMES^XPDUTL("** ECX LBB SOURCE AUDIT item not found **") Q "RTN","ECX3P136",48,0) S DR="1///Laboratory Blood Bank (LBB) Pre-Extract Audit",DIE="^DIC(19,",DA=MENU "RTN","ECX3P136",49,0) D ^DIE "RTN","ECX3P136",50,0) N ECXMSG "RTN","ECX3P136",51,0) S ECXMSG(1)=" " "RTN","ECX3P136",52,0) S ECXMSG(2)="*** ECX LBB SOURCE AUDIT menu has been updated. ***" "RTN","ECX3P136",53,0) D MES^XPDUTL(.ECXMSG) "RTN","ECX3P136",54,0) D BMES^XPDUTL("Updating extract menu display order...") "RTN","ECX3P136",55,0) S DA=$$ADD^XPDMENU("ECXMENU","ECXLBB",,10) "RTN","ECX3P136",56,0) S DA=$$ADD^XPDMENU("ECXMENU","ECXBCM",,8) "RTN","ECX3P136",57,0) S DA=$$ADD^XPDMENU("ECXMENU","ECXPRO",,60) "RTN","ECX3P136",58,0) S DA=$$ADD^XPDMENU("ECXMENU","ECXQSR",,63) "RTN","ECX3P136",59,0) D MES^XPDUTL("Display order updated") "RTN","ECX3P136",60,0) Q "RTN","ECX3P136",61,0) ; "RTN","ECX3P136",62,0) INDEX ;Set the new "AO" index on file 728.904 "RTN","ECX3P136",63,0) N DIK "RTN","ECX3P136",64,0) S DIK="^ECX(728.904,",DIK(1)=2.5 "RTN","ECX3P136",65,0) D ENALL^DIK "RTN","ECX3P136",66,0) Q "RTN","ECX3P136",67,0) ; "RTN","ECX3P136",68,0) ACT ; Activate BCM in EXTRACT DEFINITION file (#727.1) "RTN","ECX3P136",69,0) N ECXFDA,ECXERR,ECXMSG,ECXDA,ECXOFF "RTN","ECX3P136",70,0) D MES^XPDUTL(" Activating BCM entry ...") "RTN","ECX3P136",71,0) S ECXDA=+$O(^ECX(727.1,"C","BCM",0)) "RTN","ECX3P136",72,0) I 'ECXDA D Q "RTN","ECX3P136",73,0) .K ECXMSG "RTN","ECX3P136",74,0) .S ECXMSG(1)=" " "RTN","ECX3P136",75,0) .S ECXMSG(2)=" ** ERROR ACTIVATING BCM **" "RTN","ECX3P136",76,0) .S ECXMSG(3)=" Entry not found in file" "RTN","ECX3P136",77,0) .D MES^XPDUTL(.ECXMSG) "RTN","ECX3P136",78,0) K ECXFDA,ECXERR "RTN","ECX3P136",79,0) S ECXFDA(727.1,ECXDA_",",13)=0 "RTN","ECX3P136",80,0) D FILE^DIE("","ECXFDA","ECXERR") "RTN","ECX3P136",81,0) Q:'$D(ECXERR) "RTN","ECX3P136",82,0) D BMES^XPDUTL(" ** ERROR ACTIVING BCM **") "RTN","ECX3P136",83,0) K ECXMSG D MSG^DIALOG("AE",.ECXMSG,65,6,"ECXERR") "RTN","ECX3P136",84,0) D MES^XPDUTL(.ECXERR) "RTN","ECX3P136",85,0) D BMES^XPDUTL("- Done -") "RTN","ECX3P136",86,0) Q "RTN","ECX3P136",87,0) ; "RTN","ECX3P136",88,0) QINDEX ;Queue building of 'AO' xref of file 728.904 to the background "RTN","ECX3P136",89,0) N ZTRTN,ZTDESC,ZTIO,ZTDTH,ZTSK "RTN","ECX3P136",90,0) S ZTRTN="INDEX^ECX3P136",ZTDESC="ECX*3*136 POST INSTALL ROUTINE",ZTIO="",ZTDTH=$H "RTN","ECX3P136",91,0) D MES^XPDUTL(" ") "RTN","ECX3P136",92,0) D MES^XPDUTL("Sending building of 'AO' cross-reference of file 728.904 to the background") "RTN","ECX3P136",93,0) D ^%ZTLOAD I '$G(ZTSK) D BMES^XPDUTL("Cross-reference build not started - run INDEX^ECX3P136 after install finishes") Q "RTN","ECX3P136",94,0) D BMES^XPDUTL("Cross-reference build queued as task # "_$G(ZTSK)) "RTN","ECX3P136",95,0) D BMES^XPDUTL(" ") "RTN","ECX3P136",96,0) Q "RTN","ECXADM") 0^20^B52630295^B48340472 "RTN","ECXADM",1,0) ECXADM ;ALB/JAP,BIR/DMA,CML,PTD-Admissions Extract ;4/20/12 10:04 "RTN","ECXADM",2,0) ;;3.0;DSS EXTRACTS;**1,4,11,8,13,24,33,39,46,71,84,92,107,105,120,127,132,136**;Dec 22, 1997;Build 28 "RTN","ECXADM",3,0) BEG ;entry point from option "RTN","ECXADM",4,0) D SETUP I ECFILE="" Q "RTN","ECXADM",5,0) D ^ECXTRAC,^ECXKILL "RTN","ECXADM",6,0) Q "RTN","ECXADM",7,0) ; "RTN","ECXADM",8,0) START ; start package specific extract "RTN","ECXADM",9,0) K ^TMP($J,"EDIS") ;136 Clear temporary space for index "RTN","ECXADM",10,0) D BLDXREF^ECXUTL1(ECSD,ECED) ;136 build temp xref for emergency dept "RTN","ECXADM",11,0) S QFLG=0 "RTN","ECXADM",12,0) S ECED=ECED+.3,ECD=ECSD1 "RTN","ECXADM",13,0) F S ECD=$O(^DGPM("ATT1",ECD)),ECDA=0 Q:('ECD)!(ECD>ECED) D "RTN","ECXADM",14,0) .F S ECDA=$O(^DGPM("ATT1",ECD,ECDA)) Q:ECDA="" D "RTN","ECXADM",15,0) ..I $D(^DGPM(ECDA,0)) D "RTN","ECXADM",16,0) ...S EC=^DGPM(ECDA,0),ECXDFN=$P(EC,U,3) D GET "RTN","ECXADM",17,0) K ^TMP($J,"EDIS") ;136 delete temporary xref "RTN","ECXADM",18,0) Q "RTN","ECXADM",19,0) ; "RTN","ECXADM",20,0) GET ;gather extract data "RTN","ECXADM",21,0) N ADM,W,X,ECXNPRFI,ECXATTPC,ECXPRVPC,ECXEST,ECXAOT,ECXEDIS,ECXICD10P ;136 "RTN","ECXADM",22,0) ;patient demographics "RTN","ECXADM",23,0) S ECXERR=0 D PAT(ECXDFN,ECD,.ECXERR) "RTN","ECXADM",24,0) Q:ECXERR "RTN","ECXADM",25,0) I $$ENROLLM^ECXUTL2(ECXDFN) "RTN","ECXADM",26,0) S ECXFAC=$P($G(^DIC(42,+$P(EC,U,6),0)),U,11) "RTN","ECXADM",27,0) S ECXPDIV=$$GETDIV^ECXDEPT(ECXFAC) ;Get production division "RTN","ECXADM",28,0) ;admission data "RTN","ECXADM",29,0) S ELGA=$P($G(^DIC(8,+$P(EC,U,20),0)),U,9) "RTN","ECXADM",30,0) I ELGA S ELGA=$$ELIG^ECXUTL3(ELGA,ECXSVC) "RTN","ECXADM",31,0) S (ECDRG,ECDIA,ECXSADM,ECXADMS,ECXAOT)="",ECPTF=+$P(EC,U,16) I ECPTF,$D(^DGPT(ECPTF,"M")) D PTF "RTN","ECXADM",32,0) ;get encounter classification "RTN","ECXADM",33,0) S (ECXAO,ECXECE,ECXIR,ECXMIL,ECXHNC,ECXSHAD)="",ECXVISIT=$P(EC,U,27) "RTN","ECXADM",34,0) I ECXVISIT'="" D "RTN","ECXADM",35,0) .D VISIT^ECXSCX1(ECXDFN,ECXVISIT,.ECXVIST,.ECXERR) I ECXERR K ECXERR Q "RTN","ECXADM",36,0) .S ECXAO=$G(ECXVIST("AO")),ECXIR=$G(ECXVIST("IR")) "RTN","ECXADM",37,0) .S ECXMIL=$G(ECXVIST("MST")),ECXHNC=$G(ECXVIST("HNC")) "RTN","ECXADM",38,0) .S ECXECE=$G(ECXVIST("PGE")),ECXSHAD=$G(ECXVIST("SHAD")) "RTN","ECXADM",39,0) ;use movement record date & time "RTN","ECXADM",40,0) S ADM=$$INP^ECXUTL2(ECXDFN,ECD) "RTN","ECXADM",41,0) S ECXA=$P(ADM,U),ECXMN=$P(ADM,U,2),ECXSPC=$P(ADM,U,3) "RTN","ECXADM",42,0) S (ECXADMDT,ECXDATE)=$P(ADM,U,4) "RTN","ECXADM",43,0) ;if movement# doesn't match cross-ref ien, then quit "RTN","ECXADM",44,0) Q:ECXMN'=ECDA "RTN","ECXADM",45,0) S ECTM=$$ECXTIME^ECXUTL(ECXDATE) "RTN","ECXADM",46,0) S ECXDATE=$$ECXDATE^ECXUTL(ECXDATE,ECXYM) "RTN","ECXADM",47,0) S W=$P(ADM,U,9) "RTN","ECXADM",48,0) S ECXWRD=$P(W,";",1),ECXFAC=$P(W,";",2),ECXDSSD=$P(W,";",3) "RTN","ECXADM",49,0) S ECXPRV=$P(ADM,U,7),ECXPRNPI="",ECXATT=$P(ADM,U,8),ECXATNPI="" "RTN","ECXADM",50,0) S ECXDOM=$P(ADM,U,10),ECXATTPC=$P(ADM,U,12),ECXPRVPC=$P(ADM,U,11) "RTN","ECXADM",51,0) N ECXUSRTN "RTN","ECXADM",52,0) S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",$E(ECXATT,2,$L(ECXATT)),ECD) "RTN","ECXADM",53,0) S:+ECXUSRTN'>0 ECXUSRTN="" "RTN","ECXADM",54,0) S ECATTNPI=$P(ECXUSRTN,U) "RTN","ECXADM",55,0) S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",$E(ECXPRV,2,$L(ECXPRV)),ECD) "RTN","ECXADM",56,0) S:+ECXUSRTN'>0 ECXUSRTN="" "RTN","ECXADM",57,0) S ECPWNPI=$P(ECXUSRTN,U) "RTN","ECXADM",58,0) S ECXICD10P="" ;136 ICD-10 null for now "RTN","ECXADM",59,0) ; "RTN","ECXADM",60,0) ;- Observation patient indicator (YES/NO) "RTN","ECXADM",61,0) S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXSPC) "RTN","ECXADM",62,0) ; "RTN","ECXADM",63,0) ;- Patient Type "RTN","ECXADM",64,0) S ECXPTYPE=$$TYPE^ECXUTL5(ECXDFN) "RTN","ECXADM",65,0) ; "RTN","ECXADM",66,0) S ECXEDIS=$$EDIS^ECXUTL1(ECXDFN,ECD,"A") ;136 Get emergency room disposition "RTN","ECXADM",67,0) ;- If null encounter number, don't file record "RTN","ECXADM",68,0) S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,,ECXSPC,ECXOBS,ECHEAD,,) "RTN","ECXADM",69,0) D:ECXENC'="" FILE "RTN","ECXADM",70,0) Q "RTN","ECXADM",71,0) ; "RTN","ECXADM",72,0) PAT(ECXDFN,ECXDATE,ECXERR) ;get patient demographic data "RTN","ECXADM",73,0) N OK,X "RTN","ECXADM",74,0) K ECXPAT "RTN","ECXADM",75,0) S ECXDATE=$P(ECXDATE,".") "RTN","ECXADM",76,0) S OK=$$PAT^ECXUTL3(ECXDFN,ECXDATE,"1;2;3;4;5",.ECXPAT) "RTN","ECXADM",77,0) I 'OK S ECXERR=1 K ECXPAT Q "RTN","ECXADM",78,0) S ECXSSN=ECXPAT("SSN") "RTN","ECXADM",79,0) S ECXPNM=ECXPAT("NAME") "RTN","ECXADM",80,0) S ECXMPI=ECXPAT("MPI") "RTN","ECXADM",81,0) S ECXSEX=ECXPAT("SEX") "RTN","ECXADM",82,0) S ECXDOB=ECXPAT("DOB") "RTN","ECXADM",83,0) S ECXELIG=ECXPAT("ELIG") "RTN","ECXADM",84,0) S ECXVET=ECXPAT("VET") "RTN","ECXADM",85,0) S ECXVNS=ECXPAT("VIETNAM") "RTN","ECXADM",86,0) S ECXPOS=ECXPAT("POS") "RTN","ECXADM",87,0) S ECXMNS=ECXPAT("MEANS") "RTN","ECXADM",88,0) S ECXRACE=ECXPAT("RACE") "RTN","ECXADM",89,0) S ECXRELG=ECXPAT("RELIGION") "RTN","ECXADM",90,0) S ECXEMP=ECXPAT("EMPLOY") "RTN","ECXADM",91,0) S ECXMAR=ECXPAT("MARITAL") "RTN","ECXADM",92,0) S ECXPST=ECXPAT("POW STAT") "RTN","ECXADM",93,0) S ECXPLOC=ECXPAT("POW LOC") "RTN","ECXADM",94,0) S ECXRST=ECXPAT("IR STAT") "RTN","ECXADM",95,0) S ECXAST=ECXPAT("AO STAT") "RTN","ECXADM",96,0) S ECXMST=ECXPAT("MST STAT") "RTN","ECXADM",97,0) S ECXSTATE=ECXPAT("STATE") "RTN","ECXADM",98,0) S ECXCNTY=ECXPAT("COUNTY") "RTN","ECXADM",99,0) S ECXZIP=ECXPAT("ZIP") "RTN","ECXADM",100,0) S ECXCNTRY=ECXPAT("COUNTRY") "RTN","ECXADM",101,0) S ECXENRL=ECXPAT("ENROLL LOC") "RTN","ECXADM",102,0) S ECXSVC=ECXPAT("SC%") "RTN","ECXADM",103,0) S ECXPHI=ECXPAT("PHI") "RTN","ECXADM",104,0) S ECXHI=+$$INSUR^IBBAPI(ECXDFN,ECXDATE) "RTN","ECXADM",105,0) S ECXEST=ECXPAT("EC STAT") "RTN","ECXADM",106,0) ; "RTN","ECXADM",107,0) ;-OEF/OIF Data "RTN","ECXADM",108,0) S ECXOEF=ECXPAT("ECXOEF") "RTN","ECXADM",109,0) S ECXOEFDT=ECXPAT("ECXOEFDT") "RTN","ECXADM",110,0) ; "RTN","ECXADM",111,0) ;- Agent Orange location "RTN","ECXADM",112,0) S ECXAOL=ECXPAT("AOL") "RTN","ECXADM",113,0) ; "RTN","ECXADM",114,0) ; - Head and Neck Cancer Indicator "RTN","ECXADM",115,0) S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN) "RTN","ECXADM",116,0) ; - PROJ 112/SHAD Indicator "RTN","ECXADM",117,0) S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN) "RTN","ECXADM",118,0) ; ******* - PATCH 127, ADD PATCAT CODE - ******** "RTN","ECXADM",119,0) S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN) "RTN","ECXADM",120,0) ; - Race and Ethnicity "RTN","ECXADM",121,0) S ECXETH=ECXPAT("ETHNIC") "RTN","ECXADM",122,0) S ECXRC1=ECXPAT("RACE1") "RTN","ECXADM",123,0) ; "RTN","ECXADM",124,0) ;get primary care data "RTN","ECXADM",125,0) S X=$$PRIMARY^ECXUTL2(ECXDFN,ECXDATE) "RTN","ECXADM",126,0) S ECPTTM=$P(X,U),ECPTPR=$P(X,U,2),ECCLAS=$P(X,U,3),ECPTNPI=$P(X,U,4) "RTN","ECXADM",127,0) S ECASPR=$P(X,U,5),ECCLAS2=$P(X,U,6),ECASNPI=$P(X,U,7) "RTN","ECXADM",128,0) ;get combat veteran data "RTN","ECXADM",129,0) I $$CVEDT^ECXUTL5(ECXDFN,ECD) "RTN","ECXADM",130,0) ;get national patient record flag if exist "RTN","ECXADM",131,0) D NPRF^ECXUTL5 "RTN","ECXADM",132,0) ;get emergency response indicator (FEMA) "RTN","ECXADM",133,0) S ECXERI=ECXPAT("ERI") "RTN","ECXADM",134,0) Q "RTN","ECXADM",135,0) ; "RTN","ECXADM",136,0) PTF ; get admitting DRG, diagnosis, source of admission from PTF "RTN","ECXADM",137,0) ;use number for DRG and .01 for diagnosis "RTN","ECXADM",138,0) N EC,EC1,ECX "RTN","ECXADM",139,0) S EC=1 I $D(^DGPT(ECPTF,"M",2,0)) S EC=2 "RTN","ECXADM",140,0) S EC1=+$P(^DGPT(ECPTF,"M",EC,0),U,5) "RTN","ECXADM",141,0) S ECDRG=$P($G(^DGPT(ECPTF,"M",EC,"P")),U) "RTN","ECXADM",142,0) S ECDIA=$P($G(^ICD9(EC1,0)),U) "RTN","ECXADM",143,0) S ECX=+$P($G(^DGPT(ECPTF,101)),U),ECXSADM=$P($G(^DIC(45.1,ECX,0)),U,11) "RTN","ECXADM",144,0) S ECXADMS=$$GET1^DIQ(45.1,ECX,.01) "RTN","ECXADM",145,0) ;if source of admission = admit outpatient treatment ('1P') "RTN","ECXADM",146,0) S ECXAOT=$S(($$GET1^DIQ(45.1,ECX,.01)="1P"):"Y",1:"") "RTN","ECXADM",147,0) Q "RTN","ECXADM",148,0) ; "RTN","ECXADM",149,0) FILE ;file the extract record "RTN","ECXADM",150,0) ;node0 "RTN","ECXADM",151,0) ;facility^dfn^ssn^name^in/out^day^primary care team^sex^dob^ "RTN","ECXADM",152,0) ;religion^employment status^health ins^state^county^zip^ "RTN","ECXADM",153,0) ;eligibility^vet^vietnam^agent orange^radiation^pow^ "RTN","ECXADM",154,0) ;period of service^means test^marital status^ "RTN","ECXADM",155,0) ;ward^treating specialty^attending physician^mov #^DRG^princ diagnosis^ "RTN","ECXADM",156,0) ;time^primary care provider^race^primary ward provider "RTN","ECXADM",157,0) ;node1 "RTN","ECXADM",158,0) ;mpi^dss dept^attending npi^pc provider npi^ward provider npi^ "RTN","ECXADM",159,0) ;admission elig^mst status^shad status^sharing payor^ "RTN","ECXADM",160,0) ;sharing insurance^enrollment location^ "RTN","ECXADM",161,0) ;pc prov person class^assoc pc provider^assoc pc prov person class^ "RTN","ECXADM",162,0) ;assoc pc prov npi^dom^enrollment cat^enrollment stat^encounter "RTN","ECXADM",163,0) ;shad^purple heart ind.^obs pat ind^encounter num^agent orange "RTN","ECXADM",164,0) ;loc^production div^pow loc^source of admission^head & neck canc. ind "RTN","ECXADM",165,0) ;^ethnicity^race1^enrollment priority_sub group^user enrollee^patient "RTN","ECXADM",166,0) ;type^combat vet elig^combat vet elig end date^enc cv eligible^ "RTN","ECXADM",167,0) ;national patient record flag ECXNPRFI^att phy person class ECXATTPC "RTN","ECXADM",168,0) ;^primary ward provider person class ECXPRVPC^environ contamin ECXEST "RTN","ECXADM",169,0) ;^emergency response indicator(FEMA) ECXERI^agent orange indic ECXAO "RTN","ECXADM",170,0) ;^environ contam ECXECE^encoun head/neck ECXHNC^encoun MST ECXMIL^rad "RTN","ECXADM",171,0) ;encoun ECXIR^ "RTN","ECXADM",172,0) ;node 2 - patch 136 seperated node1 from node 2 for clarity "RTN","ECXADM",173,0) ;OEF/OIF ECXOEF^ OEF/OIF return date ECXOEFDT "RTN","ECXADM",174,0) ;^associate pc provider npi ECASNPI^attending physician npi ECATNPI^ "RTN","ECXADM",175,0) ;primary care provider npi ECPTNPI^primary ward provider npi ECPWNPI^ "RTN","ECXADM",176,0) ;admit outpatient treatment ECXAOT^country ECXCNTRY^pat cat ECXPATCAT^ "RTN","ECXADM",177,0) ;admit source ECXADMS ^emergency dept disposition ECXEDIS^Primary ICD-10 code ECXICD10P "RTN","ECXADM",178,0) ; "RTN","ECXADM",179,0) ;Convert specialty to PTF Code "RTN","ECXADM",180,0) ; "RTN","ECXADM",181,0) N ECXDATA "RTN","ECXADM",182,0) S ECXDATA=$$TSDATA^DGACT(42.4,+ECXSPC,.ECXDATA) "RTN","ECXADM",183,0) S ECXSPC=$G(ECXDATA(7)) "RTN","ECXADM",184,0) ; "RTN","ECXADM",185,0) N DA,DIK "RTN","ECXADM",186,0) S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1 "RTN","ECXADM",187,0) S ECODE=EC7_U_EC23_U_ECXFAC_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U_ECXDATE_U "RTN","ECXADM",188,0) S ECODE=ECODE_ECPTTM_U_ECXSEX_U_ECXDOB_U_ECXRELG_U "RTN","ECXADM",189,0) S ECODE=ECODE_ECXEMP_U_ECXHI_U_ECXSTATE_U_ECXCNTY_U_ECXZIP_U "RTN","ECXADM",190,0) S ECODE=ECODE_ECXELIG_U_ECXVET_U_ECXVNS_U_ECXAST_U_ECXRST_U_ECXPST_U "RTN","ECXADM",191,0) S ECODE=ECODE_ECXPOS_U_ECXMNS_U_ECXMAR_U "RTN","ECXADM",192,0) S ECODE=ECODE_ECXWRD_U_ECXSPC_U_ECXATT_U_ECDA_U_ECDRG_U_ECDIA_U "RTN","ECXADM",193,0) S ECODE=ECODE_ECTM_U_ECPTPR_U_ECXRACE_U_ECXPRV_U "RTN","ECXADM",194,0) S ECODE1=ECXMPI_U_ECXDSSD_U_""_U_""_U_""_U_ELGA_U "RTN","ECXADM",195,0) S ECODE1=ECODE1_ECXMST_U_$S(ECXLOGIC<2005:ECXPRIOR,ECXLOGIC>2010:ECXSHADI,1:"")_U_U_U_ECXENRL_U_ECCLAS_U "RTN","ECXADM",196,0) S ECODE1=ECODE1_ECASPR_U_ECCLAS2_U_U_ECXDOM_U_ECXCAT_U "RTN","ECXADM",197,0) S ECODE1=ECODE1_ECXSTAT_U_$S(ECXLOGIC>2010:ECXSHAD,1:"")_U_ECXPHI_U_ECXOBS_U_ECXENC_U_ECXAOL_U "RTN","ECXADM",198,0) S ECODE1=ECODE1_ECXPDIV_U_ECXPLOC_U_ECXSADM_U_ECXHNCI_U_ECXETH_U "RTN","ECXADM",199,0) S ECODE1=ECODE1_ECXRC1 "RTN","ECXADM",200,0) I ECXLOGIC>2004 S ECODE1=ECODE1_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U_ECXCVEDT_U_ECXCVENC_U_ECXNPRFI "RTN","ECXADM",201,0) I ECXLOGIC>2005 S ECODE1=ECODE1_U_ECXATTPC_U_ECXPRVPC_U_ECXEST "RTN","ECXADM",202,0) I ECXLOGIC>2006 S ECODE1=ECODE1_U_ECXERI_U_ECXAO_U_ECXECE_U_ECXHNC_U_ECXMIL_U_ECXIR_U "RTN","ECXADM",203,0) I ECXLOGIC>2007 S ECODE2=ECXOEF_U_ECXOEFDT_U_ECASNPI_U_ECATTNPI_U_ECPTNPI_U_ECPWNPI "RTN","ECXADM",204,0) I ECXLOGIC>2009 S ECODE2=ECODE2_U_ECXAOT_U_ECXCNTRY "RTN","ECXADM",205,0) ; ***** ADDING PATCAT TO 9TH PIECE OF ECODE ******* "RTN","ECXADM",206,0) I ECXLOGIC>2010 S ECODE2=ECODE2_U_ECXPATCAT "RTN","ECXADM",207,0) I ECXLOGIC>2011 S ECODE2=ECODE2_U_ECXADMS "RTN","ECXADM",208,0) I ECXLOGIC>2012 S ECODE2=ECODE2_U_ECXEDIS_U_ECXICD10P ;136 "RTN","ECXADM",209,0) S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,^ECX(ECFILE,EC7,2)=$G(ECODE2) "RTN","ECXADM",210,0) S ECRN=ECRN+1 "RTN","ECXADM",211,0) S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA "RTN","ECXADM",212,0) Q "RTN","ECXADM",213,0) ; "RTN","ECXADM",214,0) SETUP ;Set required input for ECXTRAC. "RTN","ECXADM",215,0) S ECHEAD="ADM" "RTN","ECXADM",216,0) D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER) "RTN","ECXADM",217,0) Q "RTN","ECXADM",218,0) ; "RTN","ECXADM",219,0) LOCAL ; to extract nightly for local use not to be transmitted to TSI "RTN","ECXADM",220,0) ; should be queued with a 1D frequency "RTN","ECXADM",221,0) D SETUP,^ECXTLOCL,^ECXKILL Q "RTN","ECXADM",222,0) ; "RTN","ECXADM",223,0) QUE ; entry point for the background requeuing handled by ECXTAUTO "RTN","ECXADM",224,0) D SETUP,QUE^ECXTAUTO,^ECXKILL Q "RTN","ECXADM",225,0) ; "RTN","ECXALAR") 0^16^B18375176^B16714443 "RTN","ECXALAR",1,0) ECXALAR ;ALB/TMD-LAR Extract Report of Untranslatable Results ;6/26/12 16:51 "RTN","ECXALAR",2,0) ;;3.0;DSS EXTRACTS;**46,51,112,132,136**;Dec 22, 1997;Build 28 "RTN","ECXALAR",3,0) ; "RTN","ECXALAR",4,0) EN ; entry point "RTN","ECXALAR",5,0) N X,Y,DATE,ECRUN,ECXOPT,ECXDESC,ECXSAVE,ECXTL,ECTHLD,ECSD,ECSD1,ECSTART,ECED,ECEND,ECXERR,QFLG,PG "RTN","ECXALAR",6,0) S QFLG=0,ECXTL="LAR" "RTN","ECXALAR",7,0) ; get today's date "RTN","ECXALAR",8,0) D NOW^%DTC S DATE=X,Y=$E(%,1,12) D DD^%DT S ECRUN=$P(Y,"@") K %DT "RTN","ECXALAR",9,0) D SETUP^ECXLABR I ECFILE="" Q "RTN","ECXALAR",10,0) I '$D(ECNODE) S ECNODE=7 "RTN","ECXALAR",11,0) I $P($G(^ECX(728,1,ECNODE+.1)),U,ECPIECE)]"" D Q "RTN","ECXALAR",12,0) .W !!,$C(7),ECPACK," extract is already scheduled to run. Try later",!! "RTN","ECXALAR",13,0) D BEGIN Q:QFLG "RTN","ECXALAR",14,0) S ECXDESC=ECXTL_" Extract Report of Untranslatable Results" "RTN","ECXALAR",15,0) S ECXSAVE("EC*")="" "RTN","ECXALAR",16,0) D EN^XUTMDEVQ("PROCESS^ECXALAR",ECXDESC,.ECXSAVE) "RTN","ECXALAR",17,0) I POP W !!,"No device selected...exiting.",! Q "RTN","ECXALAR",18,0) I IO'=IO(0) D ^%ZISC "RTN","ECXALAR",19,0) D HOME^%ZIS "RTN","ECXALAR",20,0) D AUDIT^ECXKILL "RTN","ECXALAR",21,0) Q "RTN","ECXALAR",22,0) ; "RTN","ECXALAR",23,0) BEGIN ; display report description "RTN","ECXALAR",24,0) W @IOF,!,"This report prints a listing of results that are not translatable i.e. have",!,"no entry in the Lab Results Translation File (#727.7)." "RTN","ECXALAR",25,0) W !!,"This report is a pre-extract type audit report and should be run prior to the",!,"generation of the actual extract. Running this report has no effect on the",!,"actual extract." "RTN","ECXALAR",26,0) W !!,"**WARNING: This report can take a long time to process. You are encouraged",!,"to queue this report for processing during the evening if possible.**" ;136 "RTN","ECXALAR",27,0) W !!,"Enter the date range for which you would like to scan the ",ECXTL," Extract records.",! "RTN","ECXALAR",28,0) S DONE=0 F S (ECED,ECSD)="" D Q:QFLG!DONE "RTN","ECXALAR",29,0) .K %DT S %DT="AEX",%DT("A")="Starting with Date: ",%DT(0)=-DATE D ^%DT "RTN","ECXALAR",30,0) .I Y<0 S QFLG=1 Q "RTN","ECXALAR",31,0) .S ECSD=Y,ECSD1=ECSD-.1 "RTN","ECXALAR",32,0) .D DD^%DT S ECSTART=Y "RTN","ECXALAR",33,0) .K %DT S %DT="AEX",%DT("A")="Ending with Date: ",%DT(0)=-DATE D ^%DT "RTN","ECXALAR",34,0) .I Y<0 S QFLG=1 Q "RTN","ECXALAR",35,0) .I YIOSL D HEADER "RTN","ECXALAR",67,0) .W !,ECXPNM,?5,ECXSSN,?17,ECDTM,?32,$J(ECTC,4),?38,$E(ECXTNM,1,20),?60,$E(ECRS,1,20) "RTN","ECXALAR",68,0) .S COUNT=COUNT+1 "RTN","ECXALAR",69,0) Q:QFLG "RTN","ECXALAR",70,0) I COUNT=0 W !!,?8,"No untranslatable results for this extract" "RTN","ECXALAR",71,0) CLOSE ; "RTN","ECXALAR",72,0) I $E(IOST)="C",'QFLG D "RTN","ECXALAR",73,0) .S SS=22-$Y F JJ=1:1:SS W ! "RTN","ECXALAR",74,0) .S DIR(0)="E" W ! D ^DIR K DIR "RTN","ECXALAR",75,0) Q "RTN","ECXALAR",76,0) ; "RTN","ECXALAR",77,0) HEADER ;header and page control "RTN","ECXALAR",78,0) N SS,JJ "RTN","ECXALAR",79,0) I $E(IOST)="C" D "RTN","ECXALAR",80,0) .S SS=22-$Y F JJ=1:1:SS W ! "RTN","ECXALAR",81,0) .I PG>0 S DIR(0)="E" W ! D ^DIR K DIR S:'Y QFLG=1 "RTN","ECXALAR",82,0) Q:QFLG "RTN","ECXALAR",83,0) W:$Y!($E(IOST)="C") @IOF S PG=PG+1 "RTN","ECXALAR",84,0) W !,ECXTL_" Extract Untranslatable Results Audit Report",?71,"Page: "_PG "RTN","ECXALAR",85,0) W !,"Start Date: ",ECSTART "RTN","ECXALAR",86,0) W !,"End Date: ",ECEND,?49,"Report Run Date: "_ECRUN "RTN","ECXALAR",87,0) W !!,"Pat.",?5,"SSN",?17,"Date/Time",?32,"Test",?38,"Test Name",?60,"Result" "RTN","ECXALAR",88,0) W !,"Name",?17,"Collected",?32,"Code" "RTN","ECXALAR",89,0) W !,LN,! "RTN","ECXALAR",90,0) Q "RTN","ECXALAR",91,0) ; "RTN","ECXAPHA") 0^26^B35967865^B30997305 "RTN","ECXAPHA",1,0) ECXAPHA ;ALB/TMD-Pharmacy Extracts Unusual Volumes Report ;8/23/12 00:16 "RTN","ECXAPHA",2,0) ;;3.0;DSS EXTRACTS;**40,49,66,104,109,113,136**;Dec 22, 1997;Build 28 "RTN","ECXAPHA",3,0) ; "RTN","ECXAPHA",4,0) EN ; entry point "RTN","ECXAPHA",5,0) N X,Y,DATE,ECRUN,ECXOPT,ECXDESC,ECXSAVE,ECXTL,ECTHLD,ECSD "RTN","ECXAPHA",6,0) N ECSD1,ECSTART,ECED,ECEND,ECXERR,QFLG,ECXISIG "RTN","ECXAPHA",7,0) S QFLG=0 "RTN","ECXAPHA",8,0) ; get today's date "RTN","ECXAPHA",9,0) D NOW^%DTC S DATE=X,Y=$E(%,1,12) D DD^%DT S ECRUN=$P(Y,"@") K %DT "RTN","ECXAPHA",10,0) D BEGIN Q:QFLG "RTN","ECXAPHA",11,0) D SELECT Q:QFLG "RTN","ECXAPHA",12,0) S ECXDESC=ECXTL_" Extract Unusual Volume Report" "RTN","ECXAPHA",13,0) S ECXSAVE("EC*")="" "RTN","ECXAPHA",14,0) W !!,"This report requires 132-column format." "RTN","ECXAPHA",15,0) D EN^XUTMDEVQ("PROCESS^ECXAPHA",ECXDESC,.ECXSAVE) "RTN","ECXAPHA",16,0) I POP W !!,"No device selected...exiting.",! Q "RTN","ECXAPHA",17,0) I IO'=IO(0) D ^%ZISC "RTN","ECXAPHA",18,0) D HOME^%ZIS "RTN","ECXAPHA",19,0) D AUDIT^ECXKILL "RTN","ECXAPHA",20,0) Q "RTN","ECXAPHA",21,0) ; "RTN","ECXAPHA",22,0) BEGIN ; display report description "RTN","ECXAPHA",23,0) W @IOF "RTN","ECXAPHA",24,0) W !,"This report prints a listing of unusual volumes that would be" "RTN","ECXAPHA",25,0) W !,"generated by the pharmacy extracts (PRE, IVP and UDP) as" "RTN","ECXAPHA",26,0) W !,"determined by a user defined threshold value. It shoud be run" "RTN","ECXAPHA",27,0) W !,"prior to the generation of the actual extract(s) to identify and" "RTN","ECXAPHA",28,0) W !,"fix as necessary any volumes determined to be erroneous." "RTN","ECXAPHA",29,0) W !!,"Unusual volumes are defined as follows:" "RTN","ECXAPHA",30,0) W !!,"PRE Extract: Quantity field greater than the threshold value." "RTN","ECXAPHA",31,0) W !,"IVP Extract: Total Doses Per Day field greater than the threshold" "RTN","ECXAPHA",32,0) W !,?14,"or less than the negative of the threshold value." "RTN","ECXAPHA",33,0) W !,"UDP Extract: Quantity field greater than threshold value." "RTN","ECXAPHA",34,0) W !!,"Note: The threshold can be set after a report is selected." "RTN","ECXAPHA",35,0) W !!,"Run times for this report will vary depending upon the size of" "RTN","ECXAPHA",36,0) W !,"the extract and could take as long as 30 minutes or more to" "RTN","ECXAPHA",37,0) W !,"complete. This report has no effect on the actual extracts and" "RTN","ECXAPHA",38,0) W !,"can be run as needed." "RTN","ECXAPHA",39,0) W !!,"The report is sorted by Feeder Key, descending Volume, and SSN." "RTN","ECXAPHA",40,0) S DIR(0)="E" W ! D ^DIR K DIR I 'Y S QFLG=1 Q "RTN","ECXAPHA",41,0) W:$Y!($E(IOST)="C") @IOF,!! "RTN","ECXAPHA",42,0) Q "RTN","ECXAPHA",43,0) ; "RTN","ECXAPHA",44,0) SELECT ; user inputs for report option, threshold volume and date range "RTN","ECXAPHA",45,0) N DONE,OUT "RTN","ECXAPHA",46,0) S ECXISIG=0 "RTN","ECXAPHA",47,0) ; allow user to select report option (PRE,IVP or UDP) "RTN","ECXAPHA",48,0) W "Choose the report you would like to run." "RTN","ECXAPHA",49,0) S DIR(0)="S^1:PRE;2:IVP;3:UDP",DIR("A")="Selection",DIR("B")=1 D ^DIR K DIR S ECXOPT=Y I X["^" S QFLG=1 Q "RTN","ECXAPHA",50,0) S ECXTL=$S(ECXOPT=1:"Prescription",ECXOPT=2:"IV Detail",ECXOPT=3:"Unit Dose Local",1:"") "RTN","ECXAPHA",51,0) ; allow user to set threshold volume "RTN","ECXAPHA",52,0) S ECTHLD=$S(ECXOPT=2:1000,1:500) "RTN","ECXAPHA",53,0) W !!,"The default threshold volume for the ",ECXTL," extract is ",ECTHLD,"." "RTN","ECXAPHA",54,0) S DIR(0)="Y",DIR("A")="Would you like to change the threshold",DIR("B")="NO" D ^DIR K DIR I X["^" S QFLG=1 Q "RTN","ECXAPHA",55,0) I Y D "RTN","ECXAPHA",56,0) .W !!,$S(ECXOPT=2:"threshold > Total Doses Per Day < -threshold",1:"Quantity > threshold") "RTN","ECXAPHA",57,0) .S DIR(0)="N^0:100000:0",DIR("A")="Enter the new threshold volume" D ^DIR K DIR S ECTHLD=Y I X["^" S QFLG=1 Q "RTN","ECXAPHA",58,0) ; check to see if SIG should be place on the sec line of rpt cvw - *136 "RTN","ECXAPHA",59,0) I ECXOPT=3 S DIR(0)="Y",DIR("A")="Include SIG/Order Direction on line 2 of report",DIR("B")="NO" D ^DIR K DIR S:Y ECXISIG=1 I X["^" S QFLG=1 Q "RTN","ECXAPHA",60,0) ; get date range from user "RTN","ECXAPHA",61,0) W !!,"Enter the date range for which you would like to scan the ",ECXTL,!,"Extract records." "RTN","ECXAPHA",62,0) S DONE=0 F S (ECED,ECSD)="" D Q:QFLG!DONE "RTN","ECXAPHA",63,0) .K %DT S %DT="AEX",%DT("A")="Starting with Date: ",%DT(0)=-DATE D ^%DT "RTN","ECXAPHA",64,0) .I Y<0 S QFLG=1 Q "RTN","ECXAPHA",65,0) .S ECSD=Y,ECSD1=ECSD-.1 "RTN","ECXAPHA",66,0) .D DD^%DT S ECSTART=Y "RTN","ECXAPHA",67,0) .K %DT S %DT="AEX",%DT("A")="Ending with Date: ",%DT(0)=-DATE D ^%DT "RTN","ECXAPHA",68,0) .I Y<0 S QFLG=1 Q "RTN","ECXAPHA",69,0) .I YIOSL D HEADER Q:QFLG "RTN","ECXAPHA",100,0) .....W !,$P(REC,U),?8,$P(REC,U,2),?20,$P(REC,U,3),?29,$E($P(REC,U,4),1,40) "RTN","ECXAPHA",101,0) .....W ?71,$P(REC,U,5),?89,$$RJ^XLFSTR($P(REC,U,6),9)_" "_$E($P(REC,U,7),1,7) "RTN","ECXAPHA",102,0) .....I ECXOPT=1 D "RTN","ECXAPHA",103,0) ......W ?108,$$RJ^XLFSTR($P(REC,U,8),12),?125,$$RJ^XLFSTR($P(REC,U,9),3) "RTN","ECXAPHA",104,0) .....I ECXOPT'=1 D "RTN","ECXAPHA",105,0) ......W ?116,$$RJ^XLFSTR($P(REC,U,8),14) "RTN","ECXAPHA",106,0) .....I ECXOPT=3&($G(ECXISIG)) D "RTN","ECXAPHA",107,0) ......W !,?5,"SIG: ",$S($P(REC,U,10)="":"N/A",1:$P(REC,U,10)),! ;136 "RTN","ECXAPHA",108,0) Q:QFLG "RTN","ECXAPHA",109,0) I COUNT=0 W !!,?8,"No unusual volumes to report for this extract" "RTN","ECXAPHA",110,0) CLOSE ; "RTN","ECXAPHA",111,0) I $E(IOST)="C",'QFLG D "RTN","ECXAPHA",112,0) .S SS=22-$Y F JJ=1:1:SS W ! "RTN","ECXAPHA",113,0) .S DIR(0)="E" W ! D ^DIR K DIR "RTN","ECXAPHA",114,0) Q "RTN","ECXAPHA",115,0) ; "RTN","ECXAPHA",116,0) HEADER ;header and page control "RTN","ECXAPHA",117,0) N SS,JJ "RTN","ECXAPHA",118,0) I $E(IOST)="C" D "RTN","ECXAPHA",119,0) .S SS=22-$Y F JJ=1:1:SS W ! "RTN","ECXAPHA",120,0) .I PG>0 S DIR(0)="E" W ! D ^DIR K DIR S:'Y QFLG=1 "RTN","ECXAPHA",121,0) Q:QFLG "RTN","ECXAPHA",122,0) W:$Y!($E(IOST)="C") @IOF S PG=PG+1 "RTN","ECXAPHA",123,0) W !,ECXTL_" Extract Unusual Volume Report",?124,"Page: "_PG "RTN","ECXAPHA",124,0) W !,"Start Date: ",ECSTART,?97,"Report Run Date/Time: "_ECRUN "RTN","ECXAPHA",125,0) W !,"End Date: ",ECEND,?97,"Threshold Value = ",ECTHLD "RTN","ECXAPHA",126,0) W !!,"Name",?11,"SSN",?21,"Day",?29,"Generic Name",?71,"Feeder Key" "RTN","ECXAPHA",127,0) I ECXOPT=1 D "RTN","ECXAPHA",128,0) .W ?95,"Quantity",?109,"Total Cost",?120,"Days Supply" "RTN","ECXAPHA",129,0) E D "RTN","ECXAPHA",130,0) .I ECXOPT=2 W ?93,"Total Doses",?121,"Total Cost",!,?95,"Per Day" "RTN","ECXAPHA",131,0) .I ECXOPT'=2 W ?96,"Quantity",?121,"Total Cost" "RTN","ECXAPHA",132,0) W !,LN,! "RTN","ECXAPHA",133,0) Q "RTN","ECXAPHA",134,0) ; "RTN","ECXAPHA",135,0) SIG(ORDNO,PATNO) ;Get ordering instructions for unit dose order. API added in patch 136 "RTN","ECXAPHA",136,0) N DATA,RECNO,I,SIG "RTN","ECXAPHA",137,0) S SIG="" "RTN","ECXAPHA",138,0) I ORDNO=""!(PATNO="") Q SIG "RTN","ECXAPHA",139,0) S RECNO=ORDNO_","_PATNO_"," "RTN","ECXAPHA",140,0) D GETS^DIQ(55.06,RECNO,"26;120;121","E","DATA") "RTN","ECXAPHA",141,0) F I=120,121,26 S SIG=$G(SIG)_$S($L(SIG)>0:" ",1:"")_$G(DATA(55.06,RECNO,I,"E")) "RTN","ECXAPHA",142,0) Q SIG "RTN","ECXAPHA2") 0^14^B31277218^B24817318 "RTN","ECXAPHA2",1,0) ECXAPHA2 ;ALB/TMD-Pharmacy Extracts Unusual Volumes Report ;5/31/12 12:28 "RTN","ECXAPHA2",2,0) ;;3.0;DSS EXTRACTS;**40,49,84,104,105,113,136**;Dec 22, 1997;Build 28 "RTN","ECXAPHA2",3,0) ; "RTN","ECXAPHA2",4,0) EN ; entry point "RTN","ECXAPHA2",5,0) N COUNT,ECUNIT,LINE,ECDFN,ECD,ECDRG,ECDAY,ECDFN,ECQTY,ECUNIT,ECCOST,ECDS,ECXCOUNT "RTN","ECXAPHA2",6,0) K ^TMP($J) "RTN","ECXAPHA2",7,0) S (COUNT,ECDS,ECXCOUNT)=0,ECUNIT="" "RTN","ECXAPHA2",8,0) S ECD=ECSD1,ECED=ECED+.3 "RTN","ECXAPHA2",9,0) S LINE=$S(ECXOPT=1:"PRE",ECXOPT=2:"IVP",ECXOPT=3:"UDP",1:"EXIT") "RTN","ECXAPHA2",10,0) D @LINE "RTN","ECXAPHA2",11,0) Q "RTN","ECXAPHA2",12,0) ; "RTN","ECXAPHA2",13,0) PRE ; entry point for PRE data "RTN","ECXAPHA2",14,0) N ECRFL,ECRX,ECREF,ECDATA,ECDATA1,ECPRC,IEN "RTN","ECXAPHA2",15,0) K ^TMP($J,"ECXDSS") "RTN","ECXAPHA2",16,0) ;call pharmacy api pso52ex "RTN","ECXAPHA2",17,0) D EXTRACT^PSO52EX(ECD,ECED,"ECXDSS") "RTN","ECXAPHA2",18,0) S ECREF="RF" "RTN","ECXAPHA2",19,0) ;order thru fills and refills; refill values 0 thru 11 "RTN","ECXAPHA2",20,0) ; Note: refill 0 = original fill "RTN","ECXAPHA2",21,0) F S ECD=$O(^TMP($J,"ECXDSS","AL",ECD)),IEN=0 Q:'ECD Q:ECD>ECED Q:ECXERR F S IEN=$O(^TMP($J,"ECXDSS","AL",ECD,IEN)),ECRFL="" Q:'IEN Q:ECXERR F S ECRFL=$O(^TMP($J,"ECXDSS","AL",ECD,IEN,ECRFL)) Q:ECRFL="" Q:ECXERR D PRE2 "RTN","ECXAPHA2",22,0) ; "RTN","ECXAPHA2",23,0) ;order thru partial fills "RTN","ECXAPHA2",24,0) S ECD=ECSD1,ECREF="P" "RTN","ECXAPHA2",25,0) F S ECD=$O(^TMP($J,"ECXDSS","AM",ECD)),IEN=0 Q:'ECD Q:ECD>ECED Q:ECXERR F S IEN=$O(^(ECD,IEN)),ECRFL="" Q:'IEN Q:ECXERR F S ECRFL=$O(^(IEN,ECRFL)) Q:'ECRFL Q:ECXERR D PRE2 "RTN","ECXAPHA2",26,0) K ^TMP($J,"ECXDSS") "RTN","ECXAPHA2",27,0) Q "RTN","ECXAPHA2",28,0) ; "RTN","ECXAPHA2",29,0) PRE2 ; get Prescription data "RTN","ECXAPHA2",30,0) I (ECREF="RF")&(ECRFL) D "RTN","ECXAPHA2",31,0) .S ECQTY=+^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,1) "RTN","ECXAPHA2",32,0) .S ECDS=+^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,1.1) "RTN","ECXAPHA2",33,0) .S ECPRC=^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,1.2) "RTN","ECXAPHA2",34,0) I (ECREF="RF")&('ECRFL) D "RTN","ECXAPHA2",35,0) .S ECQTY=+^TMP($J,"ECXDSS",IEN,7) "RTN","ECXAPHA2",36,0) .S ECDS=+^TMP($J,"ECXDSS",IEN,8) "RTN","ECXAPHA2",37,0) .S ECPRC=+^TMP($J,"ECXDSS",IEN,17) "RTN","ECXAPHA2",38,0) I ECREF="P" D "RTN","ECXAPHA2",39,0) .S ECQTY=+^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,.04) "RTN","ECXAPHA2",40,0) .S ECDS=+^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,.041) "RTN","ECXAPHA2",41,0) .S ECPRC=+^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,.042) "RTN","ECXAPHA2",42,0) ;check to see if quantity>threshold "RTN","ECXAPHA2",43,0) I ECQTY>ECTHLD D "RTN","ECXAPHA2",44,0) .S ECDAY=ECD "RTN","ECXAPHA2",45,0) .S ECDFN=$P(^TMP($J,"ECXDSS",IEN,2),U) "RTN","ECXAPHA2",46,0) .S ECDRG=+$P(^TMP($J,"ECXDSS",IEN,6),U) "RTN","ECXAPHA2",47,0) .S ECCOST=ECQTY*ECPRC "RTN","ECXAPHA2",48,0) .D FILE Q:ECXERR "RTN","ECXAPHA2",49,0) Q "RTN","ECXAPHA2",50,0) ; "RTN","ECXAPHA2",51,0) IVP ; entry point for IVP Data "RTN","ECXAPHA2",52,0) N DFN,ON,DA,SA,ECCOUNT,ECIA "RTN","ECXAPHA2",53,0) S ECIA=0 "RTN","ECXAPHA2",54,0) F S ECD=$O(^ECX(728.113,"A",ECD)),DFN=0 Q:'ECD Q:ECD>ECED Q:ECXERR F S DFN=$O(^ECX(728.113,"A",ECD,DFN)),ON=0 Q:'DFN F S ON=$O(^ECX(728.113,"A",ECD,DFN,ON)),DA=0 Q:'ON K ^TMP($J,"A"),^("S") D Q:ECXERR "RTN","ECXAPHA2",55,0) .F S DA=$O(^ECX(728.113,"A",ECD,DFN,ON,DA)) Q:'DA Q:ECXERR I $D(^ECX(728.113,DA,0)) S EC=^(0) Q:ECXERR D "RTN","ECXAPHA2",56,0) ..S ECDRG=$P(EC,U,4) "RTN","ECXAPHA2",57,0) ..S SA=$S($P(EC,U,8)]"":"A",$P(EC,U,9):"S",1:"") "RTN","ECXAPHA2",58,0) ..; set up new record for first DA for this drug "RTN","ECXAPHA2",59,0) ..I '$D(^TMP($J,SA,ECDRG)) D "RTN","ECXAPHA2",60,0) ...S ECQTY=+$S(SA="A":+$P(EC,U,7),SA="S":+$P(EC,U,9),1:0) "RTN","ECXAPHA2",61,0) ...S ECUNIT=$S(SA="A":$P(EC,U,8),SA="S":"ML",1:"") "RTN","ECXAPHA2",62,0) ...S ECIA=0 "RTN","ECXAPHA2",63,0) ...F S ECIA=$O(^PS(52.6,ECIA)) Q:'ECIA Q:$P(^PS(52.6,ECIA,0),"^",2)=ECDRG "RTN","ECXAPHA2",64,0) ...I +ECIA'=0 S ECCOST=(+$P($G(^PS(52.6,ECIA,0)),"^",7))*ECQTY "RTN","ECXAPHA2",65,0) ...I 'ECIA S ECCOST=0 "RTN","ECXAPHA2",66,0) ...S ECDFN=DFN "RTN","ECXAPHA2",67,0) ...;S ECCOST=$P(EC,U,12),ECDFN=DFN "RTN","ECXAPHA2",68,0) ...S ^TMP($J,SA,ECDRG)=ECUNIT_U_ECD_U_ECDFN_U_ECCOST_U_ECQTY "RTN","ECXAPHA2",69,0) ...S ^(ECDRG,1)=0 "RTN","ECXAPHA2",70,0) ..; add to qty (0,1, or -1) to total "RTN","ECXAPHA2",71,0) ..S ^TMP($J,SA,ECDRG,1)=^TMP($J,SA,ECDRG,1)+$S($P(EC,U,6)=1:1,$P(EC,U,6)=4:0,1:-1) "RTN","ECXAPHA2",72,0) .; looped thru all DAs for this order - now check for unusual volumes "RTN","ECXAPHA2",73,0) .F SA="S","A" S ECDRG="" F S ECDRG=$O(^TMP($J,SA,ECDRG)) Q:ECDRG="" Q:ECXERR D "RTN","ECXAPHA2",74,0) ..S ECQTY=$P(^TMP($J,SA,ECDRG),U,5),ECCOUNT=^(ECDRG,1) "RTN","ECXAPHA2",75,0) ..S ECQTY=ECQTY*ECCOUNT "RTN","ECXAPHA2",76,0) ..; check to see if quantity is outside of threshold range "RTN","ECXAPHA2",77,0) ..I (ECQTY>ECTHLD)!(ECQTY<-ECTHLD) D "RTN","ECXAPHA2",78,0) ...S ECUNIT=$P(^TMP($J,SA,ECDRG),U) "RTN","ECXAPHA2",79,0) ...S ECDAY=$P(^(ECDRG),U,2) "RTN","ECXAPHA2",80,0) ...S ECDFN=$P(^(ECDRG),U,3) "RTN","ECXAPHA2",81,0) ...; New Cost calculation ** 136 "RTN","ECXAPHA2",82,0) ...S ECIA=0 "RTN","ECXAPHA2",83,0) ...F S ECIA=$O(^PS(52.6,ECIA)) Q:'ECIA Q:$P(^PS(52.6,ECIA,0),"^",2)=ECDRG "RTN","ECXAPHA2",84,0) ...I +ECIA'=0 S ECCOST=(+$P($G(^PS(52.6,ECIA,0)),"^",7))*ECQTY "RTN","ECXAPHA2",85,0) ...I 'ECIA S ECCOST=0 "RTN","ECXAPHA2",86,0) ...;S ECCOST=$P(^(ECDRG),U,4)*ECQTY "RTN","ECXAPHA2",87,0) ...D FILE Q:ECXERR "RTN","ECXAPHA2",88,0) K ^TMP($J,"A"),^("S") "RTN","ECXAPHA2",89,0) Q "RTN","ECXAPHA2",90,0) ; "RTN","ECXAPHA2",91,0) UDP ; entry point for UDP data "RTN","ECXAPHA2",92,0) N ECXJ,ECDATA,ECORD ;136 "RTN","ECXAPHA2",93,0) F S ECD=$O(^ECX(728.904,"A",ECD)) Q:'ECD Q:ECD>ECED Q:ECXERR D "RTN","ECXAPHA2",94,0) .S ECXJ=0 F S ECXJ=$O(^ECX(728.904,"A",ECD,ECXJ)) Q:'ECXJ Q:ECXERR I $D(^ECX(728.904,ECXJ,0)) D "RTN","ECXAPHA2",95,0) ..S DATA=^ECX(728.904,ECXJ,0),ECQTY=$P(DATA,U,5) "RTN","ECXAPHA2",96,0) ..;check to see if quantity>threshold "RTN","ECXAPHA2",97,0) ..I ECQTY>ECTHLD D "RTN","ECXAPHA2",98,0) ...S ECDFN=$P(DATA,U,2),ECDRG=$P(DATA,U,4),ECCOST=$P(DATA,U,8),ECDAY=ECD,ECORD=$P(DATA,U,10) ;136 "RTN","ECXAPHA2",99,0) ...D FILE Q:ECXERR "RTN","ECXAPHA2",100,0) Q "RTN","ECXAPHA2",101,0) ; "RTN","ECXAPHA2",102,0) FILE ; put records in temp file to print later "RTN","ECXAPHA2",103,0) N OK,ECXPAT,ECNAME,ECSSN,ECGNAME,ECNDC,ECPROD,ECFKEY,ECXPHA "RTN","ECXAPHA2",104,0) ; get demographics "RTN","ECXAPHA2",105,0) S OK=$$PAT^ECXUTL3(ECDFN,$P(ECD,"."),"1;",.ECXPAT) "RTN","ECXAPHA2",106,0) I 'OK Q "RTN","ECXAPHA2",107,0) S ECNAME=ECXPAT("NAME") "RTN","ECXAPHA2",108,0) S ECSSN=ECXPAT("SSN") "RTN","ECXAPHA2",109,0) S ECDAY=$E(ECDAY,4,5)_"/"_$E(ECDAY,6,7) "RTN","ECXAPHA2",110,0) ; get drug file data "RTN","ECXAPHA2",111,0) S ECXPHA="",ECXPHA=$$PHAAPI^ECXUTL5(ECDRG) "RTN","ECXAPHA2",112,0) S ECGNAME=$P(ECXPHA,U) "RTN","ECXAPHA2",113,0) S ECNDC=$P(ECXPHA,U,3) "RTN","ECXAPHA2",114,0) S ECNDC=$$RJ^XLFSTR($P(ECNDC,"-"),6,0)_$$RJ^XLFSTR($P(ECNDC,"-",2),4,0)_$$RJ^XLFSTR($P(ECNDC,"-",3),2,0) "RTN","ECXAPHA2",115,0) S ECNDC=$TR(ECNDC,"*",0) "RTN","ECXAPHA2",116,0) S ECPROD=$P(ECXPHA,U,6) "RTN","ECXAPHA2",117,0) S ECPROD=$$RJ^XLFSTR(ECPROD,5,0) "RTN","ECXAPHA2",118,0) S ECFKEY=ECPROD_ECNDC "RTN","ECXAPHA2",119,0) I ECXOPT'=2 S ECUNIT=$P(ECXPHA,U,8) "RTN","ECXAPHA2",120,0) ; file "RTN","ECXAPHA2",121,0) S ^TMP($J,ECFKEY,-ECQTY,ECDAY,ECXCOUNT,ECSSN)=ECNAME_U_ECSSN_U_ECDAY_U_ECGNAME_U_ECFKEY_U_ECQTY_U_ECUNIT_U_"$"_$FNUMBER(ECCOST,",",4)_U_ECDS "RTN","ECXAPHA2",122,0) I $G(ECXOPT)=3 S $P(^TMP($J,ECFKEY,-ECQTY,ECDAY,ECXCOUNT,ECSSN),U,10)=$$SIG^ECXAPHA(ECORD,ECDFN) ;136 Get SIG data if UDP report "RTN","ECXAPHA2",123,0) S COUNT=COUNT+1 "RTN","ECXAPHA2",124,0) S ECXCOUNT=ECXCOUNT+1 "RTN","ECXAPHA2",125,0) I COUNT#100=0 I $$S^ZTLOAD S (ZTSTOP,ECXERR)=1 ;136 Update ZTSTOP var to be spelled correctly "RTN","ECXAPHA2",126,0) Q "RTN","ECXAPHA2",127,0) ; "RTN","ECXAPHA2",128,0) EXIT S ECXERR=1 Q "RTN","ECXBCM") 0^22^B69163399^B50933918 "RTN","ECXBCM",1,0) ECXBCM ;ALB/JAP-Bar Code Medical Administration Extract ;9/4/12 11:48 "RTN","ECXBCM",2,0) ;;3.0;DSS EXTRACTS;**107,127,132,136**;Dec 22, 1997 ;Build 28 "RTN","ECXBCM",3,0) ; "RTN","ECXBCM",4,0) BEG ;entry point from option "RTN","ECXBCM",5,0) ;ECFILE=^ECX(727.833, "RTN","ECXBCM",6,0) D SETUP I ECFILE="" Q "RTN","ECXBCM",7,0) D ^ECXTRAC,^ECXKILL "RTN","ECXBCM",8,0) Q "RTN","ECXBCM",9,0) ; "RTN","ECXBCM",10,0) START ; start package specific extract "RTN","ECXBCM",11,0) ; "RTN","ECXBCM",12,0) S ECED=ECED+.3,ECD=ECSD1 "RTN","ECXBCM",13,0) S PIEN=0 "RTN","ECXBCM",14,0) I $G(ECSD)="" S ECSD=DT "RTN","ECXBCM",15,0) ; loop thru and get each new patient, reset the start date to ECSD - begin date from ECXTRAC "RTN","ECXBCM",16,0) F S PIEN=$O(^PSB(53.79,"AADT",PIEN)) Q:('PIEN) S IDAT=ECSD D "RTN","ECXBCM",17,0) .F S IDAT=$O(^PSB(53.79,"AADT",PIEN,IDAT)) Q:'IDAT!(IDAT>ECED) S RIEN="" D "RTN","ECXBCM",18,0) ..F S RIEN=$O(^PSB(53.79,"AADT",PIEN,IDAT,RIEN)) Q:'RIEN D "RTN","ECXBCM",19,0) ...S ECXNOD=^PSB(53.79,RIEN,0) Q:'ECXNOD S ECXDFN=$P($G(ECXNOD),U) D GET(ECSD,ECED) "RTN","ECXBCM",20,0) Q "RTN","ECXBCM",21,0) ; "RTN","ECXBCM",22,0) GET(ECSD,ECED) ;get extract data "RTN","ECXBCM",23,0) S (ACTDT,ECXADT,ECXAMED,ECXASTA,ECXATM,ECXORN,ECXORT,ECXOSC,ECPRO,PLACEHLD,ECXFAC,DRG)="" "RTN","ECXBCM",24,0) ; get needed YYYYDD variable "RTN","ECXBCM",25,0) I $G(ECXYM)="" S ECXYM=$$ECXYM^ECXUTL(DT) "RTN","ECXBCM",26,0) ;Get Facility "RTN","ECXBCM",27,0) I $G(ECXFAC)="" D "RTN","ECXBCM",28,0) .S ECXFAC=+$P(^ECX(728,1,0),U) K ECXDIC S DA=ECXFAC,DIC="^DIC(4,",DIQ(0)="I",DIQ="ECXDIC",DR=".01;99" "RTN","ECXBCM",29,0) .D EN^DIQ1 S ECXFAC=$G(ECXDIC(4,DA,99,"I")) K DIC,DIQ,DA,DR,ECXDIC "RTN","ECXBCM",30,0) ;get patient demographics "RTN","ECXBCM",31,0) S ECXERR=0 D PAT(ECXDFN,IDAT,.ECXERR) Q:ECXERR "RTN","ECXBCM",32,0) ; "RTN","ECXBCM",33,0) S ECXORN=$$GET1^DIQ(53.79,RIEN,.11) "RTN","ECXBCM",34,0) ; Ordering Stop Code - based on Unit dose or IV "RTN","ECXBCM",35,0) I ECXORN["U" Q:$$CHKUD(ECXDFN,ECSD,ECED) S:ECXA="O" ECXOSC=$$DOUDO^ECXUTL5(ECXDFN,+ECXORN) "RTN","ECXBCM",36,0) I ECXORN["V" Q:$$CHKIV(ECXDFN,ECSD,ECED) S:ECXA="O" ECXOSC=$$DOIVPO^ECXUTL5(ECXDFN,+ECXORN) "RTN","ECXBCM",37,0) S ECPRO=$$ORDPROV^ECXUTL(ECXDFN,ECXORN,"") "RTN","ECXBCM",38,0) S ACTDT=$$GET1^DIQ(53.79,RIEN,.06,"I") "RTN","ECXBCM",39,0) I ACTDT'=IDAT Q "RTN","ECXBCM",40,0) S ECXADT=$$ECXDATE^ECXUTL(ACTDT,ECXYM) "RTN","ECXBCM",41,0) S ECXATM=$$ECXTIME^ECXUTL(ACTDT) "RTN","ECXBCM",42,0) S ECXORT=$P($G(^TMP("PSJ",$J,1)),U,3) K ^TMP("PSJ",$J) "RTN","ECXBCM",43,0) S ECPROPC=$P($$GET^XUA4A72(ECPRO,$P(ACTDT,".")),U,7) "RTN","ECXBCM",44,0) N ECXUSRTN "RTN","ECXBCM",45,0) S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECPRO,$P(ACTDT,".")) "RTN","ECXBCM",46,0) S:+ECXUSRTN'>0 ECXUSRTN="" S ECPRONPI=$P(ECXUSRTN,U) "RTN","ECXBCM",47,0) S ECXASTA=$$GET1^DIQ(53.79,RIEN,.09,"I") "RTN","ECXBCM",48,0) I "^G^S^C^"'[("^"_ECXASTA_"^") Q ;process 'G'iven,'S'topped,'C'ompleted "RTN","ECXBCM",49,0) S ECXAMED=$$GET1^DIQ(53.79,RIEN,.08,"I") "RTN","ECXBCM",50,0) ;Component code data "RTN","ECXBCM",51,0) D CCODE(RIEN) "RTN","ECXBCM",52,0) Q "RTN","ECXBCM",53,0) ; "RTN","ECXBCM",54,0) CMPT ; during component/sequence processing, retrieve rest of data record the file it. "RTN","ECXBCM",55,0) S (ECXSCADT,ECXOS,ECXIVID,ECXIR,SCADT,ECXSCADT,ECXSCATM,DRUG,ECVNDC,ECINV,ECVACL)="" "RTN","ECXBCM",56,0) I $G(DRG) D "RTN","ECXBCM",57,0) .S DRUG=$$PHAAPI^ECXUTL5(DRG) "RTN","ECXBCM",58,0) .S ECVNDC=$P(DRUG,U,3) "RTN","ECXBCM",59,0) .S ECINV=$P(DRUG,U,4) S ECINV=$S(ECINV["I":"I",1:"") "RTN","ECXBCM",60,0) .S ECVACL=$P(DRUG,U,2) "RTN","ECXBCM",61,0) S SCADT=$$GET1^DIQ(53.79,RIEN,.13,"I") "RTN","ECXBCM",62,0) S ECXSCADT=$$ECXDATE^ECXUTL(SCADT,ECXYM) "RTN","ECXBCM",63,0) S ECXSCATM=$$ECXTIME^ECXUTL(SCADT) "RTN","ECXBCM",64,0) S ECXOS=$$GET1^DIQ(53.79,RIEN,.12,"I") "RTN","ECXBCM",65,0) S ECXIVID=$$GET1^DIQ(53.79,RIEN,.26) "RTN","ECXBCM",66,0) S ECXIR=$$GET1^DIQ(53.79,RIEN,.35) "RTN","ECXBCM",67,0) S ECXDIV=$$RADDIV^ECXDEPT($$GET1^DIQ(53.79,RIEN,.03,"I")) "RTN","ECXBCM",68,0) S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS) "RTN","ECXBCM",69,0) S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADM,ACTDT,ECXTS,ECXOBS,ECHEAD,,) "RTN","ECXBCM",70,0) D:ECXENC'="" FILE "RTN","ECXBCM",71,0) Q "RTN","ECXBCM",72,0) ; "RTN","ECXBCM",73,0) PAT(ECXDFN,ECXDATE,ECXERR) ;get patient demographics, primary care, and inpatient data "RTN","ECXBCM",74,0) N X "RTN","ECXBCM",75,0) S (ECXCAT,ECXSTAT,ECXPRIOR,ECXSBGRP,ECXOEF,ECXOEFDT)="" "RTN","ECXBCM",76,0) ;get patient data "RTN","ECXBCM",77,0) K ECXPAT S OK=$$PAT^ECXUTL3(ECXDFN,$P(ECXDATE,"."),"1;2;3;5",.ECXPAT) "RTN","ECXBCM",78,0) I 'OK K ECXPAT S ECXERR=1 Q "RTN","ECXBCM",79,0) S ECXPNM=ECXPAT("NAME") "RTN","ECXBCM",80,0) S ECXSSN=ECXPAT("SSN") "RTN","ECXBCM",81,0) S ECXMPI=ECXPAT("MPI") "RTN","ECXBCM",82,0) S ECXDOB=ECXPAT("DOB") "RTN","ECXBCM",83,0) S ECXELIG=ECXPAT("ELIG") "RTN","ECXBCM",84,0) S ECXSEX=ECXPAT("SEX") "RTN","ECXBCM",85,0) S ECXSTATE=ECXPAT("STATE") "RTN","ECXBCM",86,0) S ECXCNTY=ECXPAT("COUNTY") "RTN","ECXBCM",87,0) S ECXZIP=ECXPAT("ZIP") "RTN","ECXBCM",88,0) S ECXVET=ECXPAT("VET") "RTN","ECXBCM",89,0) S ECXCNTRY=ECXPAT("COUNTRY") "RTN","ECXBCM",90,0) S ECXPOS=ECXPAT("POS") "RTN","ECXBCM",91,0) S ECXPST=ECXPAT("POW STAT") "RTN","ECXBCM",92,0) S ECXPLOC=ECXPAT("POW LOC") "RTN","ECXBCM",93,0) S ECXRST=ECXPAT("IR STAT") "RTN","ECXBCM",94,0) S ECXAST=ECXPAT("AO STAT") "RTN","ECXBCM",95,0) S ECXAOL=ECXPAT("AOL") "RTN","ECXBCM",96,0) S ECXPHI=ECXPAT("PHI") "RTN","ECXBCM",97,0) S ECXMST=ECXPAT("MST STAT") "RTN","ECXBCM",98,0) S ECXENRL=ECXPAT("ENROLL LOC") "RTN","ECXBCM",99,0) S ECXMTST=ECXPAT("MEANS") "RTN","ECXBCM",100,0) S ECXEST=ECXPAT("EC STAT") "RTN","ECXBCM",101,0) S ECXCNHU=$$CNHSTAT^ECXUTL4(ECXDFN) S ECXCNHU=$S(ECXCNHU'="":$E(ECXCNHU,1),1:"") ;get CNHU status "RTN","ECXBCM",102,0) ;get enrollment data (category, status and priority) "RTN","ECXBCM",103,0) I $$ENROLLM^ECXUTL2(ECXDFN) "RTN","ECXBCM",104,0) S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN) ; Head and Neck Cancer Indicator "RTN","ECXBCM",105,0) S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN) ; PROJ 112/SHAD Indicator "RTN","ECXBCM",106,0) I ECXSHADI="U" S ECXSHADI="" ; If Shad comes back as "U" force to null "RTN","ECXBCM",107,0) S ECXETH=ECXPAT("ETHNIC"),ECXRC1=ECXPAT("RACE1") ; Race and Ethnicity "RTN","ECXBCM",108,0) S ECXERI=ECXPAT("ERI") ; emergency response indicator (FEMA) "RTN","ECXBCM",109,0) S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN) ; PATCAT code / patch 127 "RTN","ECXBCM",110,0) S ECXOEF=ECXPAT("ECXOEF") "RTN","ECXBCM",111,0) S ECXOEFDT=ECXPAT("ECXOEFDT") "RTN","ECXBCM",112,0) ; "RTN","ECXBCM",113,0) ;get primary care data "RTN","ECXBCM",114,0) S X=$$PRIMARY^ECXUTL2(ECXDFN,$P(ECXDATE,".")) "RTN","ECXBCM",115,0) S ECPTTM=$P(X,U),ECPTPR=$P(X,U,2),ECCLAS=$P(X,U,3),ECPTNPI=$P(X,U,4) "RTN","ECXBCM",116,0) ;get inpatient data "RTN","ECXBCM",117,0) S (ECXA,ECXMN,ECXADM,ECXTS,ECXW)="" "RTN","ECXBCM",118,0) S X=$$INP^ECXUTL2(ECXDFN,ECXDATE) "RTN","ECXBCM",119,0) S ECXA=$P(X,U),ECXMN=$P(X,U,2),ECXTS=$P(X,U,3),ECXADM=$P(X,U,4) "RTN","ECXBCM",120,0) S W=$P(X,U,9),ECXDOM=$P(X,U,10),ECXW=$P(W,";") "RTN","ECXBCM",121,0) ;get national patient record flag, if it exists "RTN","ECXBCM",122,0) D NPRF^ECXUTL5 ; sets ECXNPRFI "RTN","ECXBCM",123,0) Q "RTN","ECXBCM",124,0) ; "RTN","ECXBCM",125,0) CCODE(RIEN) ; get component information "RTN","ECXBCM",126,0) ; input - IEN of the BCMA MEDICATION LOG File "RTN","ECXBCM",127,0) ; "RTN","ECXBCM",128,0) ; output - CCIEN: pointer to a variable pointer field to file #50, #52.6, or #52.7 "RTN","ECXBCM",129,0) ; CCDORD: .02 field of file #50, #52.6, or #52.7 "RTN","ECXBCM",130,0) ; CCDGVN: .03 FIELD of file #50, #52.6, or #52.7 "RTN","ECXBCM",131,0) ; CCUNIT: .04 field of file #50, #52.6, or #52.7 "RTN","ECXBCM",132,0) ; CCTYPE: derived field, "D", "A", or "S" "RTN","ECXBCM",133,0) ; "RTN","ECXBCM",134,0) S (CCIEN,CCDORD,CCDGVN,CCUNIT,CCTYPE)="" "RTN","ECXBCM",135,0) F I=.5,.6,.7 D "RTN","ECXBCM",136,0) .I '$O(^PSB(53.79,RIEN,I,0)) Q "RTN","ECXBCM",137,0) .S J=0 F S J=$O(^PSB(53.79,RIEN,I,J)) Q:'J D "RTN","ECXBCM",138,0) ..S DATA=^PSB(53.79,RIEN,I,J,0) "RTN","ECXBCM",139,0) ..S CCIEN=$P(DATA,U),CCDORD=$P(DATA,U,2),CCDGVN=$P(DATA,U,3),CCUNIT=$P(DATA,U,4) "RTN","ECXBCM",140,0) ..I I=.5 S DRG=CCIEN "RTN","ECXBCM",141,0) ..I I=.6 S DRG=$$GET1^DIQ(52.6,CCIEN,1,"I") "RTN","ECXBCM",142,0) ..I I=.7 S DRG=$$GET1^DIQ(52.7,CCIEN,1,"I") "RTN","ECXBCM",143,0) ..S CCTYPE=$S(I=.5:"D",I=.6:"A",I=.7:"S",1:"") "RTN","ECXBCM",144,0) ..S CCIEN=$S(I=.5:CCIEN_";PSDRUG(",I=.6:CCIEN_";PS(52.6,",I=.7:CCIEN_";PS(52.7,",1:"") "RTN","ECXBCM",145,0) ..D CMPT "RTN","ECXBCM",146,0) Q "RTN","ECXBCM",147,0) ; "RTN","ECXBCM",148,0) CHKIV(ECXDFN,ECSD,ECED) ; Check file 728.113 for matching IV records "RTN","ECXBCM",149,0) ; input - ECXDFN DFN of the patient from the BCMA file "RTN","ECXBCM",150,0) ; ECSD: Start Date for the extract "RTN","ECXBCM",151,0) ; ECED: End Date for the extract "RTN","ECXBCM",152,0) ; return - True if the Order is in file 728.113 "RTN","ECXBCM",153,0) ; False if the Order is Not in file 728.113 "RTN","ECXBCM",154,0) ; "RTN","ECXBCM",155,0) N IVIEN,ORD,IVORN,ECD,EXTRACT,STDATE,ENDDATE "RTN","ECXBCM",156,0) S (ORD,ECD,STDATE,ENDDATE)=0 "RTN","ECXBCM",157,0) S (IVORN,EXTRACT)="" "RTN","ECXBCM",158,0) I '$O(^ECX(728.113,0)) D ; Check to see if data exists in the file, if not, recreate "RTN","ECXBCM",159,0) .S EXTRACT="IV" "RTN","ECXBCM",160,0) .S STDATE=$E($$FMADD^XLFDT(ECSD,-140),1,5)_"01" "RTN","ECXBCM",161,0) .S ENDDATE=ECED "RTN","ECXBCM",162,0) .D START^PSJDSS "RTN","ECXBCM",163,0) S IVORN=$P(ECXORN,"V") "RTN","ECXBCM",164,0) S ECD=$E($$FMADD^XLFDT(ECSD,-140),1,5)_"01" "RTN","ECXBCM",165,0) F S ECD=$O(^ECX(728.113,"A",ECD)) Q:'ECD!(ECD>ECED)!(ORD=IVORN) D "RTN","ECXBCM",166,0) .S ORD=0 "RTN","ECXBCM",167,0) .F S ORD=$O(^ECX(728.113,"A",ECD,ECXDFN,ORD)) Q:'ORD!(ORD=IVORN) "RTN","ECXBCM",168,0) I ORD=IVORN Q 1 "RTN","ECXBCM",169,0) Q 0 ;Checks show order not in IV 728.113 "RTN","ECXBCM",170,0) ; "RTN","ECXBCM",171,0) CHKUD(ECXDFN,ECSD,ECED) ; Check file 728.904 for matching Unit dose records "RTN","ECXBCM",172,0) ; input - ECXDFN DFN of the patient from the BCMA file "RTN","ECXBCM",173,0) ; ECSD: Start Date for the extract "RTN","ECXBCM",174,0) ; ECED: End Date for the extract "RTN","ECXBCM",175,0) ; return - True if the Order is in file 728.904 "RTN","ECXBCM",176,0) ; False if the Order is Not in file 728.904 "RTN","ECXBCM",177,0) ; "RTN","ECXBCM",178,0) N UDIEN,UDORN,ORD,EXTRACT,STDATE,ENDDATE "RTN","ECXBCM",179,0) S (ORD,STDATE,ENDDATE)=0 "RTN","ECXBCM",180,0) S (UDORN,EXTRACT)="" "RTN","ECXBCM",181,0) I '$O(^ECX(728.904,0)) D ; Check to see if data exists in the file, if not, recreate "RTN","ECXBCM",182,0) .S EXTRACT="UD" "RTN","ECXBCM",183,0) .S STDATE=$E($$FMADD^XLFDT(ECSD,-140),1,5)_"01" "RTN","ECXBCM",184,0) .S ENDDATE=ECED "RTN","ECXBCM",185,0) .D START^PSJDSS "RTN","ECXBCM",186,0) S UDORN=$P(ECXORN,"U") "RTN","ECXBCM",187,0) F S ORD=$O(^ECX(728.904,"AO",ECXDFN,ORD)) Q:'ORD!(ORD=UDORN) "RTN","ECXBCM",188,0) I ORD=UDORN Q 1 "RTN","ECXBCM",189,0) ;I $$GET1^DIQ(55.06,UDORN_","_ECXDFN,7,"I")="R" Q 1 "RTN","ECXBCM",190,0) Q 0 ;Checks show order not in UD 728.904 "RTN","ECXBCM",191,0) ; "RTN","ECXBCM",192,0) FILE ;file the extract record "RTN","ECXBCM",193,0) ;node0 "RTN","ECXBCM",194,0) ;Sequence Number,Year Month, Extract Number (EC23)^facility (ECXFAC)^ "RTN","ECXBCM",195,0) ;dfn (ECXDFN)^ssn (ECXSSN)^name (ECXPNM)^ "RTN","ECXBCM",196,0) ;in/out (ECXA)^Day (ECXADT)^ "RTN","ECXBCM",197,0) ;date of birth (ECDOB)^Gender (ECXSEX)^State (ECXSTATE)^County (ECXCNTY)^ "RTN","ECXBCM",198,0) ;zip code (ECXZIP)^country (ECXCNTRY)^ward (ECXW)^treating speciality (ECXTS)^ "RTN","ECXBCM",199,0) ;provider (ECPRO)^provider person class (ECPROPC)^provider npi (ECPRONPI)^ "RTN","ECXBCM",200,0) ;primary care provider(ECPTPR)^pc provider person class (ECCLAS)^ "RTN","ECXBCM",201,0) ;primary care provider NPI (ECPTNPI)^primary care team (ECPTTM)^ordering stop code (ECXOSC)^ "RTN","ECXBCM",202,0) ;NODE(1) "RTN","ECXBCM",203,0) ;place order number (RIEN)^order reference number (ECXORN)^route (ECXORT)^ "RTN","ECXBCM",204,0) ;^action time (ECXATM)^component code (CCIEN)^ "RTN","ECXBCM",205,0) ;component dose ordered (CCDORD)^component dose given(CCDGVN)^ "RTN","ECXBCM",206,0) ;component units (CCUNIT)^component type (CCTYPE)^Action Status (ECXASTA)^ "RTN","ECXBCM",207,0) ;Administration Medication (ECXAMED)^Scheduled Administration Date (ECXSCADT)^ "RTN","ECXBCM",208,0) ;NODE(2) "RTN","ECXBCM",209,0) ;Scheduled Administration Time (ECXSCATM)^ "RTN","ECXBCM",210,0) ;Order Schedule (ECXOS)^IV Unique ID (ECXIVID)^ "RTN","ECXBCM",211,0) ;Infusion Rate (ECXIR)^Production Division Code (ECXDIV)^Drug IEN (DRG)^NDC (ECVNDC)^ "RTN","ECXBCM",212,0) ;Investigational (DEA Special Handling) (ECINV)^VA Drug Classification (ECVACL)^ "RTN","ECXBCM",213,0) ;Master Patient Index (ECXMPI)^DOM, PRRTP and SAARTP Indicator (ECXDOM)^ "RTN","ECXBCM",214,0) ;Observation Patient Indicator (ECXOBS)^Encounter Number (ECXENC)^Means Test (ECXMTST)^ "RTN","ECXBCM",215,0) ;Eligibility (ECXELIG)^Enrollment Location (ECXENRL)^Enrollment Category (ECXCAT)^ "RTN","ECXBCM",216,0) ;Enrollment Status (ECXSTAT)^Enrollment Priority (ECXPRIOR)_(ECXSBGRP)^ "RTN","ECXBCM",217,0) ;User Enrollee (ECXUESTA)^ "RTN","ECXBCM",218,0) ;Ethnicity(ECXETH)^Race 1(ECXRC1)^Veteran(ECXVET)^Period of Service(ECXPOS)^POW Status(ECXPST)^ "RTN","ECXBCM",219,0) ;POW Location(ECXPLOC)^Radiation Status(ECXRST)^Agent Orange Status(ECXAST)^Agent Orange Location(ECXAOL) "RTN","ECXBCM",220,0) ;^Purple Heart Indicator(ECXPHI)^MST Status(ECXMST)^CNH/SH Status(ECXCNHU)^ "RTN","ECXBCM",221,0) ;Head & Neck Cancer Indicator(ECXHNCI)^SHAD Status(ECXSHADI) "RTN","ECXBCM",222,0) ;NODE(3) "RTN","ECXBCM",223,0) ;Patient Type(ECXPTYPE)^ "RTN","ECXBCM",224,0) ;CV Status Eligibility(ECXCVE)^CV Eligibility End Date(ECXCVEDT)^Encounter CV(ECXCVENC)^ "RTN","ECXBCM",225,0) ;National Patient Record Flag(ECXNPRFI)^ERI(ECXERI)^SW Asia Conditions(ECXEST)^ "RTN","ECXBCM",226,0) ;OEF/OIF(ECXOEF)^OEF/OIF Return Date(ECXOEFDT)^PATCAT(ECXPATCAT) "RTN","ECXBCM",227,0) ; "RTN","ECXBCM",228,0) N DA,DIK "RTN","ECXBCM",229,0) S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1 "RTN","ECXBCM",230,0) S ECODE(0)=EC7_U_EC23_U_ECXFAC_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U_ECXADT "RTN","ECXBCM",231,0) S ECODE(0)=ECODE(0)_U_ECXDOB_U_ECXSEX_U_ECXSTATE_U_ECXCNTY_U_ECXZIP_U_ECXCNTRY "RTN","ECXBCM",232,0) S ECODE(0)=ECODE(0)_U_ECXW_U_ECXTS_U_2_ECPRO_U_ECPROPC_U_ECPRONPI_U_ECPTPR_U_ECCLAS "RTN","ECXBCM",233,0) S ECODE(0)=ECODE(0)_U_ECPTNPI_U_ECPTTM_U_ECXOSC_U "RTN","ECXBCM",234,0) S ECODE(1)=RIEN_U_ECXORN_U_ECXORT_U_ECXATM_U_CCIEN_U_CCDORD_U_CCDGVN "RTN","ECXBCM",235,0) S ECODE(1)=ECODE(1)_U_CCUNIT_U_CCTYPE_U_ECXASTA_U_ECXAMED_U_ECXSCADT_U "RTN","ECXBCM",236,0) S ECODE(2)=ECXSCATM_U_ECXOS_U_ECXIVID_U_ECXIR_U_ECXDIV_U_DRG_U_ECVNDC_U_ECINV_U_ECVACL_U_ECXMPI_U_ECXDOM "RTN","ECXBCM",237,0) S ECODE(2)=ECODE(2)_U_$E(ECXOBS,1)_U_ECXENC_U_ECXMTST_U_ECXELIG_U_ECXENRL_U_ECXCAT_U_ECXSTAT_U_ECXPRIOR_ECXSBGRP "RTN","ECXBCM",238,0) S ECODE(2)=ECODE(2)_U_ECXUESTA_U_ECXETH_U_ECXRC1_U_ECXVET_U_ECXPOS_U_ECXPST_U_ECXPLOC "RTN","ECXBCM",239,0) S ECODE(2)=ECODE(2)_U_ECXRST_U_ECXAST_U_ECXAOL_U_ECXPHI_U_ECXMST_U_ECXCNHU_U_ECXHNCI_U_ECXSHADI_U "RTN","ECXBCM",240,0) S ECODE(3)=ECXPTYPE_U_ECXCVE_U_ECXCVEDT_U_ECXCVENC_U_ECXNPRFI_U_ECXERI_U_ECXEST_U_ECXOEF_U_ECXOEFDT "RTN","ECXBCM",241,0) S ECODE(3)=ECODE(3)_U_ECXPATCAT "RTN","ECXBCM",242,0) ; "RTN","ECXBCM",243,0) N DA,DIK,X S X="" "RTN","ECXBCM",244,0) F X=0:1:3 S ^ECX(ECFILE,EC7,X)=ECODE(X) "RTN","ECXBCM",245,0) S ECRN=ECRN+1 "RTN","ECXBCM",246,0) S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA "RTN","ECXBCM",247,0) Q "RTN","ECXBCM",248,0) ; "RTN","ECXBCM",249,0) SETUP ;Set required input for ECXTRAC. "RTN","ECXBCM",250,0) S ECHEAD="BCM" "RTN","ECXBCM",251,0) D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER) "RTN","ECXBCM",252,0) Q "RTN","ECXEC") 0^8^B61924291^B58828917 "RTN","ECXEC",1,0) ECXEC ;ALB/JAP,BIR/JLP,PTD-DSS Event Capture Extract ; 10/2/07 2:33pm "RTN","ECXEC",2,0) ;;3.0;DSS EXTRACTS;**11,8,13,24,27,33,39,46,49,71,89,92,105,120,127,132,136**;Dec 22, 1997;Build 28 "RTN","ECXEC",3,0) BEG ;entry point from option "RTN","ECXEC",4,0) I '$D(^ECH) W !,"Event Capture is not initialized",!! Q "RTN","ECXEC",5,0) D SETUP I ECFILE="" Q "RTN","ECXEC",6,0) D ^ECXTRAC,^ECXKILL "RTN","ECXEC",7,0) Q "RTN","ECXEC",8,0) START ;begin EC extract "RTN","ECXEC",9,0) N X,Y,ECDCM,ECXNPRFI "RTN","ECXEC",10,0) N ECXICD10P,ECXICD101,ECXICD102,ECXICD103,ECXICD104 "RTN","ECXEC",11,0) S ECED=ECED+.3,ECLL=0 "RTN","ECXEC",12,0) K ^TMP("EC",$J) "RTN","ECXEC",13,0) F S ECLL=$O(^ECH("AC1",ECLL)),ECD=ECSD-.1 Q:'ECLL D "RTN","ECXEC",14,0) .F S ECD=$O(^ECH("AC1",ECLL,ECD)),ECDA=0 Q:(ECD>ECED)!('ECD) D "RTN","ECXEC",15,0) ..F S ECDA=$O(^ECH("AC1",ECLL,ECD,ECDA)) Q:'ECDA D UPDATE "RTN","ECXEC",16,0) Q "RTN","ECXEC",17,0) ; "RTN","ECXEC",18,0) UPDATE ;sets record and updates counters "RTN","ECXEC",19,0) S ECCH=^ECH(ECDA,0),ECL=$P(ECCH,U,4),ECXDFN=$P(ECCH,U,2) "RTN","ECXEC",20,0) S ECXPDIV=$$RADDIV^ECXDEPT(ECL) ;Get production division from file 4 "RTN","ECXEC",21,0) S ECDT=$P(ECCH,U,3),ECM=$P(ECCH,U,6),ECC=$P(ECCH,U,8) "RTN","ECXEC",22,0) Q:'$$PATDEM^ECXUTL2(ECXDFN,ECDT,"1;3;5;") "RTN","ECXEC",23,0) S ECTM=$$ECXTIME^ECXUTL(ECDT),ECP=$P(ECCH,U,9) "RTN","ECXEC",24,0) Q:ECP']"" "RTN","ECXEC",25,0) S ECO=$P(ECCH,U,12),ECV=$P(ECCH,U,10),ECDU=$P(ECCH,U,7) "RTN","ECXEC",26,0) S ECXUNIT=$G(^ECD(ECDU,0)),ECCS=+$P(ECXUNIT,U,4),ECDCM=$P(ECXUNIT,U,5) "RTN","ECXEC",27,0) S ECXDSSP="",ECXDSSD=$E(ECDCM,1,10),ECUSTOP=$P(ECXUNIT,U,10),ECUPCE=$P(ECXUNIT,U,14) "RTN","ECXEC",28,0) S ICD9=$P($G(^ECH(ECDA,"P")),U,2) S:ICD9="" ICD9=" " "RTN","ECXEC",29,0) S ECXICD9=$P($G(^ICD9(ICD9,0)),U),ECXICD10P="" "RTN","ECXEC",30,0) F I=1:1:4 S @("ECXICD9"_I)="" "RTN","ECXEC",31,0) F I=1:1:4 S @("ECXICD10"_I)="" "RTN","ECXEC",32,0) S (CNT,I)=0 "RTN","ECXEC",33,0) F S CNT=$O(^ECH(ECDA,"DX",CNT)) Q:'CNT D Q:I>3 "RTN","ECXEC",34,0) .S ICD9=$P($G(^ECH(ECDA,"DX",CNT,0)),U) D:ICD9'="" "RTN","ECXEC",35,0) ..S I=I+1,@("ECXICD9"_I)=$P($G(^ICD9(ICD9,0)),U) "RTN","ECXEC",36,0) ;derivation of dss identifier depends on whether dss unit is "RTN","ECXEC",37,0) ;set to send data to pce "RTN","ECXEC",38,0) S ECAC=$P($G(ECCH),U,19) "RTN","ECXEC",39,0) ;if this is a record that 'goes to pce', then get the dss identifier "RTN","ECXEC",40,0) ;from the clinic stop codes "RTN","ECXEC",41,0) S (ECAC1S,ECAC2S)="000" "RTN","ECXEC",42,0) I ECUPCE="A"!(ECUPCE="O"&(ECXA="O")) D "RTN","ECXEC",43,0) .D:+ECAC "RTN","ECXEC",44,0) ..S ECAC1=$P($G(^SC(+ECAC,0)),U,7),ECAC2=$P($G(^(0)),U,18) "RTN","ECXEC",45,0) ..I 'ECAC2 S ECAC2S="000" "RTN","ECXEC",46,0) ..I 'ECAC1 S (ECAC1S,ECAC2S)="000" Q "RTN","ECXEC",47,0) ..S ECAC1S=$P($G(^DIC(40.7,+ECAC1,0)),U,2) "RTN","ECXEC",48,0) ..S ECAC2S=$P($G(^DIC(40.7,+ECAC2,0)),U,2) "RTN","ECXEC",49,0) ..S ECAC1S=$$RJ^XLFSTR(ECAC1S,3,0),ECAC2S=$$RJ^XLFSTR(ECAC2S,3,0) "RTN","ECXEC",50,0) .S:'ECAC (ECAC1S,ECAC2S)="000" "RTN","ECXEC",51,0) ;if this record doesn't go to pce, then get the dss identifier "RTN","ECXEC",52,0) ;from the dss unit "RTN","ECXEC",53,0) I ECUPCE=""!(ECUPCE="N")!(ECUPCE="O"&(ECXA="I")) D "RTN","ECXEC",54,0) .I +ECUSTOP D "RTN","ECXEC",55,0) ..S ECAC1S=$P($G(^DIC(40.7,+ECUSTOP,0)),U,2) "RTN","ECXEC",56,0) ..S ECAC1S=$$RJ^XLFSTR(ECAC1S,3,0),ECAC2S="000" "RTN","ECXEC",57,0) .I 'ECUSTOP D "RTN","ECXEC",58,0) ..S (ECAC1S,ECAC2S)="000" "RTN","ECXEC",59,0) S ECDSS=ECAC1S_ECAC2S "RTN","ECXEC",60,0) I ECXLOGIC>2003 I "^18^23^24^41^65^94^108^"[("^"_ECXTS_"^") S ECDSS=$$TSMAP^ECXUTL4(ECXTS) "RTN","ECXEC",61,0) S ECXDIV="" "RTN","ECXEC",62,0) ; "RTN","ECXEC",63,0) ;- Ord Div, Contrct St/End Dates, Contrct Type placeholders for FY2002 "RTN","ECXEC",64,0) S (ECXODIV,ECXCSDT,ECXCEDT,ECXCTYP)="" "RTN","ECXEC",65,0) ;setup provider(s) as'2'_ien "RTN","ECXEC",66,0) S (ECU1A,ECU2A,ECU3A,ECU1NPI,ECU2NPI,ECU3NPI,ECXPPC1,ECXPPC2,ECXPPC3)="" "RTN","ECXEC",67,0) S (ECU1,ECU2,ECU3,ECU4,ECU5,ECU4A,ECU5A,ECU4NPI,ECU5NPI,ECXPPC4,ECXPPC5)="" "RTN","ECXEC",68,0) K ECXPRV S ECXPROV=$$GETPRV^ECPRVMUT(ECDA,.ECXPRV) I ECXPROV Q "RTN","ECXEC",69,0) F I=1:1:5 S Y=$O(ECXPRV("")) I Y'="" S @("ECU"_I)=+ECXPRV(Y) K ECXPRV(Y) "RTN","ECXEC",70,0) S:$L(ECU1) ECXPPC1=$$PRVCLASS^ECXUTL(ECU1,ECDT),ECU1A="2"_$P(ECU1,";") "RTN","ECXEC",71,0) S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECU1,ECDT) "RTN","ECXEC",72,0) S:+ECXUSRTN'>0 ECXUSRTN="" S ECU1NPI=$P(ECXUSRTN,U) "RTN","ECXEC",73,0) S:$L(ECU2) ECXPPC2=$$PRVCLASS^ECXUTL(ECU2,ECDT),ECU2A="2"_$P(ECU2,";") "RTN","ECXEC",74,0) S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECU2,ECDT) "RTN","ECXEC",75,0) S:+ECXUSRTN'>0 ECXUSRTN="" S ECU2NPI=$P(ECXUSRTN,U) "RTN","ECXEC",76,0) S:$L(ECU3) ECXPPC3=$$PRVCLASS^ECXUTL(ECU3,ECDT),ECU3A="2"_$P(ECU3,";") "RTN","ECXEC",77,0) S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECU3,ECDT) "RTN","ECXEC",78,0) S:+ECXUSRTN'>0 ECXUSRTN="" S ECU3NPI=$P(ECXUSRTN,U) "RTN","ECXEC",79,0) S:$L(ECU4) ECXPPC4=$$PRVCLASS^ECXUTL(ECU4,ECDT),ECU4A="2"_$P(ECU4,";") "RTN","ECXEC",80,0) S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECU4,ECDT) "RTN","ECXEC",81,0) S:+ECXUSRTN'>0 ECXUSRTN="" S ECU4NPI=$P(ECXUSRTN,U) "RTN","ECXEC",82,0) S:$L(ECU5) ECXPPC5=$$PRVCLASS^ECXUTL(ECU5,ECDT),ECU5A="2"_$P(ECU5,";") "RTN","ECXEC",83,0) S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECU5,ECDT) "RTN","ECXEC",84,0) S:+ECXUSRTN'>0 ECXUSRTN="" S ECU5NPI=$P(ECXUSRTN,U) "RTN","ECXEC",85,0) ;change for version 2 where ECP is a variable pointer and we want to "RTN","ECXEC",86,0) ;expand it category = category or null if stored as 0 "RTN","ECXEC",87,0) D:ECP[";" "RTN","ECXEC",88,0) .S ECP=$S(ECP["ICPT":$P(^ICPT(+ECP,0),U)_"01",ECP<90000:$P(^EC(725,+ECP,0),U,2)_"N",1:$P(^EC(725,+ECP,0),U,2)_"L"),ECC=$S(ECC:ECC,1:"") "RTN","ECXEC",89,0) ;pick up EC to PCE data from "P" in File 721 "RTN","ECXEC",90,0) S ECPCE=$G(^ECH(ECDA,"P")),ECPCE1=$P(ECPCE,U),ECPCE2=$P(ECPCE,U,2) "RTN","ECXEC",91,0) S ECPCE7=$S($P(ECPCE,U,7)=1:"Y",1:"N") "RTN","ECXEC",92,0) S ECXCMOD="" "RTN","ECXEC",93,0) I $D(^ECH(ECDA,"MOD")) D "RTN","ECXEC",94,0) .S MOD=0,M="" "RTN","ECXEC",95,0) .F S MOD=$O(^ECH(ECDA,"MOD",MOD)) Q:'MOD S M=$P(^(MOD,0),U) D "RTN","ECXEC",96,0) ..I M S ECXCMOD=ECXCMOD_M_";" "RTN","ECXEC",97,0) .K MOD,M "RTN","ECXEC",98,0) S:ECP?1.N ECP=$$CPT^ECXUTL3($E(ECP,1,5),"",ECV) "RTN","ECXEC",99,0) S ECXCPT=$$CPT^ECXUTL3(ECPCE1,ECXCMOD,ECV) "RTN","ECXEC",100,0) ; "RTN","ECXEC",101,0) ;- Observation Patient Indicator (YES/NO) "RTN","ECXEC",102,0) S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECDSS) "RTN","ECXEC",103,0) ; "RTN","ECXEC",104,0) ;- CNH status (YES/NO) "RTN","ECXEC",105,0) S ECXCNH=$$CNHSTAT^ECXUTL4(ECXDFN) "RTN","ECXEC",106,0) ; "RTN","ECXEC",107,0) ;- encounter classification "RTN","ECXEC",108,0) S (ECXAO,ECXECE,ECXHNC,ECXMIL,ECXIR,ECXSHAD)="",ECXVISIT=$P(ECCH,U,21) "RTN","ECXEC",109,0) I ECXVISIT'="" D "RTN","ECXEC",110,0) .D VISIT^ECXSCX1(ECXDFN,ECXVISIT,.ECXVIST,.ECXERR) I ECXERR K ECXERR Q "RTN","ECXEC",111,0) .S ECXAO=$G(ECXVIST("AO")),ECXECE=$G(ECXVIST("PGE")),ECXSHAD=$G(ECXVIST("SHAD")) "RTN","ECXEC",112,0) .S ECXHNC=$G(ECXVIST("HNC")),ECXMIL=$G(ECXVIST("MST")),ECXIR=$G(ECXVIST("IR")) "RTN","ECXEC",113,0) ; - Head and Neck Cancer Indicator "RTN","ECXEC",114,0) S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN) "RTN","ECXEC",115,0) ; - PROJ 112/SHAD Indicator "RTN","ECXEC",116,0) S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN) "RTN","ECXEC",117,0) ; ******* - PATCH 127, ADD PATCAT CODE "RTN","ECXEC",118,0) S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN) "RTN","ECXEC",119,0) ; "RTN","ECXEC",120,0) ; - Get national patient record flag Indicator if exist "RTN","ECXEC",121,0) D NPRF^ECXUTL5 "RTN","ECXEC",122,0) ; "RTN","ECXEC",123,0) ; - If no encounter number don't file record "RTN","ECXEC",124,0) S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECDT,ECXTS,ECXOBS,ECHEAD,ECDSS,ECCS) "RTN","ECXEC",125,0) D:ECXENC'="" FILE "RTN","ECXEC",126,0) Q "RTN","ECXEC",127,0) ; "RTN","ECXEC",128,0) FILE ;file record in #727.815 "RTN","ECXEC",129,0) ;node0 "RTN","ECXEC",130,0) ;ecode=inst ECL^dfn ECXDFN^ssn ECXSSN^name ECXPNM^i/o status ECXA^day^ "RTN","ECXEC",131,0) ;DSS unit ECDU^category ECC^procedure ECP^volume ECV^ "RTN","ECXEC",132,0) ;cost center ECCS^ordering sec ECO^section ECM^ "RTN","ECXEC",133,0) ;provider ECU1A^prov per cls ECXPPC1^prov 2 ECU2A^prov#2 per cls ECXPPC2 "RTN","ECXEC",134,0) ;^prov 3 ECU3A^prov#3 per cls ECXPPC3^^mov # ECXMN^treat spec ECXTS "RTN","ECXEC",135,0) ;^time ECTM^primary care team ECPTTM^primary care provider ECPTPR "RTN","ECXEC",136,0) ;^pce cpt code (ECXCPT)^primary icd-9 code ECXICD9^secondary icd-9 "RTN","ECXEC",137,0) ;ECXICD91^secondary icd-9 ECXICD92^secondary icd-9 ECXICD93^secondary "RTN","ECXEC",138,0) ;icd-9 ECXICD94^agent orange ECXAST^radiation exposure ECXRST^ "RTN","ECXEC",139,0) ;environmental contaminants ECXEST^service connected ECPTPR^sent to pce "RTN","ECXEC",140,0) ;ECPCE7^^dss identifier ECDSS^dss dept "RTN","ECXEC",141,0) ;node1 "RTN","ECXEC",142,0) ;mpi ECXMPI^dss dept ECXDSSD^PLACEHOLDER "RTN","ECXEC",143,0) ;placeholder^placeholder^placeholder^ "RTN","ECXEC",144,0) ;placeholder^pc prov person class ECCLAS^ "RTN","ECXEC",145,0) ;assoc pc prov ECASPR^assoc pc prov person class ECCLAS2^ "RTN","ECXEC",146,0) ;placeholder^ "RTN","ECXEC",147,0) ;divison ECXDIV^mst status ECXMST^dom ECXDOM^date of birth ECXDOB^ "RTN","ECXEC",148,0) ;enrollment category ECXCAT^ enrollment status ECXSTAT^enrollment "RTN","ECXEC",149,0) ;priority ECXPRIOR^period of service ECXPOS^purple heart indicator "RTN","ECXEC",150,0) ;ECXPHI^observ pat ind ECXOBS^encounter num ECXENC^ "RTN","ECXEC",151,0) ;ao loc ECXAOL^ord div ECXODIV^contr st dt ECXCSDT^ "RTN","ECXEC",152,0) ;contr end dt ECXCEDT^contr typ ECXCTYP^CNH stat ECXCNH^ "RTN","ECXEC",153,0) ;production division ECXPDIV^eligibility ECXELIG^ "RTN","ECXEC",154,0) ;head & neck cancer ind. ECXHNCI^ethnicity ECXETH^race1 ECXRAC1 "RTN","ECXEC",155,0) ;enrollment location ECXENRL^^enrollment priority "RTN","ECXEC",156,0) ;ECXPRIOR_enrollment subgroup ECXSBGRP^user enrollee ECXUESTA^patient "RTN","ECXEC",157,0) ;type ECXPTYPE^combat vet elig ECXCVE^combat vet elig end date "RTN","ECXEC",158,0) ;ECXCVEDT^enc cv eligible ECXCVENC^national patient record flag "RTN","ECXEC",159,0) ;ECXNPRFI^emerg response indic(FEMA) ECXERI^agent orange indic ECXAO^ "RTN","ECXEC",160,0) ;environ contam ECXECE^head/neck cancer ECXHNC^encntr mst ECXMIL "RTN","ECXEC",161,0) ;^radiation ECXIR^OEF/OIF ECXOEF^OEF/OIF return date ECXOEFDT "RTN","ECXEC",162,0) ;^associate pc provider npi ECASNPI^primary care provider npi ECPTNPI^ "RTN","ECXEC",163,0) ;provider npi ECU1NPI^provider #2 ECU2NPI^provider #3 ECU3NPI^ "RTN","ECXEC",164,0) ;shad status ECXSHADI^shad encounter ECXSHAD^patcat ECXPATCAT^ "RTN","ECXEC",165,0) ;prov #4 ECU4A^prov #4 pc ECXPPC4^prov #4 ECXU4NPI^prov #5 ECU5A^ "RTN","ECXEC",166,0) ;prov #5 pc ECXPPC5^prov #5 ECXU5NPI^ "RTN","ECXEC",167,0) ;primary ICD-10 code (currently null) ECXICD10P^Secondary ICD-10 Code #1 (currently null) ECXICD101^ "RTN","ECXEC",168,0) ;Secondary ICD-10 Code #2 (currently null) ECXICD102^Secondary ICD-10 Code #3 (currently null) ECXICD103^ "RTN","ECXEC",169,0) ;Secondary ICD-10 Code #4 (currently null) ECXICD104 "RTN","ECXEC",170,0) ; "RTN","ECXEC",171,0) ;convert specialty to PTF Code for transmission "RTN","ECXEC",172,0) N ECXDATA "RTN","ECXEC",173,0) S ECXDATA=$$TSDATA^DGACT(42.4,+ECXTS,.ECXDATA) "RTN","ECXEC",174,0) S ECXTS=$G(ECXDATA(7)) "RTN","ECXEC",175,0) ;done "RTN","ECXEC",176,0) N DA,DIK "RTN","ECXEC",177,0) S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1 "RTN","ECXEC",178,0) S ECODE=EC7_U_EC23_U_ECL_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U "RTN","ECXEC",179,0) S ECODE=ECODE_$$ECXDATE^ECXUTL(ECDT,ECXYM)_U_ECDU_U_ECC_U "RTN","ECXEC",180,0) S ECODE=ECODE_ECP_U_ECV_U_ECCS_U_ECO_U_ECM_U_ECU1A_U_ECXPPC1_U "RTN","ECXEC",181,0) S ECODE=ECODE_ECU2A_U_ECXPPC2_U_ECU3A_U_ECXPPC3_U_U_ECXMN_U "RTN","ECXEC",182,0) S ECODE=ECODE_ECXTS_U_ECTM_U "RTN","ECXEC",183,0) S ECODE=ECODE_ECPTTM_U_ECPTPR_U_ECXCPT_U_ECXICD9_U "RTN","ECXEC",184,0) S ECODE=ECODE_ECXICD91_U_ECXICD92_U_ECXICD93_U "RTN","ECXEC",185,0) S ECODE=ECODE_ECXICD94_U_ECXAST_U_ECXRST_U_ECXEST_U "RTN","ECXEC",186,0) S ECODE=ECODE_ECSC_U_ECPCE7_U_U_ECDSS_U_U "RTN","ECXEC",187,0) S ECODE1=ECXMPI_U_ECXDSSD_U_U_U_U_ECCLAS_U "RTN","ECXEC",188,0) S ECODE1=ECODE1_U_ECASPR_U_ECCLAS2_U_U_ECXDIV_U "RTN","ECXEC",189,0) S ECODE1=ECODE1_ECXMST_U_ECXDOM_U_ECXDOB_U_ECXCAT_U_ECXSTAT_U "RTN","ECXEC",190,0) S ECODE1=ECODE1_$S(ECXLOGIC<2005:ECXPRIOR,1:"")_U_ECXPOS_U_ECXPHI_U_ECXOBS_U_ECXENC_U_ECXAOL_U "RTN","ECXEC",191,0) S ECODE1=ECODE1_ECXODIV_U_ECXCSDT_U_ECXCEDT_U_ECXCTYP_U_ECXCNH_U_ECXPDIV_U "RTN","ECXEC",192,0) S ECODE1=ECODE1_ECXELIG_U_ECXHNCI_U_ECXETH_U_ECXRC1 "RTN","ECXEC",193,0) I ECXLOGIC>2003 S ECODE1=ECODE1_U_ECXENRL_U "RTN","ECXEC",194,0) I ECXLOGIC>2004 S ECODE1=ECODE1_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U "RTN","ECXEC",195,0) I ECXLOGIC>2004 S ECODE2=ECXCVEDT_U_ECXCVENC_U_ECXNPRFI "RTN","ECXEC",196,0) I ECXLOGIC>2006 S ECODE2=ECODE2_U_ECXERI_U_ECXAO_U_ECXECE_U_ECXHNC_U_ECXMIL_U_ECXIR_U "RTN","ECXEC",197,0) I ECXLOGIC>2007 S ECODE2=ECODE2_U_ECXOEF_U_ECXOEFDT_U_ECASNPI_U_ECPTNPI_U_ECU1NPI_U_ECU2NPI_U_ECU3NPI "RTN","ECXEC",198,0) ; PATCAT added "RTN","ECXEC",199,0) I ECXLOGIC>2010 S ECODE2=ECODE2_U_ECXSHADI_U_ECXSHAD_U_ECXPATCAT "RTN","ECXEC",200,0) I ECXLOGIC>2011 S ECODE2=ECODE2_U_ECU4A_U_ECXPPC4_U_ECU4NPI_U_ECU5A_U_ECXPPC5_U_ECU5NPI "RTN","ECXEC",201,0) I ECXLOGIC>2012 S ECODE2=ECODE2_U_ECXICD10P_U_ECXICD101_U_ECXICD102_U_ECXICD103_U_ECXICD104 "RTN","ECXEC",202,0) S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,^ECX(ECFILE,EC7,2)=$G(ECODE2),ECRN=ECRN+1 "RTN","ECXEC",203,0) S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA "RTN","ECXEC",204,0) I $D(ZTQUEUED),$$S^%ZTLOAD "RTN","ECXEC",205,0) Q "RTN","ECXEC",206,0) ; "RTN","ECXEC",207,0) SETUP ;Set required input for ECXTRAC "RTN","ECXEC",208,0) N OUT "RTN","ECXEC",209,0) S ECHEAD="ECS",OUT=0 "RTN","ECXEC",210,0) D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER) "RTN","ECXEC",211,0) Q:($G(ECXQQ)) "RTN","ECXEC",212,0) W @IOF,!,"Setting up for ",ECPACK," DSS Extract -",! "RTN","ECXEC",213,0) W !," Reminder: A maintenance option, ECS Extract Unusual Volume Report, may" "RTN","ECXEC",214,0) W !," assist in identifying problematic data. It should be run before the" "RTN","ECXEC",215,0) W !," Event Capture Extract is performed.",! "RTN","ECXEC",216,0) D PAUSE^ECXTRAC "RTN","ECXEC",217,0) I OUT S ECFILE="" "RTN","ECXEC",218,0) Q "RTN","ECXEC",219,0) ; "RTN","ECXEC",220,0) QUE ; entry point for the background requeuing handled by ECXTAUTO "RTN","ECXEC",221,0) N ECXQQ "RTN","ECXEC",222,0) S ECXQQ=1 D SETUP,QUE^ECXTAUTO,^ECXKILL Q "RTN","ECXFEKEY") 0^24^B52506007^B44303669 "RTN","ECXFEKEY",1,0) ECXFEKEY ;BIR/DMA,CML-Print Feeder Keys; [ 05/15/96 9:44 AM ] ;5/3/12 11:33 "RTN","ECXFEKEY",2,0) ;;3.0;DSS EXTRACTS;**10,11,8,40,84,92,123,132,136**;Dec 22, 1997;Build 28 "RTN","ECXFEKEY",3,0) EN ;entry point from option "RTN","ECXFEKEY",4,0) W !!,"Print list of Feeder Keys:",! "RTN","ECXFEKEY",5,0) W !,"Select : 1. CLI",!,?9,"2. ECS",!,?9,"3. LAB",!,?9,"4. NUT",!,?9,"5. PHA",!,?9,"6. RAD",!,?9,"7. SUR",!,?9,"8. PRO",! S DIR(0)="L^1:8" D ^DIR Q:$D(DIRUT) ;136 "RTN","ECXFEKEY",6,0) S ECY=Y "RTN","ECXFEKEY",7,0) I ECY["2" D "RTN","ECXFEKEY",8,0) .W !!,"The Feeder Key List for the Feeder System ECS can be printed by:",!?5,"(O)ld Feeder Key sort by Category-Procedure",!?5,"(N)ew Feeder Key sort by Procedure-CPT Code" "RTN","ECXFEKEY",9,0) .S DIR(0)="S^O:OLD;N:NEW",DIR("B")="NEW" D ^DIR K DIR Q:$D(DIRUT) S ECECS=Y "RTN","ECXFEKEY",10,0) S:ECY["3" ECLAB=$$SELLABKE^ECXFEKE1() ;**Prompt to select Lab Feeder key "RTN","ECXFEKEY",11,0) G:($G(ECLAB)=-1) QUIT ;**GOTO Exit point "RTN","ECXFEKEY",12,0) G:$D(DIRUT) QUIT "RTN","ECXFEKEY",13,0) K %ZIS,IOP S %ZIS="QM",%ZIS("B")="" D ^%ZIS "RTN","ECXFEKEY",14,0) I POP W !,"NO DEVICE SELECTED!!" G QUIT "RTN","ECXFEKEY",15,0) I $D(IO("Q")) K IO("Q") D G QUIT "RTN","ECXFEKEY",16,0) .S ZTRTN="START^ECXFEKEY",ZTDESC="Feeder Key List (DSS)" "RTN","ECXFEKEY",17,0) .S ZTSAVE("ECY")="",ZTSAVE("ECPHA")="",ZTSAVE("ECPHA2")="",ZTSAVE("ECECS")="",ZTSAVE("ECLAB")="" "RTN","ECXFEKEY",18,0) .D ^%ZTLOAD I $D(ZTSK) W !,"Queued Task #: "_ZTSK "RTN","ECXFEKEY",19,0) .D HOME^%ZIS K ZTSK "RTN","ECXFEKEY",20,0) ; "RTN","ECXFEKEY",21,0) START ;queued entry point "RTN","ECXFEKEY",22,0) I '$D(DT) S DT=$$HTFM^XLFDT(+$H) "RTN","ECXFEKEY",23,0) K ^TMP($J) "RTN","ECXFEKEY",24,0) F ECLIST=1:1 S EC=$P(ECY,",",ECLIST) Q:EC="" D:EC=1 CLI D:EC=2 ECS D:EC=3 LAB D:EC=4 NUT D:EC=5 PHA D:EC=6 RAD D:EC=7 SUR^ECXFEKE1 D:EC=8 PRO ;136 "RTN","ECXFEKEY",25,0) U IO D PRINT^ECXFEKE1 "RTN","ECXFEKEY",26,0) Q "RTN","ECXFEKEY",27,0) LAB S EC=0 "RTN","ECXFEKEY",28,0) ; "RTN","ECXFEKEY",29,0) ;** OLD Feeder Key format "RTN","ECXFEKEY",30,0) I $G(ECLAB)="O" DO "RTN","ECXFEKEY",31,0) .F S EC=$O(^LAB(60,EC)) Q:'EC I $D(^(EC,0)) S EC1=$P(^(0),U),^TMP($J,"LAB",EC,EC)=EC1 "RTN","ECXFEKEY",32,0) ; "RTN","ECXFEKEY",33,0) ;** NEW Feeder key format (LMIP Code) "RTN","ECXFEKEY",34,0) I $G(ECLAB)="N" DO "RTN","ECXFEKEY",35,0) .N EC2 "RTN","ECXFEKEY",36,0) .F S EC=$O(^LAM(EC)) Q:'EC DO "RTN","ECXFEKEY",37,0) ..I $D(^LAM(EC,0)) DO "RTN","ECXFEKEY",38,0) ...S EC1=$P(^LAM(EC,0),U,1),EC1=$P(EC1,"~",1) "RTN","ECXFEKEY",39,0) ...S EC2=$P(^LAM(EC,0),U,2) "RTN","ECXFEKEY",40,0) ...I EC2'[".9999",(EC2'[".8") S EC2=EC2\1 "RTN","ECXFEKEY",41,0) ...S ^TMP($J,"LAB",+EC2,+EC2)=EC1 "RTN","ECXFEKEY",42,0) Q "RTN","ECXFEKEY",43,0) ECS ;old ECS feeder key list for pre-FY97 data "RTN","ECXFEKEY",44,0) G:$G(ECECS)="N" ECS2 "RTN","ECXFEKEY",45,0) S EC=0 I $P($G(^EC(720.1,1,0)),U,2) D G ECQ "RTN","ECXFEKEY",46,0) .F S EC=$O(^ECJ(EC)) Q:'EC I $D(^(EC,0)) D "RTN","ECXFEKEY",47,0) ..S EC1=$P($P(^(0),U),"-",3,4),EC2=$P(EC1,"-"),EC2=$S(+EC2:EC2,1:"***"),EC4=$S($P($G(^EC(726,+EC2,0)),U)]"":$P(^(0),U),1:"***") "RTN","ECXFEKEY",48,0) ..S EC3=$P(EC1,"-",2) Q:'+EC3 S EC3=$S(EC3["ICPT":$P($$CPT^ICPTCOD(+EC3),U,2),+EC3<90000:$P($G(^EC(725,+EC3,0)),U,2)_"N",1:$P($G(^EC(725,+EC3,0)),U,2)_"L") "RTN","ECXFEKEY",49,0) ..S EC5=$P(EC1,"-",2),EC5=$S(EC5["ICPT":$E($P($$CPT^ICPTCOD(+EC5),U,3),1,25),EC5["EC":$E($P($G(^EC(725,+EC5,0)),U),1,25),1:"UNKNOWN") "RTN","ECXFEKEY",50,0) ..S ^TMP($J,"ECS",EC2_" - "_EC3,EC3)=EC4_" - "_EC5 "RTN","ECXFEKEY",51,0) F S EC=$O(^ECK(EC)) Q:'EC I $D(^(EC,0)) S EC1=$P($P(^(0),U),"-",3,4),EC2=$E($P($G(^ECP(+EC1,0)),U),1,25),EC3=$E($P($G(^ECP(+$P(EC1,"-",2),0)),U),1,25),^TMP($J,"ECS",EC1,EC1)=EC2_" - "_EC3 "RTN","ECXFEKEY",52,0) ECQ K EC1,EC2,EC3,EC4,EC5,EC6,EC7,EC8,EC9,EC10 Q "RTN","ECXFEKEY",53,0) ECS2 ;new ECS feeder key list for FY97 data "RTN","ECXFEKEY",54,0) ;feeder key is if PCE CPT code is same or null; "RTN","ECXFEKEY",55,0) ;feeder is otherwise; "RTN","ECXFEKEY",56,0) ;the description column of list shows procedure (EC5) in lowercase and CPT code (EC8) in uppercase; "RTN","ECXFEKEY",57,0) ;but if procedure (EC3) is itself a CPT Code, convert EC5 to uppercase "RTN","ECXFEKEY",58,0) ;concatenation of "A;" and "B;" are for proper sorting - CPT codes 1st, then other procedures "RTN","ECXFEKEY",59,0) S EC=0 I $P($G(^EC(720.1,1,0)),U,2) D G ECQ "RTN","ECXFEKEY",60,0) .F S EC=$O(^ECJ(EC)) Q:'EC I $D(^ECJ(EC,0)) D "RTN","ECXFEKEY",61,0) ..S EC1=$P($P(^ECJ(EC,0),U),"-",3,4) "RTN","ECXFEKEY",62,0) ..S EC3=$P(EC1,"-",2) Q:'+EC3 S EC3=$S(EC3["ICPT":$P($$CPT^ICPTCOD(+EC3),U,2),+EC3<90000:$P($G(^EC(725,+EC3,0)),U,2)_"N",1:$P($G(^EC(725,+EC3,0)),U,2)_"L") "RTN","ECXFEKEY",63,0) ..S EC5=$P(EC1,"-",2),EC5=$S(EC5["ICPT":$E($P($$CPT^ICPTCOD(+EC5),U,3),1,25),EC5["EC":$E($P($G(^EC(725,+EC5,0)),U),1,25),1:"UNKNOWN") "RTN","ECXFEKEY",64,0) ..S EC5=$$LOW(EC5) "RTN","ECXFEKEY",65,0) ..I EC1["ICPT" S EC5=$$UPP(EC5),EC3="A;"_EC3 "RTN","ECXFEKEY",66,0) ..S EC6=$P(EC1,"-",2),EC7="",EC8="" "RTN","ECXFEKEY",67,0) ..I EC6["EC(725," D "RTN","ECXFEKEY",68,0) ...S EC6=$S(+EC6>0:$P($G(^EC(725,+EC6,0)),U,5),1:"") S EC7=$S(+EC6>0:$P($$CPT^ICPTCOD(+EC6),U,2),1:"") "RTN","ECXFEKEY",69,0) ...S EC8=$S(+EC6>0:$E($P($$CPT^ICPTCOD(+EC6),U,3),1,25),1:"") "RTN","ECXFEKEY",70,0) ...S EC8=$$UPP(EC8),EC3="B;"_EC3 "RTN","ECXFEKEY",71,0) ..S EC9=$S(EC7'="":EC3_"-"_EC7,1:EC3),EC10=$S(EC8'="":EC5_" - "_EC8,1:EC5) "RTN","ECXFEKEY",72,0) ..S ^TMP($J,"ECS",EC9,EC3)=EC10 "RTN","ECXFEKEY",73,0) G ECQ "RTN","ECXFEKEY",74,0) LOW(X) ;convert string to lowercase "RTN","ECXFEKEY",75,0) F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999) "RTN","ECXFEKEY",76,0) Q X "RTN","ECXFEKEY",77,0) UPP(X) ;convert string to uppercase "RTN","ECXFEKEY",78,0) F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999) "RTN","ECXFEKEY",79,0) Q X "RTN","ECXFEKEY",80,0) ; "RTN","ECXFEKEY",81,0) PHA ;NEW PHA Feeder Key List sorted by NDF Match "RTN","ECXFEKEY",82,0) N ECPPDU,ECXPHA,ARRAY "RTN","ECXFEKEY",83,0) S ARRAY="^TMP($J,""ECXLIST"")" "RTN","ECXFEKEY",84,0) K @ARRAY "RTN","ECXFEKEY",85,0) ;Call pharmacy drug file (#50) api dbia 4483 and create ^TMP global "RTN","ECXFEKEY",86,0) D DATA^PSS50(,"??",DT,,,"ECXLIST") "RTN","ECXFEKEY",87,0) S ECXYM=$$ECXYM^ECXUTL(DT) "RTN","ECXFEKEY",88,0) ;$order thru "B" cross reference "RTN","ECXFEKEY",89,0) S ECD="" F S ECD=$O(@ARRAY@("B",ECD)) Q:ECD="" D "RTN","ECXFEKEY",90,0) .S EC=0 F S EC=$O(@ARRAY@("B",ECD,EC)) Q:EC'>0 D "RTN","ECXFEKEY",91,0) ..S ECD=$P(@ARRAY@(EC,.01),U),ECNDC=@ARRAY@(EC,31),ECNFC=$$RJ^XLFSTR($P(ECNDC,"-"),6,0)_$$RJ^XLFSTR($P(ECNDC,"-",2),4,0)_$$RJ^XLFSTR($P(ECNDC,"-",3),2,0),ECNFC=$TR(ECNFC,"*",0) "RTN","ECXFEKEY",92,0) ..S P1=$P(@ARRAY@(EC,20),U),P3=$P(@ARRAY@(EC,22),U) "RTN","ECXFEKEY",93,0) ..;get the 17 character key "RTN","ECXFEKEY",94,0) ..S ECNFC=$$DSS^PSNAPIS(P1,P3,ECXYM)_ECNFC "RTN","ECXFEKEY",95,0) ..Q:+ECNFC=0 "RTN","ECXFEKEY",96,0) ..S ECNFC="A"_ECNFC "RTN","ECXFEKEY",97,0) ..S ECPPDU=@ARRAY@(EC,16),ECPPDU=$FNUMBER(ECPPDU,"P",4) "RTN","ECXFEKEY",98,0) ..S ^TMP($J,"PHA",ECNFC,0)=ECD_U_ECPPDU "RTN","ECXFEKEY",99,0) K @ARRAY "RTN","ECXFEKEY",100,0) Q "RTN","ECXFEKEY",101,0) CLI S SC=0 F S SC=$O(^SC(SC)) Q:'SC I $D(^(SC,0)) S EC=^(0),ECD=$P(EC,U) I $P(EC,U,3)="C" D S ^TMP($J,"CLI","A;"_P1_P2_ECLEN_P3_"0",SC)=ECD "RTN","ECXFEKEY",102,0) .S ECSC=$P($G(^DIC(40.7,+$P(EC,U,7),0)),U,2),ECCSC=$P($G(^DIC(40.7,+$P(EC,U,18),0)),U,2) "RTN","ECXFEKEY",103,0) .S ECLEN="NNN" I $D(^SC(SC,"SL")),$P(^("SL"),U,2)'="V" S ECLEN=$S($P(^("SL"),U):$P(^("SL"),U),1:"NNN"),ECLEN=$E("000"_ECLEN,$L(ECLEN)+1,$L(ECLEN)+3) "RTN","ECXFEKEY",104,0) .S (P1,P2)="000",P3="0000" I '$D(^ECX(728.44,SC,0)),ECCSC]"" S ECST=5,P1=$E("000"_ECSC,$L(ECSC)+1,$L(ECSC)+3),P2=$E("000"_ECCSC,$L(ECCSC)+1,$L(ECCSC)+3) Q "RTN","ECXFEKEY",105,0) .I '$D(^ECX(728.44,SC,0)) S ECST=1,P1=$E("000"_ECSC,$L(ECSC)+1,$L(ECSC)+3) Q "RTN","ECXFEKEY",106,0) .S EC=^ECX(728.44,SC,0),ECST=$P(EC,U,6) "RTN","ECXFEKEY",107,0) .I ECST=6 Q "RTN","ECXFEKEY",108,0) .;action code 6 means ignore "RTN","ECXFEKEY",109,0) .I $P(EC,U,4)]"" S ECSC=$P(EC,U,4) "RTN","ECXFEKEY",110,0) .I $P(EC,U,5)]"" S ECCSC=$P(EC,U,5) "RTN","ECXFEKEY",111,0) .I ECST="" S ECST=4,P1=$E("000"_ECSC,$L(ECSC)+1,$L(ECSC)+3),P3=$E("0000"_SC,$L(SC)+1,$L(SC)+4) S:ECCSC P2=$E("000"_ECCSC,$L(ECCSC)+1,$L(ECCSC)+3) Q "RTN","ECXFEKEY",112,0) .I ECST<2 S P1=ECSC,P1=$E("000"_P1,$L(P1)+1,$L(P1)+3) Q "RTN","ECXFEKEY",113,0) .I ECST=2 S P1=ECCSC,P1=$E("000"_P1,$L(P1)+1,$L(P1)+3) Q "RTN","ECXFEKEY",114,0) .I ECST=3 S P1=ECSC,P11=ECCSC,P1=$E("000"_P1,$L(P1)+1,$L(P1)+3),P11=$E("000"_P11,$L(P11)+1,$L(P11)+3) Q "RTN","ECXFEKEY",115,0) .I ECST>3,ECST<7 S P1=ECSC,P2=ECCSC,P1=$E("000"_P1,$L(P1)+1,$L(P1)+3),P2=$E("000"_P2,$L(P2)+1,$L(P2)+3) S:ECST=4 P3=$P($G(^ECX(728.441,+$P(^ECX(728.44,SC,0),U,8),0)),U) I P3="" S P3=$E("0000"_SC,$L(SC)+1,$L(SC)+4) "RTN","ECXFEKEY",116,0) K ECLEN Q "RTN","ECXFEKEY",117,0) RAD S EC=0 F S EC=$O(^RAMIS(71,EC)) Q:'EC I $D(^(EC,0)) S EC1=^(0),ECD=$P(EC1,U),EC2=$P($G(^ICPT(+$P(EC1,U,9),0)),U) S:EC2="" EC2="Unknown" S ^TMP($J,"RAD",EC2,EC)=ECD "RTN","ECXFEKEY",118,0) S ^TMP($J,"RAD",88888,88888)="Portable procedure",^TMP($J,"RAD",99999,99999)="OR procedure" "RTN","ECXFEKEY",119,0) Q "RTN","ECXFEKEY",120,0) NUT ;Feeder keys for Nutrition and Food Service extract "RTN","ECXFEKEY",121,0) N TYP,TIEN,DIET,IN,PRODUCT,KEY,NUMBER,IENS "RTN","ECXFEKEY",122,0) S TYP="" F S TYP=$O(^ECX(728.45,"B",TYP)) Q:TYP="" S TIEN=0 F S TIEN=$O(^ECX(728.45,"B",TYP,TIEN)) Q:'TIEN S DIET="" F S DIET=$O(^ECX(728.45,TIEN,1,"B",DIET)) Q:DIET="" S IN=0 F S IN=$O(^ECX(728.45,TIEN,1,"B",DIET,IN)) Q:IN'>0 D "RTN","ECXFEKEY",123,0) . S IENS=""_IN_","_TIEN_","_"" "RTN","ECXFEKEY",124,0) . S KEY=$$GET1^DIQ(728.451,IENS,1,"E") "RTN","ECXFEKEY",125,0) . S ^TMP($J,"ECX",KEY,DIET)=TYP_" "_$$GET1^DIQ(728.451,IENS,.01,"E") "RTN","ECXFEKEY",126,0) Q "RTN","ECXFEKEY",127,0) PRO ;Prosthetics Feeder Key section, API added in patch 136 "RTN","ECXFEKEY",128,0) N H,HCPCS,CODE,CPTNM,DESC,TYPE,SOURCE,LOC,FKEY,KEY "RTN","ECXFEKEY",129,0) S H=0 "RTN","ECXFEKEY",130,0) F S H=$O(^ECX(727.826,H)) Q:+H<1 D "RTN","ECXFEKEY",131,0) .S HCPCS=$P($G(^ECX(727.826,H,0)),U,33),KEY=$E($P($G(^ECX(727.826,H,0)),U,11),6,20) "RTN","ECXFEKEY",132,0) .I HCPCS'="" I '$D(FKEY(HCPCS_KEY)) S FKEY(HCPCS_KEY)=HCPCS "RTN","ECXFEKEY",133,0) S HCPCS="" F S HCPCS=$O(FKEY(HCPCS)) Q:HCPCS="" D "RTN","ECXFEKEY",134,0) .S CODE=$$CPT^ICPTCOD(FKEY(HCPCS)) Q:+CODE=-1 "RTN","ECXFEKEY",135,0) .S CPTNM=HCPCS,DESC=$P(CODE,U,3) "RTN","ECXFEKEY",136,0) .I $P(CODE,U,2)=""!(DESC="") Q "RTN","ECXFEKEY",137,0) .S TYPE=$E(HCPCS,6),SOURCE=$E(HCPCS,7),LOC=$S(HCPCS["REQ":"REQ",HCPCS["REC":"REC",1:"") "RTN","ECXFEKEY",138,0) .S DESC=DESC_$S(TYPE="R":"/Rent",TYPE="N":"/New",TYPE="X":"/Repair",1:"")_$S(SOURCE="V":"/VA",SOURCE="C":"/COM",1:"")_$S(LOC="REQ":"/XXX Site REQ",LOC="REC":"/XXX Site REC",1:"") "RTN","ECXFEKEY",139,0) .S ^TMP($J,"PRO",CPTNM,CPTNM)=DESC "RTN","ECXFEKEY",140,0) Q "RTN","ECXFEKEY",141,0) QUIT ; "RTN","ECXFEKEY",142,0) K ECY,ECPHA,ECECS,ECLAB,ECPPDU,DIR,DIRUT,DUOUT,X,Y "RTN","ECXFEKEY",143,0) Q "RTN","ECXFELOC") 0^23^B20722255^B16469856 "RTN","ECXFELOC",1,0) ECXFELOC ;BIR/DMA,CML-Print Feeder Locations; [ 05/07/96 8:41 AM ] ;5/10/12 10:52 "RTN","ECXFELOC",2,0) ;;3.0;DSS EXTRACTS;**1,8,105,132,136**;Dec 22, 1997;Build 28 "RTN","ECXFELOC",3,0) EN ;entry point from option "RTN","ECXFELOC",4,0) W !!,"Print list of feeder locations.",! S QFLG=1 "RTN","ECXFELOC",5,0) K %ZIS S %ZIS="Q" D ^%ZIS Q:POP "RTN","ECXFELOC",6,0) I $D(IO("Q")) S ZTDESC="Feeder Location List (DSS)",ZTRTN="START^ECXFELOC" D ^%ZTLOAD D ^%ZISC G OUT "RTN","ECXFELOC",7,0) U IO "RTN","ECXFELOC",8,0) START ;queued entry point "RTN","ECXFELOC",9,0) I '$D(DT) S DT=$$HTFM^XLFDT(+$H) "RTN","ECXFELOC",10,0) K ^TMP($J) S (QFLG,PG)=0,$P(LN,"-",81)="" "RTN","ECXFELOC",11,0) LAB S EC=0 F S EC=$O(^LRO(68,EC)) Q:'EC I $D(^(EC,0)) S EC1=^(0),^TMP($J,"LAB",$P(EC1,U,11),EC)=$P(EC1,U) "RTN","ECXFELOC",12,0) ECS S EC=0 I $P($G(^EC(720.1,1,0)),U,2) D G IV "RTN","ECXFELOC",13,0) .F S EC=$O(^ECJ(EC)) Q:'EC I $D(^(EC,0)) S EC1=$P(^(0),"-",1,2),EC2=$P($G(^ECD(+$P(EC1,"-",2),0)),U),^TMP($J,"ECS",EC1,EC1)=EC2 "RTN","ECXFELOC",14,0) F S EC=$O(^ECK(EC)) Q:'EC I $D(^(EC,0)) S EC1=$P(^(0),"-",1,2),EC2=$P($G(^ECD(+$P(EC1,"-",2),0)),U),^TMP($J,"ECS",EC1,EC1)=EC2 "RTN","ECXFELOC",15,0) IV S EC=0 F S EC=$O(^DG(40.8,EC)) Q:'EC I $D(^DG(40.8,EC,0)) S EC1=$E($P(^(0),U),1,30),^TMP($J,"IVP","IVP"_EC,EC)="IV Pharmacy-"_EC1 "RTN","ECXFELOC",16,0) CLI S EC=0 F S EC=$O(^SC(EC)) Q:'EC I $D(^(EC,0)) S EC1=^(0),ECS=$P(EC1,U,15),ECSC=$P($G(^DIC(40.7,+$P(EC1,U,7),0)),U,2),ECD=$P(EC1,U) S:'ECS ECS=1 D "RTN","ECXFELOC",17,0) .I $P(EC1,U,17)'="Y",$P(EC1,U,3)="C" S DAT=$G(^SC(EC,"I")),ID=+DAT,RD=$P(DAT,U,2) I 'ID!(ID>DT)!(RD&(RD0 G V6 "RTN","ECXFELOC",19,0) ;dbia (#4689) "RTN","ECXFELOC",20,0) S EC=0 F S EC=$O(^DIC(59,EC)) Q:'EC I $D(^(EC,0)) S EC1=$E($P(^(0),U),1,30),^TMP($J,"PRE","PRE"_EC,EC)="Prescriptions-"_EC1 "RTN","ECXFELOC",21,0) G RAD "RTN","ECXFELOC",22,0) V6 S EC=0 F S EC=$O(@ARRAY@(EC)) Q:'EC I $D(^(EC)) S EC1=$E(@ARRAY@(EC,.01),1,30),^TMP($J,"PRE","PRE"_EC,EC)="Prescriptions-"_EC1 "RTN","ECXFELOC",23,0) K @ARRAY "RTN","ECXFELOC",24,0) RAD S EC=0 F S EC=$O(^RA(79,EC)),EC1=0 Q:'EC I $D(^(EC,0)) S ECD=$P(^(0),U) F S EC1=$O(^RA(79.2,EC1)) Q:'EC1 I $D(^(EC1,0)) S ECD1=$P(^(0),U),^TMP($J,"RAD",EC_"-"_EC1,EC_"-"_EC1)=ECD_"-"_ECD1 "RTN","ECXFELOC",25,0) NUR ;S EC=0 F S EC=$O(^NURSF(211.4,EC)) Q:'EC I $D(^(EC,0)) S EC1=$P(^(0),U),EC1=$P($G(^SC(+EC1,0)),U),^TMP($J,"NUR",EC,EC)=EC1 ;132 "RTN","ECXFELOC",26,0) SUR F EC=1:1:14 S EC2=$P($T(@EC),";",3) F EC1="I","A","D","M","P","C","S" S EC3=$P($T(@EC1),";",3),^TMP($J,"SUR",$P(EC2,U)_EC1,EC)=$P(EC2,U,2)_"-"_EC3 "RTN","ECXFELOC",27,0) 1 ;;ORGE^GENERAL PURPOSE OPERATING ROOM "RTN","ECXFELOC",28,0) 2 ;;OROR^ORTHOPEDIC OPERATING ROOM "RTN","ECXFELOC",29,0) 3 ;;ORCA^CARDIAC OPERATING ROOM "RTN","ECXFELOC",30,0) 4 ;;ORNE^NEUROSURGERY OPERATING ROOM "RTN","ECXFELOC",31,0) 5 ;;ORCN^CARDIAC/NEURO OPERATING ROOM "RTN","ECXFELOC",32,0) 6 ;;ORAM^AMBULATORY OPERATING ROOM "RTN","ECXFELOC",33,0) 7 ;;ORIN^INTENSIVE CARE UNIT "RTN","ECXFELOC",34,0) 8 ;;OREN^ENDOSCOPY ROOM "RTN","ECXFELOC",35,0) 9 ;;ORCY^CYSTOSCOPY ROOM "RTN","ECXFELOC",36,0) 10 ;;ORWA^WARD "RTN","ECXFELOC",37,0) 11 ;;ORCL^CLINIC "RTN","ECXFELOC",38,0) 12 ;;ORDE^DEDICATED ROOM "RTN","ECXFELOC",39,0) 13 ;;OROT^OTHER LOCATION "RTN","ECXFELOC",40,0) 14 ;;ORNO^UNKNOWN "RTN","ECXFELOC",41,0) I ;;IMPLANTS "RTN","ECXFELOC",42,0) A ;;ANESTHESIA TIME "RTN","ECXFELOC",43,0) D ;;SURGERY TIME (DENTAL) "RTN","ECXFELOC",44,0) M ;;SURGERY TIME (MEDICINE) "RTN","ECXFELOC",45,0) P ;;SURGERY TIME (PSYCH) "RTN","ECXFELOC",46,0) C ;;SURGERY TIME (SPINAL CORD) "RTN","ECXFELOC",47,0) S ;;SURGERY TIME (SURGERY) "RTN","ECXFELOC",48,0) UDP S EC=0 F S EC=$O(^DG(40.8,EC)) Q:'EC I $D(^DG(40.8,EC,0)) S EC1=$E($P(^(0),U),1,30),^TMP($J,"UDP","UDP"_EC,EC)="Unit Dose Medications-"_EC1 "RTN","ECXFELOC",49,0) DEN ;S EC=0 F S EC=$O(^DENT(225,EC)) Q:'EC I $D(^(EC,0)) S EC1=$P(^(0),U),^TMP($J,"DEN",EC1,EC)="Dental "_EC1 "RTN","ECXFELOC",50,0) PRO ;Prosthetics Location Information. API added in patch 136 "RTN","ECXFELOC",51,0) N IEN,LOC,DIV,X,ORDER "RTN","ECXFELOC",52,0) S IEN=0 F S IEN=$O(^ECX(727.826,IEN)) Q:'+IEN S LOC=$P($G(^ECX(727.826,IEN,0)),U,10) I LOC'="" S:'$D(LOC(LOC)) LOC(LOC)="" "RTN","ECXFELOC",53,0) S LOC="" F S LOC=$O(LOC(LOC)) Q:LOC="" D "RTN","ECXFELOC",54,0) .S DIV=$P(LOC,$S(LOC["NONL":"NONL",LOC["ORD":"ORD",LOC["HO2":"HO2",LOC["LAB":"LAB",1:""),1) I DIV="" S DIV=+LOC "RTN","ECXFELOC",55,0) .S DIC=4,DIC(0)="MXQ",X=DIV D ^DIC Q:Y=-1 "RTN","ECXFELOC",56,0) .S ORDER=$P(LOC,DIV,2) "RTN","ECXFELOC",57,0) .S ^TMP($J,"PRO",LOC,LOC)=$P(Y,U,2)_" "_$S(ORDER="HO2":"Home Oxygen",ORDER="NONL":"Non Lab Location",ORDER="LAB":"Prosthetics Lab",ORDER="ORD":"Ordering Location",1:"") "RTN","ECXFELOC",58,0) ; "RTN","ECXFELOC",59,0) PRINT ; "RTN","ECXFELOC",60,0) S EC="" F S EC=$O(^TMP($J,EC)),EC1="" Q:EC="" Q:QFLG D HEAD Q:QFLG F S EC1=$O(^TMP($J,EC,EC1)),EC2="" Q:EC1="" Q:QFLG F S EC2=$O(^TMP($J,EC,EC1,EC2)) Q:EC2="" Q:QFLG D "RTN","ECXFELOC",61,0) .W !,?5,EC1,?23,^(EC2) I $Y+3>IOSL D HEAD Q:QFLG "RTN","ECXFELOC",62,0) OUT I $E(IOST)="C"&('QFLG) S DIR(0)="E" D D ^DIR K DIR "RTN","ECXFELOC",63,0) .S SS=22-$Y F JJ=1:1:SS W ! "RTN","ECXFELOC",64,0) K ^TMP($J),DAT,EC,EC1,EC2,EC3,ECD,ECD1,ECS,ECSC,ID,JJ,LN,PG,POP,QFLG,RD,SS,X,Y "RTN","ECXFELOC",65,0) W:$E(IOST)'="C" @IOF D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@" Q "RTN","ECXFELOC",66,0) HEAD ; "RTN","ECXFELOC",67,0) I $E(IOST)="C" S SS=22-$Y F JJ=1:1:SS W ! "RTN","ECXFELOC",68,0) I $E(IOST)="C",PG>0 S DIR(0)="E" W ! D ^DIR K DIR I 'Y S QFLG=1 Q "RTN","ECXFELOC",69,0) S PG=PG+1 W:$Y!($E(IOST)="C") @IOF W !,?15,"Feeder Location List For Feeder System ",EC,?72,"Page: ",PG,!!,?5,"FEEDER LOCATION",?23,"DESCRIPTION",!,LN "RTN","ECXFELOC",70,0) Q "RTN","ECXKILL") 0^3^B9492478^B9384165 "RTN","ECXKILL",1,0) ECXKILL ;BIR/DMA,PTD-Kill Local Variables ;11/23/10 13:49 "RTN","ECXKILL",2,0) ;;3.0;DSS EXTRACTS;**9,8,21,24,31,39,49,84,89,105,112,127,132,136**;Dec 22, 1997;Build 28 "RTN","ECXKILL",3,0) ; "RTN","ECXKILL",4,0) K %,%DT,%Y,%ZIS,A,A1,A2,ABR,B,BY,D,D0,D1,DA,DAT,DATA,DATA1,DATA2,DATA6 "RTN","ECXKILL",5,0) K DATAOP,DD,DFN,DHDH,DIC,DIE,DIK,DINUM,DIQ "RTN","ECXKILL",6,0) K ECDAPRNP,ECDPRNPI,ECISNPI,ECDOCNPI "RTN","ECXKILL",7,0) K ECU1NPI,ECU2NPI,ECU3NPI,ECU4NPI,ECU5NPI,ECU4A,ECU5A,ECXPPC4,ECXPPC5 "RTN","ECXKILL",8,0) K DIR,DIRUT,DO,DR,DTOUT,DUOUT,EC,EC0,EC1,EC10,EC11,EC16,EC2,EC23,EC2NODE "RTN","ECXKILL",9,0) K EC3,EC42,EC50,EC6,EC7,ECA,ECAC,ECACA,ECAD,ECADM,ECALL "RTN","ECXKILL",10,0) K ECANE,ECAO,ECARG,ECAS,ECAT,ECATSV,ECB,ECC,ECCA,ECCAN,ECCAT,ECCH,ECCN "RTN","ECXKILL",11,0) K ECCNT,ECCS,ECCSC,ECD,ECD0,ECD1,ECDA,ECDAL,ECDAT,ECASA "RTN","ECXKILL",12,0) K ECDATA,ECDATA1,ECDATE,ECDEN,ECDEX,ECDF,ECDFN,ECDFN0,ECDI,ECDIA,ECDIF "RTN","ECXKILL",13,0) K ECDIV,ECDL,ECDN,ECDNEW,ECDO,ECDOC,ECDR,ECDRG,ECDS,ECDSSU,ECDT,ECDTTM "RTN","ECXKILL",14,0) K ECDU,ECEC0,ECED,ECED1,ECEDN,ECEDNEW,ECF,ECF1,ECFD,ECFDT,ECFILE,ECFK "RTN","ECXKILL",15,0) K ECFL,ECFR,ECGRP,ECH,ECHD,ECHEAD,ECI,ECID,ECIEN,ECIFN,ECIN,CCDORD "RTN","ECXKILL",16,0) K ECINST,ECINV,ECTI,ECIV,ECJ,ECK,ECL,ECL1,ECLAN,ECLAST,ECLDT,ECLINK,ECLIST "RTN","ECXKILL",17,0) K ECLL,ECLN,ECLNC,ECLOC,ECLRN,ECLX,ECLY,ECM,ECMAX,ECMIN,CCDGVN,CCUNIT "RTN","ECXKILL",18,0) K ECXMISS,ECMN,ECMOD,ECMODS,ECMORE,ECMS,ECMSG,ECMSN,ECMT,ECMW,ECMY,ECN "RTN","ECXKILL",19,0) K ECNA,ECNDC,ECNDF,ECNFC,ECNL,ECNO,ECNODE,ECNOGO,ECXADT,ECXATM,CCIEN "RTN","ECXKILL",20,0) K ECNT,ECO,ECO0,ECO1,ECO2,ECODE,ECODE0,ECODE1,ECODE2,ECODE3,ECONE,ECOPAY "RTN","ECXKILL",21,0) K ECOB,ECATTNPI,ECPWNPI,ECXUSNPI,ECPWNPI,ECXOEF,ECXOEFDT,ECPLACE,CCTYPE "RTN","ECXKILL",22,0) K ECOPAYT,ECORTY,ECOS,ECP,ECPACK,ECPCE,ECPCE1,ECPCE2,ECPCE3,ECPCE4,ECOLD "RTN","ECXKILL",23,0) K ECPCE5,ECPCE6,ECPCE7,ECPIECE,ECPN,ECPRC,ECPRO,ECODE2,ECXASTA,ECXAMED "RTN","ECXKILL",24,0) K ECPROF,ECPT,ECPTF,ECPTPR,ECPTTM,ECQ,ECQT,ECQTY,ECRD,ECRE,ECRED,ECREF "RTN","ECXKILL",25,0) K ECRFL,ECRN,ECROU,ECRR,ECRS,ECRSD,ECRTN,ECRX,ECS,ECSA,ECSC,ECXSCADT "RTN","ECXKILL",26,0) K ECSD,ECSD1,ECSDN,ECSN,ECSR,ECSS,ECST,ECSTOP,ECSU,ECT,ECT1,ECTD,ECTD1 "RTN","ECXKILL",27,0) K ECTEMP,ECTM,ECTNTL,ECTOTAL,ECTREAT,ECTRT,ECTS,ECTY,ECXLOGIC,ECXDATES,ECXEST,ECXECE "RTN","ECXKILL",28,0) K ECLRBILL,ECDSSFK,ECLRTNM,ECLRDTNM,ECXPROPC,ECPRONPI,ECCLAS,ECPTNPI,ECXORN,ECXORT,ECXTSTNM "RTN","ECXKILL",29,0) K ACTDT,DRG,DRUG,ECPROPC,ECVACL,ECVNDC,ECXENC,ECXENRL,ECXERI,ECXERR,ECXIVID,ECXNOD,ECXNPRFI,ECXOX,ECXOSC,ECXSCATM,ECXUSRTN,IDAT,OK,PIEN,PLACEHLD,SCADT "RTN","ECXKILL",30,0) D ^ECXKILL1 "RTN","ECXKILL",31,0) ; "RTN","ECXKILL",32,0) AUDIT ;kill audit report variables, close slave printer "RTN","ECXKILL",33,0) K %DT,ECX,ECXARRAY,ECXACC,ECXALL,ECXAUD,ECXCODE,ECXD,ECXDEF,ECXDESC,ECXDIV "RTN","ECXKILL",34,0) K ECXRCST,ECXRQST,ECXEND,ECXERR,ECXEXT,ECXHEAD,ECXLOC,ECXPGM,ECXPHCPC "RTN","ECXKILL",35,0) K ECXPRIME,ECXPRO,ECXREPT,ECXRUN,ECXSAVE,ECXSTART,ECXSRCE "RTN","ECXKILL",36,0) K ECXCTAMT,ECXFEKEY,ECXFELOC,ECXFORM,ECXGRPR,ECXHCPC,ECXPHCPC,ECXHCPCS "RTN","ECXKILL",37,0) K ECXPODX,ECXPODX1,ECXPODX2,ECXPODX3,ECXPODX4,ECXPODX5,ECPANPI "RTN","ECXKILL",38,0) K ECXLAB,ECXLLC,ECXLMC,ECXQTY,ECXREQ,ECXSTAT,ECXTYPE "RTN","ECXKILL",39,0) K IO("Q"),POP,DIR,DIC,DIE,DA,DR,DO,DIRUT,DUOUT,DTOUT "RTN","ECXKILL",40,0) K ^TMP($J) "RTN","ECXKILL",41,0) I IO=IO(0),IOST'="C" D ^%ZISC "RTN","ECXKILL",42,0) Q "RTN","ECXKILL1") 0^10^B13723476^B12209973 "RTN","ECXKILL1",1,0) ECXKILL1 ;ALB/ESD Kill Local DSS Variables (continued) ;7/25/11 11:03 "RTN","ECXKILL1",2,0) ;;3.0;DSS EXTRACTS;**39,46,89,120,127,132,136**;Dec 22, 1997;Build 28 "RTN","ECXKILL1",3,0) ; "RTN","ECXKILL1",4,0) K ECUD,ECUI,ECUN,ECUN1,ECUNIT,ECURG,ECUT,ECUT2,ECUT3,ECV,ECW,ECWC,ECWD "RTN","ECXKILL1",5,0) K ECX,ECXB,ECXLNCNT,ECXMDA,ECXMDT,ECXNOW,ECXQUEUE,ECXS,ECXSTART "RTN","ECXKILL1",6,0) K ECY,ECYM,ECZ,ECZNODE,ELIG,ENL,FAC,FLDS,FR,I,ID,IOP,J,K,L,LOC,LOS,LRDF "RTN","ECXKILL1",7,0) K OPC,P,P1,P11,P2,P3,POP,Q,RD,RESP,QFLG "RTN","ECXKILL1",8,0) K SC,SRDA,SRNM,STC,SU,TEN,TES,TIME,TO,TOT,VAERR,VAIP,W,X,X1,X2,XMDUZ "RTN","ECXKILL1",9,0) K XMER,XMFROM,XMREC,XMRG,XMSER,XMSUB,ECXLH,ECXLC,ECXMC "RTN","ECXKILL1",10,0) K XMTEXT,XMY,XMZ,XQMSG,XQSOP,XQSUB,XX,Y,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE "RTN","ECXKILL1",11,0) K ZTSK,ECSTA,ECCTY,STATE,COUNTY,ECVER,ECXADMS "RTN","ECXKILL1",12,0) K ECCPT,ECEKG,ECICD,ECPROV,ECREC,ECVAL,ECVIS,NCNTR,PTADT,STOP,ECIVRM "RTN","ECXKILL1",13,0) K ECOR,ECWK,ECWKLD,LREDT,LRSDT,FD,ECHL,ECARSC,ECX2TME "RTN","ECXKILL1",14,0) K ECDTST,ECLTST,ECODE2,ECORDT,ECORTM,ECRDDT,ECRDTM,ECRES,ECWCDA,ECXINST "RTN","ECXKILL1",15,0) K ECXATT,ECXATTL,ECXATTN,ECXLOS,ECXLOSA,ECXLOSP,ECXPRV,ECXPRVL,ECXPRVN "RTN","ECXKILL1",16,0) K ECXTRT,ECXTRTL,ECXTRTN,ECXSPC,ECXSPCL,ECXSPCN,ECCSC,ECXSC,ECXP1 "RTN","ECXKILL1",17,0) K ECXP2,ECXP3,ECXDSSI,ECXDSSD,ECXYM,ECXDIV,ECXDAY,ECXSSN,ECXDATE,ECXPNM "RTN","ECXKILL1",18,0) K ECXDFN,ECXA,ECPTNPI,ECCLAS,ECCLAS2,ECASPR,ECASNPI,ECSRNPI,ECATNPI "RTN","ECXKILL1",19,0) K ECSANPI,ECXCPT,ECXCMOD,ECXFAC,ECXMN,ECXTS,ECXENEL,ECXSAI,ECXPAYOR "RTN","ECXKILL1",20,0) K ECXAST,ECXEST,ECXRST,ECXMST,ECXMIL,ECXPST,ECXPLOC,ECXPOS,ECXSEX,ECXDOB "RTN","ECXKILL1",21,0) K ECXRELG,ECXEMP,ECXHI,ECXSTATE,ECXCNTY,ECXZIP,ECXMAR,ECXRACE,ECXVET "RTN","ECXKILL1",22,0) K ECXVNS,ECXELIG,ECXENRL,ECXPRNPI,ECXPRCLS,ECXWPRV,ECXW,ECXCNT,ECXCOST "RTN","ECXKILL1",23,0) K ECXADM,ECXPROV,ECXPROVP,ECXPROVN,ECXBILST,ECU1A,ECU2A,ECU3A,ECU1NPI "RTN","ECXKILL1",24,0) K ECU2NPI,ECU3NPI,ECDENNPI,ECXWRD,ECXWTO,ECXAO,ECXIR,ECXCLIN,ECXICD9 "RTN","ECXKILL1",25,0) K ECXIEN,ECXKEY,ECXMPI,ECXSTOP,ECXSVC,ECXOBS,ECXADMDT,ECXAOL,ECXCEDT "RTN","ECXKILL1",26,0) K ECXCIEN,ECXCNH,ECXCSDT,ECXCTYP,ECXENC,ECXOBS,ECXODIV,ECXSHAD "RTN","ECXKILL1",27,0) K ECXORDDT,ECXORDPH,ECXORDPR,ECXORDST,ECXDAPR,ECXDPCT,ECXDPR,ECXRPHY "RTN","ECXKILL1",28,0) K ECXPDIV,ECXATYP,ECXPVST,ECXSADM,ECXMTST,ECXQ,ECXHNCI,ECXETH,ECXRC1 "RTN","ECXKILL1",29,0) K ECXPHI,ECXCNHU,ECXCAT,ECXPRIOR,ECXOPNPI,ECXAOT,ECXCNTRY,ECXSHADI,ECXPATCAT "RTN","ECXKILL1",30,0) K ECU,ECU1,ECU2,ECU3,ECAC1,ECAC1S,ECAC2,ECAC2S,ECDSS,ECUPCE,ECUSTOP "RTN","ECXKILL1",31,0) K ECXCVE,ECXCVEDT,ECXCVENC,ECXDOM,ECXDSSP,ECXEUSTA,ECXINP,ECXIO,ICD9 "RTN","ECXKILL1",32,0) K ECXMEAN,ECXPPC1,ECXPPC2,ECXPPC3,ECXPTYPE,ECXREL,ECXSBGRP,ECXUESTA "RTN","ECXKILL1",33,0) K ECXPRV1,ECXPRV2,ECXPRV3,ECXPRV4,ECXPRV5,ECXPPC4,ECXPPC5,ECPR1NPI "RTN","ECXKILL1",34,0) K ECPR2NPI,ECPR3NPI,ECPR4NPI,ECPR5NPI,COUNT,ECTHLD,ECXOPT "RTN","ECXKILL1",35,0) K ECXICD91,ECXICD92,ECXICD93,ECXICD94,ECSP1,ECSP2,ECSP3,ECSP4,ECSP5,ECSPPC1,ECSPPC2,ECSPPC3,ECSPPC4,ECSPPC5,ECSPNPI1,ECSPNPI2,ECSPNPI3,ECSPNPI4,ECSPNPI5 "RTN","ECXKILL1",36,0) K ECXUNIT,ECXVIET,CNT,I,ECXCFLG,ECXBUK1,ECXBUK2,PROVS,PROVSPC,PROVSNPI "RTN","ECXKILL1",37,0) K ECU4,ECU5,ECU4A,ECU5A,ECXU4NPI,ECXU5NPI,COUNTS,ALEN,ECPRNPI,ECXCBOC,ECXHNC,ECXICD9P,ECXOBI,ECXPCPNP,ECXTI,ECXVISIT,ECXVIST "RTN","ECXKILL1",38,0) K ECXCPT,ECXCPT1,ECXCPT2,ECXCPT3,ECXCPT4,ECXCPT5,ECXCPT6,ECXCPT7,ECXCPT8,ECTOTC,ECTYP,ECPRVNPI,ECXNPPDC,ECXSTAT2,PT1 "RTN","ECXKILL1",39,0) K DIVISION,DONE,ECDAY,ECENEC,ECENMST,ECENRI,ECENSC,ECHL2,ECHL2S,ECHLS,ECTIME,ECXADD,ECXATNPI,ECXJ,ECXMNS,ECXMOD,ECXNPPDT,ECXOS,ECXPPC,ECXQV,ECXTM,ECXVST,ELGA,FHDFN,GTOT,LASTDAY,PRODAY,SDATE "RTN","ECXKILL1",40,0) K ECXICD101,ECXICD102,ECXICD103,ECXICD104,ECXICD10P,ECXOPPC,ECXNEW,ECXOPPC,ECXCL,ECXCLS,ECXCOMP,ECXBCDD,ECXBCDG,ECXBCIF,ECXBCUA,ECVOL "RTN","ECXKILL1",41,0) Q "RTN","ECXLARA") 0^15^B30949100^B29666776 "RTN","ECXLARA",1,0) ECXLARA ;ALB/JRC - LAR Extract Audit Report ; 9/24/08 3:35pm "RTN","ECXLARA",2,0) ;;3.0;DSS EXTRACTS;**105,112,120,136**;Dec 22, 1997;Build 28 "RTN","ECXLARA",3,0) Q "RTN","ECXLARA",4,0) EN ;entry point for NUT extract audit report "RTN","ECXLARA",5,0) N %X,%Y,X,Y,DIC,DA,DR,DIQ,DIR,DIRUT,DTOUT,DUOUT,SCRNARR,REPORT "RTN","ECXLARA",6,0) N SCRNARR,ECXERR,ECXHEAD,ECXAUD,ECXARRAY,STATUS,FLAG,ECXALL,TMP "RTN","ECXLARA",7,0) N ZTQUEUED,ZTSTOP "RTN","ECXLARA",8,0) S SCRNARR="^TMP(""ECX"",$J,""SCRNARR"")" "RTN","ECXLARA",9,0) K @SCRNARR@("DIVISION") "RTN","ECXLARA",10,0) S (ECXERR,FLAG)=0 "RTN","ECXLARA",11,0) ;ecxaud=0 for 'extract' audit "RTN","ECXLARA",12,0) S ECXHEAD="LAR",ECXAUD=0 "RTN","ECXLARA",13,0) W !!,"Setup for ",ECXHEAD," Extract Audit Report --",!! "RTN","ECXLARA",14,0) ;select extract "RTN","ECXLARA",15,0) D AUDIT^ECXUTLA(ECXHEAD,.ECXERR,.ECXARRAY,ECXAUD) "RTN","ECXLARA",16,0) Q:ECXERR "RTN","ECXLARA",17,0) W !! "RTN","ECXLARA",18,0) ;select divisions/sites; all divisions if ecxall=1 "RTN","ECXLARA",19,0) S ECXERR=$$NUT^ECXDVSN() "RTN","ECXLARA",20,0) I ECXERR=1 D Q "RTN","ECXLARA",21,0) .W !!,?5,"Try again later... exiting.",! "RTN","ECXLARA",22,0) .K @SCRNARR@("DIVISION") "RTN","ECXLARA",23,0) .D AUDIT^ECXKILL "RTN","ECXLARA",24,0) S X=ECXARRAY("START") D ^%DT S ECXSTART=Y S X=ECXARRAY("END") D ^%DT S ECXEND=Y "RTN","ECXLARA",25,0) W ! "RTN","ECXLARA",26,0) ;determine output device and queue if requested "RTN","ECXLARA",27,0) S ECXPGM="PROCESS^ECXLARA",ECXDESC="LAR Extract Audit Report" "RTN","ECXLARA",28,0) S ECXSAVE("ECXHEAD")="",ECXSAVE("ECXALL")="",ECXSAVE("STATUS")="",ECXSAVE("REPORT")="",ECXSAVE("FLAG")="",ECXSAVE("ECXDIV(")="",ECXSAVE("ECXARRAY(")="",ECXSAVE("SCRNARR")="",TMP=$$OREF^DILF(SCRNARR),ECXSAVE(TMP)="" "RTN","ECXLARA",29,0) W ! "RTN","ECXLARA",30,0) D DEVICE^ECXUTLA(ECXPGM,ECXDESC,.ECXSAVE) "RTN","ECXLARA",31,0) I ECXSAVE("POP")=1 D Q "RTN","ECXLARA",32,0) .W !!,?5,"Try again later... exiting.",! "RTN","ECXLARA",33,0) .K @SCRNARR@("DIVISION") "RTN","ECXLARA",34,0) .D AUDIT^ECXKILL "RTN","ECXLARA",35,0) I ECXSAVE("ZTSK")=0 D "RTN","ECXLARA",36,0) .K ECXSAVE,ECXPGM,ECXDESC "RTN","ECXLARA",37,0) .D PROCESS^ECXLARA "RTN","ECXLARA",38,0) I IO'=IO(0) D ^%ZISC "RTN","ECXLARA",39,0) D HOME^%ZIS "RTN","ECXLARA",40,0) D AUDIT^ECXKILL "RTN","ECXLARA",41,0) Q "RTN","ECXLARA",42,0) ; "RTN","ECXLARA",43,0) PROCESS ;process data in file #727.824 and store in ^tmp global "RTN","ECXLARA",44,0) N %,ARRAY,ECXEXT,ECXDEF,X,ECXSTART,ECXEND,ECXRUN,IEN,FLAG,NODE0,NODE1,DATE,DIV,TEST,I,MIN,MAX,RESULT "RTN","ECXLARA",45,0) S ARRAY="^TMP($J,""ECXORDER"")",FLAG=0 "RTN","ECXLARA",46,0) S ECXEXT=ECXARRAY("EXTRACT"),ECXDEF=ECXARRAY("DEF") "RTN","ECXLARA",47,0) S X=ECXARRAY("START") D ^%DT S ECXSTART=Y S X=ECXARRAY("END") D ^%DT S ECXEND=Y "RTN","ECXLARA",48,0) ;get run date in external format "RTN","ECXLARA",49,0) D NOW^%DTC S Y=$E(%,1,12) D DD^%DT S ECXRUN=Y "RTN","ECXLARA",50,0) ;get records in date range and set values "RTN","ECXLARA",51,0) S IEN=0 F S IEN=$O(^ECX(727.824,"AC",ECXEXT,IEN)) Q:IEN="" D Q:FLAG "RTN","ECXLARA",52,0) .S NODE0=$G(^ECX(727.824,IEN,0)),NODE1=$D(^(1)) "RTN","ECXLARA",53,0) .S DIV=$P(NODE0,U,4),DATE=$P(NODE0,U,9),TEST=$P(NODE0,U,10),RESULT=$P(NODE0,U,11) "RTN","ECXLARA",54,0) .;filter out divisions if not all selected "RTN","ECXLARA",55,0) .Q:$G(@SCRNARR@("DIVISION"))'=1&'$D(@SCRNARR@("DIVISION",+$G(DIV))) "RTN","ECXLARA",56,0) .;convert free text date to fm internal format date "RTN","ECXLARA",57,0) .S $E(DATE,1,2)=$E(DATE,1,2)-17 "RTN","ECXLARA",58,0) .;check for unknowns so that they won't be lost "RTN","ECXLARA",59,0) .F I="DIV","TEST","DATE" I @I="" S @I="UNKNOWN" "RTN","ECXLARA",60,0) .;increment div/test count, check min/max save in ^tmp global "RTN","ECXLARA",61,0) .S $P(^TMP($J,"ECXDSS",DIV,TEST),U)=$P($G(^TMP($J,"ECXDSS",DIV,TEST)),U)+1 "RTN","ECXLARA",62,0) .;S MIN=$P(^TMP($J,"ECXDSS",DIV,TEST),U,2) "RTN","ECXLARA",63,0) .;S MAX=$P(^TMP($J,"ECXDSS",DIV,TEST),U,3) "RTN","ECXLARA",64,0) .;S $P(^TMP($J,"ECXDSS",DIV,TEST),U,2)=$S(MIN']"":RESULT,RESULTMAX:RESULT,1:MAX) "RTN","ECXLARA",65,0) .;S $P(^TMP($J,"ECXDSS",DIV,TEST),U,2)=$S(RESULT["NEG":"NEG",+RESULT<+MIN:RESULT,1:""),$P(^(TEST),U,3)=$S(RESULT["POS":"POS",RESULT>MAX:RESULT,1:"") "RTN","ECXLARA",66,0) .;S $P(^TMP($J,"ECXDSS",DIV,TEST),U,2)=$S(RESULT["NEG":"NEG",MIN']"":RESULT,+RESULT'=0&RESULTMAX:RESULT,1:MAX) "RTN","ECXLARA",67,0) I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1 K ZTREQ Q "RTN","ECXLARA",68,0) D PRINT "RTN","ECXLARA",69,0) D AUDIT^ECXKILL "RTN","ECXLARA",70,0) Q "RTN","ECXLARA",71,0) ; "RTN","ECXLARA",72,0) PRINT ;print report "RTN","ECXLARA",73,0) N PG,NODE,ECN,ECXTSTNM "RTN","ECXLARA",74,0) U IO "RTN","ECXLARA",75,0) I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1 K ZTREQ Q "RTN","ECXLARA",76,0) S PG=0,ECXTSTNM="" "RTN","ECXLARA",77,0) I '$D(^TMP($J,"ECXDSS")) D Q "RTN","ECXLARA",78,0) .S DIV=0 F S DIV=$O(@SCRNARR@("DIVISION",DIV)) Q:'DIV D Q:FLAG "RTN","ECXLARA",79,0) ..D HEADER Q:FLAG "RTN","ECXLARA",80,0) ..W ! "RTN","ECXLARA",81,0) ..W !,"**************************************************" "RTN","ECXLARA",82,0) ..W !,"* No data available for this division. *" "RTN","ECXLARA",83,0) ..W !,"**************************************************" "RTN","ECXLARA",84,0) S DIV=0 F S DIV=$O(^TMP($J,"ECXDSS",DIV)) Q:'DIV D "RTN","ECXLARA",85,0) .D HEADER Q:FLAG "RTN","ECXLARA",86,0) .S ECN=0 F S ECN=$O(^ECX(727.29,"AC",ECN)) Q:'ECN S TEST=$$RJ^XLFSTR(ECN,4,0),ECXTSTNM=$$GET1^DIQ(727.29,+$O(^ECX(727.29,"AC",ECN,0)),.03) D Q:FLAG "RTN","ECXLARA",87,0) ..S NODE=$S($D(^TMP($J,"ECXDSS",DIV,TEST)):^TMP($J,"ECXDSS",DIV,TEST),1:"") "RTN","ECXLARA",88,0) ..;S TEST="" F S TEST=$O(^TMP($J,"ECXDSS",DIV,TEST)) Q:TEST']"" D Q:FLAG "RTN","ECXLARA",89,0) ..;S NODE=^TMP($J,"ECXDSS",DIV,TEST) "RTN","ECXLARA",90,0) ..;S MIN=$P(^TMP($J,"ECXDSS",DIV,TEST),U,2) "RTN","ECXLARA",91,0) ..;S MAX=$P(^TMP($J,"ECXDSS",DIV,TEST),U,3) "RTN","ECXLARA",92,0) ..D:($Y+3>IOSL) HEADER Q:FLAG "RTN","ECXLARA",93,0) ..W !,?1,TEST,?13,ECXTSTNM,?55,$$ECXYMX^ECXUTL($$ECXYM^ECXUTL(DATE)),?65,$S(NODE:$J($P(NODE,U,1),15),1:$J("Not in Extract",15)) "RTN","ECXLARA",94,0) ..;;W !,?4,TEST,?14,$$ECXYMX^ECXUTL($$ECXYM^ECXUTL(DATE)),?27,$S(MIN["NEG":$J("NEG",15),1:$J(MIN,15,4)),?44,$S(MAX["POS":$J("POS",15),MAX>0:$J(MAX,15,4),1:""),?60,$J($P(NODE,U,1),15) "RTN","ECXLARA",95,0) Q "RTN","ECXLARA",96,0) ; "RTN","ECXLARA",97,0) HEADER ;header and page control "RTN","ECXLARA",98,0) N JJ,SS,DIR,DIRUT,DTOUT,DUOUT,DSSID "RTN","ECXLARA",99,0) I $E(IOST)="C" D "RTN","ECXLARA",100,0) .S SS=22-$Y F JJ=1:1:SS W ! "RTN","ECXLARA",101,0) .I PG>0 S DIR(0)="E" W ! D ^DIR K DIR S:'Y FLAG=1 "RTN","ECXLARA",102,0) Q:FLAG "RTN","ECXLARA",103,0) S DSSID=$S($G(DIV):$$NNT^XUAF4(DIV),1:"UNKNOWN^^") "RTN","ECXLARA",104,0) W:$Y!($E(IOST)="C") @IOF S PG=PG+1 "RTN","ECXLARA",105,0) W !,ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract Audit Report" "RTN","ECXLARA",106,0) W !,"DSS Extract Log #: "_ECXEXT "RTN","ECXLARA",107,0) W !,"Date Range of Audit: "_ECXARRAY("START")_" to "_ECXARRAY("END") "RTN","ECXLARA",108,0) W !,"Report Run Date/Time: "_ECXRUN "RTN","ECXLARA",109,0) W !,"Division: "_$P(DSSID,U)_$S($P(DSSID,U,2)'="":" ("_$P(DSSID,U,2)_")",1:""),?68,"Page: "_PG "RTN","ECXLARA",110,0) ;Detailed report sub-header "RTN","ECXLARA",111,0) Q:'$D(^TMP($J)) "RTN","ECXLARA",112,0) W !!,?1,"Test Code",?13,"DSS TEST NAME",?53,"Month Year",?69,"Total Count" "RTN","ECXLARA",113,0) ;W !!,?2,"Test Code",?14,"Month Year",?32,"Min Result",?49,"Max Result",?64,"Total Count" "RTN","ECXLARA",114,0) Q "RTN","ECXOPRX") 0^5^B60339399^B56378076 "RTN","ECXOPRX",1,0) ECXOPRX ;ALB/JAP,BIR/DMA,CML,PTD-Prescription Extract for DSS ;9/13/10 15:38 "RTN","ECXOPRX",2,0) ;;3.0;DSS EXTRACTS;**10,11,8,13,24,30,33,38,39,46,49,71,81,84,92,105,112,120,127,136**;Dec 22, 1997;Build 28 "RTN","ECXOPRX",3,0) ; "RTN","ECXOPRX",4,0) BEG ;entry point from option "RTN","ECXOPRX",5,0) D SETUP I ECFILE="" Q "RTN","ECXOPRX",6,0) D ^ECXTRAC,^ECXKILL "RTN","ECXOPRX",7,0) Q "RTN","ECXOPRX",8,0) ; "RTN","ECXOPRX",9,0) START ;entry when queued "RTN","ECXOPRX",10,0) N X,DA,DIC,DIQ,DR,ECXNPRFI,ECRXPTST,ECNONVAP,ECRXNUM,ECXSCRX "RTN","ECXOPRX",11,0) S QFLG=0 "RTN","ECXOPRX",12,0) I '$D(ECINST) D "RTN","ECXOPRX",13,0) .S ECINST=+$P(^ECX(728,1,0),U) K ECXDIC S DA=ECINST,DIC="^DIC(4,",DIQ(0)="I",DIQ="ECXDIC",DR=".01;99" "RTN","ECXOPRX",14,0) .D EN^DIQ1 S ECINST=$G(ECXDIC(4,DA,99,"I")) K DIC,DIQ,DA,DR,ECXDIC "RTN","ECXOPRX",15,0) ;before V6 "RTN","ECXOPRX",16,0) S ECPROF=6,ECD=$O(^PSRX("AL",0)) I ECD,ECDECED Q:QFLG F S ECRX=$O(^PSRX("AD",ECD,ECRX)),ECRFL="" Q:'ECRX F S ECRFL=$O(^PSRX("AD",ECD,ECRX,ECRFL)) Q:ECRFL="" D STUFF Q:QFLG "RTN","ECXOPRX",19,0) Q "RTN","ECXOPRX",20,0) ; "RTN","ECXOPRX",21,0) V6 ;version 6 or better "RTN","ECXOPRX",22,0) K ^TMP($J,"ECXP") "RTN","ECXOPRX",23,0) S ECPROF=2,ECED=ECED+.3,ECREF=1,ECD=ECSD1 "RTN","ECXOPRX",24,0) F S ECD=$O(^PSRX("AL",ECD)),ECRX=0 Q:'ECD Q:ECD>ECED Q:QFLG F S ECRX=$O(^PSRX("AL",ECD,ECRX)),ECRFL="" Q:'ECRX F S ECRFL=$O(^PSRX("AL",ECD,ECRX,ECRFL)) Q:ECRFL="" D STUFF Q:QFLG "RTN","ECXOPRX",25,0) Q:QFLG "RTN","ECXOPRX",26,0) S ECREF="P",ECD=ECSD1 "RTN","ECXOPRX",27,0) F S ECD=$O(^PSRX("AM",ECD)),ECRX=0 Q:'ECD Q:ECD>ECED Q:QFLG F S ECRX=$O(^PSRX("AM",ECD,ECRX)),ECRFL="" Q:'ECRX F S ECRFL=$O(^PSRX("AM",ECD,ECRX,ECRFL)) Q:ECRFL="" D STUFF Q:QFLG "RTN","ECXOPRX",28,0) K ^TMP($J,"ECXP") "RTN","ECXOPRX",29,0) Q "RTN","ECXOPRX",30,0) ; "RTN","ECXOPRX",31,0) STUFF ;get data "RTN","ECXOPRX",32,0) N ECXPHA,ECTI "RTN","ECXOPRX",33,0) S ECDATA=$G(^PSRX(ECRX,0)),ECXPHA="",ECTI="" Q:'ECDATA "RTN","ECXOPRX",34,0) I ECRFL S ECDATA1=$G(^PSRX(ECRX,ECREF,ECRFL,0)) I ECDATA1="" Q "RTN","ECXOPRX",35,0) ;ecref set to 1 in extract+5 and v6+1 and to "P" in v6+2 "RTN","ECXOPRX",36,0) ;refill nodes and partial nodes are identical in layout. Fills "RTN","ECXOPRX",37,0) ;(ie ecrfl=0)& refills (ie ecrfl>0) from "AL" xref, partials from "AM" "RTN","ECXOPRX",38,0) S (ECXDSSD,ECXPROVN,ECXCVE,ECXCVEDT,ECXCVENC,ECRXPTST,ECRXNUM)="",ECXERR=0,ECXDATE=ECD,ECXDFN=$P(ECDATA,U,2),ECDRG=+$P(ECDATA,U,6) "RTN","ECXOPRX",39,0) ;- Get rx patient status & rx number "RTN","ECXOPRX",40,0) S ECRXPTST=$$RXPTST^ECXUTL5($P(ECDATA,U,3)),ECRXNUM=$P(ECDATA,U,1) "RTN","ECXOPRX",41,0) ;- Get provider (either 2_provider or 6_provider depending on version) "RTN","ECXOPRX",42,0) S ECXPROV=$S($P(ECDATA,U,4)'="":ECPROF_$P(ECDATA,U,4),1:""),ECXPROVP=$$PRVCLASS^ECXUTL($P(ECDATA,U,4),ECXDATE) "RTN","ECXOPRX",43,0) S ECPRVNPI=$$NPI^XUSNPI("Individual_ID",$P(ECDATA,U,4),ECXDATE) "RTN","ECXOPRX",44,0) S:+ECPRVNPI'>0 ECPRVNPI="" S ECPRVNPI=$P(ECPRVNPI,U) "RTN","ECXOPRX",45,0) ;get classification data "RTN","ECXOPRX",46,0) S ECXCLS=$G(^PSRX(ECRX,"IBQ")),ECXMIL=$P(ECXCLS,U,2),ECXAO=$P(ECXCLS,U,3),ECXIR=$P(ECXCLS,U,4),ECXECE=$P(ECXCLS,U,5),ECXHNC=$P(ECXCLS,U,6),ECXSHAD=$P(ECXCLS,U,8) "RTN","ECXOPRX",47,0) F X="ECXMIL","ECXAO","ECXIR","ECXECE","ECXHNC","ECXSHAD" S @X=$S(@X:"Y",@X=0:"N",1:"") "RTN","ECXOPRX",48,0) ;- Check non-va provider flag and set to 'Y' if exist "RTN","ECXOPRX",49,0) S ECNONVAP=$$NONVAP^ECXUTL5($E(ECXPROV,2,99)) "RTN","ECXOPRX",50,0) ; ******* - PATCH 127, ADD PATCAT CODE ******** "RTN","ECXOPRX",51,0) S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN) "RTN","ECXOPRX",52,0) ;get patient specific data "RTN","ECXOPRX",53,0) D PAT(ECXDFN,ECXDATE,.ECXERR) Q:ECXERR "RTN","ECXOPRX",54,0) I 'ECRFL D "RTN","ECXOPRX",55,0) .S ECMW=$P(ECDATA,U,11),ECQTY=+$P(ECDATA,U,7),ECXDIV=$S($D(^PSRX(ECRX,2)):$P(^(2),U,9),1:1) "RTN","ECXOPRX",56,0) .S ECPRC=+$P(ECDATA,U,17),ECOPAY=$P($G(^PSRX(ECRX,"IB")),U,2)]"" "RTN","ECXOPRX",57,0) I ECRFL D "RTN","ECXOPRX",58,0) .S ECMW=$P(ECDATA1,U,2),ECQTY=+$P(ECDATA1,U,4),ECXDIV=$S(+$P(ECDATA1,U,9):$P(ECDATA1,U,9),1:1) "RTN","ECXOPRX",59,0) .S ECPRC=+$P(ECDATA1,U,11),ECOPAY=$P($G(^PSRX(ECRX,1,ECRFL,"IB")),U)]"" "RTN","ECXOPRX",60,0) S ECXCOST=$J((ECQTY*ECPRC),1,2),ECDS=$S(ECRFL:$P(ECDATA1,U,10),1:$P(ECDATA,U,8)) "RTN","ECXOPRX",61,0) ;call pharmacy drug file (#50) api "RTN","ECXOPRX",62,0) S ECXPHA=$$PHAAPI^ECXUTL5(ECDRG),ECCAT=$P(ECXPHA,U,2),ECINV=$P(ECXPHA,U,4) "RTN","ECXOPRX",63,0) ; new method of dea spl hndlg **136 "RTN","ECXOPRX",64,0) I ECXLOGIC>2012 D "RTN","ECXOPRX",65,0) .I ECINV["5" S ECTI="5" "RTN","ECXOPRX",66,0) .I ECINV["4" S ECTI="4" "RTN","ECXOPRX",67,0) .I ECINV["3" S ECTI="3" "RTN","ECXOPRX",68,0) .I ECINV["2" S ECTI="2" "RTN","ECXOPRX",69,0) .I ECINV["1" S ECTI="1" "RTN","ECXOPRX",70,0) .I ECINV["I" S ECTI="I" "RTN","ECXOPRX",71,0) .S ECINV=ECTI "RTN","ECXOPRX",72,0) ; old method of dea spl hndlg **136 "RTN","ECXOPRX",73,0) I ECXLOGIC<2013 S ECINV=$S(ECINV["I":"I",1:"") "RTN","ECXOPRX",74,0) S ECUI=$P(ECXPHA,U,8),ECNDC=$P(ECXPHA,U,3) "RTN","ECXOPRX",75,0) S ECNFC=$$RJ^XLFSTR($P(ECNDC,"-"),6,0)_$$RJ^XLFSTR($P(ECNDC,"-",2),4,0)_$$RJ^XLFSTR($P(ECNDC,"-",3),2,0),ECNFC=$TR(ECNFC,"*",0),P1=$P(ECXPHA,U,5),P3=$P(ECXPHA,U,6) "RTN","ECXOPRX",76,0) S X="PSNAPIS" X ^%ZOSF("TEST") I $T S ECNFC=$$DSS^PSNAPIS(P1,P3,ECXYM)_ECNFC "RTN","ECXOPRX",77,0) I $L(ECNFC)=12 S ECNFC=$$RJ^XLFSTR(P1,4,0)_$$RJ^XLFSTR(P3,3,0)_ECNFC "RTN","ECXOPRX",78,0) I ECMW="M" S ECMW=1 I $D(^PSRX("AR",ECD,ECRX)) S ECMW=2 "RTN","ECXOPRX",79,0) I ECMW="W" S ECMW="" "RTN","ECXOPRX",80,0) S ECXNEW="" I ECRFL=0 S ECXNEW=1 "RTN","ECXOPRX",81,0) S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS) ;Observation pat indic (YES/NO) "RTN","ECXOPRX",82,0) S ECXORDPH="" ;Ordering physician (null for FY2002) "RTN","ECXOPRX",83,0) ;- Ordering stop code & Ordering date "RTN","ECXOPRX",84,0) S ECXORDST=$P($G(^ECX(728.44,+$P(ECDATA,U,5),0)),U,2),ECXORDDT=$$ECXDATE^ECXUTL(+$P(ECDATA,U,13),ECXYM) "RTN","ECXOPRX",85,0) S ECXCNH=$$CNHSTAT^ECXUTL4(ECXDFN) ;CNH status (YES/NO) "RTN","ECXOPRX",86,0) ;- DSS Dept and National Prod Division "RTN","ECXOPRX",87,0) ;S ECXDSSD=$$PRE^ECXDEPT(ECXDIV,ECMW,ECINST) dss department postponed "RTN","ECXOPRX",88,0) N ECXPDIV S ECXPDIV=$$PREDIV^ECXDEPT(ECXDIV) "RTN","ECXOPRX",89,0) ;- Set national patient record flag if exist "RTN","ECXOPRX",90,0) D NPRF^ECXUTL5 "RTN","ECXOPRX",91,0) S ECXSCRX=$$SCRX^ECXUTL5(ECRX) ;Service connected rx "RTN","ECXOPRX",92,0) ;- If no encounter number don't file record "RTN","ECXOPRX",93,0) S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,,) "RTN","ECXOPRX",94,0) I ECXLOGIC>2003 D "RTN","ECXOPRX",95,0) .I (ECMW=2)!((ECMW=1)&(ECXLOGIC>2006)),ECXSSN'="" D "RTN","ECXOPRX",96,0) .. N TMP "RTN","ECXOPRX",97,0) .. I (ECXLOGIC>2008) S TMP=$$JULDT^ECXUTL4(ECD),ECXENC=$E(ECXSSN,1,9)_TMP_"PHA" "RTN","ECXOPRX",98,0) .. E S TMP=$$JULDT^ECXUTL4(ECD),ECXENC=$E(ECXSSN,1,9)_TMP_"160" "RTN","ECXOPRX",99,0) .. I (ECXLOGIC>2009),(ECXOBS="YES") S ECXOBS="" "RTN","ECXOPRX",100,0) .. S ECXA="O" "RTN","ECXOPRX",101,0) I ECXENC'="" D FILE^ECXOPRX1 "RTN","ECXOPRX",102,0) Q "RTN","ECXOPRX",103,0) ; "RTN","ECXOPRX",104,0) PAT(ECXDFN,ECXDATE,ECXERR) ;Determine in/outpatient status, movement number, primary care team and provider "RTN","ECXOPRX",105,0) N OK,X,PT "RTN","ECXOPRX",106,0) S (ECXCAT,ECXSTAT,ECXPRIOR,ECXSBGRP,ECXOEF,ECXOEFDT)="" "RTN","ECXOPRX",107,0) ;get patient data if saved "RTN","ECXOPRX",108,0) I $D(^TMP($J,"ECXP",ECXDFN)) D "RTN","ECXOPRX",109,0) .S PT=^TMP($J,"ECXP",ECXDFN),ECXSSN=$P(PT,U),ECXPNM=$P(PT,U,2),ECXMPI=$P(PT,U,3),ECXSEX=$P(PT,U,4),ECXDOB=$P(PT,U,5) "RTN","ECXOPRX",110,0) .S ECXELIG=$P(PT,U,6),ECXVET=$P(PT,U,7),ECXRACE=$P(PT,U,8),ECXPST=$P(PT,U,9),ECXPLOC=$P(PT,U,10),ECXRST=$P(PT,U,11) "RTN","ECXOPRX",111,0) .S ECXAST=$P(PT,U,12),ECXMST=$P(PT,U,13),ECXSTATE=$P(PT,U,14),ECXCNTY=$P(PT,U,15),ECXZIP=$P(PT,U,16),ECXENRL=$P(PT,U,17) "RTN","ECXOPRX",112,0) .S ECXPHI=$P(PT,U,20),ECXCAT=$P(PT,U,21),ECXSTAT=$P(PT,U,22),ECXPRIOR=$P(PT,U,23) "RTN","ECXOPRX",113,0) .S ECXCNHU=$P(PT,U,24),ECXPOS=$P(PT,U,25),ECXAOL=$P(PT,U,26),ECXHNCI=$P(PT,U,27),ECXETH=$P(PT,U,28),ECXRC1=$P(PT,U,29),ECXMTST=$P(PT,U,30) "RTN","ECXOPRX",114,0) .S PT1=$G(^TMP($J,"ECXP",ECXDFN,1)),ECXERI=$P(PT1,U),ECXEST=$P(PT1,U,2),ECXOEF=$P(PT1,U,3),ECXOEFDT=$P(PT1,U,4),ECXCNTRY=$P(PT1,U,5) "RTN","ECXOPRX",115,0) .S ECXPATCAT=$P(PT1,U,6),ECXSHAD=$P(PT1,U,7),ECXSHADI=$P(PT1,U,8) "RTN","ECXOPRX",116,0) .I $$ENROLLM^ECXUTL2(ECXDFN) "RTN","ECXOPRX",117,0) ;set patient data "RTN","ECXOPRX",118,0) I '$D(^TMP($J,"ECXP",ECXDFN)) D Q:'OK "RTN","ECXOPRX",119,0) .K ECXPAT "RTN","ECXOPRX",120,0) .S OK=$$PAT^ECXUTL3(ECXDFN,$P(ECSD1,"."),"1;2;3;5",.ECXPAT) "RTN","ECXOPRX",121,0) .I 'OK S ECXERR=1 Q "RTN","ECXOPRX",122,0) .S ECXSSN=ECXPAT("SSN"),ECXPNM=ECXPAT("NAME"),ECXMPI=ECXPAT("MPI"),ECXSEX=ECXPAT("SEX"),ECXDOB=ECXPAT("DOB"),ECXELIG=ECXPAT("ELIG") "RTN","ECXOPRX",123,0) .S ECXVET=ECXPAT("VET"),ECXRACE=ECXPAT("RACE"),ECXPST=ECXPAT("POW STAT"),ECXPLOC=ECXPAT("POW LOC"),ECXRST=ECXPAT("IR STAT") "RTN","ECXOPRX",124,0) .S ECXAST=ECXPAT("AO STAT"),ECXMST=ECXPAT("MST STAT"),ECXSTATE=ECXPAT("STATE"),ECXCNTY=ECXPAT("COUNTY"),ECXZIP=ECXPAT("ZIP"),ECXENRL=ECXPAT("ENROLL LOC") "RTN","ECXOPRX",125,0) .S ECXERI=ECXPAT("ERI"),ECXEST=ECXPAT("EC STAT"),ECXCNTRY=ECXPAT("COUNTRY") "RTN","ECXOPRX",126,0) .;- CNH Stat (placeholder),Purp Heart Ind,Per of Svce,AO Loc,MT Stat "RTN","ECXOPRX",127,0) .S ECXCNHU="",ECXPHI=ECXPAT("PHI"),ECXPOS=ECXPAT("POS"),ECXAOL=ECXPAT("AOL"),ECXMTST=ECXPAT("MEANS") "RTN","ECXOPRX",128,0) .I $$ENROLLM^ECXUTL2(ECXDFN) "RTN","ECXOPRX",129,0) .S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN) ;Head and Neck Cancer Indicator "RTN","ECXOPRX",130,0) .S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN) ;Proj 112/SHAD Indicator "RTN","ECXOPRX",131,0) .S ECXETH=ECXPAT("ETHNIC"),ECXRC1=ECXPAT("RACE1") ;Race and Ethnicity "RTN","ECXOPRX",132,0) .; OEF/OIF data "RTN","ECXOPRX",133,0) .S ECXOEF=ECXPAT("ECXOEF") "RTN","ECXOPRX",134,0) .S ECXOEFDT=ECXPAT("ECXOEFDT") "RTN","ECXOPRX",135,0) .S ^TMP($J,"ECXP",ECXDFN)=ECXSSN_U_ECXPNM_U_ECXMPI_U_ECXSEX_U_ECXDOB_U_ECXELIG_U_ECXVET_U_ECXRACE_U_ECXPST_U_ECXPLOC_U_ECXRST_U_ECXAST_U_ECXMST_U_ECXSTATE_U_ECXCNTY_U_ECXZIP_U_ECXENRL_U_U "RTN","ECXOPRX",136,0) .S ^TMP($J,"ECXP",ECXDFN)=^TMP($J,"ECXP",ECXDFN)_U_ECXPHI_U_ECXCAT_U_ECXSTAT_U_ECXPRIOR_U_ECXCNHU_U_ECXPOS_U_ECXAOL_U_ECXHNCI_U_ECXETH_U_ECXRC1_U_ECXMTST "RTN","ECXOPRX",137,0) .S ^TMP($J,"ECXP",ECXDFN,1)=ECXERI_U_ECXEST_U_ECXOEF_U_ECXOEFDT_U_ECXCNTRY_U_ECXPATCAT_U_ECXSHAD_U_ECXSHADI "RTN","ECXOPRX",138,0) ;get inpatient data "RTN","ECXOPRX",139,0) S (ECXA,ECXADMDT,ECXDOM,ECXMN,ECXTS)="",X=$$INP^ECXUTL2(ECXDFN,ECXDATE) D "RTN","ECXOPRX",140,0) .S ECXA=$P(X,U),ECXMN=$P(X,U,2),ECXTS=$P(X,U,3),ECXDOM=$P(X,U,10),ECXADMDT=$P(X,U,4) "RTN","ECXOPRX",141,0) ;get primary care data "RTN","ECXOPRX",142,0) S X=$$PRIMARY^ECXUTL2(ECXDFN,$P(ECXDATE,".")),ECPTTM=$P(X,U),ECPTPR=$P(X,U,2),ECCLAS=$P(X,U,3),ECPTNPI=$P(X,U,4),ECASPR=$P(X,U,5),ECCLAS2=$P(X,U,6),ECASNPI=$P(X,U,7) "RTN","ECXOPRX",143,0) Q "RTN","ECXOPRX",144,0) ; "RTN","ECXOPRX",145,0) SETUP ;Set required input for ECXTRAC "RTN","ECXOPRX",146,0) S ECHEAD="PRE" "RTN","ECXOPRX",147,0) D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER) "RTN","ECXOPRX",148,0) Q "RTN","ECXOPRX",149,0) QUE ; entry point for the background requeuing handled by ECXTAUTO "RTN","ECXOPRX",150,0) D SETUP,QUE^ECXTAUTO,^ECXKILL Q "RTN","ECXPHVE") 0^2^B20171490^B4219296 "RTN","ECXPHVE",1,0) ECXPHVE ;ALB/JAM - Pharmacy Volume Edit ;6/27/12 15:12 "RTN","ECXPHVE",2,0) ;;3.0;DSS EXTRACTS;**92,120,136**;Dec 22, 1997;Build 28 "RTN","ECXPHVE",3,0) ; "RTN","ECXPHVE",4,0) EN ;entry point from menu option "RTN","ECXPHVE",5,0) N DIR,DIRUT,ECXX,Y,STOP,ECPIECE "RTN","ECXPHVE",6,0) N $ESTACK,$ETRAP S $ETRAP="D RESET^ECXPHVE" "RTN","ECXPHVE",7,0) S DIR(0)="SO^P:PRE;I:IVP;U:UDP" "RTN","ECXPHVE",8,0) S DIR("A")="Which extract do you need to edit?" "RTN","ECXPHVE",9,0) D ^DIR I $D(DIRUT) Q "RTN","ECXPHVE",10,0) S ECXX=Y(0),ECPIECE=$S(ECXX="PRE":2,ECXX="IVP":19,1:8) "RTN","ECXPHVE",11,0) S STOP=0 I $P($G(^ECX(728,1,7.1)),"^",ECPIECE)]"" D I STOP Q "RTN","ECXPHVE",12,0) .W !!,ECXX," Extract running, cannot edit. Try later.",!! S STOP=1 "RTN","ECXPHVE",13,0) .K DIR S DIR(0)="E" D ^DIR "RTN","ECXPHVE",14,0) S $P(^ECX(728,1,7.1),"^",ECPIECE)="R" "RTN","ECXPHVE",15,0) D EXTEDT "RTN","ECXPHVE",16,0) Q "RTN","ECXPHVE",17,0) ; "RTN","ECXPHVE",18,0) EXTEDT ;Edit extracts - PRE, IVP, or UDP "RTN","ECXPHVE",19,0) N DIC,DIE,DA,DR,DTOUT,DUOUT,Y,D "RTN","ECXPHVE",20,0) ;PRE extract (file #727.1) edit Quantity (field #16) & Unit of Issue (field #22) "RTN","ECXPHVE",21,0) I ECXX="PRE" D "RTN","ECXPHVE",22,0) .S DA=$$GETSEQ(727.81) "RTN","ECXPHVE",23,0) .S DIC="^ECX(727.81,",DR="16;22" "RTN","ECXPHVE",24,0) .D TURNON^DIAUTL(727.81,"16;22","y") "RTN","ECXPHVE",25,0) ;IVP extract (file #727.819) edit Quantity (field #10)&Total Doses per Day (#20) "RTN","ECXPHVE",26,0) I ECXX="IVP" D "RTN","ECXPHVE",27,0) .S DA=$$GETSEQ(727.819) "RTN","ECXPHVE",28,0) .S DIC="^ECX(727.819,",DR="10;20" "RTN","ECXPHVE",29,0) .D TURNON^DIAUTL(727.819,"10;20","y") "RTN","ECXPHVE",30,0) ;UDP extract (file #727.809) edit Quantity (field #10) "RTN","ECXPHVE",31,0) I ECXX="UDP" D "RTN","ECXPHVE",32,0) .S DA=$$GETSEQ(727.809) "RTN","ECXPHVE",33,0) .S DIC="^ECX(727.809,",DR="10" "RTN","ECXPHVE",34,0) .D TURNON^DIAUTL(727.809,"10","y") "RTN","ECXPHVE",35,0) S DIE=DIC D ^DIE "RTN","ECXPHVE",36,0) RESET I $G(ECXX)="" Q "RTN","ECXPHVE",37,0) I ECXX="PRE" D TURNON^DIAUTL(727.81,"16;22","e") "RTN","ECXPHVE",38,0) I ECXX="IVP" D TURNON^DIAUTL(727.819,"10;20","e") "RTN","ECXPHVE",39,0) I ECXX="UDP" D TURNON^DIAUTL(727.809,"10","e") "RTN","ECXPHVE",40,0) I $G(ECPIECE) S $P(^ECX(728,1,7.1),"^",ECPIECE)="" "RTN","ECXPHVE",41,0) Q "RTN","ECXPHVE",42,0) CKREC(ECXN) ;Checks if record should be edited. "RTN","ECXPHVE",43,0) I ECXN="" Q 0 "RTN","ECXPHVE",44,0) I $G(^ECX(727,ECXN,"PURG"))'="" Q 0 "RTN","ECXPHVE",45,0) I $G(^ECX(727,ECXN,"TR"))'="" Q 0 "RTN","ECXPHVE",46,0) I $G(^ECX(727,ECXN,"Q"))'="" Q 0 "RTN","ECXPHVE",47,0) Q 1 "RTN","ECXPHVE",48,0) ; "RTN","ECXPHVE",49,0) CHKSEQ() ;Check sequence to see if it can be edited - API added in 136 "RTN","ECXPHVE",50,0) N CANEDIT "RTN","ECXPHVE",51,0) S CANEDIT=1 "RTN","ECXPHVE",52,0) I '$D(^ECX(FILE,X,0)) S CANEDIT=0 "RTN","ECXPHVE",53,0) I +SSN I $P($G(^ECX(FILE,X,0)),U,6)'=SSN S CANEDIT=0 "RTN","ECXPHVE",54,0) Q CANEDIT "RTN","ECXPHVE",55,0) ; "RTN","ECXPHVE",56,0) GETSEQ(FILE) ;Get sequence number to edit "RTN","ECXPHVE",57,0) N EXT,SEQ,DIR,SSN "RTN","ECXPHVE",58,0) S SEQ=0 "RTN","ECXPHVE",59,0) S EXT=$$GETEXT(FILE) I '+EXT Q SEQ ;Nothing selected "RTN","ECXPHVE",60,0) S SSN=$$GETSSN I SSN=-1 Q SEQ "RTN","ECXPHVE",61,0) S DIR(0)="NA^1:1000000000^K:'$$CHKSEQ^ECXPHVE X" "RTN","ECXPHVE",62,0) S DIR("A")="Select "_$G(ECXX)_" EXTRACT SEQUENCE NUMBER: " "RTN","ECXPHVE",63,0) S DIR("?")="^D HELP2^ECXPHVE" "RTN","ECXPHVE",64,0) D ^DIR "RTN","ECXPHVE",65,0) I Y>0 S SEQ=+Y "RTN","ECXPHVE",66,0) Q SEQ "RTN","ECXPHVE",67,0) ; "RTN","ECXPHVE",68,0) GETEXT(FILE) ;get extract number "RTN","ECXPHVE",69,0) N DIR,RES "RTN","ECXPHVE",70,0) S RES=0 "RTN","ECXPHVE",71,0) S DIR(0)="NA^1:10000000:0^K:'$D(^ECX(FILE,""AC"",X))!('$$CKREC^ECXPHVE(X)) X" "RTN","ECXPHVE",72,0) S DIR("A")="Select "_$G(ECXX)_" EXTRACT NUMBER: " "RTN","ECXPHVE",73,0) S DIR("?")="^D HELP^ECXPHVE" "RTN","ECXPHVE",74,0) D ^DIR "RTN","ECXPHVE",75,0) I +Y S RES=+Y "RTN","ECXPHVE",76,0) Q RES "RTN","ECXPHVE",77,0) ; "RTN","ECXPHVE",78,0) HELP ; "RTN","ECXPHVE",79,0) N NUM "RTN","ECXPHVE",80,0) W !,"Select from one of the following extract numbers:",!,"If no numbers appear then there are no extracts that can",!,"be edited.",! "RTN","ECXPHVE",81,0) S NUM=0 F S NUM=$O(^ECX(FILE,"AC",NUM)) Q:'+NUM I $$CKREC(NUM) W !,NUM "RTN","ECXPHVE",82,0) Q "RTN","ECXPHVE",83,0) ; "RTN","ECXPHVE",84,0) GETSSN() ; "RTN","ECXPHVE",85,0) N DIR,NUM,DUOUT,DTOUT "RTN","ECXPHVE",86,0) S NUM=0 "RTN","ECXPHVE",87,0) S DIR(0)="FAO^9:10^K:X'?9N&(X'?9N1""P"") X" "RTN","ECXPHVE",88,0) S DIR("A")="Enter patient's SSN, if known, or press ENTER to continue: " "RTN","ECXPHVE",89,0) S DIR("?",1)="Enter patient's SSN, if known. The SSN will be used to find sequence numbers" "RTN","ECXPHVE",90,0) S DIR("?",2)="associated with this patient. Enter 9 digits or 9 digits and P, no" "RTN","ECXPHVE",91,0) S DIR("?")="hyphens or spaces. Entry is optional." "RTN","ECXPHVE",92,0) D ^DIR "RTN","ECXPHVE",93,0) I $L(Y)=9!($L(Y)=10) S NUM=Y "RTN","ECXPHVE",94,0) I $D(DUOUT)!($D(DTOUT)) S NUM=-1 "RTN","ECXPHVE",95,0) Q NUM "RTN","ECXPHVE",96,0) ; "RTN","ECXPHVE",97,0) HELP2 ;Display list of sequence numbers to choose from "RTN","ECXPHVE",98,0) N SEQNO,DIR,Y,CNT "RTN","ECXPHVE",99,0) W !,"Select from one of the following sequence numbers:" "RTN","ECXPHVE",100,0) S Y=1,CNT=0 "RTN","ECXPHVE",101,0) D HDR "RTN","ECXPHVE",102,0) S SEQNO=0 F S SEQNO=$O(^ECX(FILE,"AC",EXT,SEQNO)) Q:'+SEQNO!('+Y) D "RTN","ECXPHVE",103,0) .I SSN I $P($G(^ECX(FILE,SEQNO,0)),U,6)'=SSN Q ;Check for SSN if user entered "RTN","ECXPHVE",104,0) .W !,SEQNO,?12,$P(^ECX(FILE,SEQNO,0),U,6),?24,$$ECXDATEX^ECXUTL($P(^(0),U,9)),?38,$P(^(0),U,$S(FILE=727.81:17,1:11)),?48,$S(FILE=727.81:$P(^(0),U,23),FILE=727.819:$P(^(0),U,20),1:"") S CNT=CNT+1 "RTN","ECXPHVE",105,0) .I CNT>18 S DIR(0)="E" D ^DIR S CNT=0 D HDR "RTN","ECXPHVE",106,0) Q "RTN","ECXPHVE",107,0) ; "RTN","ECXPHVE",108,0) HDR ; "RTN","ECXPHVE",109,0) W !,"SEQUENCE #",?12,"SSN",?24,$S(ECXX="PRE":"FILL DT",1:"DISPENSE DT"),?38,"QUANTITY",?48,$S(ECXX="PRE":"UNIT OF ISSUE",ECXX="IVP":"TOTAL DOSES/DAY",1:"") "RTN","ECXPHVE",110,0) W !,$$REPEAT^XLFSTR("-",$S(ECXX'="UDP":64,1:48)) "RTN","ECXPHVE",111,0) Q "RTN","ECXPIVDN") 0^4^B60600395^B52360501 "RTN","ECXPIVDN",1,0) ECXPIVDN ;ALB/JAP,BIR/DMA,CML,PTD-Extract from IV EXTRACT DATA File (#728.113) ; 10/31/07 1:38pm "RTN","ECXPIVDN",2,0) ;;3.0;DSS EXTRACTS;**10,11,8,13,24,33,39,46,49,71,84,96,92,107,105,112,120,127,136**;Dec 22, 1997;Build 28 "RTN","ECXPIVDN",3,0) BEG ;entry point from option "RTN","ECXPIVDN",4,0) D SETUP I ECFILE="" Q "RTN","ECXPIVDN",5,0) D ^ECXTRAC,^ECXKILL "RTN","ECXPIVDN",6,0) Q "RTN","ECXPIVDN",7,0) ; "RTN","ECXPIVDN",8,0) START ; start package specific extract "RTN","ECXPIVDN",9,0) N DIC,DA,DR,DIQ,DFN,ECXNPRFI,ECXPHA "RTN","ECXPIVDN",10,0) S QFLG=0 "RTN","ECXPIVDN",11,0) I '$D(ECINST) D "RTN","ECXPIVDN",12,0) .S ECINST=+$P(^ECX(728,1,0),U) K ECXDIC S DA=ECINST,DIC="^DIC(4,",DIQ(0)="I",DIQ="ECXDIC",DR=".01;99" "RTN","ECXPIVDN",13,0) .D EN^DIQ1 S ECINST=$G(ECXDIC(4,DA,99,"I")) K DIC,DIQ,DA,DR,ECXDIC "RTN","ECXPIVDN",14,0) S ECED=ECED+.3 "RTN","ECXPIVDN",15,0) K ^TMP($J,"A"),^TMP($J,"S") "RTN","ECXPIVDN",16,0) S ECD=ECSD1 "RTN","ECXPIVDN",17,0) F S ECD=$O(^ECX(728.113,"A",ECD)),DFN=0 Q:'ECD Q:ECD>ECED Q:QFLG F S DFN=$O(^ECX(728.113,"A",ECD,DFN)),ON=0 Q:'DFN F S ON=$O(^ECX(728.113,"A",ECD,DFN,ON)),DA=0 Q:'ON K ^TMP($J,"A"),^TMP($J,"S") S ECVOL=0 D Q:QFLG "RTN","ECXPIVDN",18,0) .S ECXERR=0 D PAT(DFN,ECD,.ECXERR) "RTN","ECXPIVDN",19,0) .Q:ECXERR "RTN","ECXPIVDN",20,0) .F S DA=$O(^ECX(728.113,"A",ECD,DFN,ON,DA)) Q:'DA Q:QFLG I $D(^ECX(728.113,DA,0)) S EC=^(0) D Q:QFLG "RTN","ECXPIVDN",21,0) ..S DRG=$P(EC,U,4) I $P(EC,U,8)]"" D "RTN","ECXPIVDN",22,0) ...I '$D(^TMP($J,"A",DRG)) S ^(DRG)=$P(EC,U,7,8),^(DRG,1)=0,^(2)=$P(EC,U,12) "RTN","ECXPIVDN",23,0) ...S ^(1)=^TMP($J,"A",DRG,1)+$S($P(EC,U,6)=1:1,$P(EC,U,6)=4:0,1:-1) "RTN","ECXPIVDN",24,0) ..I $P(EC,U,9) D "RTN","ECXPIVDN",25,0) ...I '$D(^TMP($J,"S",DRG)) S ^(DRG)=$P(EC,U,9)_"^ML",^(DRG,1)=0,^(2)=$P(EC,U,12),ECVOL=$P(EC,U,9)+ECVOL "RTN","ECXPIVDN",26,0) ...S ^(1)=^TMP($J,"S",DRG,1)+$S($P(EC,U,6)=1:1,$P(EC,U,6)=4:0,1:-1) "RTN","ECXPIVDN",27,0) ..S ECTYP=$P(EC,U,11),ECTOTC=0,ECDTTM=$$ECXTIME^ECXUTL($P(EC,U,5)) "RTN","ECXPIVDN",28,0) .;looped thru all DAs for this order - now put it together "RTN","ECXPIVDN",29,0) .;leave the next line in case the decision is made to send volume designations "RTN","ECXPIVDN",30,0) .;I ECTYP="H" S ECTYP=ECTYP_$S(ECVOL'>1000:1,ECVOL'>2000:2,1:3) "RTN","ECXPIVDN",31,0) .S ECXDSSI="" "RTN","ECXPIVDN",32,0) .;loop thru tmp global and call pharmacy drug file (#50) api "RTN","ECXPIVDN",33,0) .F SA="S","A" S DRG="" F S DRG=$O(^TMP($J,SA,DRG)) Q:DRG="" S ECXPHA="",ECXPHA=$$PHAAPI^ECXUTL5(DRG) I $P(ECXPHA,U)'="" D STUFF Q:QFLG "RTN","ECXPIVDN",34,0) K ^TMP($J),CLIN,DA,DFN,DIC,DIK,DRG,ON,SA,X,Y,P1,P3 "RTN","ECXPIVDN",35,0) Q "RTN","ECXPIVDN",36,0) STUFF ;get data "RTN","ECXPIVDN",37,0) N ECORDST,ECTI,ECXADCU,ECIA "RTN","ECXPIVDN",38,0) S (ECXADCU,ECIA)=0 "RTN","ECXPIVDN",39,0) S ECST=^TMP($J,SA,DRG),ECXCNT=^(DRG,1),ECXCOST=^(2),ECVACL=$P(ECXPHA,U,2),ECORDST="",ECTI="" "RTN","ECXPIVDN",40,0) ;Loop through the IV additives file 52.6 to find match and get Average Cost Per Unit **136 "RTN","ECXPIVDN",41,0) I ECXLOGIC>2012 D "RTN","ECXPIVDN",42,0) .F S ECIA=$O(^PS(52.6,ECIA)) Q:'ECIA Q:$P(^PS(52.6,ECIA,0),"^",2)=DRG "RTN","ECXPIVDN",43,0) .I +ECIA'=0 S ECXADCU=+$P($G(^PS(52.6,ECIA,0)),"^",7) I 'ECIA S ECXADCU=0 "RTN","ECXPIVDN",44,0) ;if older logic, use incorrect calculation for cost **136 "RTN","ECXPIVDN",45,0) I ECXLOGIC<2013 S ECXCOST=ECXCOST*ECXCNT "RTN","ECXPIVDN",46,0) ;S ECST=^TMP($J,SA,DRG),ECXCNT=^(DRG,1),ECXCOST=^(2),ECXCOST=ECXCOST*ECXCNT,ECVACL=$P(ECXPHA,U,2),ECORDST="",ECTI="" removed old cost calc **136 "RTN","ECXPIVDN",47,0) ;if outpatient get division from iv rm; get dss identifier for clinic "RTN","ECXPIVDN",48,0) I ECXA="O" D "RTN","ECXPIVDN",49,0) .;- Only set ward to .5 if outpatient (but NOT observation patient) "RTN","ECXPIVDN",50,0) .I $G(ECXW)="" S ECXW=.5 "RTN","ECXPIVDN",51,0) .I $P(EC,U,15) S ECIVRM=$P(EC,U,15),ECXDIV=$$PSJ59P5^ECXUTL5(ECIVRM) "RTN","ECXPIVDN",52,0) .S CLIN=+$P(EC,U,13),(ECXP1,ECXP2)="000",ECXCL=$G(^ECX(728.44,CLIN,0)) Q:ECXCL="" "RTN","ECXPIVDN",53,0) .S ECSC=$P(ECXCL,U,4),ECCSC=$P(ECXCL,U,5) "RTN","ECXPIVDN",54,0) .I ECSC="" S ECSC=$P(ECXCL,U,2),ECCSC=$P(ECXCL,U,3) "RTN","ECXPIVDN",55,0) .I ECSC S ECXP1=$$RJ^XLFSTR(ECSC,3,0),ECXP2=$$RJ^XLFSTR(ECCSC,3,0) "RTN","ECXPIVDN",56,0) .I ECSC="" S ECSC=$P($G(^SC(ECXCL,0)),U,7),ECCSC=$P($G(^SC(ECXCL,0)),U,18) I ECSC D "RTN","ECXPIVDN",57,0) ..S ECXP1=$P($G(^DIC(40.7,ECSC,0)),U,2) S:ECCSC]"" ECXP2=$P($G(^DIC(40.7,ECCSC,0)),U,2) "RTN","ECXPIVDN",58,0) ..S ECXP1=$$RJ^XLFSTR(ECXP1,3,0),ECXP2=$$RJ^XLFSTR(ECXP2,3,0) "RTN","ECXPIVDN",59,0) .S ECXDSSI=ECXP1_ECXP2 "RTN","ECXPIVDN",60,0) .I ECXLOGIC>2003 D "RTN","ECXPIVDN",61,0) ..I "^18^23^24^41^65^94^108^"[("^"_ECXTS_"^") S ECXDSSI=$$TSMAP^ECXUTL4(ECXTS) "RTN","ECXPIVDN",62,0) S ECINV=$P(ECXPHA,U,4),ECST=ECXCNT*ECST_" "_$P(ECST,U,2) "RTN","ECXPIVDN",63,0) ;New way to calculate cost dea spl hndlg **136 "RTN","ECXPIVDN",64,0) I ECXLOGIC>2012 D "RTN","ECXPIVDN",65,0) .I ECINV["5" S ECTI="5" "RTN","ECXPIVDN",66,0) .I ECINV["4" S ECTI="4" "RTN","ECXPIVDN",67,0) .I ECINV["3" S ECTI="3" "RTN","ECXPIVDN",68,0) .I ECINV["2" S ECTI="2" "RTN","ECXPIVDN",69,0) .I ECINV["1" S ECTI="1" "RTN","ECXPIVDN",70,0) .I ECINV["I" S ECTI="I" "RTN","ECXPIVDN",71,0) .S ECINV=ECTI "RTN","ECXPIVDN",72,0) .S ECXCOST=+ECST*ECXADCU "RTN","ECXPIVDN",73,0) ; old method of dea spl hndlg **136 "RTN","ECXPIVDN",74,0) I ECXLOGIC<2013 S ECINV=$S(ECINV["I":"I",1:"") "RTN","ECXPIVDN",75,0) S ECNDC=$P(ECXPHA,U,3),ECNFC=$$RJ^XLFSTR($P(ECNDC,"-"),6,0)_$$RJ^XLFSTR($P(ECNDC,"-",2),4,0)_$$RJ^XLFSTR($P(ECNDC,"-",3),2,0),ECNFC=$TR(ECNFC,"*",0) "RTN","ECXPIVDN",76,0) S P1=$P(ECXPHA,U,5),P3=$P(ECXPHA,U,6) "RTN","ECXPIVDN",77,0) S X="PSNAPIS" X ^%ZOSF("TEST") I $T S ECNFC=$$DSS^PSNAPIS(P1,P3,ECXYM)_ECNFC "RTN","ECXPIVDN",78,0) I $L(ECNFC)=12 S ECNFC=$$RJ^XLFSTR(P1,4,0)_$$RJ^XLFSTR(P3,3,0)_ECNFC "RTN","ECXPIVDN",79,0) ;- Ordering provider ("2"_provider) "RTN","ECXPIVDN",80,0) S ECXORDPR=$S(+$P(EC,U,10):"2"_$P(EC,U,10),1:"") "RTN","ECXPIVDN",81,0) N ECXUSRTN "RTN","ECXPIVDN",82,0) S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",$P(EC,U,10),$P(EC,U,16)) "RTN","ECXPIVDN",83,0) S:+ECXUSRTN'>0 ECXUSRTN="" S ECXOPNPI=$P(ECXUSRTN,U) "RTN","ECXPIVDN",84,0) S ECXORDDT=$P(EC,U,16) ;- Ordering date "RTN","ECXPIVDN",85,0) ;- Requesting physician (null for FY2002) "RTN","ECXPIVDN",86,0) S ECXRPHY="" "RTN","ECXPIVDN",87,0) ;- Department and National Prod Division "RTN","ECXPIVDN",88,0) S ECXDSSD="" ;dss department use postponed $$IVP^ECXDEPT(ECXDIV) "RTN","ECXPIVDN",89,0) N ECXPDIV S ECXPDIV=$$GETDIV^ECXDEPT(ECXDIV) "RTN","ECXPIVDN",90,0) ;- Observation patient indicator (yes/no) "RTN","ECXPIVDN",91,0) S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXDSSI) "RTN","ECXPIVDN",92,0) ; - Ordering Date, Ordering Stop Code "RTN","ECXPIVDN",93,0) S ECXORDST="" I ECXA="O" D "RTN","ECXPIVDN",94,0) .S ECXORDST=$$DOIVPO^ECXUTL5(DFN,ON) "RTN","ECXPIVDN",95,0) .I ECXOBS="NO" S ECORDST="PHA" "RTN","ECXPIVDN",96,0) .I ECXOBS="YES" S ECORDST=$P($G(^ECX(727.831,+ECXTS,0)),U,6) "RTN","ECXPIVDN",97,0) ;- If no encounter number don't file record "RTN","ECXPIVDN",98,0) S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADM,ECD,ECXTS,ECXOBS,ECHEAD,ECORDST,) "RTN","ECXPIVDN",99,0) ;get BCMA data "RTN","ECXPIVDN",100,0) S (ECXBCDD,ECXBCDG,ECXBCUA,ECXBCIF)="" "RTN","ECXPIVDN",101,0) ;get ordering provider person class "RTN","ECXPIVDN",102,0) S ECXOPPC=$$PRVCLASS^ECXUTL($E(ECXORDPR,2,999),ECXORDDT) "RTN","ECXPIVDN",103,0) ;set national patient record flag if exist "RTN","ECXPIVDN",104,0) S ECXDFN=DFN D NPRF^ECXUTL5 K ECXDFN "RTN","ECXPIVDN",105,0) D:ECXENC'="" FILE^ECXPIVD2 K P1,P3 "RTN","ECXPIVDN",106,0) Q "RTN","ECXPIVDN",107,0) PAT(ECXDFN,ECXDATE,ECXERR) ;get patient demographics, primary care, and inpatient data "RTN","ECXPIVDN",108,0) N X "RTN","ECXPIVDN",109,0) S (ECXCAT,ECXSTAT,ECXPRIOR,ECXSBGRP,ECXOEF,ECXOEFDT)="" "RTN","ECXPIVDN",110,0) ;get patient data if saved "RTN","ECXPIVDN",111,0) I $D(^TMP($J,"ECXP",ECXDFN)) D "RTN","ECXPIVDN",112,0) .S PT=^TMP($J,"ECXP",ECXDFN),ECXPNM=$P(PT,U),ECXSSN=$P(PT,U,2),ECXMPI=$P(PT,U,3) "RTN","ECXPIVDN",113,0) .S ECXDOB=$P(PT,U,4),ECXELIG=$P(PT,U,5),ECXSEX=$P(PT,U,6),ECXSTATE=$P(PT,U,7),ECXCNTY=$P(PT,U,8),ECXZIP=$P(PT,U,9) "RTN","ECXPIVDN",114,0) .S ECXVET=$P(PT,U,10),ECXPOS=$P(PT,U,11),ECXPST=$P(PT,U,12),ECXPLOC=$P(PT,U,13),ECXRST=$P(PT,U,14),ECXAST=$P(PT,U,15) "RTN","ECXPIVDN",115,0) .S ECXAOL=$P(PT,U,16),ECXPHI=$P(PT,U,17),ECXMST=$P(PT,U,18),ECXENRL=$P(PT,U,19),ECXCNHU=$P(PT,U,20),ECXCAT=$P(PT,U,21) "RTN","ECXPIVDN",116,0) .S ECXSTAT=$P(PT,U,22),ECXPRIOR=$P(PT,U,23),ECXHNCI=$P(PT,U,24),ECXETH=$P(PT,U,25),ECXRC1=$P(PT,U,26),ECXMTST=$P(PT,U,27) "RTN","ECXPIVDN",117,0) .S PT1=$G(^TMP($J,"ECXP",ECXDFN,1)),ECXERI=$P(PT1,U),ECXEST=$P(PT1,U,2),ECXOEF=$P(PT1,U,3),ECXOEFDT=$P(PT1,U,4),ECXCNTRY=$P(PT1,U,5) "RTN","ECXPIVDN",118,0) .S ECXSHADI=$P(PT1,U,6),ECXPATCAT=$P(PT1,U,7) "RTN","ECXPIVDN",119,0) .I $$ENROLLM^ECXUTL2(ECXDFN) "RTN","ECXPIVDN",120,0) ;set patient data "RTN","ECXPIVDN",121,0) I '$D(^TMP($J,"ECXP",ECXDFN)) D Q:'OK "RTN","ECXPIVDN",122,0) .K ECXPAT S OK=$$PAT^ECXUTL3(ECXDFN,$P(ECXDATE,"."),"1;2;3;5",.ECXPAT) "RTN","ECXPIVDN",123,0) .I 'OK K ECXPAT S ECXERR=1 Q "RTN","ECXPIVDN",124,0) .S ECXPNM=ECXPAT("NAME"),ECXSSN=ECXPAT("SSN"),ECXMPI=ECXPAT("MPI"),ECXDOB=ECXPAT("DOB"),ECXELIG=ECXPAT("ELIG"),ECXSEX=ECXPAT("SEX") "RTN","ECXPIVDN",125,0) .S ECXSTATE=ECXPAT("STATE"),ECXCNTY=ECXPAT("COUNTY"),ECXZIP=ECXPAT("ZIP"),ECXVET=ECXPAT("VET"),ECXCNTRY=ECXPAT("COUNTRY") "RTN","ECXPIVDN",126,0) .S ECXPOS=ECXPAT("POS"),ECXPST=ECXPAT("POW STAT"),ECXPLOC=ECXPAT("POW LOC"),ECXRST=ECXPAT("IR STAT") "RTN","ECXPIVDN",127,0) .S ECXAST=ECXPAT("AO STAT"),ECXAOL=ECXPAT("AOL"),ECXPHI=ECXPAT("PHI"),ECXMST=ECXPAT("MST STAT") "RTN","ECXPIVDN",128,0) .S ECXENRL=ECXPAT("ENROLL LOC"),ECXMTST=ECXPAT("MEANS"),ECXEST=ECXPAT("EC STAT") "RTN","ECXPIVDN",129,0) .S ECXCNHU=$$CNHSTAT^ECXUTL4(ECXDFN) ;get CNHU status "RTN","ECXPIVDN",130,0) .;get enrollment data (category, status and priority) "RTN","ECXPIVDN",131,0) .I $$ENROLLM^ECXUTL2(ECXDFN) "RTN","ECXPIVDN",132,0) .S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN) ;Head and Neck Cancer Indicator "RTN","ECXPIVDN",133,0) .S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN) ;PROJ 112/SHAD Indicator "RTN","ECXPIVDN",134,0) .S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN) ; PATCH 127, ADD PATCAT CODE "RTN","ECXPIVDN",135,0) .; - Race and Ethnicity "RTN","ECXPIVDN",136,0) .S ECXETH=ECXPAT("ETHNIC"),ECXRC1=ECXPAT("RACE1") "RTN","ECXPIVDN",137,0) .S ECXERI=ECXPAT("ERI") ;emergency response indicator (FEMA) "RTN","ECXPIVDN",138,0) .S ECXOEF=ECXPAT("ECXOEF") "RTN","ECXPIVDN",139,0) .S ECXOEFDT=ECXPAT("ECXOEFDT") "RTN","ECXPIVDN",140,0) .;save for later "RTN","ECXPIVDN",141,0) .S ^TMP($J,"ECXP",ECXDFN)=ECXPNM_U_ECXSSN_U_ECXMPI_U_ECXDOB_U_ECXELIG_U_ECXSEX_U_ECXSTATE_U_ECXCNTY_U_ECXZIP_U_ECXVET_U_ECXPOS_U_ECXPST_U_ECXPLOC_U_ECXRST_U_ECXAST "RTN","ECXPIVDN",142,0) .S ^TMP($J,"ECXP",ECXDFN)=^TMP($J,"ECXP",ECXDFN)_U_ECXAOL_U_ECXPHI_U_ECXMST_U_ECXENRL_U_ECXCNHU_U_ECXCAT_U_ECXSTAT_U_ECXPRIOR_U_ECXHNCI_U_ECXETH_U_ECXRC1_U_ECXMTST "RTN","ECXPIVDN",143,0) .S ^TMP($J,"ECXP",ECXDFN,1)=ECXERI_U_ECXEST_U_ECXOEF_U_ECXOEFDT_U_ECXCNTRY_U_ECXSHADI_U_ECXPATCAT "RTN","ECXPIVDN",144,0) ;get primary care data "RTN","ECXPIVDN",145,0) S X=$$PRIMARY^ECXUTL2(ECXDFN,$P(ECXDATE,".")) "RTN","ECXPIVDN",146,0) S ECPTTM=$P(X,U,1),ECPTPR=$P(X,U,2),ECCLAS=$P(X,U,3),ECPTNPI=$P(X,U,4),ECASPR=$P(X,U,5),ECCLAS2=$P(X,U,6),ECASNPI=$P(X,U,7) "RTN","ECXPIVDN",147,0) ;get inpatient data "RTN","ECXPIVDN",148,0) S (ECXA,ECXMN,ECXADM,ECXTS,ECXW,ECXDIV)="",X=$$INP^ECXUTL2(ECXDFN,ECXDATE) "RTN","ECXPIVDN",149,0) S ECXA=$P(X,U),ECXMN=$P(X,U,2),ECXTS=$P(X,U,3),ECXADM=$P(X,U,4),W=$P(X,U,9),ECXDOM=$P(X,U,10),ECXW=$P(W,";"),ECXDIV=$P(W,";",2) "RTN","ECXPIVDN",150,0) Q "RTN","ECXPIVDN",151,0) SETUP ;Set required input for ECXTRAC "RTN","ECXPIVDN",152,0) S ECHEAD="IVP" "RTN","ECXPIVDN",153,0) D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER) "RTN","ECXPIVDN",154,0) ;variables ecver and ecrtn will be reset in routine ecxtrac if appropriate "RTN","ECXPIVDN",155,0) S ECVER=7 "RTN","ECXPIVDN",156,0) Q "RTN","ECXPIVDN",157,0) QUE ; entry point for the background requeuing handled by ECXTAUTO "RTN","ECXPIVDN",158,0) D SETUP,QUE^ECXTAUTO,^ECXKILL Q "RTN","ECXPLBB") 0^13^B21006006^B17966665 "RTN","ECXPLBB",1,0) ECXPLBB ;DALOI/KML - DSS BLOOD BANK PRE-EXTRACT AUDIT REPORT ;6/26/12 16:40 "RTN","ECXPLBB",2,0) ;;3.0;DSS EXTRACTS;**78,92,105,136**;Dec 22, 1997;Build 28 "RTN","ECXPLBB",3,0) ;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021 "RTN","ECXPLBB",4,0) ;entry point from option "RTN","ECXPLBB",5,0) D SETUP^ECXLBB I ECFILE="" Q "RTN","ECXPLBB",6,0) N ECXINST "RTN","ECXPLBB",7,0) D DATES "RTN","ECXPLBB",8,0) Q:ECED']""&(ECSD']"") "RTN","ECXPLBB",9,0) N ECXPOP S ECXPOP=0 D QUE Q:ECXPOP "RTN","ECXPLBB",10,0) ; "RTN","ECXPLBB",11,0) START ; entry point from tasked job "RTN","ECXPLBB",12,0) ; get LAB DATA and build temporary global ^TMP("ECXLBB",$J) "RTN","ECXPLBB",13,0) N ECTRSP,ECADMT,ECTODT,ECXRPT,ECOUT,ECXSTR,ECRDT,ECLINE,ECPG,ECQUIT "RTN","ECXPLBB",14,0) N ECD,ECXDFN,ECARRY,EC66,ECERR,ECTRFDT,ECTRFTM,ECX,ECINOUT,ECXJOB "RTN","ECXPLBB",15,0) N ECXLOGIC "RTN","ECXPLBB",16,0) S ECXJOB=$J "RTN","ECXPLBB",17,0) K ^TMP("ECXLBB",ECXJOB) "RTN","ECXPLBB",18,0) U IO "RTN","ECXPLBB",19,0) I $E(IOST,1,2)="C-" W !,"Retrieving records... " "RTN","ECXPLBB",20,0) S ECXRPT=1 D AUDRPT^ECXLBB "RTN","ECXPLBB",21,0) OUTPUT ; entry point called by EN tag "RTN","ECXPLBB",22,0) I '$D(^TMP("ECXLBB",ECXJOB)) W !,"There were no records that met the date range criteria" Q "RTN","ECXPLBB",23,0) S (ECPG,ECDATE,ECQUIT,ECXDFN)=0,ECLINE="",$P(ECLINE,"=",80)="=" "RTN","ECXPLBB",24,0) S ECSDN=$$FMTE^XLFDT(ECSD,9),ECEDN=$$FMTE^XLFDT(ECED,9),ECRDT=$$FMTE^XLFDT(DT,9) "RTN","ECXPLBB",25,0) W:$E(IOST,1,2)="C-" @IOF D HED "RTN","ECXPLBB",26,0) S ECXCOMP=0 F S ECXCOMP=$O(^TMP("ECXLBB",ECXJOB,ECXCOMP)) Q:ECXCOMP="" D Q:ECQUIT "RTN","ECXPLBB",27,0) . S ECXDFN=0 F S ECXDFN=$O(^TMP("ECXLBB",ECXJOB,ECXCOMP,ECXDFN)) Q:'ECXDFN D Q:ECQUIT "RTN","ECXPLBB",28,0) .. S ECXDATE=0 F S ECDATE=$O(^TMP("ECXLBB",ECXJOB,ECXCOMP,ECXDFN,ECDATE)) Q:'ECDATE Q:ECQUIT S ECXSTR=^(ECDATE) D PRINT "RTN","ECXPLBB",29,0) D ^ECXKILL "RTN","ECXPLBB",30,0) Q "RTN","ECXPLBB",31,0) ; "RTN","ECXPLBB",32,0) PRINT ; "RTN","ECXPLBB",33,0) I $Y+5>IOSL D Q:ECQUIT "RTN","ECXPLBB",34,0) . I $E(IOST,1,2)["C-" S DIR(0)="E" D ^DIR K DIR I 'Y S ECQUIT=1 Q "RTN","ECXPLBB",35,0) . W @IOF D HED "RTN","ECXPLBB",36,0) W !,$P(ECXSTR,"^",5),?11,$P(ECXSTR,"^",4),?26,$P(ECXSTR,"^",16) "RTN","ECXPLBB",37,0) W ?37,$$FMTE^XLFDT($$HL7TFM^XLFDT($P(ECXSTR,"^",8)),2) "RTN","ECXPLBB",38,0) W ?49,$P(ECXSTR,"^",11),?60,$J(+$P(ECXSTR,"^",12),2) "RTN","ECXPLBB",39,0) Q "RTN","ECXPLBB",40,0) ; "RTN","ECXPLBB",41,0) HED ; "RTN","ECXPLBB",42,0) S ECPG=ECPG+1 "RTN","ECXPLBB",43,0) W !,"LBB Pre-Extract Audit Report",?72,"Page",$J(ECPG,3) ;136 "RTN","ECXPLBB",44,0) W !,ECSDN," - ",ECEDN,?58,"Run Date:",$J(ECRDT,12) "RTN","ECXPLBB",45,0) W !,?37,"Transf",?57,"Number" "RTN","ECXPLBB",46,0) W !,"Name",?14,"SSN",?25,"FDR LOC",?37,"Date",?49,"COMP" "RTN","ECXPLBB",47,0) W ?57,"of Units" "RTN","ECXPLBB",48,0) W !,ECLINE "RTN","ECXPLBB",49,0) Q "RTN","ECXPLBB",50,0) DATES ; "RTN","ECXPLBB",51,0) N OUT,CHKFLG "RTN","ECXPLBB",52,0) I '$D(ECNODE) S ECNODE=7 "RTN","ECXPLBB",53,0) I '$D(ECHEAD) S ECHEAD=" " "RTN","ECXPLBB",54,0) W @IOF,!,"LBB Pre-Extract Audit Report Information for DSS",!! ;136 "RTN","ECXPLBB",55,0) ;Added descriptive text DSS FY13 Logic "RTN","ECXPLBB",56,0) W !,"**NOTE: This audit can only be run prior to the LBB Extract being generated." ;136 "RTN","ECXPLBB",57,0) W !,"If you have already generated your LBB Extract, refer to the Processing " "RTN","ECXPLBB",58,0) W !,"Guide Chapter 4 section on Regenerating.**",! "RTN","ECXPLBB",59,0) S:'$D(ECINST) ECINST=+$P(^ECX(728,1,0),U) "RTN","ECXPLBB",60,0) S ECXINST=ECINST "RTN","ECXPLBB",61,0) K ECXDIC S DA=ECINST,DIC="^DIC(4,",DIQ(0)="I",DIQ="ECXDIC",DR=".01;99" "RTN","ECXPLBB",62,0) D EN^DIQ1 S ECINST=$G(ECXDIC(4,DA,99,"I")) K DIC,DIQ,DA,DR,ECXDIC "RTN","ECXPLBB",63,0) S ECLDT=$S($D(^ECX(728,1,ECNODE)):$P(^(ECNODE),U,ECPIECE),1:2610624) "RTN","ECXPLBB",64,0) S:ECLDT="" ECLDT=2610624 "RTN","ECXPLBB",65,0) S ECOUT=0 F S (ECED,ECSD)="" D Q:ECOUT "RTN","ECXPLBB",66,0) . K %DT S %DT="AEX",%DT("A")="Starting with Date: " D ^%DT "RTN","ECXPLBB",67,0) . I Y<0 S ECOUT=1 Q "RTN","ECXPLBB",68,0) . S ECSD=Y "RTN","ECXPLBB",69,0) . K %DT S %DT="AEX",%DT("A")="Ending with Date: " D ^%DT "RTN","ECXPLBB",70,0) . I Y<0 S ECOUT=1 Q "RTN","ECXPLBB",71,0) . I Y0 ^ECXTRAC D ^ECXKILL "RTN","ECXPRO",6,0) Q "RTN","ECXPRO",7,0) ; "RTN","ECXPRO",8,0) START ;start package specific extract "RTN","ECXPRO",9,0) ; "RTN","ECXPRO",10,0) ; Input "RTN","ECXPRO",11,0) ; ECSD1 - FM formatted Beginning Date (Set by ECXTRAC) "RTN","ECXPRO",12,0) ; ECED - FM formatted End Date (Set by ECXTRAC) "RTN","ECXPRO",13,0) ; ECSDN - Externally formatted Start Date (Set by ECXTRAC) "RTN","ECXPRO",14,0) ; ECEDN - Externally formatted End Date (Set by ECXTRAC) "RTN","ECXPRO",15,0) ; EC - IEN from file #727 (Set by ECXTRAC) "RTN","ECXPRO",16,0) ; ECXYM - Year and Month of extract (YYYYMM) "RTN","ECXPRO",17,0) ; ECXINST - IEN for division in file #4 "RTN","ECXPRO",18,0) ; ECINST - Station number of selected division "RTN","ECXPRO",19,0) ; "RTN","ECXPRO",20,0) N ECXLNE,ECXCT,ECXDACT,ECX0,ECXLB,ECXED1,ECINSTSV,ECXLNSTR,ECXP "RTN","ECXPRO",21,0) N ECXICD10P,ECXICD101,ECXICD102,ECXICD103,ECXICD104 "RTN","ECXPRO",22,0) N DIC,DR,DA,DIQ,CPTCODE,ECXNPRFI "RTN","ECXPRO",23,0) D ECXBUL^ECXPRO2(.ECXLNE,ECSDN,ECEDN,EC) "RTN","ECXPRO",24,0) S QFLG=0,ECXLNSTR=ECXLNE,ECXED1=ECED+.9999,ECXCT=ECSD1 "RTN","ECXPRO",25,0) F S ECXCT=$O(^RMPR(660,"CT",ECXCT)) Q:(ECXCT>ECXED1)!('ECXCT)!(QFLG=1) D "RTN","ECXPRO",26,0) .S ECXDACT=0 "RTN","ECXPRO",27,0) .F S ECXDACT=$O(^RMPR(660,"CT",ECXCT,ECXDACT)) Q:('ECXDACT)!(QFLG=1) D "RTN","ECXPRO",28,0) ..;* initialize variables "RTN","ECXPRO",29,0) ..S (ECXDFN,ECXPNM,ECXSSN,ECXSEX,ECXSTAT,ECXDATE,ECXTYPE,ECXSRCE)="" "RTN","ECXPRO",30,0) ..S (ECXHCPCS,ECXPHCPC,ECXRQST,ECXRCST,ECXFORM,ECXCTAMT,ECXLLC)="" "RTN","ECXPRO",31,0) ..S (ECXLMC,ECXGRPR,ECXBILST,ECXQTY,ECXFELOC,ECXFEKEY,ECXA,ECXLH,ECXLC,ECXMC)="" "RTN","ECXPRO",32,0) ..S (ECPTTM,ECPTPR,ECXAST,ECXRST,ECXEST,ECXELIG,ECXVET,ECXZIP)="" "RTN","ECXPRO",33,0) ..S (ECXDOB,ECXDSSD,ECXICD9,ECXICD10P,ECXAOL,ECXHNCI,ECXSHADI,ECXETH,ECXRC1,ECXMST)="" "RTN","ECXPRO",34,0) ..F I=1:1:4 S @("ECXICD9"_I)="" "RTN","ECXPRO",35,0) ..F I=1:1:4 S @("ECXICD10"_I)="" "RTN","ECXPRO",36,0) ..Q:'$D(^RMPR(660,ECXDACT,0)) "RTN","ECXPRO",37,0) ..S ECX0=^RMPR(660,ECXDACT,0),ECXLB=$G(^RMPR(660,ECXDACT,"LB")) "RTN","ECXPRO",38,0) ..K ECXP S DIC="^RMPR(660,",DR=".02;11;45",DA=ECXDACT,DIQ(0)="EI" "RTN","ECXPRO",39,0) ..S DIQ="ECXP" D EN^DIQ1 "RTN","ECXPRO",40,0) ..S ECXDIV=$$GET1^DIQ(660,ECXDACT,8,"I") "RTN","ECXPRO",41,0) ..S ECXDFN=$G(ECXP(660,ECXDACT,.02,"I")) "RTN","ECXPRO",42,0) ..S ECXFORM=$G(ECXP(660,ECXDACT,11,"E"))_U_$G(ECXP(660,ECXDACT,11,"I")) "RTN","ECXPRO",43,0) ..S ECXLH=$G(ECXP(660,ECXDACT,45,"I")) "RTN","ECXPRO",44,0) ..Q:'$$PATDEM^ECXUTL2(ECXDFN,ECXCT) "RTN","ECXPRO",45,0) ..S OK=$$PAT^ECXUTL3(ECXDFN,ECXDATE,"1;5",.ECXPAT) "RTN","ECXPRO",46,0) ..I 'OK S ECXERR=1 K ECXPAT Q "RTN","ECXPRO",47,0) ..;OEF/OIF data "RTN","ECXPRO",48,0) ..S ECXOEF=ECXPAT("ECXOEF") "RTN","ECXPRO",49,0) ..S ECXOEFDT=ECXPAT("ECXOEFDT") "RTN","ECXPRO",50,0) ..Q:'$$NTEG^ECXPRO1(ECXDFN,.ECXLNE,ECXDACT,ECX0,ECXLB,ECINST,ECXFORM) "RTN","ECXPRO",51,0) ..D PROSINFO^ECXPRO1(ECXDACT,ECXLB,ECX0,ECXFORM) "RTN","ECXPRO",52,0) ..S CPTCODE=$E(ECXHCPCS,1,5) "RTN","ECXPRO",53,0) ..;nppd entry date "RTN","ECXPRO",54,0) ..S ECXNPPDT=$$ECXDATE^ECXUTL($P(ECX0,U,1),ECXYM) "RTN","ECXPRO",55,0) ..; "RTN","ECXPRO",56,0) ..;Get production division ;p-46 "RTN","ECXPRO",57,0) ..N ECXPDIV S ECXPDIV=$$RADDIV^ECXDEPT(ECXDIV) ;p-46 "RTN","ECXPRO",58,0) ..;- Observation patient indicator (YES/NO) "RTN","ECXPRO",59,0) ..S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS) "RTN","ECXPRO",60,0) ..; "RTN","ECXPRO",61,0) ..;- CNH status (YES/NO) "RTN","ECXPRO",62,0) ..S ECXCNH=$$CNHSTAT^ECXUTL4(ECXDFN) "RTN","ECXPRO",63,0) ..; "RTN","ECXPRO",64,0) ..;get encounter classifications "RTN","ECXPRO",65,0) ..S (ECXAO,ECXECE,ECXHNC,ECXMIL,ECXIR,ECXSHAD)="" "RTN","ECXPRO",66,0) ..S ECXVISIT=$$GET1^DIQ(660,ECXDACT,8.12,"I") I ECXVISIT'="" D "RTN","ECXPRO",67,0) ...D VISIT^ECXSCX1(ECXDFN,ECXVISIT,.ECXVIST,.ECXERR) I ECXERR K ECXERR Q "RTN","ECXPRO",68,0) ...S ECXAO=$G(ECXVIST("AO")),ECXECE=$G(ECXVIST("PGE")),ECXSHAD=$G(ECXVIST("SHAD")) "RTN","ECXPRO",69,0) ...S ECXHNC=$G(ECXVIST("HNC")),ECXMIL=$G(ECXVIST("MST")),ECXIR=$G(ECXVIST("IR")) "RTN","ECXPRO",70,0) ..; - Head and Neck Cancer Indicator "RTN","ECXPRO",71,0) ..S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN) "RTN","ECXPRO",72,0) ..; "RTN","ECXPRO",73,0) ..; - Proj 112/SHAD Indicator "RTN","ECXPRO",74,0) ..S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN) "RTN","ECXPRO",75,0) ..; "RTN","ECXPRO",76,0) ..; ******* - PATCH 127, ADD PATCAT CODE ******** "RTN","ECXPRO",77,0) ..S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN) "RTN","ECXPRO",78,0) ..; - set national patient record flag if exist "RTN","ECXPRO",79,0) ..D NPRF^ECXUTL5 "RTN","ECXPRO",80,0) ..; "RTN","ECXPRO",81,0) ..;- If no encounter number don't file record "RTN","ECXPRO",82,0) ..S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,,) Q:ECXENC="" "RTN","ECXPRO",83,0) ..I ECXFORM["-3" F ECXLAB="LAB","ORD" D "RTN","ECXPRO",84,0) ...D FEEDINFO^ECXPRO2(ECXSRCE,CPTCODE,ECXTYPE,ECXSTAT2,ECXRQST,ECXRCST,ECXLAB,ECXNPPDC) "RTN","ECXPRO",85,0) ...Q:ECXFELOC="" D FILE "RTN","ECXPRO",86,0) ..I ECXFORM'["-3" S ECXLAB="NONL" D "RTN","ECXPRO",87,0) ...D FEEDINFO^ECXPRO2(ECXSRCE,CPTCODE,ECXTYPE,ECXSTAT2,ECXRQST,ECXRCST,ECXLAB,ECXNPPDC) "RTN","ECXPRO",88,0) ...Q:ECXFELOC="" D FILE "RTN","ECXPRO",89,0) ;* Send the Exception message "RTN","ECXPRO",90,0) I ECXLNSTR2004 S ECODE1=ECODE1_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U_ECXCVEDT_U_ECXCVENC_U_ECXNPRFI "RTN","ECXPRO",152,0) I ECXLOGIC>2006 S ECODE1=ECODE1_U_ECXERI_U_ECXAO_U_ECXECE_U_ECXHNC_U_ECXMIL_U_ECXIR_U "RTN","ECXPRO",153,0) I ECXLOGIC>2007 S ECODE2=ECXOEF_U_ECXOEFDT_U_ECXNPPDC_U_ECXNPPDT_U_ECASNPI_U_ECPTNPI "RTN","ECXPRO",154,0) I ECXLOGIC>2009 S ECODE2=ECODE2_U_ECXCNTRY "RTN","ECXPRO",155,0) I ECXLOGIC>2010 S ECODE2=ECODE2_U_ECXSHADI_U_ECXSHAD_U_ECXLH_U_ECXPATCAT "RTN","ECXPRO",156,0) I ECXLOGIC>2012 S ECODE2=ECODE2_U_ECXICD10P_U_ECXICD101_U_ECXICD102_U_ECXICD103_U_ECXICD104 "RTN","ECXPRO",157,0) S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,^ECX(ECFILE,EC7,2)=$G(ECODE2),ECRN=ECRN+1 "RTN","ECXPRO",158,0) S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA "RTN","ECXPRO",159,0) I $D(ZTQUEUED),$$S^%ZTLOAD S QFLG=1 "RTN","ECXPRO",160,0) Q "RTN","ECXPRO",161,0) ; "RTN","ECXPRO",162,0) SETUP ;Set required input for ECXTRAC "RTN","ECXPRO",163,0) S ECHEAD="PRO" "RTN","ECXPRO",164,0) D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER) "RTN","ECXPRO",165,0) S ECINST=$$PDIV^ECXPUTL "RTN","ECXPRO",166,0) Q "RTN","ECXPRO",167,0) ; "RTN","ECXPRO",168,0) ;**Note: LOCAL and QUE are carry over from protocols set by other "RTN","ECXPRO",169,0) ; routines. "RTN","ECXPRO",170,0) LOCAL ;to extract nightly for local use not to be transmitted to TSI "RTN","ECXPRO",171,0) ;QUEUE with 1D frequency "RTN","ECXPRO",172,0) D SETUP,^ECXTLOCL,^ECXKILL Q "RTN","ECXPRO",173,0) ; "RTN","ECXPRO",174,0) QUE ; entry point for the background requeuing handled by ECXTAUTO "RTN","ECXPRO",175,0) D SETUP,QUE^ECXTAUTO,^ECXKILL Q "RTN","ECXQSR") 0^11^B49856684^B48814475 "RTN","ECXQSR",1,0) ECXQSR ;ALB/JAP,BIR/PTD-DSS QUASAR Extract ; 2/5/10 6:50am "RTN","ECXQSR",2,0) ;;3.0;DSS EXTRACTS;**11,8,13,26,24,34,33,35,39,43,46,49,64,71,84,92,106,105,120,124,127,132,136**;Dec 22, 1997;Build 28 "RTN","ECXQSR",3,0) BEG ;entry point from option "RTN","ECXQSR",4,0) I '$O(^ACK(509850.8,0)) W !,"You must be using the Quality Audiology & Speech Pathology",!,"Audit & Review (QUASAR) software to run this extract.",!! Q "RTN","ECXQSR",5,0) I '$D(^ACK(509850.8,1,"DSS")) W !,"Linkage has not been established between QUASAR and the DSS UNIT file (#724).",!! Q "RTN","ECXQSR",6,0) I '$O(^ACK(509850.6,0)) W !,"There is no data in the A&SP CLINIC VISIT file (#509850.6).",!! Q "RTN","ECXQSR",7,0) D SETUP I ECFILE="" Q "RTN","ECXQSR",8,0) D ^ECXTRAC,^ECXKILL "RTN","ECXQSR",9,0) Q "RTN","ECXQSR",10,0) START ;entry point from tasked job "RTN","ECXQSR",11,0) N ERR,ECXQDT,ECXNPRFI "RTN","ECXQSR",12,0) S QFLG=0,ECED=ECED+.9,ECD=ECSD1,ECXQV="" "RTN","ECXQSR",13,0) D QINST I $D(ERR) Q "RTN","ECXQSR",14,0) S ECL=+^ACK(509850.8,1,0),ECLINK=^ACK(509850.8,1,"DSS") "RTN","ECXQSR",15,0) F S ECD=$O(^ACK(509850.6,"B",ECD)),ECDA=0 Q:(ECD>ECED)!('ECD)!(QFLG) D "RTN","ECXQSR",16,0) .I +ECXQV=3,ECD2003 D "RTN","ECXQSR",54,0) .I "^18^23^24^41^65^94^108^"[("^"_ECXTS_"^") S ECDSS=$$TSMAP^ECXUTL4(ECXTS) "RTN","ECXQSR",55,0) S ECDU=$S(ECSTOP["A":$P(ECLINK,U),ECSTOP["S":$P(ECLINK,U,2),1:"") "RTN","ECXQSR",56,0) Q:'ECDU "RTN","ECXQSR",57,0) S ECDSSU=$G(^ECD(ECDU,0)),ECCS=+$P(ECDSSU,U,4),(ECO,ECM)=+$P(ECDSSU,U,3),ECXDSSD=$E($P(ECDSSU,U,5),1,10) "RTN","ECXQSR",58,0) Q:'$O(^ACK(509850.6,ECDA,3,0)) "RTN","ECXQSR",59,0) ;Create local array of procedure codes and # of times each procedure "RTN","ECXQSR",60,0) ; was performed. "RTN","ECXQSR",61,0) F I=1:1:4 S @("ECXICD9"_I)="" "RTN","ECXQSR",62,0) F I=1:1:4 S @("ECXICD10"_I)="" "RTN","ECXQSR",63,0) S (ECDIA,ECXPPC,ECXPRV1,ECXPRV2,ECXPRV3,ECXPRV4,ECXPRV5,ECXICD10P)="" "RTN","ECXQSR",64,0) ;if QUASAR v2 "RTN","ECXQSR",65,0) I +ECXQV=2 D "RTN","ECXQSR",66,0) .S ECXPRV1=$P(EC2NODE,U,7),ECXPRV2=$P(EC2NODE,U,3),ECXPRV3=$P(EC2NODE,U,5),ECPN=0 "RTN","ECXQSR",67,0) .F S ECPN=$O(^ACK(509850.6,ECDA,3,ECPN)) Q:'ECPN D "RTN","ECXQSR",68,0) ..S XX=^ACK(509850.6,ECDA,3,ECPN,0),XX=$P(XX,U),XX=$P($G(^ACK(509850.4,XX,0)),U),ECXCPT=$E($$CPT^ECXUTL3(XX),1,5) "RTN","ECXQSR",69,0) ..I ECXCPT]"" D "RTN","ECXQSR",70,0) ...I '$D(LOC(ECXCPT)) S LOC(ECXCPT)=0_U_ECXPRV1 "RTN","ECXQSR",71,0) ...S $P(LOC(ECXCPT),U)=$P(LOC(ECXCPT),U)+1 "RTN","ECXQSR",72,0) .S ECIEN=$O(^ACK(509850.6,ECDA,1,0)),ECDIA=$P($G(^ICD9(+$G(^ACK(509850.6,ECDA,1,ECIEN,0)),0)),U) "RTN","ECXQSR",73,0) .F I=1:1:4 S ECIEN=$O(^ACK(509850.6,ECDA,1,ECIEN)) Q:'+ECIEN D "RTN","ECXQSR",74,0) ..S @("ECXICD9"_I)=$P($G(^ICD9(+$P(^ACK(509850.6,ECDA,1,ECIEN,0),U),0)),U) "RTN","ECXQSR",75,0) ;if QUASAR v3 "RTN","ECXQSR",76,0) I +ECXQV=3 D "RTN","ECXQSR",77,0) .N CPT,DIA,I,J,MOD,MOD1,P,STR,VOL,ECTP,ARY,ECP,ECPN "RTN","ECXQSR",78,0) .S ECXPRV2=$G(^ACK(509850.6,ECDA,2.7,1,0)),ECXPRV3=$G(^ACK(509850.6,ECDA,2.7,2,0)),ECXPRV4=$G(^ACK(509850.6,ECDA,2.7,3,0)),ECXPRV5=$G(^ACK(509850.6,ECDA,2.7,4,0)) "RTN","ECXQSR",79,0) .I $G(ECXPRV2) S ECXPRV2=$$CONVERT1^ACKQUTL4(ECXPRV2) "RTN","ECXQSR",80,0) .I $G(ECXPRV3) S ECXPRV3=$$CONVERT1^ACKQUTL4(ECXPRV3) "RTN","ECXQSR",81,0) .I $G(ECXPRV4) S ECXPRV4=$$CONVERT1^ACKQUTL4(ECXPRV4) "RTN","ECXQSR",82,0) .I $G(ECXPRV5) S ECXPRV5=$$CONVERT1^ACKQUTL4(ECXPRV5) "RTN","ECXQSR",83,0) .S ECPN=0 F S ECPN=$O(^ACK(509850.6,ECDA,3,ECPN)) Q:'ECPN D "RTN","ECXQSR",84,0) ..S CPT=^ACK(509850.6,ECDA,3,ECPN,0),ECXCPT=$P(CPT,U),ECTP=+$P(CPT,U,5),ECV=1,ECP="" "RTN","ECXQSR",85,0) ..Q:ECXCPT="" "RTN","ECXQSR",86,0) ..I ECTP D "RTN","ECXQSR",87,0) ...S CPT=$G(^ACK(509850.6,ECDA,7,ECTP,0)),ECP=$P(CPT,U) "RTN","ECXQSR",88,0) ...S ECP=$S(ECP<90000:$P($G(^EC(725,+ECP,0)),U,2)_"N",1:$P($G(^EC(725,+ECP,0)),U,2)_"L") "RTN","ECXQSR",89,0) ...S VOL=+$P(CPT,U,2),ECXPRV1=$P(CPT,U,3) "RTN","ECXQSR",90,0) ..I 'ECTP S VOL=+$P(CPT,U,3),ECXPRV1=$P(CPT,U,4) "RTN","ECXQSR",91,0) ..I $G(ECXPRV1) S ECXPRV1=$$CONVERT1^ACKQUTL4(ECXPRV1) "RTN","ECXQSR",92,0) ..S ECXCPT=$E($$CPT^ECXUTL3(ECXCPT),1,5),ECXMOD="",MOD=0 "RTN","ECXQSR",93,0) ..F S MOD=$O(^ACK(509850.6,ECDA,3,ECPN,1,MOD)) Q:'MOD D "RTN","ECXQSR",94,0) ...S MOD1=+^ACK(509850.6,ECDA,3,ECPN,1,MOD,0) D:MOD1 "RTN","ECXQSR",95,0) ....S ECXMOD=ECXMOD_MOD1_";" "RTN","ECXQSR",96,0) ..F I=1:1:$L(ECXMOD,";") I $G(ARY(ECXCPT))'[$P(ECXMOD,";",I) D "RTN","ECXQSR",97,0) ...S ARY(ECXCPT)=$G(ARY(ECXCPT))_$P(ECXMOD,";",I)_";" "RTN","ECXQSR",98,0) ..S:VOL ECV=VOL "RTN","ECXQSR",99,0) ..S ECV=ECV+$G(LOC(ECXCPT)),LOC(ECXCPT)=ECV_U_ECXPRV1_U_ECP "RTN","ECXQSR",100,0) .S ECIEN=0 F S ECIEN=$O(^ACK(509850.6,ECDA,1,ECIEN)) Q:'ECIEN D "RTN","ECXQSR",101,0) ..S DIA=^ACK(509850.6,ECDA,1,ECIEN,0),P=$P(DIA,U,2),P=$S(P=1:"P",1:"S") "RTN","ECXQSR",102,0) ..S CNT=$G(STR(P))+1,STR(P,CNT)=$P($G(^ICD9(+DIA,0)),U),STR(P)=CNT "RTN","ECXQSR",103,0) .S ECDIA=$G(STR("P",1)) "RTN","ECXQSR",104,0) .F I=1:1:4 Q:'$D(STR("P",I+1)) S @("ECXICD9"_I)=STR("P",I) "RTN","ECXQSR",105,0) .S:ECDIA="" ECDIA=$G(STR("S",1)),I=2 "RTN","ECXQSR",106,0) .F J=I:1:4 Q:'$D(STR("S",J)) S @("ECXICD9"_J)=STR("S",J) "RTN","ECXQSR",107,0) Q:('$D(LOC))!('$O(^ACK(509850.6,ECDA,1,0))) "RTN","ECXQSR",108,0) ;- Ord Div, Contract St/End Dates, Contract Type placeholders for FY2002 "RTN","ECXQSR",109,0) S (ECXODIV,ECXCSDT,ECXCEDT,ECXCTYP)="" "RTN","ECXQSR",110,0) ;set up Provider Person class "RTN","ECXQSR",111,0) S (ECXCPT,ECXPPC1,ECXPPC2,ECXPPC3,ECXPPC4,ECXPPC5)="" "RTN","ECXQSR",112,0) S:ECXPRV2'="" ECXPPC2=$$PRVCLASS^ECXUTL(ECXPRV2,ECD) "RTN","ECXQSR",113,0) S:ECXPRV3'="" ECXPPC3=$$PRVCLASS^ECXUTL(ECXPRV3,ECD) "RTN","ECXQSR",114,0) S:ECXPRV4'="" ECXPPC4=$$PRVCLASS^ECXUTL(ECXPRV4,ECD) "RTN","ECXQSR",115,0) S:ECXPRV5'="" ECXPPC5=$$PRVCLASS^ECXUTL(ECXPRV5,ECD) "RTN","ECXQSR",116,0) ;set up Provider NPI "RTN","ECXQSR",117,0) S (ECPR1NPI,ECPR2NPI,ECPR3NPI,ECPR4NPI,ECPR5NPI)="" "RTN","ECXQSR",118,0) S ECPR2NPI=$$NPI^XUSNPI("Individual_ID",ECXPRV2,ECD) "RTN","ECXQSR",119,0) S:+ECPR2NPI'>0 ECPR2NPI="" S ECPR2NPI=$P(ECPR2NPI,U) "RTN","ECXQSR",120,0) S ECPR3NPI=$$NPI^XUSNPI("Individual_ID",ECXPRV3,ECD) "RTN","ECXQSR",121,0) S:+ECPR3NPI'>0 ECPR3NPI="" S ECPR3NPI=$P(ECPR3NPI,U) "RTN","ECXQSR",122,0) S ECPR4NPI=$$NPI^XUSNPI("Individual_ID",ECXPRV4,ECD) "RTN","ECXQSR",123,0) S:+ECPR4NPI'>0 ECPR4NPI="" S ECPR4NPI=$P(ECPR4NPI,U) "RTN","ECXQSR",124,0) S ECPR5NPI=$$NPI^XUSNPI("Individual_ID",ECXPRV5,ECD) "RTN","ECXQSR",125,0) S:+ECPR5NPI'>0 ECPR5NPI="" S ECPR5NPI=$P(ECPR5NPI,U) "RTN","ECXQSR",126,0) N DA,DIC,DIK,DR,FILEN,DIQ,XVAR,II,DI "RTN","ECXQSR",127,0) F II=2,3,4,5 S XVAR="ECXPRV"_II I @XVAR'="" D "RTN","ECXQSR",128,0) .S @XVAR=2_@XVAR "RTN","ECXQSR",129,0) ; -Observation Patient Indicator (yes/no) "RTN","ECXQSR",130,0) S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECDSS) "RTN","ECXQSR",131,0) ; -CNH status (YES/NO) "RTN","ECXQSR",132,0) S ECXCNH=$$CNHSTAT^ECXUTL4(ECXDFN) "RTN","ECXQSR",133,0) ;get encounter classification "RTN","ECXQSR",134,0) S (ECXAO,ECXECE,ECXIR,ECXMIL,ECXHNC,ECXSHAD)="",ECXVISIT=$P($G(^ACK(509850.6,ECDA,6)),U,3) "RTN","ECXQSR",135,0) I ECXVISIT'="" D "RTN","ECXQSR",136,0) .D VISIT^ECXSCX1(ECXDFN,ECXVISIT,.ECXVIST,.ECXERR) I ECXERR K ECXERR Q "RTN","ECXQSR",137,0) .S ECXAO=$G(ECXVIST("AO")),ECXECE=$G(ECXVIST("PGE")),ECXSHAD=$G(ECXVIST("SHAD")) "RTN","ECXQSR",138,0) .S ECXIR=$G(ECXVIST("IR")),ECXMIL=$G(ECXVIST("MST")),ECXHNC=$G(ECXVIST("HNC")) "RTN","ECXQSR",139,0) ; -Head and Neck Cancer Indicator "RTN","ECXQSR",140,0) S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN) "RTN","ECXQSR",141,0) ; -PROJ 112/SHAD Indicator "RTN","ECXQSR",142,0) S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN) "RTN","ECXQSR",143,0) ; ******* - PATCH 127, ADD PATCAT CODE - ******** "RTN","ECXQSR",144,0) S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN) "RTN","ECXQSR",145,0) ;get enrollment data (category, status and priority) "RTN","ECXQSR",146,0) I $$ENROLLM^ECXUTL2(ECXDFN) "RTN","ECXQSR",147,0) ; -Get national patient record flag Indicator if exist "RTN","ECXQSR",148,0) D NPRF^ECXUTL5 "RTN","ECXQSR",149,0) ; -If no encounter number don't file record "RTN","ECXQSR",150,0) S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECDT,ECXTS,ECXOBS,ECHEAD,ECDSS,) "RTN","ECXQSR",151,0) Q:ECXENC="" "RTN","ECXQSR",152,0) ;Loop through array of unique procedures. Create record in ECODE. "RTN","ECXQSR",153,0) S CPT="" F S CPT=$O(LOC(CPT)) Q:CPT="" D "RTN","ECXQSR",154,0) .S ECV=+$P(LOC(CPT),U),ECXCPT=$$CPT^ECXUTL3(CPT,$G(ARY(CPT)),ECV) "RTN","ECXQSR",155,0) .S ECXPRV1=$P(LOC(CPT),U,2) "RTN","ECXQSR",156,0) .S:ECXPRV1'="" ECXPPC1=$$PRVCLASS^ECXUTL(ECXPRV1,ECD) "RTN","ECXQSR",157,0) .S ECPR1NPI=$$NPI^XUSNPI("Individual_ID",ECXPRV1,ECD) "RTN","ECXQSR",158,0) .S:+ECPR1NPI'>0 ECPR1NPI="" S ECPR1NPI=$P(ECPR1NPI,U) "RTN","ECXQSR",159,0) .S:ECXPRV1'="" ECXPRV1=2_ECXPRV1 "RTN","ECXQSR",160,0) .S ECP=$P(LOC(CPT),U,3) I ECP="" S ECP=$$CPT^ECXUTL3(CPT,"",ECV) "RTN","ECXQSR",161,0) .D FILE^ECXQSR1 "RTN","ECXQSR",162,0) K CPT,LOC "RTN","ECXQSR",163,0) Q "RTN","ECXQSR",164,0) SETUP ;Set required input for ECXTRAC "RTN","ECXQSR",165,0) S ECHEAD="ECQ" "RTN","ECXQSR",166,0) D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER) "RTN","ECXQSR",167,0) Q "RTN","ECXQSR",168,0) QUE ;Entry point for the background requeuing handled by ECXTAUTO. "RTN","ECXQSR",169,0) D SETUP,QUE^ECXTAUTO,^ECXKILL Q "RTN","ECXQSR1") 0^12^B13899890^B12313439 "RTN","ECXQSR1",1,0) ECXQSR1 ;ALB/JAP,BIR/PTD-DSS QUASAR Extract ;10/14/10 18:04 "RTN","ECXQSR1",2,0) ;;3.0;DSS EXTRACTS;**105,120,127,132,136**;Dec 22, 1997;Build 28 "RTN","ECXQSR1",3,0) FILE ;file record in #727.825 "RTN","ECXQSR1",4,0) ;node0 "RTN","ECXQSR1",5,0) ;inst^dfn ECXDFN^ssn ECXSSN^name ECXPNM^i/o status ECXA^day ECDAY^ "RTN","ECXQSR1",6,0) ;DSS unit ECDU^^category ECPTTM^procedure ECP^volume ECV^cost center^ "RTN","ECXQSR1",7,0) ;ordering sec ^section^provider ECXPRV1^ECXPPC1^ECXPRV2^ECXPPC2^ECXPRV3^ "RTN","ECXQSR1",8,0) ;ECXPPC3^mov # ECXMN^treat spec ECXTS^time ECTIME^primary care team "RTN","ECXQSR1",9,0) ;ECPTTM^primary care provider ECPTPR^pce cpt code & modifers ECXCPT^ "RTN","ECXQSR1",10,0) ;primary icd-9 code ECDIA^secondary icd-9 #1 ECXICD91^secondary icd-9 "RTN","ECXQSR1",11,0) ;#2 ECXICD92^secondary icd-9 #3 ECXICD93^secondary icd-9 #4 ECXICD94^ "RTN","ECXQSR1",12,0) ;agent orange ECXAST^radiation exposure ECRST^environmental "RTN","ECXQSR1",13,0) ;contaminants ECEST^service connected ECSC^sent to pce^^dss identifier "RTN","ECXQSR1",14,0) ;ECDSS^placeholder "RTN","ECXQSR1",15,0) ;node1 "RTN","ECXQSR1",16,0) ;mpi ECXNPI^dss dept ECXDSSD^^^^placeholder "RTN","ECXQSR1",17,0) ;^assoc pc provider ECASPR^assoc pc prov person class "RTN","ECXQSR1",18,0) ;ECCLAS2^placeholder^divison ECXDIV^dom ECXDOM^ "RTN","ECXQSR1",19,0) ;enrollment category ECXCAT^enrollment status ECXSTAT^enrollment prior "RTN","ECXQSR1",20,0) ;ECXPRIOR^period of service ECXPOS^purple heart ECXPHI^observ pat ind "RTN","ECXQSR1",21,0) ;ECXOBS^encounter num ECXENC^ao loc ECXAOL^ord div ECXODIV^contr st dt "RTN","ECXQSR1",22,0) ;ECXCSDT^contr end dt ECXCEDT^contr typ ECXCTYP^CNH stat ECXCNH^ "RTN","ECXQSR1",23,0) ;production division ECXPDIV^eligibility ECXELIG^ethnicity ECXETH^ "RTN","ECXQSR1",24,0) ;race1 ECXRC1^enrollment location ECXENRL^^enrollment priority "RTN","ECXQSR1",25,0) ;ECXPRIOR_enrollment subgroup ECXSBGRP^user enrollee ECXUESTA^patient "RTN","ECXQSR1",26,0) ;type ECXPTYPE^combat vet elig ECXCVE^combat vet elig end date ECXCVEDT^ "RTN","ECXQSR1",27,0) ;enc cv eligible ECXCVENC^national patient record flag ECXNPRFI^ "RTN","ECXQSR1",28,0) ;emergency response indicator(FEMA) ECXERI^agent orange indicator "RTN","ECXQSR1",29,0) ;ECXAO^environ contam ECXECE^head/neck ECXHNC^military sexual trauma "RTN","ECXQSR1",30,0) ;ECXMIL^radiation encoun ECXIR^nutrition dx(currently null)^OEF/OIF ECXOEF^ "RTN","ECXQSR1",31,0) ;OEF/OIF return date ECXOEFDT^assoc pc provider npi ECASNPI^ "RTN","ECXQSR1",32,0) ;primary care provider npi ECPTNPI^provider npi ECPR1NPI^ "RTN","ECXQSR1",33,0) ;provider #2 npi ECPR2NPI^provider #3 npi ECPR3NPI^shad status ECXSHADI^ "RTN","ECXQSR1",34,0) ;shad encouter ECXSHAD^pat cat ECXPATCAT^provider #4 ECXPRV4^ "RTN","ECXQSR1",35,0) ;provider #4 pc ECXPPC4^provider #4 npi ECPR4NPI^provider #5 ECXPRV5^ "RTN","ECXQSR1",36,0) ;provider #5 pc ECXPPC5^provider #5 npi ECPR5NPI^ "RTN","ECXQSR1",37,0) ;primary ICD-10 code (currently null) ECXICD10P^Secondary ICD-10 Code #1 (currently null) ECXICD101^ "RTN","ECXQSR1",38,0) ;Secondary ICD-10 Code #2 (currently null) ECXICD102^Secondary ICD-10 Code #3 (currently null) ECXICD103^ "RTN","ECXQSR1",39,0) ;Secondary ICD-10 Code #4 (currently null) ECXICD104 "RTN","ECXQSR1",40,0) ; "RTN","ECXQSR1",41,0) ;convert specialty to PTF Code for transmission "RTN","ECXQSR1",42,0) N ECXDATA,ECXTSC "RTN","ECXQSR1",43,0) S ECXDATA=$$TSDATA^DGACT(42.4,+ECXTS,.ECXDATA) "RTN","ECXQSR1",44,0) S ECXTSC=$G(ECXDATA(7)) "RTN","ECXQSR1",45,0) ;done "RTN","ECXQSR1",46,0) N DA,DIK "RTN","ECXQSR1",47,0) S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1 "RTN","ECXQSR1",48,0) S ECODE=EC7_U_EC23_U "RTN","ECXQSR1",49,0) S ECODE=ECODE_ECL_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U_ECDAY_U_ECDU_U_U "RTN","ECXQSR1",50,0) S ECODE=ECODE_ECP_U_ECV_U_ECCS_U_ECO_U_ECM_U_ECXPRV1_U_ECXPPC1_U "RTN","ECXQSR1",51,0) S ECODE=ECODE_ECXPRV2_U_ECXPPC2_U_ECXPRV3_U_ECXPPC3_U_U "RTN","ECXQSR1",52,0) S ECODE=ECODE_ECXMN_U_ECXTSC_U_ECTIME_U_ECPTTM_U "RTN","ECXQSR1",53,0) S ECODE=ECODE_ECPTPR_U_ECXCPT_U_ECDIA_U_ECXICD91_U_ECXICD92_U "RTN","ECXQSR1",54,0) S ECODE=ECODE_ECXICD93_U_ECXICD94_U_ECXAST_U_ECXRST_U_ECXEST_U "RTN","ECXQSR1",55,0) S ECODE=ECODE_ECSC_U_"N"_U_U_ECDSS_U_U "RTN","ECXQSR1",56,0) S ECODE1=ECXMPI_U_ECXDSSD_U_U_U_U_ECCLAS_U_U_ECASPR_U "RTN","ECXQSR1",57,0) S ECODE1=ECODE1_ECCLAS2_U_U_ECXDIV_U_ECXMST_U_ECXDOM_U "RTN","ECXQSR1",58,0) S ECODE1=ECODE1_ECXDOB_U_ECXCAT_U_ECXSTAT_U_$S(ECXLOGIC<2005:ECXPRIOR,1:"")_U_ECXPOS_U_ECXPHI_U "RTN","ECXQSR1",59,0) S ECODE1=ECODE1_ECXOBS_U_ECXENC_U_ECXAOL_U_ECXODIV_U_ECXCSDT_U_ECXCEDT_U "RTN","ECXQSR1",60,0) S ECODE1=ECODE1_ECXCTYP_U_ECXCNH_U_ECXPDIV_U_ECXELIG_U_ECXHNCI_U_ECXETH_U "RTN","ECXQSR1",61,0) S ECODE1=ECODE1_ECXRC1 "RTN","ECXQSR1",62,0) I ECXLOGIC>2003 S ECODE1=ECODE1_U_ECXENRL "RTN","ECXQSR1",63,0) I ECXLOGIC>2004 S ECODE1=ECODE1_U_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U "RTN","ECXQSR1",64,0) I ECXLOGIC>2004 S ECODE2=ECXCVEDT_U_ECXCVENC_U_ECXNPRFI "RTN","ECXQSR1",65,0) I ECXLOGIC>2006 S ECODE2=ECODE2_U_ECXERI_U_ECXAO_U_ECXECE_U_ECXHNC_U_ECXMIL_U_ECXIR_U "RTN","ECXQSR1",66,0) I ECXLOGIC>2007 S ECODE2=ECODE2_U_$G(ECXOEF)_U_$G(ECXOEFDT)_U_$G(ECASNPI)_U_$G(ECPTNPI)_U_$G(ECPR1NPI)_U_$G(ECPR2NPI)_U_$G(ECPR3NPI) "RTN","ECXQSR1",67,0) I ECXLOGIC>2010 S ECODE2=ECODE2_U_$G(ECXSHADI)_U_$G(ECXSHAD)_U_ECXPATCAT "RTN","ECXQSR1",68,0) I ECXLOGIC>2011 S ECODE2=ECODE2_U_$G(ECXPRV4)_U_$G(ECXPPC4)_U_$G(ECPR4NPI)_U_$G(ECXPRV5)_U_$G(ECXPPC5)_U_$G(ECPR5NPI) "RTN","ECXQSR1",69,0) I ECXLOGIC>2012 S ECODE2=ECODE2_U_ECXICD10P_U_ECXICD101_U_ECXICD102_U_ECXICD103_U "RTN","ECXQSR1",70,0) I ECXLOGIC>2012 S ECODE3=ECXICD104 "RTN","ECXQSR1",71,0) S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,^ECX(ECFILE,EC7,2)=$G(ECODE2),^ECX(ECFILE,EC7,3)=$G(ECODE3),ECRN=ECRN+1 "RTN","ECXQSR1",72,0) S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA "RTN","ECXQSR1",73,0) I $D(ZTQUEUED),$$S^%ZTLOAD "RTN","ECXQSR1",74,0) Q "RTN","ECXQSR1",75,0) SETUP ;Set required input for ECXTRAC "RTN","ECXQSR1",76,0) S ECHEAD="ECQ" "RTN","ECXQSR1",77,0) D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER) "RTN","ECXQSR1",78,0) Q "RTN","ECXQSR1",79,0) QUE ;Entry point for the background requeuing handled by ECXTAUTO. "RTN","ECXQSR1",80,0) D SETUP,QUE^ECXTAUTO,^ECXKILL Q "RTN","ECXRAD") 0^1^B39628286^B36528555 "RTN","ECXRAD",1,0) ECXRAD ;ALB/JAP,BIR/PDW,PTD-Extract for Radiology ;6/28/12 11:08 "RTN","ECXRAD",2,0) ;;3.0;DSS EXTRACTS;**11,8,13,16,24,33,39,46,71,84,92,105,120,127,136**;Dec 22, 1997;Build 28 "RTN","ECXRAD",3,0) BEG ;entry point from option "RTN","ECXRAD",4,0) D SETUP I ECFILE="" Q "RTN","ECXRAD",5,0) D ^ECXTRAC,^ECXKILL "RTN","ECXRAD",6,0) Q "RTN","ECXRAD",7,0) ; "RTN","ECXRAD",8,0) START ;start rad extract "RTN","ECXRAD",9,0) S QFLG=0 "RTN","ECXRAD",10,0) K ECXDD D FIELD^DID(70.03,14,,"SPECIFIER","ECXDD") S ECPROF=$E(+$P(ECXDD("SPECIFIER"),"P",2)) K ECXDD "RTN","ECXRAD",11,0) S ECXDFN="",ECDT=ECSD-.1,ECED1=ECED+.3 "RTN","ECXRAD",12,0) F S ECDT=$O(^RADPT("AR",ECDT)) Q:ECDT>ECED1!(ECDT'>0) D Q:QFLG "RTN","ECXRAD",13,0) .S ECXDFN="" "RTN","ECXRAD",14,0) .F S ECXDFN=$O(^RADPT("AR",ECDT,ECXDFN)) Q:ECXDFN="" I '$D(^TMP("ECL",$J,ECXDFN)) D GET Q:QFLG "RTN","ECXRAD",15,0) K ^TMP("ECL",$J) "RTN","ECXRAD",16,0) Q "RTN","ECXRAD",17,0) ; "RTN","ECXRAD",18,0) GET ;get data "RTN","ECXRAD",19,0) N ECXIEN,X,SUB,TYPE,ECDOCPC,ECXIS,ECXISPC,ECXPRCL,ECXCSC,ECXUSRTN,ECXCM,ECSTAT ;136 "RTN","ECXRAD",20,0) S ^TMP("ECL",$J,ECXDFN)="" "RTN","ECXRAD",21,0) ;with dfn get all exams within date range "RTN","ECXRAD",22,0) S ECXMDT=ECSD-.1 "RTN","ECXRAD",23,0) F S ECXMDT=$O(^RADPT(ECXDFN,"DT","B",ECXMDT)) Q:((ECXMDT>ECED1)!(ECXMDT="")) D Q:QFLG "RTN","ECXRAD",24,0) .S ECXMDA=$O(^RADPT(ECXDFN,"DT","B",ECXMDT,"")) Q:ECXMDA="" "RTN","ECXRAD",25,0) .S ECXIEN=+$P($G(^RADPT(ECXDFN,"DT",ECXMDA,"P",1,0)),U,11) "RTN","ECXRAD",26,0) .S ECTM=$$ECXTIME^ECXUTL(ECXMDT) S:ECTM>235959 ECTM=235959 "RTN","ECXRAD",27,0) .S ECXDAY=$$ECXDATE^ECXUTL(ECXMDT,ECXYM) "RTN","ECXRAD",28,0) .K ECXPAT S OK=$$PAT^ECXUTL3(ECXDFN,$P(ECXMDT,"."),"1;3",.ECXPAT) "RTN","ECXRAD",29,0) .Q:'OK "RTN","ECXRAD",30,0) .S ECXPNM=ECXPAT("NAME"),ECXSSN=ECXPAT("SSN"),ECXMPI=ECXPAT("MPI") "RTN","ECXRAD",31,0) .;get emergency response indicator (FEMA) "RTN","ECXRAD",32,0) .S ECXERI=ECXPAT("ERI") "RTN","ECXRAD",33,0) .S X=$$PRIMARY^ECXUTL2(ECXDFN,$P(ECXMDT,"."),ECPROF) "RTN","ECXRAD",34,0) .S ECPTTM=$P(X,U,1),ECPTPR=$P(X,U,2),ECCLAS=$P(X,U,3),ECPTNPI=$P(X,U,4) "RTN","ECXRAD",35,0) .S ECASPR=$P(X,U,5),ECCLAS2=$P(X,U,6),ECASNPI=$P(X,U,7) "RTN","ECXRAD",36,0) .S X=$$INP^ECXUTL2(ECXDFN,ECXMDT),ECXA=$P(X,U),ECXMN=$P(X,U,2) "RTN","ECXRAD",37,0) .S ECXTS=$P(X,U,3),ECXDOM=$P(X,U,10),ECXADMDT=$P(X,U,4) "RTN","ECXRAD",38,0) .; "RTN","ECXRAD",39,0) .;- Observation patient indicator (YES/NO) "RTN","ECXRAD",40,0) .S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS) "RTN","ECXRAD",41,0) .;for dfn & date get exam(s) ien "RTN","ECXRAD",42,0) .S ECXMDA="" "RTN","ECXRAD",43,0) .F S ECXMDA=$O(^RADPT(ECXDFN,"DT","B",ECXMDT,ECXMDA)) Q:+ECXMDA=0 D "RTN","ECXRAD",44,0) ..S ECXDIV=$P(^RADPT(ECXDFN,"DT",ECXMDA,0),U,3),ECLOC=$P(^(0),U,4),ECTY=$P(^(0),U,2) "RTN","ECXRAD",45,0) ..; "RTN","ECXRAD",46,0) ..;- Ordering stop code (based on imaging location) "RTN","ECXRAD",47,0) ..S ECXORDST=$$GET1^DIQ(40.7,$$GET1^DIQ(79.1,$G(ECLOC),22,"I"),1) "RTN","ECXRAD",48,0) ..; "RTN","ECXRAD",49,0) ..;- Get ordering date using Imaging Order ptr to #75.1 in subfile 70.03 "RTN","ECXRAD",50,0) ..S ECXIEN=+$P($G(^RADPT(ECXDFN,"DT",ECXMDA,"P",1,0)),U,11) "RTN","ECXRAD",51,0) ..S ECXORDDT=$$ECXDATE^ECXUTL($P($G(^RAO(75.1,ECXIEN,0)),U,16),ECXYM) "RTN","ECXRAD",52,0) ..; "RTN","ECXRAD",53,0) ..;******* - PATCH 127, ADD PATCAT CODE ******** "RTN","ECXRAD",54,0) ..S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN) "RTN","ECXRAD",55,0) ..;- If no encounter number don't file record "RTN","ECXRAD",56,0) ..S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXMDT,ECXTS,ECXOBS,ECHEAD,ECTY,) Q:ECXENC="" "RTN","ECXRAD",57,0) ..;procedures and modifiers for specific exam (case numbers) "RTN","ECXRAD",58,0) ..;ward/clinic,service,provider,diagnostic code "RTN","ECXRAD",59,0) ..S ECCN=0 "RTN","ECXRAD",60,0) ..F S ECCN=$O(^RADPT(ECXDFN,"DT",ECXMDA,"P",ECCN)) Q:ECCN'>0 D "RTN","ECXRAD",61,0) ...S ECCA=^RADPT(ECXDFN,"DT",ECXMDA,"P",ECCN,0) "RTN","ECXRAD",62,0) ...S ECXCM=$P(ECCA,U,26) S ECXCM=$S("^0^1^2^3^"[("^"_ECXCM_"^"):ECXCM,1:"") ;136 - Get Credit Method and validate that it's a number between 0 and 3 otherwise set it to null "RTN","ECXRAD",63,0) ...S ECXW=$P(ECCA,U,6),ECXW=$P($G(^DIC(42,+ECXW,44)),U) "RTN","ECXRAD",64,0) ...S:ECXW="" ECXW=$P(ECCA,U,8) "RTN","ECXRAD",65,0) ...S ECDOCNPI=$$NPI^XUSNPI("Individual_ID",$P(ECCA,U,14),ECDT) "RTN","ECXRAD",66,0) ...S:+ECDOCNPI'>0 ECDOCNPI="" S ECDOCNPI=$P(ECDOCNPI,U) "RTN","ECXRAD",67,0) ...S (ECXDSSD,ECXDSSP)="" "RTN","ECXRAD",68,0) ...S ECS=$P(ECCA,U,7),ECDOC=ECPROF_$P(ECCA,U,14),ECDI=$P(ECCA,U,13),ECDOCPC=$$PRVCLASS^ECXUTL($P(ECCA,U,14),ECDT) "RTN","ECXRAD",69,0) ...S ECPRO=$P(ECCA,U,2),ECSTAT=$P($G(^RA(72,+$P(ECCA,U,3),0)),U,3) "RTN","ECXRAD",70,0) ...;get the primary interpreting staff and the person class DBIA #65 "RTN","ECXRAD",71,0) ...S ECXIS=$P(ECCA,U,15),ECXISPC=$$PRVCLASS^ECXUTL(ECXIS,ECDT) "RTN","ECXRAD",72,0) ...S ECISNPI=$$NPI^XUSNPI("Individual_ID",ECXIS,ECDT) "RTN","ECXRAD",73,0) ...S:+ECISNPI'>0 ECISNPI="" S ECISNPI=$P(ECISNPI,U) "RTN","ECXRAD",74,0) ...;prefix interpreting radiologist with a "2" if not null "RTN","ECXRAD",75,0) ...S ECXIS=$S(ECXIS:"2"_ECXIS,1:"") "RTN","ECXRAD",76,0) ...;get the principal clinic ien DBIA #65 "RTN","ECXRAD",77,0) ...S ECXPRCL=$P(ECCA,U,8) "RTN","ECXRAD",78,0) ...;get the clinic stop code from file #44 "RTN","ECXRAD",79,0) ...S ECXCSC=$$GET1^DIQ(40.7,$$GET1^DIQ(44,ECXPRCL,8,"I"),1) "RTN","ECXRAD",80,0) ...Q:'ECPRO "RTN","ECXRAD",81,0) ...Q:+ECSTAT=0 "RTN","ECXRAD",82,0) ...;get CPT code & modifiers "RTN","ECXRAD",83,0) ...S ECPT=+$P($G(^RAMIS(71,+ECPRO,0)),U,9),ECXCMOD="" "RTN","ECXRAD",84,0) ...;quit if this is a 'parent' procedure "RTN","ECXRAD",85,0) ...S TYPE=$P($G(^RAMIS(71,+ECPRO,0)),U,6) "RTN","ECXRAD",86,0) ...Q:((ECPT=0)&(TYPE="P")) "RTN","ECXRAD",87,0) ...;if site is using radiology with cpt modifiers then get them "RTN","ECXRAD",88,0) ...K ARR,ERR D FIELD^DID(70.03,135,,"LABEL","ARR","ERR") "RTN","ECXRAD",89,0) ...I $D(ARR("LABEL")) D "RTN","ECXRAD",90,0) ....K ARR,ERR D FIELD^DID(70.03,135,,"GLOBAL SUBSCRIPT LOCATION","ARR","ERR") "RTN","ECXRAD",91,0) ....Q:$D(ERR("DIERR")) "RTN","ECXRAD",92,0) ....S SUB=$P(ARR("GLOBAL SUBSCRIPT LOCATION"),";") S ECMOD=0 "RTN","ECXRAD",93,0) ....Q:'$D(^RADPT(ECXDFN,"DT",ECXMDA,"P",ECCN,SUB)) "RTN","ECXRAD",94,0) ....F S ECMOD=$O(^RADPT(ECXDFN,"DT",ECXMDA,"P",ECCN,SUB,ECMOD)) Q:ECMOD'>0 S ECXCMOD=ECXCMOD_$P(^(ECMOD,0),U)_";" "RTN","ECXRAD",95,0) ...S ECXCPT=$$CPT^ECXUTL3(ECPT,ECXCMOD) "RTN","ECXRAD",96,0) ...;get procedure radiology modifiers "RTN","ECXRAD",97,0) ...S ECMOD=0,ECMODS="" "RTN","ECXRAD",98,0) ...F S ECMOD=$O(^RADPT(ECXDFN,"DT",ECXMDA,"P",ECCN,"M",ECMOD)) Q:ECMOD'>0 S ECMODS=ECMODS_$P(^(ECMOD,0),U)_";" "RTN","ECXRAD",99,0) ...S ECXPDIV=$$RADDIV^ECXDEPT(ECXDIV) ;p-46 "RTN","ECXRAD",100,0) ...D FILE "RTN","ECXRAD",101,0) Q "RTN","ECXRAD",102,0) ; "RTN","ECXRAD",103,0) FILE ;file record "RTN","ECXRAD",104,0) ;node0 "RTN","ECXRAD",105,0) ;rad div^dfn^ssn^name^in/out (ECXA)^day^cpt code^procedure^img loc^ward^ "RTN","ECXRAD",106,0) ;ser^diag code^req physician^modifiers^mov #^treat spec^time^ "RTN","ECXRAD",107,0) ;imaging type^primary care team^primary care provider "RTN","ECXRAD",108,0) ;node1 "RTN","ECXRAD",109,0) ;mpi^dss dept^placeholder^placeholder^pc prov person class^ "RTN","ECXRAD",110,0) ;assoc pc provider^assoc pc prov person class^placeholder^dom^ "RTN","ECXRAD",111,0) ;observ pat ind^encounter num^ord stop code^ord date^division^ "RTN","ECXRAD",112,0) ;dss product ECXDSSP^requesting provider person class ECDOCPC^interp- "RTN","ECXRAD",113,0) ;reting radiologist ECXIS^interpreting radiologist pc ECXISPC^princi- "RTN","ECXRAD",114,0) ;pal clinic ECXPRCL^clinc stop code ECXCSC^emergency response indicator "RTN","ECXRAD",115,0) ;(FEMA) ECXERI^assoc pc provider npi^interpreting rad npi^pc provider npi^req physician npi^Patient Category (PATCAT) ECXPATCAT^Credit Method ECXCM "RTN","ECXRAD",116,0) ; "RTN","ECXRAD",117,0) ;convert specialty to PTF Code for transmission "RTN","ECXRAD",118,0) N ECXDATA,ECXTSC "RTN","ECXRAD",119,0) S ECXDATA=$$TSDATA^DGACT(42.4,+ECXTS,.ECXDATA) "RTN","ECXRAD",120,0) S ECXTSC=$G(ECXDATA(7)) "RTN","ECXRAD",121,0) ;done "RTN","ECXRAD",122,0) N DA,DIK "RTN","ECXRAD",123,0) S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1 "RTN","ECXRAD",124,0) S ECODE=EC7_U_EC23_U_ECXDIV_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U "RTN","ECXRAD",125,0) S ECODE=ECODE_ECXDAY_U_ECXCPT_U_ECPRO_U_ECLOC_U_ECXW_U_ECS_U_ECDI_U "RTN","ECXRAD",126,0) S ECODE=ECODE_ECDOC_U_ECMODS_U_ECXMN_U_ECXTSC_U_ECTM_U_ECTY_U_ECPTTM_U "RTN","ECXRAD",127,0) S ECODE=ECODE_ECPTPR_U "RTN","ECXRAD",128,0) S ECODE1=ECXMPI_U_ECXDSSD_U_U_U_ECCLAS_U_ECASPR_U "RTN","ECXRAD",129,0) S ECODE1=ECODE1_ECCLAS2_U_U_ECXDOM_U_ECXOBS_U_ECXENC_U_ECXORDST_U "RTN","ECXRAD",130,0) S ECODE1=ECODE1_ECXORDDT_U_ECXPDIV_U "RTN","ECXRAD",131,0) I ECXLOGIC>2004 S ECODE1=ECODE1_ECXDSSP_U_ECDOCPC "RTN","ECXRAD",132,0) I ECXLOGIC>2005 S ECODE1=ECODE1_U_ECXIS_U_ECXISPC_U_ECXPRCL_U_ECXCSC "RTN","ECXRAD",133,0) I ECXLOGIC>2006 S ECODE1=ECODE1_U_ECXERI "RTN","ECXRAD",134,0) I ECXLOGIC>2007 S ECODE1=ECODE1_U_ECASNPI_U_ECISNPI_U_ECPTNPI_U_ECDOCNPI "RTN","ECXRAD",135,0) I ECXLOGIC>2010 S ECODE1=ECODE1_U_ECXPATCAT ;127 PATCAT "RTN","ECXRAD",136,0) I ECXLOGIC>2012 S ECODE1=ECODE1_U_ECXCM ;136 Credit Method "RTN","ECXRAD",137,0) S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,ECRN=ECRN+1 "RTN","ECXRAD",138,0) S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA "RTN","ECXRAD",139,0) I $D(ZTQUEUED),$$S^%ZTLOAD S QFLG=1 "RTN","ECXRAD",140,0) Q "RTN","ECXRAD",141,0) ; "RTN","ECXRAD",142,0) SETUP ;Set required input for ECXTRAC "RTN","ECXRAD",143,0) S ECHEAD="RAD" "RTN","ECXRAD",144,0) D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER) "RTN","ECXRAD",145,0) Q "RTN","ECXSCLD") 0^17^B200358220^B199744247 "RTN","ECXSCLD",1,0) ECXSCLD ;BIR/DMA,CML-Enter, Print and Edit Entries in 728.44 ;9/4/12 12:55 "RTN","ECXSCLD",2,0) ;;3.0;DSS EXTRACTS;**2,8,24,30,71,80,105,112,120,126,132,136**;Dec 22, 1997;Build 28 "RTN","ECXSCLD",3,0) EN ;entry point from option "RTN","ECXSCLD",4,0) ;load entries "RTN","ECXSCLD",5,0) W !!,"This option creates local entries in the DSS CLINIC AND STOP CODES" "RTN","ECXSCLD",6,0) W !,"file (#728.44)." "RTN","ECXSCLD",7,0) I '$D(^ECX(728.44)) W !,"DSS Clinic stop code file does not exist",!! R X:5 K X Q "RTN","ECXSCLD",8,0) W !!,"It also compares file #728.44 to the HOSPITAL LOCATION file (#44) to see" "RTN","ECXSCLD",9,0) W !,"if there are any differences since the last time the file was reviewed." "RTN","ECXSCLD",10,0) W !!,"Any differences or new entries will cause an UNREVIEWED CLINICS report" "RTN","ECXSCLD",11,0) W !,"to automatically print.",! "RTN","ECXSCLD",12,0) D SELECT^ECXSCLD "RTN","ECXSCLD",13,0) Q "RTN","ECXSCLD",14,0) START ; entry point "RTN","ECXSCLD",15,0) N ZTREQ "RTN","ECXSCLD",16,0) S EC=0 F S EC=$O(^SC(EC)) Q:'EC D FIX(EC) "RTN","ECXSCLD",17,0) K DIK S DIK="^ECX(728.44,",DIK(1)=".01^B" D ENALL^DIK "RTN","ECXSCLD",18,0) ;print 'unreviewed clinics' report "RTN","ECXSCLD",19,0) S ECALL="U" D SPRINT^ECXSCLD "RTN","ECXSCLD",20,0) S ZTREQ="@" "RTN","ECXSCLD",21,0) Q "RTN","ECXSCLD",22,0) ; "RTN","ECXSCLD",23,0) FIX(EC) ; "RTN","ECXSCLD",24,0) ; synchronize files #44 and #728.44. "RTN","ECXSCLD",25,0) ; differences are placed in ^XTMP("ECX UNREVIEWED CLINICS") "RTN","ECXSCLD",26,0) S EC=$G(EC) "RTN","ECXSCLD",27,0) I '$D(^SC(EC,0)) Q "RTN","ECXSCLD",28,0) N ECD,DAT "RTN","ECXSCLD",29,0) S ECD=^SC(EC,0),DAT=$G(^SC(EC,"I")) "RTN","ECXSCLD",30,0) I $P(ECD,U,3)'="C" Q "RTN","ECXSCLD",31,0) ; get stop codes and default style for feeder key "RTN","ECXSCLD",32,0) ; 1 if no credit stop code - 5 if credit stop code exists "RTN","ECXSCLD",33,0) K ECD2,ECS2,ECDNEW,ECDDIF,ECSCSIGN I $D(^ECX(728.44,EC,0)) S (ECD2,ECDDIF)=^(0),ECSCSIGN="" "RTN","ECXSCLD",34,0) I $D(ECD2) F ECS=2,3,4,5 D "RTN","ECXSCLD",35,0) .S (ECS2(ECS),X)=$P(ECD2,U,ECS) "RTN","ECXSCLD",36,0) .K DIC,Y S DIC=40.7,DIC(0)="MXZ" D ^DIC "RTN","ECXSCLD",37,0) .I +$G(Y)>0 S $P(ECS2(ECS),U,2)=$P(^DIC(40.7,+Y,0),U,3) "RTN","ECXSCLD",38,0) S ID=+DAT,RD=$P(DAT,U,2),ECXINAC=0 "RTN","ECXSCLD",39,0) ;change in clinic inactivation for existing entry "RTN","ECXSCLD",40,0) I $D(ECD2) D "RTN","ECXSCLD",41,0) .;don't include already old inactivated clinics in report "RTN","ECXSCLD",42,0) .I ID,ID'>DT I ('RD)!(RD>DT) I $P(ECD2,U,10)=ID S ECXINAC=1 "RTN","ECXSCLD",43,0) .I ID,ID'>DT I ('RD)!(RD>DT) I $P(ECD2,U,10)'=ID D "RTN","ECXSCLD",44,0) ..S $P(ECD2,U,7)="",$P(ECD2,U,10)=ID,ECSCSIGN="*" "RTN","ECXSCLD",45,0) .I ID,RD,(RD'>DT) I $P(ECD2,U,10) D "RTN","ECXSCLD",46,0) ..S $P(ECD2,U,7)="",$P(ECD2,U,10)="",ECSCSIGN="r" "RTN","ECXSCLD",47,0) .I ID,(ID>DT) I $P(ECD2,U,10) D "RTN","ECXSCLD",48,0) ..S $P(ECD2,U,7)="",$P(ECD2,U,10)="",ECSCSIGN="!" "RTN","ECXSCLD",49,0) .I 'ID,$P(ECD2,U,10) D "RTN","ECXSCLD",50,0) ..S $P(ECD2,U,7)="",$P(ECD2,U,10)="",ECSCSIGN="!" "RTN","ECXSCLD",51,0) .S ECDDIF=ECD2 "RTN","ECXSCLD",52,0) ;setup for stops "RTN","ECXSCLD",53,0) F ECS=7,18 S ECP=+$P(ECD,U,ECS),ECS(ECS)=$P($G(^DIC(40.7,ECP,0)),U,2)_U_$P($G(^DIC(40.7,ECP,0)),U,3) "RTN","ECXSCLD",54,0) S ECDF=$S($P(ECS(18),U)]"":5,1:1) S:$P(ECD,U,17)="Y" ECDF=6 S:$G(^SC(EC,"OOS")) ECDF=6 "RTN","ECXSCLD",55,0) S ECDB=EC_U_$S(+ECS(7):+ECS(7),1:"")_U_$S(+ECS(18):+ECS(18),1:"") "RTN","ECXSCLD",56,0) ;new entry "RTN","ECXSCLD",57,0) I '$D(ECD2) D "RTN","ECXSCLD",58,0) .S $P(^ECX(728.44,EC,0),U,1,5)=ECDB_U_$S(+ECS(7):+ECS(7),1:"")_U_$S(+ECS(18):+ECS(18),1:"") "RTN","ECXSCLD",59,0) .S $P(^(0),U,6)=ECDF,$P(^(0),U,12)=$P(ECD,U,17) "RTN","ECXSCLD",60,0) .S ECDNEW=^ECX(728.44,EC,0) "RTN","ECXSCLD",61,0) ;changes to existing entry "RTN","ECXSCLD",62,0) I $D(ECD2) D "RTN","ECXSCLD",63,0) .S $P(ECD2,U,1,3)=ECDB,$P(ECDDIF,U,1,3)=ECDB "RTN","ECXSCLD",64,0) .;differs in stop code "RTN","ECXSCLD",65,0) .I +ECS(7)'=+ECS2(2) S $P(ECD2,U,7)="",X=$P(ECDDIF,U,2)_"!",$P(ECDDIF,U,2)=X "RTN","ECXSCLD",66,0) .;differs in credit stop code "RTN","ECXSCLD",67,0) .I +ECS(18)'=+ECS2(3) S $P(ECD2,U,7)="",X=$P(ECDDIF,U,3)_"!",$P(ECDDIF,U,3)=X "RTN","ECXSCLD",68,0) .;stop code inactive "RTN","ECXSCLD",69,0) .;I $P(ECS(7),U,2) S $P(ECD2,U,7)="",X=$P(ECDDIF,U,2)_"*",$P(ECDDIF,U,2)=X "RTN","ECXSCLD",70,0) .;credit stop code inactive "RTN","ECXSCLD",71,0) .;I $P(ECS(18),U,2) S $P(ECD2,U,7)="",X=$P(ECDDIF,U,3)_"*",$P(ECDDIF,U,3)=X "RTN","ECXSCLD",72,0) .;dss stop code inactive "RTN","ECXSCLD",73,0) .;I $P(ECS2(4),U,2) S $P(ECD2,U,7)="",X=$P(ECDDIF,U,4)_"*",$P(ECDDIF,U,4)=X "RTN","ECXSCLD",74,0) .;dss credit stop code inactive "RTN","ECXSCLD",75,0) .;I $P(ECS2(5),U,2) S $P(ECD2,U,7)="",X=$P(ECDDIF,U,5)_"*",$P(ECDDIF,U,5)=X "RTN","ECXSCLD",76,0) .;change in non-count "RTN","ECXSCLD",77,0) .I $P(ECD2,U,12)'=$P(ECD,U,17) S X=$P(ECD,U,17)_"!",$P(ECDDIF,U,12)=X,$P(ECD2,U,12)=$P(ECD,U,17),$P(ECD2,U,7)="" "RTN","ECXSCLD",78,0) .;reset entry "RTN","ECXSCLD",79,0) .S ^ECX(728.44,EC,0)=ECD2 "RTN","ECXSCLD",80,0) ;set tmp node "RTN","ECXSCLD",81,0) S ECSC=$P(ECD,U) S:$L(ECSC)>27 ECSC=$E(ECSC,1,27) "RTN","ECXSCLD",82,0) I $D(ECD2),$P(ECD2,U,7)="" D "RTN","ECXSCLD",83,0) .I ECXINAC,(ECDDIF'["!") Q "RTN","ECXSCLD",84,0) .I $D(^XTMP("ECX UNREVIEWED CLINICS",ECSC)) D UPDATE(ECSC,ECDDIF,ECSCSIGN) "RTN","ECXSCLD",85,0) .I '$D(^XTMP("ECX UNREVIEWED CLINICS",ECSC)) S ^XTMP("ECX UNREVIEWED CLINICS",ECSC)=ECSCSIGN_U_$P(ECDDIF,U,2,200),^XTMP("ECX UNREVIEWED CLINICS",ECSC,"T")=$$NOW^XLFDT() "RTN","ECXSCLD",86,0) I $D(ECDNEW) S ^XTMP("ECX UNREVIEWED CLINICS",ECSC)=""_U_$P(ECDNEW,U,2,200),^XTMP("ECX UNREVIEWED CLINICS",ECSC,"T")=$$NOW^XLFDT() "RTN","ECXSCLD",87,0) Q "RTN","ECXSCLD",88,0) ; "RTN","ECXSCLD",89,0) UPDATE(ECSC,ECDDIF,ECSCSIGN) ;update ^xtmp node with today's changes "RTN","ECXSCLD",90,0) N ECXOLD,J,L1,L2,X,X1,X2 "RTN","ECXSCLD",91,0) S ECXOLD=^XTMP("ECX UNREVIEWED CLINICS",ECSC) "RTN","ECXSCLD",92,0) F J=2,3 S X1=+$P(ECXOLD,U,J),X2=+$P(ECDDIF,U,J) I X2=X1,$P(ECDDIF,U,J)'=$P(ECXOLD,U,J) D "RTN","ECXSCLD",93,0) .S L1=$L($P(ECXOLD,U,J)),L2=$L($P(ECDDIF,U,J)) "RTN","ECXSCLD",94,0) .I L1>L2 S $P(ECDDIF,U,J)=$P(ECXOLD,U,J) "RTN","ECXSCLD",95,0) S X1=$E($P(ECXOLD,U,12),1),X2=$E($P(ECDDIF,U,12),1) I X2=X1 S $P(ECDDIF,U,12)=$P(ECXOLD,U,12) "RTN","ECXSCLD",96,0) S X1=$P(ECXOLD,U),X=X1_U_$P(ECDDIF,U,2,200) "RTN","ECXSCLD",97,0) I ECSCSIGN'="",ECSCSIGN'=X1 S X=ECSCSIGN_U_$P(ECDDIF,U,2,200) "RTN","ECXSCLD",98,0) S ^XTMP("ECX UNREVIEWED CLINICS",ECSC)=X "RTN","ECXSCLD",99,0) Q "RTN","ECXSCLD",100,0) ; "RTN","ECXSCLD",101,0) SELECT ;select IO device to 'gather clinic stop codes' and print 'unreviewd clinics' report; "RTN","ECXSCLD",102,0) ;for menu option 'Create DSS Clinic Stop Code File' or 'Clinics and DSS Stop Codes Print' "RTN","ECXSCLD",103,0) N DIR,ECALL,IOP,POP,XX,ZTIO,ZTRTN,ZTDESC,ZTSK,ZTSAVE "RTN","ECXSCLD",104,0) ;does user hold key? "RTN","ECXSCLD",105,0) I '$$KCHK^XUSRB("ECXMGR",$G(DUZ)) D G ENDX "RTN","ECXSCLD",106,0) .W !!,?5,"You do not have approved access to this option.",!,"Exiting...",!! "RTN","ECXSCLD",107,0) .D PAUSE "RTN","ECXSCLD",108,0) W !,"Please select a print device for the 'Unreviewed Clinics' report." "RTN","ECXSCLD",109,0) W !,"**Please note: If printing in foreground, synching files may cause screen delay." "RTN","ECXSCLD",110,0) W ! S %ZIS="Q" D ^%ZIS "RTN","ECXSCLD",111,0) I POP Q "RTN","ECXSCLD",112,0) ;I IO=IO(0) W !,"You must queue to a print device.",! D HOME^%ZIS G SELECT "RTN","ECXSCLD",113,0) ;queue the report "RTN","ECXSCLD",114,0) I $D(IO("Q")) D Q "RTN","ECXSCLD",115,0) . K ZTSAVE S ZTDESC="Gather Clinic Stop Codes for DSS",ZTRTN="START^ECXSCLD" "RTN","ECXSCLD",116,0) . D ^%ZTLOAD "RTN","ECXSCLD",117,0) . I $G(ZTSK) W !,"Queued as Task #: "_ZTSK D ENDX D PAUSE "RTN","ECXSCLD",118,0) W !!,">> Synchronizing Stop Codes file (#728.44) with the Hospital" "RTN","ECXSCLD",119,0) W !," Location file (#44)...",! "RTN","ECXSCLD",120,0) D START "RTN","ECXSCLD",121,0) D ^%ZISC,HOME^%ZIS K IO("Q") "RTN","ECXSCLD",122,0) Q "RTN","ECXSCLD",123,0) ; "RTN","ECXSCLD",124,0) PRINT ; print worksheet for updates "RTN","ECXSCLD",125,0) N OUT,DIR,ECALL "RTN","ECXSCLD",126,0) I '$O(^ECX(728.44,0)) W !,"DSS Clinic stop code file does not exist",!! R X:5 K X Q "RTN","ECXSCLD",127,0) W !!,"This option produces a worksheet of (A) All Clinics, (C) Active, (I) Inactive, " "RTN","ECXSCLD",128,0) W !,"or only the (U) Unreviewed Clinics that are awaiting approval." "RTN","ECXSCLD",129,0) W !!,"Clinics that were defined as ""inactive"" by MAS the last time the option" "RTN","ECXSCLD",130,0) W !,"""Create DSS Clinic Stop Code File"" was run will be indicated with an ""*""." "RTN","ECXSCLD",131,0) W !!,"Choose (X) for exporting the CLINICS AND STOP CODES FILE to a text file for" "RTN","ECXSCLD",132,0) W !,"spreadsheet use.",! "RTN","ECXSCLD",133,0) S DIR(0)="S^A:ALL CLINICS;C:ALL ACTIVE CLINICS;I:ALL INACTIVE CLINICS;U:UNREVIEWED CLINICS;X:EXPORT TO TEXT FILE FOR SPREADSHEET USE",DIR("A")="Enter ""A"", ""C"", ""I"", ""U"", or ""X""" "RTN","ECXSCLD",134,0) S DIR("?",1)="Enter: ""C"" to print a worksheet of all active DSS Clinic Stops," "RTN","ECXSCLD",135,0) S DIR("?",2)="Enter: ""I"" to print a worksheet of all inactive DSS Clinic Stops," "RTN","ECXSCLD",136,0) S DIR("?",3)="Enter: ""A"" to print a worksheet of all DSS Clinic Stops," "RTN","ECXSCLD",137,0) S DIR("?",4)="Enter: ""U"" to print only the Clinic Stops that have not been approved." "RTN","ECXSCLD",138,0) S DIR("?")="Enter: ""X"" to export CLINICS AND STOP CODES FILE to a text file." "RTN","ECXSCLD",139,0) D ^DIR K DIR G ENDX:$D(DIRUT) S ECALL=$E(Y) "RTN","ECXSCLD",140,0) I ECALL="X" D EXPORT^ECXSCLD1 Q "RTN","ECXSCLD",141,0) ;sync #728.44 with #44 before printing 'unreviewed' "RTN","ECXSCLD",142,0) I ECALL="U" D Q "RTN","ECXSCLD",143,0) .W !!,?5,"Before the UNREVIEWED CLINICS report prints, the Clinics and" "RTN","ECXSCLD",144,0) .W !,?5,"Stop Codes file (#728.44) will be synchronized with the Hospital" "RTN","ECXSCLD",145,0) .W !,?5,"Location file (#44).",!! "RTN","ECXSCLD",146,0) .K DIR S DIR(0)="YA",DIR("A")="Do you wish to continue? (Y/N)// " D ^DIR "RTN","ECXSCLD",147,0) .I ('$G(Y)!$G(DIRUT)!$G(DUOUT)!$G(DTOUT)) Q "RTN","ECXSCLD",148,0) .D SELECT^ECXSCLD "RTN","ECXSCLD",149,0) S %ZIS="Q" D ^%ZIS Q:POP "RTN","ECXSCLD",150,0) I $D(IO("Q")) K ZTSAVE S ZTDESC="DSS clinic stop code work sheet",ZTRTN="SPRINT^ECXSCLD",ZTSAVE("ECALL")="" D ^%ZTLOAD,HOME^%ZIS Q "RTN","ECXSCLD",151,0) SPRINT ; queued entry to print work sheet "RTN","ECXSCLD",152,0) U IO "RTN","ECXSCLD",153,0) S QFLG=0,$P(LN,"-",80)="",PG=0 "RTN","ECXSCLD",154,0) S ECDATE=$O(^ECX(728.44,"A1","")) I ECDATE S ECDATE=-ECDATE,ECDATE=$$FMTE^XLFDT(ECDATE,"5DF"),ECDATE=$TR(ECDATE," ","0") "RTN","ECXSCLD",155,0) I ECALL'="U" K ^TMP("EC",$J) "RTN","ECXSCLD",156,0) F J=0:0 S J=$O(^ECX(728.44,J)) Q:'J I $D(^ECX(728.44,J,0)) S ECSD=^ECX(728.44,J,0) D "RTN","ECXSCLD",157,0) .I ECALL="A" I $D(^SC(J,0)) S ECSC=$P(^SC(J,0),U),^TMP("EC",$J,ECSC)=$P(ECSD,U,2,200) "RTN","ECXSCLD",158,0) .I (ECALL="I"),($P(ECSD,U,10)) I $D(^SC(J,0)) S ECSC=$P(^SC(J,0),U),^TMP("EC",$J,ECSC)=$P(ECSD,U,2,200) "RTN","ECXSCLD",159,0) .I ((ECALL="C")&($P(ECSD,U,10)=""))!((ECALL="C")&($P(ECSD,U,10)>DT)) I $D(^SC(J,0)) S ECSC=$P(^(0),U),^TMP("EC",$J,ECSC)=$P(ECSD,U,2,200) "RTN","ECXSCLD",160,0) I ECALL'="U" D "RTN","ECXSCLD",161,0) .D HEAD S ECSC="" I $O(^TMP("EC",$J,ECSC))="" W !!,"NO DATA FOUND FOR WORKSHEET.",! Q "RTN","ECXSCLD",162,0) .F J=1:1 S ECSC=$O(^TMP("EC",$J,ECSC)) Q:ECSC="" S ECD=^TMP("EC",$J,ECSC) D SHOWEM Q:QFLG "RTN","ECXSCLD",163,0) .K ^TMP("EC",$J) "RTN","ECXSCLD",164,0) I ECALL="U" D "RTN","ECXSCLD",165,0) .N ECSCSIGN "RTN","ECXSCLD",166,0) .D HEAD S ECSC=0 I $O(^XTMP("ECX UNREVIEWED CLINICS",ECSC))="" W !!,"NO DATA FOUND FOR WORKSHEET.",! Q "RTN","ECXSCLD",167,0) .F S ECSC=$O(^XTMP("ECX UNREVIEWED CLINICS",ECSC)) Q:ECSC="" Q:QFLG D "RTN","ECXSCLD",168,0) ..S ECSCSIGN=$P(^XTMP("ECX UNREVIEWED CLINICS",ECSC),U),ECD=$P(^XTMP("ECX UNREVIEWED CLINICS",ECSC),U,2,99) "RTN","ECXSCLD",169,0) ..D SHOWEM "RTN","ECXSCLD",170,0) I $E(IOST)="C",'QFLG D SS D ENDX "RTN","ECXSCLD",171,0) W:$Y @IOF D ^%ZISC S ZTREQ="@" "RTN","ECXSCLD",172,0) Q "RTN","ECXSCLD",173,0) HEAD ; header for worksheet "RTN","ECXSCLD",174,0) D:PG SS Q:QFLG "RTN","ECXSCLD",175,0) S PG=PG+1 W:$Y!($E(IOST)="C") @IOF W !,"WORKSHEET FOR DSS CLINIC STOPS",?71,"Page: ",PG "RTN","ECXSCLD",176,0) I ECDATE]"" W !,"(last reviewed on ",ECDATE,")" "RTN","ECXSCLD",177,0) E W !,"(NEVER REVIEWED)" "RTN","ECXSCLD",178,0) W ! "RTN","ECXSCLD",179,0) W !,?1,"CLINIC",?28,"STOP",?35,"CREDIT",?44,"DSS",?50,"DSS",?59,"ACTION",?68,"NAT'L",?74,"C/N" "RTN","ECXSCLD",180,0) W !,?28,"CODE",?35,"STOP",?44,"STOP",?50,"CREDIT",?68,"CODE" "RTN","ECXSCLD",181,0) W ! W:ECALL'="U" "( * - currently inactive)" W ?35,"CODE",?44,"CODE",?50,"CODE" "RTN","ECXSCLD",182,0) I ECALL="U" W !,?8,"* - inactive r - reactivated ! - updated since last review" "RTN","ECXSCLD",183,0) W !,LN "RTN","ECXSCLD",184,0) Q "RTN","ECXSCLD",185,0) ; "RTN","ECXSCLD",186,0) SHOWEM ; list clinics for worksheet "RTN","ECXSCLD",187,0) I $Y+6>IOSL D HEAD Q:QFLG "RTN","ECXSCLD",188,0) N ECNON1P "RTN","ECXSCLD",189,0) S ECNON=$P(ECD,U,11),ECNON1P=$E(ECNON,1) "RTN","ECXSCLD",190,0) S ECNON1P=$S(ECNON1P="Y":"N",1:"C") ;if 'yes', then, 'n'on count clinic "RTN","ECXSCLD",191,0) S ECNON=ECNON1P_$E(ECNON,2,99) "RTN","ECXSCLD",192,0) W !!,$E(ECSC,1,25) "RTN","ECXSCLD",193,0) I ECALL="U" S:ECD["!" ECSCSIGN=ECSCSIGN_"!" W ECSCSIGN "RTN","ECXSCLD",194,0) E I ECALL'="U" W:$P(ECD,U,9)]"" "*" "RTN","ECXSCLD",195,0) F J=1:1:5 W ?$P("28,35,44,50,62",",",J),$S($P(ECD,U,J):$P(ECD,U,J),J<3:"",1:"_____") "RTN","ECXSCLD",196,0) S ECN=$P($G(^ECX(728.441,+$P(ECD,U,7),0)),U) W ?68,$S(ECN]"":ECN,1:"____"),?75,ECNON "RTN","ECXSCLD",197,0) Q "RTN","ECXSCLD",198,0) SS ;SCROLL STOPS "RTN","ECXSCLD",199,0) N JJ,SS "RTN","ECXSCLD",200,0) W !,LN "RTN","ECXSCLD",201,0) ;W !,"Key: + - new clinic; ! - updated since last review; * - currently inactiv "RTN","ECXSCLD",202,0) I $E(IOST)="C" S SS=21-$Y F JJ=1:1:SS W ! "RTN","ECXSCLD",203,0) I $E(IOST)="C",PG>0 S DIR(0)="E" W ! D ^DIR K DIR I 'Y S QFLG=1 Q "RTN","ECXSCLD",204,0) Q "RTN","ECXSCLD",205,0) ; "RTN","ECXSCLD",206,0) EDIT ; put in DSS stopcodes and which one to send "RTN","ECXSCLD",207,0) I '$O(^ECX(728.44,0)) W !,"DSS Clinic stop code file does not exist",!! R X:5 K X Q "RTN","ECXSCLD",208,0) W ! K DIC S DIC=728.44,DIC(0)="QEAMZ" D ^DIC G ENDX:Y<0 "RTN","ECXSCLD",209,0) S CLIEN1=+Y "RTN","ECXSCLD",210,0) W !!,"EXISTING CLINIC FILE DATA:",?35,"EXISTING DSS CLINIC FILE DATA:" "RTN","ECXSCLD",211,0) W !!,"STOP CODE : ",$P(Y(0),U,2),?35,"DSS STOP CODE : ",$P(Y(0),U,4) "RTN","ECXSCLD",212,0) W !,"CREDIT STOP CODE :",$P(Y(0),U,3),?35,"DSS CREDIT STOP CODE :",$P(Y(0),U,5) "RTN","ECXSCLD",213,0) W ! "RTN","ECXSCLD",214,0) EDIT1 ;check input & update field #3; allow '@' deletion; allow bypass empty with no entry "RTN","ECXSCLD",215,0) N DIR ;136 "RTN","ECXSCLD",216,0) S OUT=0 F D Q:OUT "RTN","ECXSCLD",217,0) .K DIC,DIR,ECXMSG,FDA,AMIS,X,Y "RTN","ECXSCLD",218,0) .S STOP=$P(^ECX(728.44,CLIEN1,0),U,4) "RTN","ECXSCLD",219,0) .S DIR(0)="FO^1:99",DIR("A")="DSS STOP CODE (3-digit code only)" I STOP]"" S DIR("B")=STOP "RTN","ECXSCLD",220,0) .S DIR("?")="^S DIC=40.7,DIC(0)=""EMQZ"" D ^DIC" "RTN","ECXSCLD",221,0) .D ^DIR "RTN","ECXSCLD",222,0) .I X="@" D Q "RTN","ECXSCLD",223,0) ..S IENS=CLIEN1_",",FDA(728.44,IENS,3)=X D FILE^DIE("","FDA") "RTN","ECXSCLD",224,0) ..S OUT=1 W " deleted..." "RTN","ECXSCLD",225,0) .I X="" S X=STOP K DIRUT S OUT=2 Q "RTN","ECXSCLD",226,0) .S DIC("A")="DSS STOP CODE (3-digit code only): " "RTN","ECXSCLD",227,0) .S DIC="^DIC(40.7,",DIC(0)="EMQZ" "RTN","ECXSCLD",228,0) .S DIC("S")="I $P(^(0),U,3)=""""" D ^DIC "RTN","ECXSCLD",229,0) .I X="@" D Q "RTN","ECXSCLD",230,0) ..S IENS=CLIEN1_",",FDA(728.44,IENS,3)=X D FILE^DIE("","FDA") "RTN","ECXSCLD",231,0) ..S OUT=2 W " deleted..." "RTN","ECXSCLD",232,0) .I X="" K DIRUT S OUT=2 Q "RTN","ECXSCLD",233,0) .I ($G(DIRUT)!$G(DUOUT)!$G(DTOUT)) S OUT=3 Q "RTN","ECXSCLD",234,0) .I +X'=X W !,?5,"Invalid... try again." Q "RTN","ECXSCLD",235,0) .I +Y'>0 Q "RTN","ECXSCLD",236,0) .S AMIS=$P(^DIC(40.7,+Y,0),"^",2) "RTN","ECXSCLD",237,0) .S CODE=+Y,ECXMSG=$$ERRCHK(CODE,3,CLIEN1) "RTN","ECXSCLD",238,0) .I ECXMSG=-1 W !,?5,"Invalid... try again." Q "RTN","ECXSCLD",239,0) .I $G(ECXMSG)]"" W !,?5,ECXMSG,! Q "RTN","ECXSCLD",240,0) .S IENS=CLIEN1_",",FDA(728.44,IENS,3)=AMIS D FILE^DIE("U","FDA") "RTN","ECXSCLD",241,0) .S OUT=1 "RTN","ECXSCLD",242,0) I ($G(DIRUT)!$G(DUOUT)!$G(DTOUT)) G ENDX "RTN","ECXSCLD",243,0) ;check input & update field #4; allow '@' deletion; allow bypass empty with no entry "RTN","ECXSCLD",244,0) S OUT=0 F D G:OUT=1 ENDCHK "RTN","ECXSCLD",245,0) .K DIC,DIR,ECXMSG,FDA,AMIS,X,Y "RTN","ECXSCLD",246,0) .S CSTOP=$P(^ECX(728.44,CLIEN1,0),U,5) "RTN","ECXSCLD",247,0) .S DIR(0)="FO^1:99",DIR("A")="DSS CREDIT STOP CODE (3-digit code only)" I CSTOP]"" S DIR("B")=CSTOP "RTN","ECXSCLD",248,0) .S DIR("?")="^S DIC=40.7,DIC(0)=""EMQZ"" D ^DIC" "RTN","ECXSCLD",249,0) .D ^DIR "RTN","ECXSCLD",250,0) .I X="@" D Q "RTN","ECXSCLD",251,0) ..S IENS=CLIEN1_",",FDA(728.44,IENS,4)=X D FILE^DIE("","FDA") "RTN","ECXSCLD",252,0) ..S OUT=1 W " deleted..." "RTN","ECXSCLD",253,0) .I X="" S X=CSTOP K DIRUT S OUT=1 Q "RTN","ECXSCLD",254,0) .S DIC("A")="DSS CREDIT STOP CODE (3-digit code only): " "RTN","ECXSCLD",255,0) .S DIC("S")="I $P(^(0),U,3)=""""" D ^DIC "RTN","ECXSCLD",256,0) .S DIC=40.7,DIC(0)="EMQZ" D ^DIC "RTN","ECXSCLD",257,0) .I X="" K DIRUT S OUT=1 Q "RTN","ECXSCLD",258,0) .I ($G(DIRUT)!$G(DUOUT)!$G(DTOUT)) S OUT=1 Q "RTN","ECXSCLD",259,0) .I +X'=X W !,?5,"Invalid... try again." Q "RTN","ECXSCLD",260,0) .I +Y'>0 Q "RTN","ECXSCLD",261,0) .S AMIS=$P(^DIC(40.7,+Y,0),"^",2) "RTN","ECXSCLD",262,0) .S CODE=+Y,ECXMSG=$$ERRCHK(CODE,4,CLIEN1) "RTN","ECXSCLD",263,0) .I ECXMSG=-1 W !,?5,"Invalid... try again." Q "RTN","ECXSCLD",264,0) .I $G(ECXMSG)]"" W !,?5,ECXMSG,! Q "RTN","ECXSCLD",265,0) .S IENS=CLIEN1_",",FDA(728.44,IENS,4)=AMIS D FILE^DIE("U","FDA") "RTN","ECXSCLD",266,0) .S OUT=1 "RTN","ECXSCLD",267,0) I ($G(DIRUT)!$G(DUOUT)!$G(DTOUT)) G ENDX "RTN","ECXSCLD",268,0) K I,WARNING,DIC,DIE,DA,DR,DIR,DIRUT,DTOUT,DUOUT,X,Y,ERRCHK "RTN","ECXSCLD",269,0) K CLIEN1,CODE,ECXMSG,IENS,STOP,CSTOP,AMIS,FDA,OUT,ERR,WRN,ECXERR "RTN","ECXSCLD",270,0) Q "RTN","ECXSCLD",271,0) ENDCHK ;check validity of clinic "RTN","ECXSCLD",272,0) S CODE=$P(^ECX(728.44,CLIEN1,0),U,4) "RTN","ECXSCLD",273,0) K ERR,WRN,ECXERR,WARNING,ERRCHK "RTN","ECXSCLD",274,0) S ERRCHK=0 "RTN","ECXSCLD",275,0) D STOP^ECXSTOP(CODE,"DSS Stop Code",CLIEN1) D ERRPRNT "RTN","ECXSCLD",276,0) I $D(ECXERR) S ERRCHK=1 "RTN","ECXSCLD",277,0) K ERR,WRN,ECXERR,WARNING "RTN","ECXSCLD",278,0) S CODE=$P(^ECX(728.44,CLIEN1,0),U,5) "RTN","ECXSCLD",279,0) D STOP^ECXSTOP(CODE,"Credit Stop Code",CLIEN1) D ERRPRNT "RTN","ECXSCLD",280,0) I $D(ECXERR) S ERRCHK=1 "RTN","ECXSCLD",281,0) W !!,"...Validity Checker Complete." "RTN","ECXSCLD",282,0) I ERRCHK=1 W !!,"...Errors found please fix." G EDIT1 "RTN","ECXSCLD",283,0) ;remaining fields "RTN","ECXSCLD",284,0) S DIE=728.44,DA=+CLIEN1 "RTN","ECXSCLD",285,0) S DR="5//1;S:X'=4 Y=6;7;6///"_DT_";8;10" D ^DIE ;136 "RTN","ECXSCLD",286,0) S:$P(^ECX(728.44,DA,0),U,6)'=4 $P(^(0),U,8)="" S $P(^(0),U,7)="" "RTN","ECXSCLD",287,0) Q "RTN","ECXSCLD",288,0) ERRPRNT ;print errors "RTN","ECXSCLD",289,0) I $G(ERR)>0,$D(ECXERR) D "RTN","ECXSCLD",290,0) . W ! S I=0 F S I=$O(ECXERR(I)) Q:'I D "RTN","ECXSCLD",291,0) . . W !,"..",ECXERR(I) "RTN","ECXSCLD",292,0) I $G(WRN)>0,$D(WARNING) D "RTN","ECXSCLD",293,0) . W ! S I=0 F S I=$O(WARNING(I)) Q:'I D "RTN","ECXSCLD",294,0) . . W !,"..",WARNING(I) "RTN","ECXSCLD",295,0) Q "RTN","ECXSCLD",296,0) KILL ; "RTN","ECXSCLD",297,0) K I,WARNING,DIC,DIE,DA,DR,DIR,DIRUT,DTOUT,DUOUT,X,Y,ERRCHK "RTN","ECXSCLD",298,0) K CLIEN1,CODE,ECXMSG,IENS,STOP,CSTOP,AMIS,FDA,OUT,ERR,WRN,ECXERR "RTN","ECXSCLD",299,0) G EDIT "RTN","ECXSCLD",300,0) ; "RTN","ECXSCLD",301,0) ERRCHK(CODE,TYPE,CLIEN1) ;check for problems "RTN","ECXSCLD",302,0) ;input "RTN","ECXSCLD",303,0) ; code: stop code IEN in #40.7 "RTN","ECXSCLD",304,0) ; type: type (3=dss stop code, 4=dss credit stop code) "RTN","ECXSCLD",305,0) ; clien: clinic IEN in #728.44 "RTN","ECXSCLD",306,0) ;output "RTN","ECXSCLD",307,0) ; ecxerr: error msg "RTN","ECXSCLD",308,0) N XCODE,INACT,RTYPE,ERR,WRN "RTN","ECXSCLD",309,0) K ECXERR,WARNING "RTN","ECXSCLD",310,0) S ECXERR="",WARNING="",ERR=0 "RTN","ECXSCLD",311,0) Q:'$G(CODE) -1 Q:'$G(CLIEN1) -1 "RTN","ECXSCLD",312,0) Q:(TYPE="") -1 Q:((TYPE<3)&(TYPE>4)) -1 "RTN","ECXSCLD",313,0) S XCODE=$P(^DIC(40.7,CODE,0),"^",2) "RTN","ECXSCLD",314,0) S TYPE=$S(TYPE=3:"DSS Stop Code",1:"DSS Credit Stop Code") "RTN","ECXSCLD",315,0) I TYPE="DSS Stop Code" D STOP^ECXSTOP(XCODE,TYPE,,,CODE) "RTN","ECXSCLD",316,0) I TYPE="DSS Credit Stop Code" D STOP^ECXSTOP(XCODE,TYPE,CLIEN1,,CODE) "RTN","ECXSCLD",317,0) I $G(ERR)>0,$D(ECXERR(1)) S ERR=$O(ECXERR(0)),ECXERR=ECXERR(ERR) Q ECXERR "RTN","ECXSCLD",318,0) E S ECXERR="" Q ECXERR "RTN","ECXSCLD",319,0) Q ECXERR "RTN","ECXSCLD",320,0) ; "RTN","ECXSCLD",321,0) APPROVE ; approve current DSS Stop and Credit Stop codes "RTN","ECXSCLD",322,0) W !!,"This option allows you to mark the current clinic entries in the CLINICS AND",!,"STOP CODES file (#728.44) as ""reviewed"". Those entries will then be omitted" "RTN","ECXSCLD",323,0) W !,"from the list printed from the ""Clinic and DSS Stop Codes Print"" when you",!,"choose to print only ""unreviewed"" clinics.",! "RTN","ECXSCLD",324,0) K DIR S DIR(0)="Y",DIR("A",1)="Are you ready to approve the reviewed information provided by the",DIR("A")="""Clinic and DSS Stop Codes Print""",DIR("B")="NO" "RTN","ECXSCLD",325,0) S DIR("?",1)=" Enter:" "RTN","ECXSCLD",326,0) S DIR("?",2)=" ""YES"" if you concur with the ""Clinic and DSS Stop Codes Print""," "RTN","ECXSCLD",327,0) S DIR("?",3)=" ""NO"" or if you do not want to approve the current information," "RTN","ECXSCLD",328,0) S DIR("?")=" ""^"" to exit option." "RTN","ECXSCLD",329,0) D ^DIR K DIR I 'Y!($D(DIRUT)) G ENDX "RTN","ECXSCLD",330,0) W ! S ZTRTN="APPLOOP^ECXSCLD",ZTIO="",ZTDESC="Approve DSS stop codes for clinic extract" D ^%ZTLOAD W !!,"...approval queued" G ENDX "RTN","ECXSCLD",331,0) ; "RTN","ECXSCLD",332,0) APPLOOP ; queued entry to approve action codes "RTN","ECXSCLD",333,0) F EC=0:0 S EC=$O(^ECX(728.44,EC)) Q:'EC I $D(^ECX(728.44,EC,0)) S DA=EC,DIE="^ECX(728.44,",DR="6///"_DT D ^DIE "RTN","ECXSCLD",334,0) S ZTREQ="@" "RTN","ECXSCLD",335,0) K ^XTMP("ECX UNREVIEWED CLINICS") S ^XTMP("ECX UNREVIEWED CLINICS",0)=$$FMADD^XLFDT(DT,180)_U_DT_U_"ECX UNREVIEWED CLINICS" "RTN","ECXSCLD",336,0) ENDX K X,Y,DA,DR,DIC,DIE,QFLG,PG,LN,ZTRTN,ZTIO,ZTDESC "RTN","ECXSCLD",337,0) K DIR,DIRUT,DTOUT,DUOUT,CLIEN,CODE,ECXMSG,IENS,STOP,CSTOP,AMIS,FDA,OUT "RTN","ECXSCLD",338,0) K J,ECSC,ECSD,ECDATE,ECD,ECN,ECNON,ECXINAC,QFLG,PG,LN,SS,POP,%ZIS "RTN","ECXSCLD",339,0) K EC,ECD,ECD2,ECL,ECS,ECS2,ECP,ECSC,ECSC2,ECDB,ECDNEW,ECDDIF,ECSCSIGN,ECDF,ECALL,ID,RD "RTN","ECXSCLD",340,0) Q "RTN","ECXSCLD",341,0) ; "RTN","ECXSCLD",342,0) PAUSE ;pause screen "RTN","ECXSCLD",343,0) N DIR,X,Y,DTOUT,DUOUT,DIROUT,DIRUT "RTN","ECXSCLD",344,0) S DIR(0)="E" W !! D ^DIR W !! "RTN","ECXSCLD",345,0) Q "RTN","ECXSCLD",346,0) ; "RTN","ECXSCLD",347,0) LOOK ;queued entry to check for new clinics "RTN","ECXSCLD",348,0) N DAT,ECD0,ECXMISS,ID,ECGRP "RTN","ECXSCLD",349,0) S ECD=$E(DT,1,5)-1-($E(DT,4,5)="01"*8800),ECD0=ECD_"00",ECXMISS=10,ECGRP="SCX" K ^TMP("ECXS",$J) "RTN","ECXSCLD",350,0) F EC=0:0 S EC=$O(^SC(EC)) Q:'EC I $D(^SC(EC,0)),$P(^SC(EC,0),U,3)="C",'$D(^ECX(728.44,EC)) S DAT=$G(^SC(EC,"I")) D "RTN","ECXSCLD",351,0) .S ID=+DAT,RD=$P(DAT,U,2) I ID,ID
DT) Q "RTN","ECXSCLD",352,0) .S ^TMP("ECXS",$J,ECXMISS,0)=$J(EC,6)_" "_$$LJ^XLFSTR($P(^SC(EC,0),U),40),ECXMISS=ECXMISS+1 "RTN","ECXSCLD",353,0) D ^ECXSCX1 "RTN","ECXSCLD",354,0) Q "RTN","ECXSCLD1") 0^18^B4160258^B3035123 "RTN","ECXSCLD1",1,0) ECXSCLD1 ;ALB/DAN Enter, Print and Edit Entries in 728.44 ;5/16/12 10:11 "RTN","ECXSCLD1",2,0) ;;3.0;DSS EXTRACTS;**132,136**;Dec 22, 1997;Build 28 "RTN","ECXSCLD1",3,0) ; "RTN","ECXSCLD1",4,0) EXPORT ;Export clinic review data to spreedsheet "RTN","ECXSCLD1",5,0) N DIC,FLDS,BY,FR,L,DIOBEG "RTN","ECXSCLD1",6,0) W !!,"Turn on 'Capture Incoming Data...' and select your exported text file." "RTN","ECXSCLD1",7,0) W !,"To receive correct number of columns, select a large enough parameter." "RTN","ECXSCLD1",8,0) W !,"DEVICE: 0;225;99999 (example)." "RTN","ECXSCLD1",9,0) S DIC="^ECX(728.44,",FLDS="[ECX CLINIC REVIEW EXPORT]",BY="NUMBER",FR="",L=0 "RTN","ECXSCLD1",10,0) S DIOBEG="W ""IEN^Clinic^Stop Code^Credit Stop Code^DSS Stop Code^DSS Credit Code^Action^Last Review Date^Nat Code^Inact Date^React Date^Clinic Type^App Len^Div^App Type^Non Cnt^OOS^OOS Calling Pkg^Variable Length Appt^DSS Prod Dept""" ;136 "RTN","ECXSCLD1",11,0) D EN1^DIP "RTN","ECXSCLD1",12,0) W !!,"Turn off your capturing..." "RTN","ECXSCLD1",13,0) W !,"...Then, pull your export text file into your spreadsheet.",! "RTN","ECXSCLD1",14,0) I IO'=IO(0) D ^%ZISC "RTN","ECXSCLD1",15,0) D HOME^%ZIS "RTN","ECXSCLD1",16,0) Q "RTN","ECXSCXN") 0^7^B73018945^B65800632 "RTN","ECXSCXN",1,0) ECXSCXN ;ALB/JAP Clinic Extract ;6/6/12 13:33 "RTN","ECXSCXN",2,0) ;;3.0;DSS EXTRACTS;**24,27,29,30,31,32,33,39,46,49,52,71,84,92,107,105,120,124,127,132,136**;Dec 22, 1997;Build 28 "RTN","ECXSCXN",3,0) ; "RTN","ECXSCXN",4,0) BEG ;entry point from option "RTN","ECXSCXN",5,0) D SETUP Q:ECFILE="" D ^ECXTRAC,^ECXKILL "RTN","ECXSCXN",6,0) Q "RTN","ECXSCXN",7,0) ; "RTN","ECXSCXN",8,0) START ;entry point from taskmgr "RTN","ECXSCXN",9,0) N DIC,EXNUM,I,LOCARR,OUT,P1,P2,P3,PROCESS,SOURCE,STOP,STAT,TOSEND "RTN","ECXSCXN",10,0) N TIU,X,Y,ECXNPRFI "RTN","ECXSCXN",11,0) N ECXICD10P,ECXICD101,ECXICD102,ECXICD103,ECXICD104 "RTN","ECXSCXN",12,0) F I=1:1:8 S @("ECXCPT"_I)="" "RTN","ECXSCXN",13,0) F I=1:1:4 S @("ECXICD9"_I)="" "RTN","ECXSCXN",14,0) F I=1:1:4 S @("ECXICD10"_I)="" "RTN","ECXSCXN",15,0) S (OUT,QFLG,ECRN)=0,(ECXICD9P,ECXOBI,ECXICD10P)="" "RTN","ECXSCXN",16,0) K ^TMP($J,"ECXS"),^TMP($J,"ECXCL"),^TMP($J,"SDAMA301") ;136 "RTN","ECXSCXN",17,0) ;get ien for tiu in file #839.7 "RTN","ECXSCXN",18,0) S DIC="^PX(839.7,",DIC(0)="X",X="TEXT INTEGRATION UTILITIES" "RTN","ECXSCXN",19,0) D ^DIC S TIU=+Y,ECED=ECED+.3,ECXCLIN=0 K DIC,Y "RTN","ECXSCXN",20,0) ;get clinic default appt length, type, division "RTN","ECXSCXN",21,0) F S ECXCLIN=$O(^SC(ECXCLIN)) Q:'ECXCLIN D "RTN","ECXSCXN",22,0) .K LOCARR S DIC=44,DA=ECXCLIN,DR="2;3.5;1912",DIQ(0)="I",DIQ="LOCARR" "RTN","ECXSCXN",23,0) .D EN^DIQ1 "RTN","ECXSCXN",24,0) .Q:$G(LOCARR(44,ECXCLIN,2,"I"))'="C" "RTN","ECXSCXN",25,0) .S ALEN=+$G(LOCARR(44,ECXCLIN,1912,"I")) "RTN","ECXSCXN",26,0) .S ^TMP($J,"ECXCL",ECXCLIN)=ALEN,ALEN=$$RJ^XLFSTR(ALEN,3,0) "RTN","ECXSCXN",27,0) .S ^TMP($J,"ECXCL",ECXCLIN)=^TMP($J,"ECXCL",ECXCLIN)_"^"_ALEN_"^"_$G(LOCARR(44,ECXCLIN,2,"I"))_"^"_+$G(LOCARR(44,ECXCLIN,3.5,"I")) "RTN","ECXSCXN",28,0) .D FEEDER^ECXSCX1(ECXCLIN,ECSD1,.P1,.P2,.P3,.TOSEND,.ECXDIV) "RTN","ECXSCXN",29,0) .K P1,P2,P3,TOSEND,ECXDIV "RTN","ECXSCXN",30,0) ;get from file #44 any no-shows & get encounters from #409.68 "RTN","ECXSCXN",31,0) D NOSHOW^ECXSCXN1(ECSD1,ECED),ENCNTR(ECSD1,ECED) "RTN","ECXSCXN",32,0) ;send missing clinic msg "RTN","ECXSCXN",33,0) D:$D(^TMP($J,"ECXS")) EN^ECXSCX1 "RTN","ECXSCXN",34,0) K ^TMP($J,"ECXS"),^TMP($J,"ECXCL"),^TMP($J,"SDAMA301") ;136 "RTN","ECXSCXN",35,0) Q "RTN","ECXSCXN",36,0) ; "RTN","ECXSCXN",37,0) ENCNTR(ECSD1,ECED) ;search file #409.68 for encounter data "RTN","ECXSCXN",38,0) N CHKOUT,ECD,STAT,STOP,MDIV,ECXEDIS,CNT,ECXARR,NODE ;136 "RTN","ECXSCXN",39,0) S ECD=ECSD1 "RTN","ECXSCXN",40,0) F S ECD=$O(^SCE("B",ECD)) Q:('ECD!(ECD>ECED))!(QFLG) S ECXIEN=0 D "RTN","ECXSCXN",41,0) .F S ECXIEN=$O(^SCE("B",ECD,ECXIEN)) Q:'ECXIEN D Q:QFLG "RTN","ECXSCXN",42,0) ..Q:'$D(^SCE(ECXIEN,0)) "RTN","ECXSCXN",43,0) ..D INTPAT^ECXSCX2 K LOCARR S DIC=409.68,DA=ECXIEN "RTN","ECXSCXN",44,0) ..S DR=".01;.02;.03;.04;.05;.06;.07;.08;.11;.12;.13",DIQ(0)="I",DIQ="LOCARR" "RTN","ECXSCXN",45,0) ..D EN^DIQ1 "RTN","ECXSCXN",46,0) ..S ECXTI=$P($$FMTE^XLFDT(+$G(LOCARR(409.68,ECXIEN,.01,"I")),1),"@",2) "RTN","ECXSCXN",47,0) ..S ECXTI=$E(($TR(ECXTI,":","")_"000000"),1,6) "RTN","ECXSCXN",48,0) ..S:ECXTI="000000" ECXTI="000300" S MDIV=+$G(LOCARR(409.68,ECXIEN,.11,"I")) "RTN","ECXSCXN",49,0) ..S STOP=+$G(LOCARR(409.68,ECXIEN,.03,"I")) "RTN","ECXSCXN",50,0) ..S CHKOUT=+$G(LOCARR(409.68,ECXIEN,.07,"I")) "RTN","ECXSCXN",51,0) ..S PROCESS=+$G(LOCARR(409.68,ECXIEN,.08,"I")) "RTN","ECXSCXN",52,0) ..S STAT=$G(LOCARR(409.68,ECXIEN,.12,"I")) "RTN","ECXSCXN",53,0) ..S ECXDFN=+$G(LOCARR(409.68,ECXIEN,.02,"I")) "RTN","ECXSCXN",54,0) ..Q:(ECXDFN=0)!('CHKOUT) "RTN","ECXSCXN",55,0) ..S:STAT="" STAT="ZZ" S STAT=";"_STAT_";" "RTN","ECXSCXN",56,0) ..Q:";3;4;5;6;7;9;10;13;"[STAT "RTN","ECXSCXN",57,0) ..Q:('STOP)!(PROCESS=4)!(+$G(LOCARR(409.68,ECXIEN,.06,"I"))) "RTN","ECXSCXN",58,0) ..S ECXDATE=+$G(LOCARR(409.68,ECXIEN,.01,"I")) "RTN","ECXSCXN",59,0) ..S ECXCLIN=+$G(LOCARR(409.68,ECXIEN,.04,"I")) "RTN","ECXSCXN",60,0) ..Q:$P($G(^TMP($J,"ECXCL",ECXCLIN)),U,3)'="C" "RTN","ECXSCXN",61,0) ..S ECXVISIT=+$G(LOCARR(409.68,ECXIEN,.05,"I")) "RTN","ECXSCXN",62,0) ..S ECXENEL=+$G(LOCARR(409.68,ECXIEN,.13,"I")) "RTN","ECXSCXN",63,0) ..Q:'ECXVISIT "RTN","ECXSCXN",64,0) ..S ECXERR=0 "RTN","ECXSCXN",65,0) ..D PAT1^ECXSCX2(ECXDFN,ECXDATE,.ECXERR) Q:ECXERR "RTN","ECXSCXN",66,0) ..D FEEDER^ECXSCX1(ECXCLIN,ECSD1,.P1,.P2,.P3,.TOSEND,.ECXDIV) "RTN","ECXSCXN",67,0) ..Q:TOSEND=6 "RTN","ECXSCXN",68,0) ..K LOCARR S DIC=40.7,DA=STOP,DR="1",DIQ(0)="I",DIQ="LOCARR" D EN^DIQ1 "RTN","ECXSCXN",69,0) ..S ECXSTOP=$$RJ^XLFSTR($G(LOCARR(40.7,STOP,1,"I")),3,0) "RTN","ECXSCXN",70,0) ..; ******* - PATCH 127, ADD PATCAT CODE ******** "RTN","ECXSCXN",71,0) ..S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN) "RTN","ECXSCXN",72,0) ..;get date specific patient data "RTN","ECXSCXN",73,0) ..D PAT2^ECXSCX2(ECXDFN,ECXDATE) "RTN","ECXSCXN",74,0) ..;get national patient record flag if exist "RTN","ECXSCXN",75,0) ..D NPRF^ECXUTL5 "RTN","ECXSCXN",76,0) ..;get visit specific data "RTN","ECXSCXN",77,0) ..S ECXERR=0 D VISIT^ECXSCX1(ECXDFN,ECXVISIT,.ECXVIST,.ECXERR) Q:ECXERR "RTN","ECXSCXN",78,0) ..F I=1:1:8 S @("ECXCPT"_I)=$G(ECXVIST("CPT"_I)) "RTN","ECXSCXN",79,0) ..S ECXICD9P=$G(ECXVIST("ICD9P")) "RTN","ECXSCXN",80,0) ..F I=1:1:4 S @("ECXICD9"_I)=$G(ECXVIST("ICD9"_I)) "RTN","ECXSCXN",81,0) ..S SOURCE=ECXVIST("SOURCE"),ECXAO=ECXVIST("AO"),ECXIR=ECXVIST("IR") "RTN","ECXSCXN",82,0) ..S ECXMIL=ECXVIST("MST"),ECXPROV=ECXVIST("PROV"),ECXSHAD=ECXVIST("SHAD") "RTN","ECXSCXN",83,0) ..S ECPRNPI=$$NPI^XUSNPI("Individual_ID",ECXPROV,ECXDATE) "RTN","ECXSCXN",84,0) ..S:+ECPRNPI'>0 ECPRNPI="" S ECPRNPI=$P(ECPRNPI,U) "RTN","ECXSCXN",85,0) ..S ECXPROVP=ECXVIST("PROV CLASS"),ECXPROVN=ECXVIST("PROV NPI") "RTN","ECXSCXN",86,0) ..F I=1:1:5 S @("ECSP"_I)=$P($G(ECXVIST("PROVS"_I)),U) "RTN","ECXSCXN",87,0) ..F I=1:1:5 S @("ECSPPC"_I)=$P($G(ECXVIST("PROVS"_I)),U,2) "RTN","ECXSCXN",88,0) ..F I=1:1:5 S @("ECSPNPI"_I)=$P($G(ECXVIST("PROVS"_I)),U,3) "RTN","ECXSCXN",89,0) ..S ECXECE=ECXVIST("PGE"),ECXHNC=ECXVIST("HNC") "RTN","ECXSCXN",90,0) ..K LOCARR S DIC=8,DA=ECXENEL,DR="8",DIQ(0)="I",DIQ="LOCARR" D EN^DIQ1 "RTN","ECXSCXN",91,0) ..S ECXENEL=+$G(LOCARR(8,ECXENEL,8,"I")) "RTN","ECXSCXN",92,0) ..S:ECXENEL ECXENEL=$$ELIG^ECXUTL3(ECXENEL,ECXSVC) "RTN","ECXSCXN",93,0) ..S ECXCBOC=$S(MDIV'="":$$CBOC^ECXSCX2(.MDIV),1:"") ;is cboc facility? "RTN","ECXSCXN",94,0) ..S ECXEDIS=$$EDIS^ECXUTL1(ECXDFN,ECD,"C",ECXVISIT,ECXSTOP) ;136 Set emergency room disposition "RTN","ECXSCXN",95,0) ..;setup feeder key and file in extract records "RTN","ECXSCXN",96,0) ..S (ECXKEY,ECXDSSD)="" "RTN","ECXSCXN",97,0) ..;xray (105) or lab (108) "RTN","ECXSCXN",98,0) ..I (ECXSTOP=105)!(ECXSTOP=108) D Q "RTN","ECXSCXN",99,0) ...S ECXKEY=ECXSTOP_"00003000000",ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY) "RTN","ECXSCXN",100,0) ...S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE ;- Don't file rec if no encounter num "RTN","ECXSCXN",101,0) ..;appointments "RTN","ECXSCXN",102,0) ..I PROCESS=1 D Q ;get appt length 136 Section changed to use SDAMA301 call "RTN","ECXSCXN",103,0) ...N CNT,ECXARR "RTN","ECXSCXN",104,0) ...K ^TMP($J,"SDAMA301") "RTN","ECXSCXN",105,0) ...S ECXARR(1)=ECXDATE_";"_ECXDATE,ECXARR(2)=ECXCLIN,ECXARR(4)=ECXDFN,ECXARR("FLDS")="5;7;10;18" S CNT=$$SDAPI^SDAMA301(.ECXARR) "RTN","ECXSCXN",106,0) ...Q:CNT=0 I CNT=-1 D ERR^ECXUTL1 S QFLG=1 Q ;Stop if no appts (CNT=0) send error message and stop extract if CNT=-1 (system error) "RTN","ECXSCXN",107,0) ...S NODE=^TMP($J,"SDAMA301",ECXDFN,ECXCLIN,ECXDATE) "RTN","ECXSCXN",108,0) ...S ECXOBI=$S($P(NODE,U,7)="Y":"O",1:"") ;convert overbook indicator from Y to O otherwise send null "RTN","ECXSCXN",109,0) ...S ALEN=$$RJ^XLFSTR($P(NODE,U,5),3,0) "RTN","ECXSCXN",110,0) ...S:+ALEN=0 ALEN=$P($G(^TMP($J,"ECXDL",ECXCLIN)),U,2) "RTN","ECXSCXN",111,0) ...S ECXSTOP=P1 "RTN","ECXSCXN",112,0) ...S ECXPVST=+$P(NODE,U,18),ECXATYP=+$P(NODE,U,10) "RTN","ECXSCXN",113,0) ...I TOSEND'=3 D "RTN","ECXSCXN",114,0) ....S ECXKEY=P1_P2_ALEN_P3_"0",ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY) "RTN","ECXSCXN",115,0) ....S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE "RTN","ECXSCXN",116,0) ...I TOSEND=3 D "RTN","ECXSCXN",117,0) ....S ECXKEY=P1_"000"_ALEN_P3_"0",ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY) "RTN","ECXSCXN",118,0) ....S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE "RTN","ECXSCXN",119,0) ...I TOSEND=3 D "RTN","ECXSCXN",120,0) ....S ECXKEY=P2_"000"_ALEN_P3_"0",ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY) "RTN","ECXSCXN",121,0) ....S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE "RTN","ECXSCXN",122,0) ..I PROCESS=2 D Q "RTN","ECXSCXN",123,0) ...S ALEN=0 "RTN","ECXSCXN",124,0) ...I SOURCE=TIU S ALEN=$P($G(^TMP($J,"ECXCL",ECXCLIN)),U,2) "RTN","ECXSCXN",125,0) ...S:+ALEN=0 ALEN="030" S ECXKEY=P1_P2_ALEN_P3_"0",ECXSTOP=P1 "RTN","ECXSCXN",126,0) ...S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY) "RTN","ECXSCXN",127,0) ...S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE "RTN","ECXSCXN",128,0) ..;dispositions "RTN","ECXSCXN",129,0) ..I PROCESS=3 D Q "RTN","ECXSCXN",130,0) ...S ECXKEY=ECXSTOP_"47906000000",ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY) "RTN","ECXSCXN",131,0) ...S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE "RTN","ECXSCXN",132,0) Q "RTN","ECXSCXN",133,0) ; "RTN","ECXSCXN",134,0) FILE ;record setup for file #727.827 "RTN","ECXSCXN",135,0) N STR "RTN","ECXSCXN",136,0) S ECXPDIV=$$GETDIV^ECXDEPT(ECXDIV) ; Get production division "RTN","ECXSCXN",137,0) S EC7=$O(^ECX(727.827,999999999),-1),EC7=EC7+1 "RTN","ECXSCXN",138,0) S STR(0)=EC7_U_EC23_U_ECXDIV_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U "RTN","ECXSCXN",139,0) S STR(0)=STR(0)_$$ECXDATE^ECXUTL(ECXDATE,ECXYM)_U_ECXKEY_U_ECXOBI_U "RTN","ECXSCXN",140,0) ;convert specialty to PTF Code for transmission "RTN","ECXSCXN",141,0) N ECXDATA,ECXTSC "RTN","ECXSCXN",142,0) S ECXDATA=$$TSDATA^DGACT(42.4,+ECXTS,.ECXDATA) "RTN","ECXSCXN",143,0) S ECXTSC=$G(ECXDATA(7)) "RTN","ECXSCXN",144,0) ;done "RTN","ECXSCXN",145,0) S STR(0)=STR(0)_ECXCLIN_U_ECXTSC_U_ECXTI_U_ECPTTM_U_ECPTPR_U_ECCLAS_U "RTN","ECXSCXN",146,0) S STR(0)=STR(0)_ECXPROV_U_ECXPROVP_U_ECXCPT1_U_ECXCPT2_U_ECXCPT3_U "RTN","ECXSCXN",147,0) S STR(0)=STR(0)_ECXCPT4_U_ECXCPT5_U "RTN","ECXSCXN",148,0) S STR(1)=ECXCPT6_U_ECXCPT7_U_ECXCPT8_U_ECXICD9P_U_ECXICD91_U_ECXICD92_U "RTN","ECXSCXN",149,0) S STR(1)=STR(1)_ECXICD93_U_ECXICD94_U_ECXDOB_U_ECXELIG_U_ECXVET_U "RTN","ECXSCXN",150,0) S STR(1)=STR(1)_ECXRACE_U_ECXPST_U_ECXPLOC_U_ECXRST_U_ECXIR_U_ECXAST_U "RTN","ECXSCXN",151,0) S STR(1)=STR(1)_ECXAO_U_ECXMPI_U_ECXDSSD_U_ECXSEX_U_ECXZIP_U "RTN","ECXSCXN",152,0) S STR(1)=STR(1)_$G(ECXPCPNP)_U_U_ECXENEL_U_ECXMST_U "RTN","ECXSCXN",153,0) S STR(1)=STR(1)_ECXMIL_U_U_U_ECXENRL_U_ECXSTATE_U "RTN","ECXSCXN",154,0) S STR(1)=STR(1)_ECXCNTY_U_ECASPR_U_ECCLAS2_U_U_ECXDOM_U_ECXCAT_U "RTN","ECXSCXN",155,0) S STR(2)=ECXSTAT_U_$S(ECXLOGIC<2005:ECXPRIOR,ECXLOGIC>2010:ECXSHADI,1:"")_U_ECXPHI_U_ECXPOS_U_ECXOBS_U_ECXENC_U "RTN","ECXSCXN",156,0) S STR(2)=STR(2)_ECXAOL_U_ECXPDIV_U_ECXATYP_U_ECXPVST_U_ECXMTST_U "RTN","ECXSCXN",157,0) S STR(2)=STR(2)_ECXHNCI_U_ECXETH_U_ECXRC1 "RTN","ECXSCXN",158,0) I ECXLOGIC>2003 S STR(2)=STR(2)_U_ECXCBOC "RTN","ECXSCXN",159,0) I ECXLOGIC>2004 S STR(2)=STR(2)_U_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U_ECXCVEDT_U_ECXCVENC_U_ECXNPRFI "RTN","ECXSCXN",160,0) I ECXLOGIC>2005 S STR(2)=STR(2)_U_ECXEST_U_ECXECE "RTN","ECXSCXN",161,0) I ECXLOGIC>2006 S STR(2)=STR(2)_U_ECXERI_U_ECXHNC "RTN","ECXSCXN",162,0) I ECXLOGIC>2007 S STR(2)=STR(2)_U_ECXOEF_U_ECXOEFDT_U_ECASNPI_U_ECPTNPI_U_$G(ECPRNPI)_U "RTN","ECXSCXN",163,0) I ECXLOGIC>2009 S STR(3)=ECXCNTRY "RTN","ECXSCXN",164,0) ;added patcat status, N3 P3 "RTN","ECXSCXN",165,0) I ECXLOGIC>2010 S STR(3)=STR(3)_U_ECXSHAD_U_ECXPATCAT "RTN","ECXSCXN",166,0) I ECXLOGIC>2011 S STR(3)=STR(3)_U_ECSP1_U_ECSPPC1_U_ECSPNPI1_U_ECSP2_U_ECSPPC2_U_ECSPNPI2_U_ECSP3_U_ECSPPC3_U_ECSPNPI3_U_ECSP4_U_ECSPPC4_U_ECSPNPI4_U_ECSP5_U_ECSPPC5_U_ECSPNPI5 "RTN","ECXSCXN",167,0) ;added icd-10 null for now "RTN","ECXSCXN",168,0) I ECXLOGIC>2012 S STR(3)=STR(3)_U_$G(ECXEDIS)_U_ECXICD10P_U_ECXICD101_U_ECXICD102_U_ECXICD103_U_ECXICD104 ;136 "RTN","ECXSCXN",169,0) D FILE2^ECXSCX2(727.827,EC7,.STR) "RTN","ECXSCXN",170,0) S ECRN=ECRN+1,$P(^ECX(727.827,0),U,3)=EC7 "RTN","ECXSCXN",171,0) Q "RTN","ECXSCXN",172,0) ; "RTN","ECXSCXN",173,0) SETUP ;set required input for ECXTRAC "RTN","ECXSCXN",174,0) S ECHEAD="CLI" "RTN","ECXSCXN",175,0) D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER) "RTN","ECXSCXN",176,0) Q "RTN","ECXSCXN1") 0^21^B14855625^B12284717 "RTN","ECXSCXN1",1,0) ECXSCXN1 ;ALB/JAP Clinic Extract No Shows; 8/28/02 1:11pm ;5/16/12 16:33 "RTN","ECXSCXN1",2,0) ;;3.0;DSS EXTRACTS;**71,105,127,132,136**;Dec 22, 1997;Build 28 "RTN","ECXSCXN1",3,0) NOSHOW(ECXSD,ECXED) ;get noshows from file #44 "RTN","ECXSCXN1",4,0) ; ECXSD = start date, ECXED = end date "RTN","ECXSCXN1",5,0) N ALEN,CLIN,JDATE,JJ,NODE,NOSHOW,PP,STAT,MDIV,ECXEDIS,CNT,ECXARR,ECXSDSC,ECXEDSC ;136 "RTN","ECXSCXN1",6,0) S CLIN=0 "RTN","ECXSCXN1",7,0) F S CLIN=$O(^TMP($J,"ECXCL",CLIN)) Q:'CLIN!($G(QFLG)) D ;136 "RTN","ECXSCXN1",8,0) .Q:$P($G(^TMP($J,"ECXCL",CLIN)),U,3)'="C" "RTN","ECXSCXN1",9,0) .S (P1,P2,P3)="" "RTN","ECXSCXN1",10,0) .D FEEDER^ECXSCX1(CLIN,ECXSD,.P1,.P2,.P3,.TOSEND,.ECXDIV) "RTN","ECXSCXN1",11,0) .Q:TOSEND=6 "RTN","ECXSCXN1",12,0) .;find appts in date range "RTN","ECXSCXN1",13,0) .S ECXSDSC=ECXSD+.1,ECXEDSC=$P(ECXED,".") ;136 get dates back into correct fileman format "RTN","ECXSCXN1",14,0) .S (ALEN,NOSHOW)="" ;136 "RTN","ECXSCXN1",15,0) .K ^TMP($J,"SDAMA301") ;136 "RTN","ECXSCXN1",16,0) .S ECXARR(1)=ECXSDSC_";"_ECXEDSC,ECXARR(2)=CLIN,ECXARR(3)="NS;NSR",ECXARR("FLDS")="5;7;10;12;18" ;136 "RTN","ECXSCXN1",17,0) .S CNT=$$SDAPI^SDAMA301(.ECXARR) ;136 "RTN","ECXSCXN1",18,0) .Q:CNT=0 I CNT=-1 D ERR^ECXUTL1 S QFLG=1 Q ;136 Stop if no data (CNT=0) and send error message if scheduling system down (CNT=-1) "RTN","ECXSCXN1",19,0) .S JJ=0 F S JJ=$O(^TMP($J,"SDAMA301",CLIN,JJ)) Q:'+JJ S JDATE="" F S JDATE=$O(^TMP($J,"SDAMA301",CLIN,JJ,JDATE)) Q:'+JDATE D ;136 "RTN","ECXSCXN1",20,0) ..S ECXDATE=JDATE,ECXTI=$P($$FMTE^XLFDT(JDATE,1),"@",2) ;136 "RTN","ECXSCXN1",21,0) ..S ECXTI=$E(($TR(ECXTI,":","")_"000000"),1,6) "RTN","ECXSCXN1",22,0) ..S:ECXTI="000000" ECXTI="000300" "RTN","ECXSCXN1",23,0) ..S ECXDFN=JJ ;136 "RTN","ECXSCXN1",24,0) ..S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN) ;added in patch 127 "RTN","ECXSCXN1",25,0) ..S NODE=$G(^TMP($J,"SDAMA301",CLIN,JJ,JDATE)),MDIV=$P($G(^SC(CLIN,0)),U,15) ;136 "RTN","ECXSCXN1",26,0) ..Q:NODE="" ;136 "RTN","ECXSCXN1",27,0) ..S ECXSHAD=$$GETSHAD ;added in patch 127, finds shad status for appt "RTN","ECXSCXN1",28,0) ..S ECXOBI=$S($P(NODE,U,7)="Y":"O",1:"") ;136 "RTN","ECXSCXN1",29,0) ..S NOSHOW="N" ;136 only no-show entries are returned from the SDAMA301 call "RTN","ECXSCXN1",30,0) ..D INTPAT^ECXSCX2 S ECXERR=0 "RTN","ECXSCXN1",31,0) ..D PAT1^ECXSCX2(ECXDFN,ECXDATE,.ECXERR) Q:ECXERR "RTN","ECXSCXN1",32,0) ..S ALEN=$$RJ^XLFSTR($P(NODE,U,5),3,0) ;136 "RTN","ECXSCXN1",33,0) ..D PAT2^ECXSCX2(ECXDFN,ECXDATE) "RTN","ECXSCXN1",34,0) ..S ECXPVST=+$P(NODE,U,18),ECXATYP=+$P(NODE,U,10) ;136 Get POV & appt type "RTN","ECXSCXN1",35,0) ..S:+ALEN=0 ALEN=$P($G(^TMP($J,"ECXCL",CLIN)),U,2) "RTN","ECXSCXN1",36,0) ..S ECXCLIN=CLIN,ECXSTOP=P1 "RTN","ECXSCXN1",37,0) ..S ECXEDIS=$$EDIS^ECXUTL1(ECXDFN,ECXDATE,"N",,ECXSTOP) ;136 "RTN","ECXSCXN1",38,0) ..S:ECXCPT1="" ECXCPT1="9919901" "RTN","ECXSCXN1",39,0) ..S ECXCBOC=$S(MDIV'="":$$CBOC^ECXSCX2(.MDIV),1:"") "RTN","ECXSCXN1",40,0) ..S (ECXDSSD,ECXENEL,ECXIR,ECXAO,ECXMIL,ECXPROV,ECXPROVP,ECXPROVN)="" "RTN","ECXSCXN1",41,0) ..F I=1:1:5 S (@("ECSP"_I),@("ECSPPC"_I),@("ECSPNPI"_I))="" "RTN","ECXSCXN1",42,0) ..I TOSEND'=3 D "RTN","ECXSCXN1",43,0) ...S ECXKEY=P1_P2_ALEN_P3_NOSHOW,ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY) "RTN","ECXSCXN1",44,0) ...S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE^ECXSCXN "RTN","ECXSCXN1",45,0) ..I TOSEND=3 D "RTN","ECXSCXN1",46,0) ...S ECXKEY=P1_"000"_ALEN_P3_NOSHOW,ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY) "RTN","ECXSCXN1",47,0) ...S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE^ECXSCXN "RTN","ECXSCXN1",48,0) ..I TOSEND=3 D "RTN","ECXSCXN1",49,0) ...S ECXKEY=P2_"000"_ALEN_P3_NOSHOW,ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY) "RTN","ECXSCXN1",50,0) ...S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE^ECXSCXN "RTN","ECXSCXN1",51,0) ..;create a record for noshow appended ekg. The code was removed for CTX-0604-70970 CLI Extract Problem EXPANDED to NoShows "RTN","ECXSCXN1",52,0) Q "RTN","ECXSCXN1",53,0) ;GETSHAD section added with patch 127 "RTN","ECXSCXN1",54,0) GETSHAD() ;Function returns shad value "RTN","ECXSCXN1",55,0) N DIC,LOCARR,DA,DR,SHAD,ECXERR,ECXVIST "RTN","ECXSCXN1",56,0) S SHAD="" "RTN","ECXSCXN1",57,0) I '+$P($G(NODE),U,12) Q SHAD ;136 Quit if no outpatient encounter pointer "RTN","ECXSCXN1",58,0) S DIC=409.68,DA=$P(NODE,U,12),DR=.05,DIQ(0)="I",DIQ="LOCARR" ;136 "RTN","ECXSCXN1",59,0) D EN^DIQ1 "RTN","ECXSCXN1",60,0) I $G(LOCARR(409.68,DA,.05,"I")) D "RTN","ECXSCXN1",61,0) .S ECXERR=0 "RTN","ECXSCXN1",62,0) .D VISIT^ECXSCX1(ECXDFN,LOCARR(409.68,DA,.05,"I"),.ECXVIST,.ECXERR) "RTN","ECXSCXN1",63,0) .I 'ECXERR S SHAD=ECXVIST("SHAD") "RTN","ECXSCXN1",64,0) Q SHAD "RTN","ECXUTL1") 0^19^B41491361^B8865457 "RTN","ECXUTL1",1,0) ECXUTL1 ;ALB/GTS - Utilities for DSS Extracts ;6/27/12 13:54 "RTN","ECXUTL1",2,0) ;;3.0;DSS EXTRACTS;**9,49,136**;Dec 22, 1997;Build 28 "RTN","ECXUTL1",3,0) ; "RTN","ECXUTL1",4,0) CYFY(ECXFMDT) ;** Return the calandar and fiscal years for a FM date "RTN","ECXUTL1",5,0) ; "RTN","ECXUTL1",6,0) ; Input "RTN","ECXUTL1",7,0) ; ECXFMDT - Fileman formated date "RTN","ECXUTL1",8,0) ; "RTN","ECXUTL1",9,0) ; Output "RTN","ECXUTL1",10,0) ; X - CY begin date^ CY end date^ FY begin date^ FY end date "RTN","ECXUTL1",11,0) ; "RTN","ECXUTL1",12,0) N X,Y,Y2 "RTN","ECXUTL1",13,0) S X="" "RTN","ECXUTL1",14,0) S ECXFMDT=$G(ECXFMDT)\1 "RTN","ECXUTL1",15,0) I ECXFMDT?7N DO "RTN","ECXUTL1",16,0) .S (Y,Y2)=$E(ECXFMDT,1,3) "RTN","ECXUTL1",17,0) .I $E(ECXFMDT,4,5)>9 S Y2=Y+1 "RTN","ECXUTL1",18,0) .S X=Y_"0101^"_Y_"1231^"_(Y2-1)_"1001^"_Y2_"0930" "RTN","ECXUTL1",19,0) Q X "RTN","ECXUTL1",20,0) ; "RTN","ECXUTL1",21,0) FISCAL(DATE) ;Return fiscal year "RTN","ECXUTL1",22,0) ; Input: DATE = Date (FileMan format) (defaults to today) "RTN","ECXUTL1",23,0) ;Output: YYYY = Fiscal year that input date falls within "RTN","ECXUTL1",24,0) ; "RTN","ECXUTL1",25,0) N YEAR "RTN","ECXUTL1",26,0) I '$G(DATE) S DATE=$$DT^XLFDT() "RTN","ECXUTL1",27,0) S DATE=$$ECXYM^ECXUTL(DATE) "RTN","ECXUTL1",28,0) S YEAR=$E(DATE,1,4) "RTN","ECXUTL1",29,0) I $E(DATE,5,6)>9 S YEAR=YEAR+1 "RTN","ECXUTL1",30,0) Q YEAR "RTN","ECXUTL1",31,0) ; "RTN","ECXUTL1",32,0) DTRNG() ;** Prompt the user for a date range "RTN","ECXUTL1",33,0) ; "RTN","ECXUTL1",34,0) N ECXBEG,ECXEND,ECXRNG,ENDRNG "RTN","ECXUTL1",35,0) S ECXRNG=0 "RTN","ECXUTL1",36,0) ; "RTN","ECXUTL1",37,0) ;* Prompt for beginning date "RTN","ECXUTL1",38,0) W ! S DIR(0)="DA^:DT:EX",DIR("A")="Enter Start Date: " "RTN","ECXUTL1",39,0) S DIR("?")="^W ""*** Future dates are not allowed ***"",! D HELP^%DTC" "RTN","ECXUTL1",40,0) D ^DIR K DIR "RTN","ECXUTL1",41,0) S:'$D(DIRUT) ECXBEG=+Y "RTN","ECXUTL1",42,0) K %DT,Y,DTOUT,DUOUT,DIRUT "RTN","ECXUTL1",43,0) ; "RTN","ECXUTL1",44,0) ;* Prompt for ending date "RTN","ECXUTL1",45,0) I $G(ECXBEG) DO "RTN","ECXUTL1",46,0) .S ENDRNG=$$CYFY(ECXBEG) "RTN","ECXUTL1",47,0) .S ENDRNG=$S($P(ENDRNG,"^",4)ECXLGTH) QVAL=1 "RTN","ECXUTL1",82,0) Q ECXFIELD "RTN","ECXUTL1",83,0) ; "RTN","ECXUTL1",84,0) PAD(ECXVAL,ECXLGTH,ECXFB,ECXCHAR) ;* Pad the value passed in with ECXCHAR "RTN","ECXUTL1",85,0) ; "RTN","ECXUTL1",86,0) ; ECXVAL - The value to pad "RTN","ECXUTL1",87,0) ; ECXLGTH - The maximum length "RTN","ECXUTL1",88,0) ; ECXFB - 'F': Pad on front; 'B' Pad on back "RTN","ECXUTL1",89,0) ; ECXCHAR - The character to pad ECXVAL with "RTN","ECXUTL1",90,0) ; "RTN","ECXUTL1",91,0) ; Output "RTN","ECXUTL1",92,0) ; ECXVAR - The padded result "RTN","ECXUTL1",93,0) ; "RTN","ECXUTL1",94,0) N ECXLPCT,ECXVAR "RTN","ECXUTL1",95,0) I $D(ECXVAL),($D(ECXLGTH)),($D(ECXFB)),($D(ECXCHAR)) DO "RTN","ECXUTL1",96,0) .S (ECXVAL,ECXVAR)=$E(ECXVAL,1,ECXLGTH) "RTN","ECXUTL1",97,0) .F ECXLPCT=1:1:ECXLGTH-$L($E(ECXVAR,1,ECXLGTH)) DO "RTN","ECXUTL1",98,0) ..S:ECXFB="B" ECXVAL=ECXVAL_ECXCHAR "RTN","ECXUTL1",99,0) ..S:ECXFB="F" ECXVAL=ECXCHAR_ECXVAL "RTN","ECXUTL1",100,0) I '$D(ECXVAL) S ECXVAL="" "RTN","ECXUTL1",101,0) Q ECXVAL "RTN","ECXUTL1",102,0) ; "RTN","ECXUTL1",103,0) BLDXREF(START,END) ;Build temporary xref from EDIS LOG file #230 API added in patch 136 "RTN","ECXUTL1",104,0) N STDT,ENDT,TIME,SITE,IEN,PIEN "RTN","ECXUTL1",105,0) S STDT=$$FMADD^XLFDT(START,-1) ;Start day before "RTN","ECXUTL1",106,0) S ENDT=$$FMADD^XLFDT(END,1,23,59,59) ;Extend to next day, just before midnight. "RTN","ECXUTL1",107,0) S SITE=0 F S SITE=$O(^EDP(230,"ATO",SITE)) Q:'+SITE S TIME=STDT F S TIME=$O(^EDP(230,"ATO",SITE,TIME)) Q:'+TIME!(TIME>ENDT) D "RTN","ECXUTL1",108,0) .S IEN=0 F S IEN=$O(^EDP(230,"ATO",SITE,TIME,IEN)) Q:'+IEN S PIEN=$$GET1^DIQ(230,IEN,".06","I") I PIEN S ^TMP($J,"EDIS",PIEN,TIME)=IEN "RTN","ECXUTL1",109,0) Q "RTN","ECXUTL1",110,0) ; "RTN","ECXUTL1",111,0) EDIS(ECXDFN,ECD,ECETYPE,ECXVISIT,ECXSTOP) ;Find emergency room disposition, if it exists, and translate it to a value for DSS. API added with patch 136 "RTN","ECXUTL1",112,0) N DISP,STDT,DATE,IEN,ENDT "RTN","ECXUTL1",113,0) I '+$$VERSION^XPDUTL("EDP") Q "" ;If emergency department software not installed, return null "RTN","ECXUTL1",114,0) I ECETYPE="N" Q:ECXSTOP=130 "N" Q "" ;If no-show and ER visit, set to N otherwise set to null "RTN","ECXUTL1",115,0) I ECETYPE="A" D Q:'$D(DISP) "" ;If no dispositions found in time frame return null "RTN","ECXUTL1",116,0) .S STDT=$$FMADD^XLFDT(ECD,,-24) ;find date/time 24 hours prior to admit date/time "RTN","ECXUTL1",117,0) .S ENDT=$$FMADD^XLFDT(ECD,,24) ;add 24 hours to the admit date/time to allow for late entry of disposition following admission "RTN","ECXUTL1",118,0) .S DATE=STDT F S DATE=$O(^TMP($J,"EDIS",ECXDFN,DATE)) Q:'+DATE!(DATE>ENDT) S DISP=$$GET1^DIQ(230,^TMP($J,"EDIS",ECXDFN,DATE),1.2,"I") "RTN","ECXUTL1",119,0) I ECETYPE="C" Q:$G(ECXSTOP)'=130 "" D "RTN","ECXUTL1",120,0) .I +$G(ECXVISIT) S IEN=+$O(^EDP(230,"V",ECXVISIT,0)) ;Check visit file pointer "RTN","ECXUTL1",121,0) .I '+$G(IEN) S IEN=+$O(^EDP(230,"B",ECD,0)) I IEN I ECXDFN'=$$GET1^DIQ(230,IEN_",",.06,"I") K IEN ;Check log date/time and patient IEN for match "RTN","ECXUTL1",122,0) .I +$G(IEN) S DISP=$$GET1^DIQ(230,IEN,1.2,"I") "RTN","ECXUTL1",123,0) I '$D(DISP) Q "N" ;If no visits, return "N" for none "RTN","ECXUTL1",124,0) I DISP="" Q "U" "RTN","ECXUTL1",125,0) Q $$TRANS(DISP) "RTN","ECXUTL1",126,0) ; "RTN","ECXUTL1",127,0) TRANS(DISP) ;Translate disposition to set of codes. API added in patch 136 "RTN","ECXUTL1",128,0) N CODE,DSP "RTN","ECXUTL1",129,0) S CODE=$$GET1^DIQ(233.1,DISP_",",".01"),DSP=$$UP^XLFSTR($$GET1^DIQ(233.1,DISP_",",".02")) ;Get code name and display name for disposition "RTN","ECXUTL1",130,0) I +CODE Q "U" ;If code begins with a number, it's local "RTN","ECXUTL1",131,0) I DSP["ADMIT" Q "A" "RTN","ECXUTL1",132,0) I DSP["TRANSFER" Q "T" "RTN","ECXUTL1",133,0) I DSP["HOME"!(DSP["AMA")!(DSP["LEFT")!(DSP["ELOPED") Q "L" "RTN","ECXUTL1",134,0) I DSP["DECEASED" Q "D" "RTN","ECXUTL1",135,0) I DSP["SENT" Q "R" "RTN","ECXUTL1",136,0) I DSP["ERROR" Q "E" "RTN","ECXUTL1",137,0) Q "U" "RTN","ECXUTL1",138,0) ; "RTN","ECXUTL1",139,0) ERR ;Send email when scheduling system reports an error. API added in patch 136 "RTN","ECXUTL1",140,0) N XMSUB,XMTEXT,XMDUZ,XMY,XMZ,I,CNT,TEXT "RTN","ECXUTL1",141,0) I '$D(^TMP($J,"SDAMA301")) Q ;No error to report "RTN","ECXUTL1",142,0) S XMY($G(DUZ,.5))="" ;Send to user or postmaster if no user identified "RTN","ECXUTL1",143,0) S XMY("G.DSS-"_$G(ECGRP))="" ;Include extract group "RTN","ECXUTL1",144,0) S XMDUZ="DSS SYSTEM" "RTN","ECXUTL1",145,0) S XMSUB="Error in retrieving appointment data during extract" "RTN","ECXUTL1",146,0) S CNT=1 S TEXT(CNT)="An error was encountered by the scheduling system during an extract.",CNT=CNT+1 "RTN","ECXUTL1",147,0) S TEXT(CNT)="The system returned the following error:",CNT=CNT+1,TEXT(CNT)="",CNT=CNT+1 "RTN","ECXUTL1",148,0) S I=0 F S I=$O(^TMP($J,"SDAMA301",I)) Q:'+I S TEXT(CNT)="Error code "_I_" - "_^TMP($J,"SDAMA301",I)_".",CNT=CNT+1 "RTN","ECXUTL1",149,0) S TEXT(CNT)="",CNT=CNT+1,TEXT(CNT)="Contact your local I.T. department for assistance." "RTN","ECXUTL1",150,0) S XMTEXT="TEXT(" "RTN","ECXUTL1",151,0) D ^XMD "RTN","ECXUTL1",152,0) Q "RTN","ECXUTL5") 0^25^B37238715^B34433820 "RTN","ECXUTL5",1,0) ECXUTL5 ;ALB/JRC - Utilities for DSS Extracts ;5/17/12 15:52 "RTN","ECXUTL5",2,0) ;;3.0;DSS EXTRACTS;**71,84,92,103,105,120,136**;Dec 22, 1997;Build 28 "RTN","ECXUTL5",3,0) ; "RTN","ECXUTL5",4,0) REPEAT(CHAR,TIMES) ;REPEAT A STRING "RTN","ECXUTL5",5,0) ;INPUT : CHAR - Character to repeat "RTN","ECXUTL5",6,0) ; TIMES - Number of times to repeat CHAR "RTN","ECXUTL5",7,0) ;OUTPUT : s - String of CHAR that is TIMES long "RTN","ECXUTL5",8,0) ; "" - Error (bad input) "RTN","ECXUTL5",9,0) ; "RTN","ECXUTL5",10,0) ;CHECK INPUT "RTN","ECXUTL5",11,0) Q:($G(CHAR)="") "" "RTN","ECXUTL5",12,0) Q:((+$G(TIMES))=0) "" "RTN","ECXUTL5",13,0) ;RETURN STRING "RTN","ECXUTL5",14,0) Q $TR($J("",TIMES)," ",CHAR) "RTN","ECXUTL5",15,0) INSERT(INSTR,OUTSTR,COLUMN,LENGTH) ;INSERT A STRING INTO ANOTHER "RTN","ECXUTL5",16,0) ;INPUT : INSTR - String to insert "RTN","ECXUTL5",17,0) ; OUTSTR - String to insert into "RTN","ECXUTL5",18,0) ; COLUMN - Where to begin insertion (defaults to end of OUTSTR) "RTN","ECXUTL5",19,0) ; LENGTH - Number of characters to clear from OUTSTR "RTN","ECXUTL5",20,0) ; (defaults to length of INSTR) "RTN","ECXUTL5",21,0) ;OUTPUT : s - INSTR will be placed into OUTSTR starting at COLUMN "RTN","ECXUTL5",22,0) ; using LENGTH characters "RTN","ECXUTL5",23,0) ; "" - Error (bad input) "RTN","ECXUTL5",24,0) ; "RTN","ECXUTL5",25,0) ;NOTE : This module is based on $$SETSTR^VALM1 "RTN","ECXUTL5",26,0) ; "RTN","ECXUTL5",27,0) ;CHECK INPUT "RTN","ECXUTL5",28,0) Q:('$D(INSTR)) "" "RTN","ECXUTL5",29,0) Q:('$D(OUTSTR)) "" "RTN","ECXUTL5",30,0) S:('$D(COLUMN)) COLUMN=$L(OUTSTR)+1 "RTN","ECXUTL5",31,0) S:('$D(LENGTH)) LENGTH=$L(INSTR) "RTN","ECXUTL5",32,0) ;DECLARE VARIABLES "RTN","ECXUTL5",33,0) N FRONT,END "RTN","ECXUTL5",34,0) S FRONT=$E((OUTSTR_$J("",COLUMN-1)),1,(COLUMN-1)) "RTN","ECXUTL5",35,0) S END=$E(OUTSTR,(COLUMN+LENGTH),$L(OUTSTR)) "RTN","ECXUTL5",36,0) ;INSERT STRING "RTN","ECXUTL5",37,0) Q FRONT_$E((INSTR_$J("",LENGTH)),1,LENGTH)_END "RTN","ECXUTL5",38,0) TYPE(DFN) ;Determine patient type DBIA #2511 "RTN","ECXUTL5",39,0) ; input "RTN","ECXUTL5",40,0) ; DFN = patient ien "RTN","ECXUTL5",41,0) ; "RTN","ECXUTL5",42,0) ; output "RTN","ECXUTL5",43,0) ; ECXPTYPE = patient type external value from fle 391 "RTN","ECXUTL5",44,0) ; "RTN","ECXUTL5",45,0) ; AC = ACTIVE DUTY MI = MILITARY RETIREE "RTN","ECXUTL5",46,0) ; AL = ALLIED VETERAN NO = NON-VETERAN (OTHER) "RTN","ECXUTL5",47,0) ; CO = COLLATERAL NS = NSC VETERAN "RTN","ECXUTL5",48,0) ; EM = EMPLOYEE SC = SC VETERAN "RTN","ECXUTL5",49,0) ; IN = INELIGIBLE TR = TRICARE "RTN","ECXUTL5",50,0) ; return value 0 if no data found, 1 if data found "RTN","ECXUTL5",51,0) ; "RTN","ECXUTL5",52,0) N TYPE,ECXPTYPE "RTN","ECXUTL5",53,0) ;Check input "RTN","ECXUTL5",54,0) Q:'$D(DFN) "" "RTN","ECXUTL5",55,0) S (TYPE,ECXPTYPE)="" "RTN","ECXUTL5",56,0) S TYPE=$G(^DPT(DFN,"TYPE")) "RTN","ECXUTL5",57,0) I 'TYPE Q ECXPTYPE "RTN","ECXUTL5",58,0) S ECXPTYPE=$P($G(^DG(391,TYPE,0)),U,1) "RTN","ECXUTL5",59,0) S ECXPTYPE=$E(ECXPTYPE,1,2) "RTN","ECXUTL5",60,0) Q ECXPTYPE "RTN","ECXUTL5",61,0) CVEDT(DFN,DATE) ;Determine patient CV status DBIA #4156 "RTN","ECXUTL5",62,0) ; input "RTN","ECXUTL5",63,0) ; DFN = patient ien "RTN","ECXUTL5",64,0) ; "RTN","ECXUTL5",65,0) ; output "RTN","ECXUTL5",66,0) ; ECXCVE = combat veteran status eligibility "RTN","ECXUTL5",67,0) ; ECXCVEDT = combat veteran eligibility end date "RTN","ECXUTL5",68,0) ; ECXCVENC = combat veteran encounter "RTN","ECXUTL5",69,0) ;Initialize variables "RTN","ECXUTL5",70,0) N CVSTAT "RTN","ECXUTL5",71,0) S (CVSTAT,ECXCVE,ECXCVEDT,ECXCVENC)="" "RTN","ECXUTL5",72,0) ;Check input "RTN","ECXUTL5",73,0) Q:'$D(DFN) 0 "RTN","ECXUTL5",74,0) ;Call CV API "RTN","ECXUTL5",75,0) S CVSTAT=$$CVEDT^DGCV(DFN,DATE) "RTN","ECXUTL5",76,0) I CVSTAT<1 Q 0 "RTN","ECXUTL5",77,0) ;Veteran been given CV eligibility "RTN","ECXUTL5",78,0) S ECXCVE=$S($P(CVSTAT,U,3)=1:"Y",$P(CVSTAT,U,3)=0:"E",1:"") "RTN","ECXUTL5",79,0) ;Save CV eligibility end date and convert from FM to HL7 format "RTN","ECXUTL5",80,0) S ECXCVEDT=$P(CVSTAT,U,2) "RTN","ECXUTL5",81,0) S ECXCVEDT=$$FMTHL7^XLFDT(ECXCVEDT) "RTN","ECXUTL5",82,0) ;Is the veteran eligible for CV in the date of encounter "RTN","ECXUTL5",83,0) S ECXCVENC=$S($P(CVSTAT,U,3)=1:"Y",1:"") "RTN","ECXUTL5",84,0) Q 1 "RTN","ECXUTL5",85,0) NPRF ;National patient record flags DBIA #3860 "RTN","ECXUTL5",86,0) N ECXARR,FLG "RTN","ECXUTL5",87,0) S ECXNPRFI="",CNT=$$GETACT^DGPFAPI(ECXDFN,"ECXARR"),FLG="" "RTN","ECXUTL5",88,0) I 'CNT Q "RTN","ECXUTL5",89,0) F I=1:1:CNT D Q:FLG "RTN","ECXUTL5",90,0) .I ECXARR(I,"CATEGORY")["NATIONAL" S ECXNPRFI="Y",FLG=1 "RTN","ECXUTL5",91,0) Q "RTN","ECXUTL5",92,0) RXPTST(K) ;Rx patient status DBIA #2511 "RTN","ECXUTL5",93,0) N ECXDIC,STAT "RTN","ECXUTL5",94,0) S (ECXDIC,STAT)="" "RTN","ECXUTL5",95,0) ;Check input "RTN","ECXUTL5",96,0) Q:'$D(K) STAT "RTN","ECXUTL5",97,0) S DA=K,DIC="^PS(53,",DIQ(0)="I",DIQ="ECXDIC",DR="6" "RTN","ECXUTL5",98,0) D EN^DIQ1 "RTN","ECXUTL5",99,0) S STAT=$G(ECXDIC(53,K,6,"I")) "RTN","ECXUTL5",100,0) S STAT=$S(STAT=1:"SC",STAT=2:"AA",STAT=3:"OTH",STAT=4:"INP",STAT=5:"NON",1:"") "RTN","ECXUTL5",101,0) Q STAT "RTN","ECXUTL5",102,0) NONVAP(K) ;Non-va prescriber DBIA #10060 "RTN","ECXUTL5",103,0) N ECXDIC,NONVAP "RTN","ECXUTL5",104,0) S (ECXDIC,NONVAP)="" "RTN","ECXUTL5",105,0) Q:'$D(K) NONVAP "RTN","ECXUTL5",106,0) S DA=K,DIC="^VA(200,",DIQ(0)="I",DIQ="ECXDIC",DR="53.91" "RTN","ECXUTL5",107,0) D EN^DIQ1 "RTN","ECXUTL5",108,0) S NONVAP=$G(ECXDIC(200,K,53.91,"I")) "RTN","ECXUTL5",109,0) I NONVAP S NONVAP="Y" "RTN","ECXUTL5",110,0) Q NONVAP "RTN","ECXUTL5",111,0) DOIVPO(K,L) ;Add destination for outpatient ivp orders "RTN","ECXUTL5",112,0) ; Input K - DFN "RTN","ECXUTL5",113,0) ; L - Order # from Pharmacy Patient File (#55) "RTN","ECXUTL5",114,0) ; "RTN","ECXUTL5",115,0) ; Output ordering stop code "RTN","ECXUTL5",116,0) ; "RTN","ECXUTL5",117,0) N ECXDIC,ECXDICA,ECXDICB,DOIVPO,CLINIC,SCODE,DIC,DIQ,DR,DA "RTN","ECXUTL5",118,0) S (ECXDIC,ECXDICA,ECXDICB,DOIVPO,CLINIC,SCODE)="" "RTN","ECXUTL5",119,0) ;Check input "RTN","ECXUTL5",120,0) Q:'K!'(L) SCODE "RTN","ECXUTL5",121,0) ;Check treating specialty "RTN","ECXUTL5",122,0) S SCODE=$$TSSC($G(ECXTS)) I SCODE>0 Q SCODE "RTN","ECXUTL5",123,0) ;Go to pharmacy patient file (#55) and return value of field (#136) "RTN","ECXUTL5",124,0) S DIC=55,DIQ(0)="I",DIQ="ECXDIC",DR="100",DR(55.01)="136",DA=K,DA(55.01)=L "RTN","ECXUTL5",125,0) D EN^DIQ1 "RTN","ECXUTL5",126,0) S CLINIC=$G(ECXDIC(55.01,L,136,"I")) "RTN","ECXUTL5",127,0) I 'CLINIC Q SCODE "RTN","ECXUTL5",128,0) ;Get stop code pointer to file 40.7 from file 44 "RTN","ECXUTL5",129,0) S DIC="^SC(",DIQ(0)="I",DIQ="ECXDICA",DR="8",DA=CLINIC D EN^DIQ1 "RTN","ECXUTL5",130,0) S SCODE=ECXDICA(44,CLINIC,8,"I") "RTN","ECXUTL5",131,0) ;Get stop code external value "RTN","ECXUTL5",132,0) S DIC="^DIC(40.7,",DIQ(0)="E",DIQ="ECXDICB",DR="1",DA=SCODE D EN^DIQ1 "RTN","ECXUTL5",133,0) S SCODE=$G(ECXDICB(40.7,SCODE,1,"E")) "RTN","ECXUTL5",134,0) Q SCODE "RTN","ECXUTL5",135,0) ; "RTN","ECXUTL5",136,0) DOUDO(K,L) ;Add destination for outpatient udp orders "RTN","ECXUTL5",137,0) ; Input K - DFN "RTN","ECXUTL5",138,0) ; L - Order # from Pharmacy Patient File (#55) "RTN","ECXUTL5",139,0) ; "RTN","ECXUTL5",140,0) ; Output ordering stop code "RTN","ECXUTL5",141,0) ; "RTN","ECXUTL5",142,0) N ECXDIC,ECXDICA,ECXDICB,DOIVPO,CLINIC,SCODE,DIC,DIQ,DR,DA "RTN","ECXUTL5",143,0) S (ECXDIC,ECXDICA,ECXDICB,DOIVPO,CLINIC,SCODE)="" "RTN","ECXUTL5",144,0) ;Check treating specialty "RTN","ECXUTL5",145,0) S SCODE=$$TSSC($G(ECXTS)) I SCODE>0 Q SCODE "RTN","ECXUTL5",146,0) ;Check input "RTN","ECXUTL5",147,0) Q:'K!'(L) SCODE "RTN","ECXUTL5",148,0) S DIC=55,DIQ(0)="I",DIQ="ECXDIC",DR="62",DR(55.06)="130",DA=K,DA(55.06)=L "RTN","ECXUTL5",149,0) D EN^DIQ1 "RTN","ECXUTL5",150,0) S CLINIC=$G(ECXDIC(55.06,L,130,"I")) "RTN","ECXUTL5",151,0) I 'CLINIC Q SCODE "RTN","ECXUTL5",152,0) ;Get stop code pointer to file 40.7 from file 44 "RTN","ECXUTL5",153,0) S DIC="^SC(",DIQ(0)="I",DIQ="ECXDICA",DR="8",DA=CLINIC D EN^DIQ1 "RTN","ECXUTL5",154,0) S SCODE=ECXDICA(44,CLINIC,8,"I") "RTN","ECXUTL5",155,0) ;Get stop code external value "RTN","ECXUTL5",156,0) S DIC="^DIC(40.7,",DIQ(0)="E",DIQ="ECXDICB",DR="1",DA=SCODE D EN^DIQ1 "RTN","ECXUTL5",157,0) S SCODE=$G(ECXDICB(40.7,SCODE,1,"E")) "RTN","ECXUTL5",158,0) Q SCODE "RTN","ECXUTL5",159,0) ; "RTN","ECXUTL5",160,0) PHAAPI(DRUG) ;Call Pharmacy drug file API dbia 4483 "RTN","ECXUTL5",161,0) ; Input: drug file (#50) ien "RTN","ECXUTL5",162,0) ; "RTN","ECXUTL5",163,0) ; Output: generic name ^ classification ^ ndc ^ dea hand "RTN","ECXUTL5",164,0) ; ^ ndf file entry # ^ psndf va product entry ^ "RTN","ECXUTL5",165,0) ; price per disp unit ^ dispense unit "RTN","ECXUTL5",166,0) ; "RTN","ECXUTL5",167,0) ;Initialize variables and scratch global "RTN","ECXUTL5",168,0) N NAME,CLASS,NDC,INV,NDF,P1,P3,PPDU,UNIT,ARRAY,DATA "RTN","ECXUTL5",169,0) S (NAME,CLASS,NDC,INV,NDF,P1,P3,PPDU,ARRAY,DATA)="" "RTN","ECXUTL5",170,0) S ARRAY="^TMP($J,""ECXLIST"")" "RTN","ECXUTL5",171,0) K @ARRAY "RTN","ECXUTL5",172,0) D DATA^PSS50(DRUG,,,,,"ECXLIST") "RTN","ECXUTL5",173,0) I @ARRAY@(0)'>0 Q "^^^^^^" "RTN","ECXUTL5",174,0) S NAME=@ARRAY@(DRUG,.01),CLASS=@ARRAY@(DRUG,2),NDC=@ARRAY@(DRUG,31) "RTN","ECXUTL5",175,0) S INV=@ARRAY@(DRUG,3),P1=$P(@ARRAY@(DRUG,20),U),P3=$P(@ARRAY@(DRUG,22),U),PPDU=@ARRAY@(DRUG,16),UNIT=@ARRAY@(DRUG,14.5) "RTN","ECXUTL5",176,0) K @ARRAY "RTN","ECXUTL5",177,0) Q NAME_U_CLASS_U_NDC_U_INV_U_P1_U_P3_U_PPDU_U_UNIT "RTN","ECXUTL5",178,0) ; "RTN","ECXUTL5",179,0) TSSC(X) ;Check treating specialty (ts) and if ts equals any of the following "RTN","ECXUTL5",180,0) ;18,23,24,36,41,65,94,108(1J) then assign predefined code and return value "RTN","ECXUTL5",181,0) ; "RTN","ECXUTL5",182,0) ; Input: treating specialty "RTN","ECXUTL5",183,0) ; Output: Ordering stop code "RTN","ECXUTL5",184,0) ; "RTN","ECXUTL5",185,0) S CODE=$S(X=18:293,X=23:295,X=24:290,X=36:294,X=41:296,X=65:291,X=94:292,X=108:297,1:"") "RTN","ECXUTL5",186,0) Q CODE "RTN","ECXUTL5",187,0) ; "RTN","ECXUTL5",188,0) PSJ59P5(X) ;Get iv room division "RTN","ECXUTL5",189,0) ; Input X - iv room ien "RTN","ECXUTL5",190,0) ; "RTN","ECXUTL5",191,0) ; Output - field .02 division "RTN","ECXUTL5",192,0) ;Init variables "RTN","ECXUTL5",193,0) N DIV S DIV="" "RTN","ECXUTL5",194,0) ;Check input "RTN","ECXUTL5",195,0) I 'X Q DIV "RTN","ECXUTL5",196,0) D ALL^PSJ59P5(X,,"ECXDIV") "RTN","ECXUTL5",197,0) S DIV=$P($G(^TMP($J,"ECXDIV",X,.02)),U) "RTN","ECXUTL5",198,0) K ^TMP($J,"ECXDIV") "RTN","ECXUTL5",199,0) Q DIV "RTN","ECXUTL5",200,0) ; "RTN","ECXUTL5",201,0) SCRX(IEN) ;Service connected prescription "RTN","ECXUTL5",202,0) ;Init variables "RTN","ECXUTL5",203,0) N DIC,DR,DA,ECXDIQ "RTN","ECXUTL5",204,0) ;Check input "RTN","ECXUTL5",205,0) I '$G(IEN) Q "" "RTN","ECXUTL5",206,0) S DIC=52,DR="116",DA=IEN,DIQ="ECXDIQ" "RTN","ECXUTL5",207,0) D DIQ^PSODI(DIC,DIC,DR,DA,DIQ) "RTN","ECXUTL5",208,0) Q $S($G(ECXDIQ(52,DA,116))="YES":"Y",$G(ECXDIQ(52,DA,116))="NO":"N",1:"") "RTN","ECXUTL5",209,0) ; "RTN","ECXUTL5",210,0) SSN(SSN,FILE) ; extended validation of ssn "RTN","ECXUTL5",211,0) ; input: ssn - social security number to validate "RTN","ECXUTL5",212,0) ; file - optional "", 2 or 67, the only check is for "RTN","ECXUTL5",213,0) ; reference lab file (#67) in which case ssn "RTN","ECXUTL5",214,0) ; "000123456" is considered a valid ssn. "RTN","ECXUTL5",215,0) ; output: 0 - test patient or invalid ssn "RTN","ECXUTL5",216,0) ; 1 - valid ssn "RTN","ECXUTL5",217,0) ; "RTN","ECXUTL5",218,0) ;check input "RTN","ECXUTL5",219,0) I $G(SSN)']"" Q 0 "RTN","ECXUTL5",220,0) S FILE=$G(FILE) "RTN","ECXUTL5",221,0) I (FILE=67)&(SSN="000123456") Q 1 "RTN","ECXUTL5",222,0) ;I "89"[$E(SSN) Q 0 ;136 Removed filtering of SSNs that start with 8 or 9 "RTN","ECXUTL5",223,0) I (SSN="123456789")!(SSN="111111111")!(SSN="222222222")!(SSN="333333333")!(SSN="444444444")!(SSN="555555555")!($E(SSN,1,3)="666")!($E(SSN,4,5)="00")!($E(SSN,1,3)="000") Q 0 "RTN","ECXUTL5",224,0) I SSN="777777777"!(SSN="888888888")!(SSN="999999999") Q 0 ;136 adding new exclusions for the 7, 8, and 9 series where the numbers repeat "RTN","ECXUTL5",225,0) Q 1 "RTN","ECXUTL5",226,0) ; "VER") 8.0^22.0 "^DD",727.802,727.802,3,0) FACILITY^P40.8'^DG(40.8,^0;4^Q "^DD",727.802,727.802,3,.1) Facility "^DD",727.802,727.802,3,3) Enter the medical center division associated with this admission. "^DD",727.802,727.802,3,21,0) ^.001^1^1^3120608^^^^ "^DD",727.802,727.802,3,21,1,0) This is the medical center division where the extract was performed. "^DD",727.802,727.802,3,23,0) ^.001^3^3^3120608^^^ "^DD",727.802,727.802,3,23,1,0) An indicator of the medical center division where this event happened. It "^DD",727.802,727.802,3,23,2,0) is derived from the DIVISION field (.015) of the WARD LOCATION file (#42) "^DD",727.802,727.802,3,23,3,0) which points to the MEDICAL CENTER DIVISION file (#40.8). "^DD",727.802,727.802,3,"DT") 3120417 "^DD",727.802,727.802,5,0) SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X "^DD",727.802,727.802,5,.1) Social Security Number "^DD",727.802,727.802,5,3) Your answer must be 9 to 10 characters in length. "^DD",727.802,727.802,5,21,0) ^.001^1^1^3120608^^^^ "^DD",727.802,727.802,5,21,1,0) The patient's social security number. "^DD",727.802,727.802,5,23,0) ^.001^6^6^3120608^^^^ "^DD",727.802,727.802,5,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.802,727.802,5,23,2,0) (#4) in the ADMISSION EXTRACT file (#727.802), SSN data is derived from "^DD",727.802,727.802,5,23,3,0) the SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2). "^DD",727.802,727.802,5,23,4,0) "^DD",727.802,727.802,5,23,5,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with "^DD",727.802,727.802,5,23,6,0) an SSN beginning with "00000" will not be included in the extract. "^DD",727.802,727.802,5,"DT") 2960731 "^DD",727.802,727.802,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.802,727.802,6,.1) Name "^DD",727.802,727.802,6,3) Your answer must be 4 characters in length. "^DD",727.802,727.802,6,21,0) ^.001^1^1^3120608^^^^ "^DD",727.802,727.802,6,21,1,0) The first four characters of the patient's last name. "^DD",727.802,727.802,6,23,0) ^.001^6^6^3120608^^^^ "^DD",727.802,727.802,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.802,727.802,6,23,2,0) in the ADMISSION EXTRACT file (#727.802), NAME data is derived from the "^DD",727.802,727.802,6,23,3,0) NAME field (#.01) in the PATIENT file (#2). The first four characters of "^DD",727.802,727.802,6,23,4,0) the first "," piece are used, padded with trailing spaces if necessary. "^DD",727.802,727.802,6,23,5,0) "^DD",727.802,727.802,6,23,6,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.802,727.802,6,"DT") 2960731 "^DD",727.802,727.802,7,0) IN OUT PATIENT INDICATOR^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q "^DD",727.802,727.802,7,.1) In Out Patient Indicator "^DD",727.802,727.802,7,3) Enter the patient's status for this extract entry. "^DD",727.802,727.802,7,21,0) ^.001^2^2^3120608^^^^ "^DD",727.802,727.802,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for "^DD",727.802,727.802,7,21,2,0) this extract. "^DD",727.802,727.802,7,23,0) ^.001^10^10^3120608^^^^ "^DD",727.802,727.802,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.802,727.802,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.802,727.802,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.802,727.802,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.802,727.802,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.802,727.802,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.802,727.802,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.802,727.802,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.802,727.802,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.802,727.802,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.802,727.802,7,"DT") 3120414 "^DD",727.802,727.802,11,0) DATE OF BIRTH^FO^^0;12^K:$L(X)>8!($L(X)<8) X "^DD",727.802,727.802,11,.1) Date of Birth "^DD",727.802,727.802,11,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.802,727.802,11,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.802,727.802,11,3) Answer must be 8 characters in length. "^DD",727.802,727.802,11,21,0) ^.001^1^1^3120414^^^ "^DD",727.802,727.802,11,21,1,0) Patient's date of birth. "^DD",727.802,727.802,11,23,0) ^.001^7^7^3120414^^^ "^DD",727.802,727.802,11,23,1,0) Data source: "^DD",727.802,727.802,11,23,2,0) "^DD",727.802,727.802,11,23,3,0) PATIENT MOVEMENT file (#405); PATIENT field (#.03) "^DD",727.802,727.802,11,23,4,0) then to PATIENT file (#2); DATE OF BIRTH field (#.03) "^DD",727.802,727.802,11,23,5,0) "^DD",727.802,727.802,11,23,6,0) Date of Birth is returned through the supported call DEM^VADPT. It is then "^DD",727.802,727.802,11,23,7,0) represented by an 8-character numeric string in the YYYYMMDD format. "^DD",727.802,727.802,11,"DT") 2970924 "^DD",727.802,727.802,14,0) HEALTH INSURANCE^S^1:INSURED;0:UNINSURED;^0;15^Q "^DD",727.802,727.802,14,.1) Health Insurance "^DD",727.802,727.802,14,3) Select the appropriate health insurance status. "^DD",727.802,727.802,14,21,0) ^.001^1^1^3120207^^^ "^DD",727.802,727.802,14,21,1,0) Identifies if patient is covered by health insurance. "^DD",727.802,727.802,14,23,0) ^.001^4^4^3120207^^^^ "^DD",727.802,727.802,14,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.802,727.802,14,23,2,0) (#4) in the ADMISSION EXTRACT file (#727.802), a call is made to the "^DD",727.802,727.802,14,23,3,0) Integrated Billing API, INSURED^IBCNS1. The API returns 1 if the "^DD",727.802,727.802,14,23,4,0) patient is insured, or 0 if the patient is uninsured. "^DD",727.802,727.802,14,"DT") 3120123 "^DD",727.802,727.802,16,0) COUNTY^F^^0;17^K:$L(X)>3!($L(X)<3) X "^DD",727.802,727.802,16,.1) "^DD",727.802,727.802,16,3) Answer must be 3 characters in length. "^DD",727.802,727.802,16,21,0) ^.001^1^1^3120119^^^^ "^DD",727.802,727.802,16,21,1,0) County in which the patient resides. "^DD",727.802,727.802,16,23,0) ^.001^6^6^3120119^^^^ "^DD",727.802,727.802,16,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) "^DD",727.802,727.802,16,23,2,0) in the ADMISSION EXTRACT file (#727.802), data is taken from the "^DD",727.802,727.802,16,23,3,0) COUNTY field (.117) in the PATIENT file (#2), which points to a subfile "^DD",727.802,727.802,16,23,4,0) record in the COUNTY multiple field (#3) of the STATE file (#5). The "^DD",727.802,727.802,16,23,5,0) three character VA COUNTY CODE field (#2) within the COUNTY multiple "^DD",727.802,727.802,16,23,6,0) field (#3) is used. "^DD",727.802,727.802,16,"DT") 2990505 "^DD",727.802,727.802,17,0) ZIP+4^F^^0;18^K:$L(X)>10!($L(X)<5) X "^DD",727.802,727.802,17,.1) "^DD",727.802,727.802,17,3) Answer must be 5-10 characters in length. "^DD",727.802,727.802,17,21,0) ^.001^2^2^3120414^^ "^DD",727.802,727.802,17,21,1,0) The zip code for where the patient resides. The 5-character zip code is "^DD",727.802,727.802,17,21,2,0) provided if zip+4 is not available. "^DD",727.802,727.802,17,23,0) ^.001^3^3^3120414^^^^ "^DD",727.802,727.802,17,23,1,0) The patient's zip code with optional 4-digit extension as found in "^DD",727.802,727.802,17,23,2,0) the ZIP+4 field (#.1112) of the patient's record in the PATIENT "^DD",727.802,727.802,17,23,3,0) file (#2). "^DD",727.802,727.802,17,"DT") 2990517 "^DD",727.802,727.802,19,0) VETERAN^S^Y:YES;N:NO;^0;20^Q "^DD",727.802,727.802,19,.1) Veteran "^DD",727.802,727.802,19,3) Select the appropriate veteran status for this patient. "^DD",727.802,727.802,19,21,0) ^.001^1^1^3120414^^^^ "^DD",727.802,727.802,19,21,1,0) Patient's Veteran status. "^DD",727.802,727.802,19,23,0) ^^4^4^3120414^ "^DD",727.802,727.802,19,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.802,727.802,19,23,2,0) in the ADMISSION EXTRACT file (#727.802), VETERAN data is derived from the "^DD",727.802,727.802,19,23,3,0) VETERAN (Y/N)? field (#1901) in the PATIENT file (#2). Veteran is "^DD",727.802,727.802,19,23,4,0) returned by the supported call ELIG^VADPT. "^DD",727.802,727.802,19,"DT") 2960801 "^DD",727.802,727.802,20,0) VIETNAM^S^Y:YES;N:NO;U:UNKNOWN;^0;21^Q "^DD",727.802,727.802,20,.1) Vietnam "^DD",727.802,727.802,20,3) Select the appropriate Vietnam service status for this patient. "^DD",727.802,727.802,20,21,0) ^^1^1^3120414^ "^DD",727.802,727.802,20,21,1,0) Indicates if patient is a Vietnam era veteran. "^DD",727.802,727.802,20,23,0) ^^3^3^3120414^ "^DD",727.802,727.802,20,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.802,727.802,20,23,2,0) in the ADMISSION EXTRACT file (#727.802), VIETNAM data is derived from the "^DD",727.802,727.802,20,23,3,0) VIETNAM SERVICE INDICATED? field (#.32101) in the PATIENT file (#2). "^DD",727.802,727.802,20,"DT") 2960801 "^DD",727.802,727.802,21,0) AGENT ORANGE STATUS^S^Y:YES;N:NO;U:UNKNOWN;^0;22^Q "^DD",727.802,727.802,21,.1) "^DD",727.802,727.802,21,3) Enter the Agent Orange status for this patient. "^DD",727.802,727.802,21,21,0) ^.001^1^1^3120414^^^^ "^DD",727.802,727.802,21,21,1,0) Indicates whether patient was exposed to Agent Orange. "^DD",727.802,727.802,21,23,0) ^^6^6^3120414^ "^DD",727.802,727.802,21,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.802,727.802,21,23,2,0) in the ADMISSION EXTRACT file (#727.802), AGENT ORANGE data is derived "^DD",727.802,727.802,21,23,3,0) from the AGENT ORANGE EXPOS. INDICATED? field (.#32102) in the PATIENT "^DD",727.802,727.802,21,23,4,0) file (#2). "^DD",727.802,727.802,21,23,5,0) "^DD",727.802,727.802,21,23,6,0) The status indicator is returned by SVC^VADPT. "^DD",727.802,727.802,21,"DT") 2990505 "^DD",727.802,727.802,22,0) RADIATION STATUS^S^Y:YES;N:NO;U:UNKNOWN;^0;23^Q "^DD",727.802,727.802,22,.1) "^DD",727.802,727.802,22,3) Enter the Radiation Status for this patient. "^DD",727.802,727.802,22,21,0) ^.001^1^1^3120414^^ "^DD",727.802,727.802,22,21,1,0) Indicates if the patient claims exposure to ionizing radiation. "^DD",727.802,727.802,22,23,0) ^^6^6^3120414^ "^DD",727.802,727.802,22,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.802,727.802,22,23,2,0) in the ADMISSION EXTRACT file (#727.802), RADIATION data is derived from "^DD",727.802,727.802,22,23,3,0) the RADIATION EXPOSURE INDICATED? field (#.32103) in the PATIENT file "^DD",727.802,727.802,22,23,4,0) (#2). "^DD",727.802,727.802,22,23,5,0) "^DD",727.802,727.802,22,23,6,0) The status indicator is returned by SVC^VADPT. "^DD",727.802,727.802,22,"DT") 2990505 "^DD",727.802,727.802,23,0) POW STATUS^S^Y:YES;N:NO;U:UNKNOWN;^0;24^Q "^DD",727.802,727.802,23,.1) "^DD",727.802,727.802,23,3) Enter the patient's POW status. "^DD",727.802,727.802,23,21,0) ^.001^1^1^3120414^^^ "^DD",727.802,727.802,23,21,1,0) Indicates if patient was confined as a Prisoner of War. "^DD",727.802,727.802,23,23,0) ^^5^5^3120414^ "^DD",727.802,727.802,23,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.802,727.802,23,23,2,0) in the ADMISSION EXTRACT file (#727.802), POW data is derived from the POW "^DD",727.802,727.802,23,23,3,0) STATUS INDICATED? field (#.525) in the PATIENT file (#2). "^DD",727.802,727.802,23,23,4,0) "^DD",727.802,727.802,23,23,5,0) The status indicator is returned by SVC^VADPT. "^DD",727.802,727.802,23,"DT") 2990505 "^DD",727.802,727.802,24,0) PERIOD OF SERVICE^F^^0;25^K:$L(X)>1!($L(X)<1) X "^DD",727.802,727.802,24,.1) Period of Service "^DD",727.802,727.802,24,3) Enter the period of service code from the PERIOD OF SERVICE file (#21). "^DD",727.802,727.802,24,21,0) ^.001^2^2^3120414^^^^ "^DD",727.802,727.802,24,21,1,0) The period of service which best classifies this patient based on "^DD",727.802,727.802,24,21,2,0) eligibility code. "^DD",727.802,727.802,24,23,0) ^^9^9^3120414^ "^DD",727.802,727.802,24,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.802,727.802,24,23,2,0) in the ADMISSION EXTRACT file (#727.802), PERIOD OF SERVICE data is "^DD",727.802,727.802,24,23,3,0) derived from the PERIOD OF SERVICE field (#.323) in the PATIENT file (#2). "^DD",727.802,727.802,24,23,4,0) This field is a pointer to the PERIOD OF SERVICE file (#21). Using the "^DD",727.802,727.802,24,23,5,0) period of service pointer, the data is derived from the CODE field (#.03) "^DD",727.802,727.802,24,23,6,0) in the PERIOD OF SERVICE file (#21). This code is a single alpha numeric "^DD",727.802,727.802,24,23,7,0) character. "^DD",727.802,727.802,24,23,8,0) "^DD",727.802,727.802,24,23,9,0) The veteran's period of service indicator is returned by ELIG^VADPT. "^DD",727.802,727.802,24,"DT") 2960801 "^DD",727.802,727.802,25,0) MEANS TEST^S^A:CATEGORY A;B:CATEGORY B;C:CATEGORY C;P:PENDING ADJUDICATION;R:REQUIRES MEANS TEST;N:MEANS TEST NOT REQUIRED;E:EXEMPT;I:INCOMPLETE;L:NO LONGER APPLICABLE;M:NON-EXEMPT;^0;26^Q "^DD",727.802,727.802,25,.1) Means Test "^DD",727.802,727.802,25,3) Select the appropriate means test category. "^DD",727.802,727.802,25,21,0) ^.001^1^1^3120130^^^^ "^DD",727.802,727.802,25,21,1,0) The current means test category for this patient. "^DD",727.802,727.802,25,23,0) ^^8^8^3120130^ "^DD",727.802,727.802,25,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.802,727.802,25,23,2,0) in the ADMISSION EXTRACT file (#727.802), MEANS TEST data is derived from "^DD",727.802,727.802,25,23,3,0) the CURRENT MEANS TEST STATUS field (#.14) in the PATIENT file (#2). This "^DD",727.802,727.802,25,23,4,0) field is a pointer to the MEANS TEST STATUS file (#408.32). Using the "^DD",727.802,727.802,25,23,5,0) means test pointer, the data is derived from the CODE field (#.02) in the "^DD",727.802,727.802,25,23,6,0) MEANS TEST STATUS file (#408.32). "^DD",727.802,727.802,25,23,7,0) "^DD",727.802,727.802,25,23,8,0) The status indicator is returned by ELIG^VADPT. "^DD",727.802,727.802,25,"DT") 2961024 "^DD",727.802,727.802,29,0) ATTENDING PHYSICIAN^F^^0;30^K:$L(X)>11!($L(X)<1) X "^DD",727.802,727.802,29,.1) Attending Physician "^DD",727.802,727.802,29,3) Enter attending physician for this patient. "^DD",727.802,727.802,29,21,0) ^.001^1^1^3120414^^ "^DD",727.802,727.802,29,21,1,0) The attending physician assigned to this patient at the time of admission. "^DD",727.802,727.802,29,23,0) ^^8^8^3120414^ "^DD",727.802,727.802,29,23,1,0) Using the "ATT1" cross reference on the PATIENT MOVEMENT file (#405) and "^DD",727.802,727.802,29,23,2,0) the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in "^DD",727.802,727.802,29,23,3,0) the ADMISSION EXTRACT file (#727.802), ATTENDING PHYSICIAN data is derived "^DD",727.802,727.802,29,23,4,0) from the ATTENDING PHYSICIAN field (#.19) in the PATIENT MOVEMENT file "^DD",727.802,727.802,29,23,5,0) (#405). This attending physician data is a pointer to the NEW PERSON file "^DD",727.802,727.802,29,23,6,0) (#200). This data is stored as "2"_pointer value. For example, if the IEN "^DD",727.802,727.802,29,23,7,0) of the provider in file #200 is 98765, the value that will be stored is "^DD",727.802,727.802,29,23,8,0) 298765. "^DD",727.802,727.802,29,"DT") 2961015 "^DD",727.802,727.802,31,0) DRG^P80.2'^ICD(^0;32^Q "^DD",727.802,727.802,31,3) Enter the appropriate DRG for this patient. "^DD",727.802,727.802,31,21,0) ^.001^1^1^3120414^^ "^DD",727.802,727.802,31,21,1,0) The Diagnostic Related Group (DRG) for this admission. "^DD",727.802,727.802,31,23,0) ^^7^7^3120414^ "^DD",727.802,727.802,31,23,1,0) Using the "ATT1" cross reference on the PATIENT MOVEMENT file (#405) and "^DD",727.802,727.802,31,23,2,0) the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in the "^DD",727.802,727.802,31,23,3,0) ADMISSION EXTRACT file (#727.802), DRG data is derived from the PTF ENTRY "^DD",727.802,727.802,31,23,4,0) field (#16) in PATIENT MOVEMENT file (#405). This PTF entry data is a "^DD",727.802,727.802,31,23,5,0) pointer to the PTF file (#45). Uses the TRANSFER DRG field (#20) within the "^DD",727.802,727.802,31,23,6,0) 501 field (#50) multiple in the PTF file (#45) to obtain the pointer value "^DD",727.802,727.802,31,23,7,0) to the DRG file (#80.2). "^DD",727.802,727.802,31,"DT") 2910803 "^DD",727.802,727.802,36,0) PRIMARY WARD PROVIDER^F^^0;37^K:$L(X)>11!($L(X)<1) X "^DD",727.802,727.802,36,3) Answer must be 1-11 characters in length. "^DD",727.802,727.802,36,21,0) ^.001^2^2^3120414^^ "^DD",727.802,727.802,36,21,1,0) The provider assigned to the ward where the patient is located at the "^DD",727.802,727.802,36,21,2,0) time of admission. "^DD",727.802,727.802,36,23,0) ^^11^11^3120414^ "^DD",727.802,727.802,36,23,1,0) Source: "^DD",727.802,727.802,36,23,2,0) field #.08; file #405 "^DD",727.802,727.802,36,23,3,0) "^DD",727.802,727.802,36,23,4,0) The PRIMARY CARE PHYSICIAN field (#.08) associated with the PATIENT "^DD",727.802,727.802,36,23,5,0) MOVEMENT file (#405) record for the Treating Specialty Change record "^DD",727.802,727.802,36,23,6,0) related to the Admission record. "^DD",727.802,727.802,36,23,7,0) "^DD",727.802,727.802,36,23,8,0) The value obtained is a pointer to the NEW PERSON file (#200). A "2" "^DD",727.802,727.802,36,23,9,0) is prefixed to the pointer value to indicate that it points to file "^DD",727.802,727.802,36,23,10,0) #200. For example, if the IEN of the provider in file #200 is 98765, the "^DD",727.802,727.802,36,23,11,0) value that will be stored is 298765. "^DD",727.802,727.802,36,"DT") 2980126 "^DD",727.802,727.802,37,0) MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X "^DD",727.802,727.802,37,3) Answer must be 1-10 characters in length. "^DD",727.802,727.802,37,21,0) ^^1^1^3120123^ "^DD",727.802,727.802,37,21,1,0) Unique national VA patient identifier. "^DD",727.802,727.802,37,23,0) ^.001^3^3^3120123^^ "^DD",727.802,727.802,37,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.802,727.802,37,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.802,727.802,37,23,3,0) Patient file (#2). "^DD",727.802,727.802,37,"DT") 2990504 "^DD",727.802,727.802,43,0) MST STATUS^S^Y:Yes, screened reports MST;N:Screened, does not report MST;D:Screened, declines to answer;U:Unknown, not screened;^1;7^Q "^DD",727.802,727.802,43,3) Enter the patient's MST Status. "^DD",727.802,727.802,43,21,0) ^^1^1^3120414^ "^DD",727.802,727.802,43,21,1,0) The MST Status of the patient on the date of the patient's admission. "^DD",727.802,727.802,43,23,0) ^^6^6^3120414^ "^DD",727.802,727.802,43,23,1,0) The MST HISTORY file (#29.11) holds data regarding military sexual "^DD",727.802,727.802,43,23,2,0) trauma claims and effective dates. The patients MST status is stored "^DD",727.802,727.802,43,23,3,0) in the MST STATUS field (#3). A call will be made to "^DD",727.802,727.802,43,23,4,0) $$GETSTAT^DGMSTAPI(DFN,DGDATE) using the DFN in the PATIENT NO. DFN "^DD",727.802,727.802,43,23,5,0) field (#4) and the date in the DAY (#8) field in the ADMISSION EXTRACT "^DD",727.802,727.802,43,23,6,0) file (#727.802). "^DD",727.802,727.802,43,"DT") 3120613 "^DD",727.802,727.802,44,0) SHAD STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;8^Q "^DD",727.802,727.802,44,3) Enter SHAD Status. "^DD",727.802,727.802,44,21,0) ^.001^2^2^3120614^^^^ "^DD",727.802,727.802,44,21,1,0) Indicates whether patient meets requirements for Shipboard Hazard and "^DD",727.802,727.802,44,21,2,0) Defense (SHAD) status. "^DD",727.802,727.802,44,23,0) ^.001^3^3^3120614^^^ "^DD",727.802,727.802,44,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.802,727.802,44,23,2,0) in the ADMISSION EXTRACT file (#727.802), Shipboard Hazard and Defense "^DD",727.802,727.802,44,23,3,0) data is derived from using DBIA #4462 GETSHAD^DGUTL3(DFN). "^DD",727.802,727.802,44,"DT") 3100211 "^DD",727.802,727.802,48,0) PC PROVIDER PERSON CLASS^F^^1;12^K:$L(X)>7!($L(X)<7) X "^DD",727.802,727.802,48,3) Answer must be 7 characters in length. "^DD",727.802,727.802,48,21,0) ^.001^2^2^3120416^^ "^DD",727.802,727.802,48,21,1,0) The VA Code of the Person Class of the Primary Care Provider as of the "^DD",727.802,727.802,48,21,2,0) date of this extract record. "^DD",727.802,727.802,48,23,0) ^^4^4^3120416^ "^DD",727.802,727.802,48,23,1,0) Active Person Class is determined by the supported call "^DD",727.802,727.802,48,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.802,727.802,48,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.802,727.802,48,23,4,0) returned value string. "^DD",727.802,727.802,48,"DT") 2981026 "^DD",727.802,727.802,49,0) ASSOCIATE PC PROVIDER^F^^1;13^K:$L(X)>11!($L(X)<2) X "^DD",727.802,727.802,49,3) Answer must be 2-11 characters in length. "^DD",727.802,727.802,49,21,0) ^.001^2^2^3120507^^^^ "^DD",727.802,727.802,49,21,1,0) The Associate Primary Care Provider assigned to this patient through the "^DD",727.802,727.802,49,21,2,0) Primary Care Management Module (PCMM) application. "^DD",727.802,727.802,49,23,0) ^^9^9^3120507^ "^DD",727.802,727.802,49,23,1,0) Derived by a call to the Scheduling API, OUTPTAP^SDUTL3. The API returns "^DD",727.802,727.802,49,23,2,0) the associate provider's internal entry number and name from the NEW "^DD",727.802,727.802,49,23,3,0) PERSON file (#200). The ASSOCIATE PC PROVIDER is the value of a "2" "^DD",727.802,727.802,49,23,4,0) prefixed to the pointer value to indicate that the source file is "200". "^DD",727.802,727.802,49,23,5,0) For example, if the IEN of the provider in file #200 is 98765, the value "^DD",727.802,727.802,49,23,6,0) that will be stored is 298765. "^DD",727.802,727.802,49,23,7,0) "^DD",727.802,727.802,49,23,8,0) The PATIENT field (#.03) and the DATE/TIME field (#.01) are used to "^DD",727.802,727.802,49,23,9,0) determine the patient's associate provider at the time of the admission. "^DD",727.802,727.802,49,"DT") 2990504 "^DD",727.802,727.802,50,0) ASSOC. PC PROV. PERSON CLASS^F^^1;14^K:$L(X)>7!($L(X)<7) X "^DD",727.802,727.802,50,3) Answer must be 7 characters in length. "^DD",727.802,727.802,50,21,0) ^.001^2^2^3120416^^^^ "^DD",727.802,727.802,50,21,1,0) VA Code of the Person Class of the patient's Associate Primary Care "^DD",727.802,727.802,50,21,2,0) Provider. "^DD",727.802,727.802,50,23,0) ^.001^4^4^3120416^^ "^DD",727.802,727.802,50,23,1,0) Active Person Class is determined by the supported call "^DD",727.802,727.802,50,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.802,727.802,50,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.802,727.802,50,23,4,0) returned value string. "^DD",727.802,727.802,50,"DT") 2990504 "^DD",727.802,727.802,52,0) DOM, PRRTP AND SAARTP^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CET/TR;^1;16^Q "^DD",727.802,727.802,52,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.802,727.802,52,21,0) ^.001^2^2^3120608^^^^ "^DD",727.802,727.802,52,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP, or SARRTP at "^DD",727.802,727.802,52,21,2,0) the time care is provided. "^DD",727.802,727.802,52,23,0) ^.001^5^5^3120608^^^^ "^DD",727.802,727.802,52,23,1,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.802,727.802,52,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.802,727.802,52,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.802,727.802,52,23,4,0) "^DD",727.802,727.802,52,23,5,0) Otherwise, the value is null. "^DD",727.802,727.802,52,"DT") 3120414 "^DD",727.802,727.802,53,0) ENROLLMENT CATEGORY^F^^1;17^K:$L(X)>1!($L(X)<1) X "^DD",727.802,727.802,53,3) Answer must be 1 character in length. "^DD",727.802,727.802,53,21,0) ^.001^1^1^3120414^^^^ "^DD",727.802,727.802,53,21,1,0) Patient's enrollment category. "^DD",727.802,727.802,53,23,0) ^^3^3^3120414^ "^DD",727.802,727.802,53,23,1,0) ENROLLMENT CATEGORY is derived from the standard call $$CATEGORY^DGENA4 "^DD",727.802,727.802,53,23,2,0) using the patient's DFN and the CURRENT ENROLLMENT field (#27.01) of the "^DD",727.802,727.802,53,23,3,0) PATIENT file (#2). "^DD",727.802,727.802,53,"DT") 3000614 "^DD",727.802,727.802,54,0) ENROLLMENT STATUS^F^^1;18^K:$L(X)>2!($L(X)<1) X "^DD",727.802,727.802,54,3) Answer must be 1-2 characters in length. "^DD",727.802,727.802,54,21,0) ^.001^1^1^3120414^^ "^DD",727.802,727.802,54,21,1,0) Patient's enrollment status. "^DD",727.802,727.802,54,23,0) ^^3^3^3120414^ "^DD",727.802,727.802,54,23,1,0) ENROLLMENT STATUS is derived from the standard call $$STATUS^DGENA "^DD",727.802,727.802,54,23,2,0) using the patient's DFN and returns the ENROLLMENT STATUS field (#.04) of "^DD",727.802,727.802,54,23,3,0) the PATIENT ENROLLMENT file (#27.11). "^DD",727.802,727.802,54,"DT") 3000614 "^DD",727.802,727.802,55,0) ENCOUNTER SHAD^S^Y:YES;N:NO;^1;19^Q "^DD",727.802,727.802,55,3) Indicate if encounter is related to treatment for PROJ 112/SHAD condition. "^DD",727.802,727.802,55,21,0) ^.001^2^2^3120414^^ "^DD",727.802,727.802,55,21,1,0) Indicates if treatment provided during the patient's admission is related "^DD",727.802,727.802,55,21,2,0) to the Shipboard Hazard And Defense (SHAD) condition. "^DD",727.802,727.802,55,23,0) ^.001^6^6^3120414^^^^ "^DD",727.802,727.802,55,23,1,0) Using the VISIT FILE ENTRY field (#.27) in the PATIENT MOVEMENT file "^DD",727.802,727.802,55,23,2,0) (#405) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.802,727.802,55,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the Shipboard Hazard and "^DD",727.802,727.802,55,23,4,0) Defense conditions indicator stored at the PROJ 112/SHAD field (#80008) in "^DD",727.802,727.802,55,23,5,0) the VISIT file (#9000010). The value will be stored in the output array "^DD",727.802,727.802,55,23,6,0) subscripted by "SHAD". "^DD",727.802,727.802,55,"DT") 3100212 "^DD",727.802,727.802,57,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^1;21^Q "^DD",727.802,727.802,57,3) Enter observation patient status for this record. "^DD",727.802,727.802,57,21,0) ^.001^1^1^3120608^^^^ "^DD",727.802,727.802,57,21,1,0) Indicates if patient is considered to be an observation patient. "^DD",727.802,727.802,57,23,0) ^.001^12^12^3120608^^^^ "^DD",727.802,727.802,57,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.802,727.802,57,23,2,0) "^DD",727.802,727.802,57,23,3,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.802,727.802,57,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.802,727.802,57,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.802,727.802,57,23,6,0) file. "^DD",727.802,727.802,57,23,7,0) "^DD",727.802,727.802,57,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.802,727.802,57,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.802,727.802,57,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.802,727.802,57,23,11,0) "^DD",727.802,727.802,57,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.802,727.802,57,"DT") 3120414 "^DD",727.802,727.802,58,0) ENCOUNTER NUMBER^F^^1;22^K:$L(X)>18!($L(X)<1) X "^DD",727.802,727.802,58,3) Answer must be 1-18 characters in length. "^DD",727.802,727.802,58,21,0) ^.001^1^1^3120608^^^^ "^DD",727.802,727.802,58,21,1,0) The unique number assigned for DSS. "^DD",727.802,727.802,58,23,0) ^.001^4^4^3120608^^^^ "^DD",727.802,727.802,58,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.802,727.802,58,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.802,727.802,58,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.802,727.802,58,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.802,727.802,58,"DT") 3010503 "^DD",727.802,727.802,59,0) AGENT ORANGE LOCATION^F^^1;23^K:$L(X)>2!($L(X)<2) X "^DD",727.802,727.802,59,3) Answer must be 2 characters in length. "^DD",727.802,727.802,59,21,0) ^.001^1^1^3120416^^^^ "^DD",727.802,727.802,59,21,1,0) Indicates the location where the patient was exposed to Agent Orange. "^DD",727.802,727.802,59,23,0) ^^3^3^3120416^ "^DD",727.802,727.802,59,23,1,0) The location is returned by a call to SVC^VADPT which gets its data from "^DD",727.802,727.802,59,23,2,0) the AGENT ORANGE EXPOSURE LOCATION field (#.3213) of the PATIENT file "^DD",727.802,727.802,59,23,3,0) (#2). "^DD",727.802,727.802,59,"DT") 3010503 "^DD",727.802,727.802,60,0) PRODUCTION DIVISION CODE^F^^1;24^K:$L(X)>7!($L(X)<3) X "^DD",727.802,727.802,60,3) Answer must be 3-7 characters in length. "^DD",727.802,727.802,60,21,0) ^.001^1^1^3120417^^ "^DD",727.802,727.802,60,21,1,0) Identifies the division/facility where the work was performed. "^DD",727.802,727.802,60,23,0) ^.001^6^6^3120417^^^^ "^DD",727.802,727.802,60,23,1,0) Data comes from the WARD LOCATION field (#.06) in the PATIENT MOVEMENT "^DD",727.802,727.802,60,23,2,0) file (#405). This value is a pointer to the WARD LOCATION file (#42) which "^DD",727.802,727.802,60,23,3,0) in turn is used to get the DIVISION field (#.015) in the WARD LOCATION "^DD",727.802,727.802,60,23,4,0) file (#42), a pointer to the MEDICAL CENTER DIVISION file (#40.8). This "^DD",727.802,727.802,60,23,5,0) value is then used to call the API GETDIV^ECXDEPT to get the STATION "^DD",727.802,727.802,60,23,6,0) NUMBER field (#99) from the INSTITUTION file (#4). "^DD",727.802,727.802,60,"DT") 3120417 "^DD",727.802,727.802,63,0) HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^1;27^Q "^DD",727.802,727.802,63,.1) Head and Neck Cancer Indicator "^DD",727.802,727.802,63,3) Enter the Head & Neck Cancer Indicator for the patient. "^DD",727.802,727.802,63,21,0) ^.001^1^1^3120414^^ "^DD",727.802,727.802,63,21,1,0) Identifies whether patient has head and/or neck cancer. "^DD",727.802,727.802,63,23,0) ^^3^3^3120414^ "^DD",727.802,727.802,63,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.802,727.802,63,23,2,0) (#4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "^DD",727.802,727.802,63,23,3,0) CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11). "^DD",727.802,727.802,63,"DT") 3020827 "^DD",727.802,727.802,65,0) RACE 1^F^^1;29^K:$L(X)>6!($L(X)<1) X "^DD",727.802,727.802,65,.1) Race 1 "^DD",727.802,727.802,65,3) Answer must be 1-6 characters in length. "^DD",727.802,727.802,65,21,0) ^.001^1^1^3120606^^^ "^DD",727.802,727.802,65,21,1,0) Self-reported by patient as recorded in VistA patient file. "^DD",727.802,727.802,65,23,0) ^^10^10^3120606^ "^DD",727.802,727.802,65,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.802,727.802,65,23,2,0) (#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file "^DD",727.802,727.802,65,23,3,0) (#10) pointed to by the RACE INFORMATION field (#.01) of the "^DD",727.802,727.802,65,23,4,0) RACE INFORMATION subfile (#2.02) of the PATIENT file (#2). "^DD",727.802,727.802,65,23,5,0) "^DD",727.802,727.802,65,23,6,0) Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03) "^DD",727.802,727.802,65,23,7,0) where the METHOD OF COLLECTION field (#.02) is set to 1 "^DD",727.802,727.802,65,23,8,0) (SELF-IDENTIFICATION), will be included in the RACE 1 field. If any of "^DD",727.802,727.802,65,23,9,0) the RACE INFORMATION values returned is "C" (DECLINED TO ANSWER), that "^DD",727.802,727.802,65,23,10,0) will be the only value included in the RACE1 field. "^DD",727.802,727.802,65,"DT") 3020828 "^DD",727.802,727.802,66,0) ENROLLMENT PRIORITY^F^^1;30^K:$L(X)>2!($L(X)<1) X "^DD",727.802,727.802,66,3) Answer must be 1-2 characters in length. "^DD",727.802,727.802,66,21,0) ^.001^2^2^3120416^^ "^DD",727.802,727.802,66,21,1,0) This field contains the enrollment priority group and the enrollment "^DD",727.802,727.802,66,21,2,0) priority subgroup. "^DD",727.802,727.802,66,23,0) ^^22^22^3120416^ "^DD",727.802,727.802,66,23,1,0) ENROLLMENT PRIORITY field contains the enrollment priority group and the "^DD",727.802,727.802,66,23,2,0) enrollment priority subgroup from the PATIENT ENROLLMENT File (#27.11). "^DD",727.802,727.802,66,23,3,0) ENROLLMENT PRIORITY Groups determined for a patient enrollment include: "^DD",727.802,727.802,66,23,4,0) "^DD",727.802,727.802,66,23,5,0) '1' FOR GROUP 1 "^DD",727.802,727.802,66,23,6,0) '2' FOR GROUP 2 "^DD",727.802,727.802,66,23,7,0) '3' FOR GROUP 3 "^DD",727.802,727.802,66,23,8,0) '4' FOR GROUP 4 "^DD",727.802,727.802,66,23,9,0) '5' FOR GROUP 5 "^DD",727.802,727.802,66,23,10,0) '6' FOR GROUP 6 "^DD",727.802,727.802,66,23,11,0) '7' FOR GROUP 7 "^DD",727.802,727.802,66,23,12,0) '8' FOR GROUP 8 "^DD",727.802,727.802,66,23,13,0) "^DD",727.802,727.802,66,23,14,0) ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include: "^DD",727.802,727.802,66,23,15,0) "^DD",727.802,727.802,66,23,16,0) '1' FOR a "^DD",727.802,727.802,66,23,17,0) '3' FOR c "^DD",727.802,727.802,66,23,18,0) '5' FOR e "^DD",727.802,727.802,66,23,19,0) '7' FOR g "^DD",727.802,727.802,66,23,20,0) "^DD",727.802,727.802,66,23,21,0) Data is obtained from a call to $$ENRSBGRP^DGENA4(DFN) using the "^DD",727.802,727.802,66,23,22,0) patient's DFN. "^DD",727.802,727.802,66,"DT") 3040301 "^DD",727.802,727.802,67,0) USER ENROLLEE^S^U:USER ENROLLED;^1;31^Q "^DD",727.802,727.802,67,3) Enter patient's current enrollment status. "^DD",727.802,727.802,67,21,0) ^.001^2^2^3120508^^^^ "^DD",727.802,727.802,67,21,1,0) Indicates whether a Veteran has User Enrollee status for the current or "^DD",727.802,727.802,67,21,2,0) future fiscal year. "^DD",727.802,727.802,67,23,0) ^.001^5^5^3120508^^^ "^DD",727.802,727.802,67,23,1,0) User enrollee is determined by checking the PATIENT ENROLLMENT (#27.11) "^DD",727.802,727.802,67,23,2,0) file. When a user has a current or future fiscal year in the ENROLLMENT "^DD",727.802,727.802,67,23,3,0) STATUS (#.04) field, the value is set to 'U' and is null if no date or a "^DD",727.802,727.802,67,23,4,0) past year's value is contained. Determined by the use of an API: "^DD",727.802,727.802,67,23,5,0) $$UESTAT^EASUSER where the Patient Identifier (DFN) is passed in. "^DD",727.802,727.802,67,"DT") 3120416 "^DD",727.802,727.802,68,0) PATIENT TYPE^S^AC:ACTIVE DUTY;AL:ALLIED VETERAN;CO:COLLATERAL;EM:EMPLOYEE;IN:INELIGIBLE;MI:MILITARY RETIREE;NO:NON-VETERAN (OTHER);NS:NSC VETERAN;SC:SC VETERAN;TR:TRICARE;^1;32^Q "^DD",727.802,727.802,68,3) Enter type of patient. "^DD",727.802,727.802,68,21,0) ^.001^2^2^3120508^^^^ "^DD",727.802,727.802,68,21,1,0) Refers to the various types of patient which may be seen at a VA "^DD",727.802,727.802,68,21,2,0) facility. Every patient in the system must have a TYPE specified. "^DD",727.802,727.802,68,23,0) ^.001^5^5^3120508^^^ "^DD",727.802,727.802,68,23,1,0) PATIENT TYPE is derived from a call to TYPE^ECXUTL5(DFN). Using the "^DD",727.802,727.802,68,23,2,0) patient's DFN, the NAME field (#.01) of the TYPE OF PATIENT file "^DD",727.802,727.802,68,23,3,0) (#391) as pointed to by the TYPE field (#391) of the PATIENT file (#2) is "^DD",727.802,727.802,68,23,4,0) shortened to the first two characters to determine the value stored in "^DD",727.802,727.802,68,23,5,0) the PATIENT TYPE field (#68). "^DD",727.802,727.802,68,"DT") 3120416 "^DD",727.802,727.802,69,0) CV STATUS ELIGIBILITY^S^Y:YES;E:ELIGIBILITY EXPIRED;^1;33^Q "^DD",727.802,727.802,69,3) Enter patient's combat veteran eligibility. "^DD",727.802,727.802,69,21,0) ^.001^4^4^3120508^^^^ "^DD",727.802,727.802,69,21,1,0) Records if veteran served on active duty in a theater of combat "^DD",727.802,727.802,69,21,2,0) operations during a period of war after the Persian Gulf War or in combat "^DD",727.802,727.802,69,21,3,0) against a hostile force during a period of hostilities after November 11, "^DD",727.802,727.802,69,21,4,0) 1998. "^DD",727.802,727.802,69,23,0) ^.001^11^11^3120508^^^ "^DD",727.802,727.802,69,23,1,0) CV STATUS ELIGIBILITY is determined by the use of API "^DD",727.802,727.802,69,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.802,727.802,69,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.802,727.802,69,23,4,0) pieces (i.e. 1^20010106^0) and the first piece is resolved as follows. "^DD",727.802,727.802,69,23,5,0) "^DD",727.802,727.802,69,23,6,0) 1 - veteran qualifies as a CV "^DD",727.802,727.802,69,23,7,0) 0 - veteran does not qualify as a CV "^DD",727.802,727.802,69,23,8,0) -1 - bad DFN "^DD",727.802,727.802,69,23,9,0) "^DD",727.802,727.802,69,23,10,0) Based on this result the field will be set to 'Y' for 'YES' or 'E' for "^DD",727.802,727.802,69,23,11,0) 'ELIGIBILITY EXPIRED' or 'NULL' for not eligible. "^DD",727.802,727.802,69,"DT") 3120416 "^DD",727.802,727.802,70,0) CV ELIGIBILITY END DATE^F^^1;34^K:$L(X)>8!($L(X)<8) X "^DD",727.802,727.802,70,3) Answer must be 8 characters in length. "^DD",727.802,727.802,70,21,0) ^.001^4^4^3120508^^^^ "^DD",727.802,727.802,70,21,1,0) Records the Combat Veteran eligibility expiration date of the veteran who "^DD",727.802,727.802,70,21,2,0) served on active duty in a theater of combat operations during a period of "^DD",727.802,727.802,70,21,3,0) war after the Persian Gulf War or in combat against a hostile force during "^DD",727.802,727.802,70,21,4,0) a period of hostilities after November 11, 1998. "^DD",727.802,727.802,70,23,0) ^.001^5^5^3120508^^^^ "^DD",727.802,727.802,70,23,1,0) CV ELIGIBILITY END DATE is determined by the use of API "^DD",727.802,727.802,70,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.802,727.802,70,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.802,727.802,70,23,4,0) pieces (i.e. 1^20010106^0) the 2nd piece is the COMBAT VET END DATE in "^DD",727.802,727.802,70,23,5,0) HL7 format. "^DD",727.802,727.802,70,"DT") 3120416 "^DD",727.802,727.802,71,0) ENCOUNTER CV^S^Y:YES;^1;35^Q "^DD",727.802,727.802,71,3) Enter patient's combat veteran eligibility. "^DD",727.802,727.802,71,21,0) ^.001^4^4^3120508^^^^ "^DD",727.802,727.802,71,21,1,0) Records if a veteran served on active duty in a theater of combat "^DD",727.802,727.802,71,21,2,0) operations during a period of war after the Persian Gulf War or in combat "^DD",727.802,727.802,71,21,3,0) against a hostile force during a period of hostilities after November 11, "^DD",727.802,727.802,71,21,4,0) 1998. "^DD",727.802,727.802,71,23,0) ^.001^10^10^3120508^^^^ "^DD",727.802,727.802,71,23,1,0) ENCOUNTER CV is determined by the use of API $$CVEDT^DGCV(DFN,DATE) that "^DD",727.802,727.802,71,23,2,0) checks the COMBAT VET END DATE field (#.5295) from the PATIENT file #(2) "^DD",727.802,727.802,71,23,3,0) to determine CV Status. API returns three pieces (i.e. 1^20100106^0). The "^DD",727.802,727.802,71,23,4,0) third piece returns: "^DD",727.802,727.802,71,23,5,0) "^DD",727.802,727.802,71,23,6,0) 1 - vet was eligible on date specified "^DD",727.802,727.802,71,23,7,0) 0 - vet was not eligible on date specified "^DD",727.802,727.802,71,23,8,0) "^DD",727.802,727.802,71,23,9,0) Based on these returns, the value for this field shall be Y for Yes if "^DD",727.802,727.802,71,23,10,0) value is 1 or left blank if 0 to indicate ineligibility. "^DD",727.802,727.802,71,"DT") 3120416 "^DD",727.802,727.802,72,0) NATIONAL PATIENT RECORD FLAG^S^Y:YES;^1;36^Q "^DD",727.802,727.802,72,3) Indicate if patient is associated with a category 1 patient record flag. "^DD",727.802,727.802,72,21,0) ^.001^2^2^3120508^^ "^DD",727.802,727.802,72,21,1,0) This field records whether the patient's record contains 1 or more "^DD",727.802,727.802,72,21,2,0) active category 1 (National) Patient Record Flags. "^DD",727.802,727.802,72,23,0) ^.001^7^7^3120508^^ "^DD",727.802,727.802,72,23,1,0) The NATIONAL PATIENT RECORD FLAG field is set based on the results of the "^DD",727.802,727.802,72,23,2,0) $$GETACT^DGPFAPI(DFN,TARGET ARRAY) call. This call looks at the category "^DD",727.802,727.802,72,23,3,0) 1 national patient record flags as recorded in the PRF NATIONAL FLAG file "^DD",727.802,727.802,72,23,4,0) (#26.15). The resulting value of this call is the number of active "^DD",727.802,727.802,72,23,5,0) category I patient record flags assigned to this patient. This field is "^DD",727.802,727.802,72,23,6,0) set to Y (YES) if the result is greater than zero. A value of zero causes "^DD",727.802,727.802,72,23,7,0) this field to be left null. "^DD",727.802,727.802,72,"DT") 3120416 "^DD",727.802,727.802,73,0) ATTENDING PHYSICIAN PC^F^^1;37^K:$L(X)>7!($L(X)<7) X "^DD",727.802,727.802,73,3) Answer must be 7 characters in length. "^DD",727.802,727.802,73,21,0) ^.001^2^2^3120416^^^^ "^DD",727.802,727.802,73,21,1,0) The VA Code of the Person Class of the Attending Physician associated "^DD",727.802,727.802,73,21,2,0) with this record. "^DD",727.802,727.802,73,23,0) ^^4^4^3120416^ "^DD",727.802,727.802,73,23,1,0) Active Person Class is determined by the supported call "^DD",727.802,727.802,73,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.802,727.802,73,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.802,727.802,73,23,4,0) returned value string. "^DD",727.802,727.802,73,"DT") 3050819 "^DD",727.802,727.802,74,0) PRIMARY WARD PROVIDER PC^F^^1;38^K:$L(X)>7!($L(X)<7) X "^DD",727.802,727.802,74,3) Answer must be 7 characters in length. "^DD",727.802,727.802,74,21,0) ^.001^2^2^3120416^^^^ "^DD",727.802,727.802,74,21,1,0) The VA Code of the Person Class of the Primary Ward Provider associated "^DD",727.802,727.802,74,21,2,0) with this record. "^DD",727.802,727.802,74,23,0) ^^4^4^3120416^ "^DD",727.802,727.802,74,23,1,0) Active Person Class is determined by the supported call "^DD",727.802,727.802,74,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.802,727.802,74,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.802,727.802,74,23,4,0) returned value string. "^DD",727.802,727.802,74,"DT") 3050819 "^DD",727.802,727.802,75,0) SW ASIA CONDITIONS^S^Y:YES;N:NO;U:UNKNOWN;^1;39^Q "^DD",727.802,727.802,75,3) Enter patient's Southwest Asia Indicator status. "^DD",727.802,727.802,75,21,0) ^.001^2^2^3120416^^^^ "^DD",727.802,727.802,75,21,1,0) This field is used to indicate if this patient claims exposure to "^DD",727.802,727.802,75,21,2,0) Southwest Asia Conditions. "^DD",727.802,727.802,75,23,0) ^^3^3^3120416^ "^DD",727.802,727.802,75,23,1,0) This field is derived from the SOUTHWEST ASIA CONDITIONS? field (#.322013) "^DD",727.802,727.802,75,23,2,0) in the PATIENT file (#2) using the patient's DFN. The status indicator is "^DD",727.802,727.802,75,23,3,0) returned by SVC^VADPT. "^DD",727.802,727.802,75,"DT") 3090527 "^DD",727.802,727.802,77,0) AGENT ORANGE ENC INDICATOR^S^Y:YES;N:NO;^1;41^Q "^DD",727.802,727.802,77,.1) "^DD",727.802,727.802,77,3) Enter patient's agent orange exposure indicator. "^DD",727.802,727.802,77,21,0) ^.001^2^2^3120508^^^ "^DD",727.802,727.802,77,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.802,727.802,77,21,2,0) related to exposure to Agent Orange. "^DD",727.802,727.802,77,23,0) ^.001^5^5^3120508^^^ "^DD",727.802,727.802,77,23,1,0) Using the VISIT FILE ENTRY field (#.27) in the PATIENT MOVEMENT file "^DD",727.802,727.802,77,23,2,0) (#405) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.802,727.802,77,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the agent orange indicator "^DD",727.802,727.802,77,23,4,0) stored at the AGENT ORANGE EXPOSURE field (#80002) in the VISIT file "^DD",727.802,727.802,77,23,5,0) (#9000010). "^DD",727.802,727.802,77,"DT") 3120416 "^DD",727.802,727.802,88,0) ADMIT OUTPATIENT TX FLAG^S^Y:YES;^2;7^Q "^DD",727.802,727.802,88,3) Enter 'Y' if source of admission is set to admit outpatient treatment ('1P'). "^DD",727.802,727.802,88,21,0) ^.001^2^2^3120719^^^^ "^DD",727.802,727.802,88,21,1,0) This field contains the patient's source of admission flag. YES, if admit "^DD",727.802,727.802,88,21,2,0) outpatient treatment ('1P'). "^DD",727.802,727.802,88,23,0) ^.001^6^6^3120719^^^ "^DD",727.802,727.802,88,23,1,0) This field is set based on the value found at the PTF CODE field (#.01) "^DD",727.802,727.802,88,23,2,0) of the SOURCE OF ADMISSION file (#45.1) as pointed to by the SOURCE OF "^DD",727.802,727.802,88,23,3,0) ADMISSION field (#20) of the PTF file (#45) as pointed to by the PTF "^DD",727.802,727.802,88,23,4,0) ENTRY field (#.16) of the PATIENT MOVEMENT file (#405). If the value "^DD",727.802,727.802,88,23,5,0) found there is "1P" then this field is set to yes otherwise it is left "^DD",727.802,727.802,88,23,6,0) blank. "^DD",727.802,727.802,88,"DT") 3090713 "^DD",727.802,727.802,89,0) COUNTRY CODE^F^^2;8^K:$L(X)>3!($L(X)<1) X "^DD",727.802,727.802,89,3) The code for the country. Answer must be 1-3 characters in length. "^DD",727.802,727.802,89,21,0) ^.001^1^1^3120614^^ "^DD",727.802,727.802,89,21,1,0) This is the code for the country associated with the address. "^DD",727.802,727.802,89,23,0) ^.001^2^2^3120614^^^^ "^DD",727.802,727.802,89,23,1,0) The three-character alpha identifying code is copied from the CODE (#.01) "^DD",727.802,727.802,89,23,2,0) field of the COUNTRY (#779.004) file. "^DD",727.802,727.802,89,"DT") 3090609 "^DD",727.802,727.802,92,0) ED DISPOSITION CODE^S^A:ADMIT;D:DECEASED;E:ERROR;L:LEFT;R:REFERRED;T:TRANSFERRED;U:UNKNOWN;N:NONE;^2;11^Q "^DD",727.802,727.802,92,3) Enter the disposition code for the emergency room visit. "^DD",727.802,727.802,92,21,0) ^.001^1^1^3120809^^^^ "^DD",727.802,727.802,92,21,1,0) Disposition code associated with the patient's emergency room visit. "^DD",727.802,727.802,92,23,0) ^^7^7^3120809^ "^DD",727.802,727.802,92,23,1,0) The emergency room disposition is derived by calling $$EDIS^ECXUTL, which "^DD",727.802,727.802,92,23,2,0) uses the TIME OUT field (#.09) of the ED LOG file (#230) to determine if "^DD",727.802,727.802,92,23,3,0) the patient was seen in the emergency room in the 24 hours prior to or "^DD",727.802,727.802,92,23,4,0) the 24 hours after the admission date/time. If the patient was seen within "^DD",727.802,727.802,92,23,5,0) that time frame then the NAME field (#.01) of the TRACKING CODE file "^DD",727.802,727.802,92,23,6,0) (#233.1) as pointed to by the DISPOSITION field (#1.2) of the ED LOG file "^DD",727.802,727.802,92,23,7,0) (#230) is used to identify the disposition code. "^DD",727.802,727.802,92,"DT") 3120302 "^DD",727.802,727.802,93,0) PRIMARY ICD-10 CODE^F^^2;12^K:$L(X)>8!($L(X)<1) X "^DD",727.802,727.802,93,3) Answer must be 1-8 characters in length. "^DD",727.802,727.802,93,21,0) ^^1^1^3120417^ "^DD",727.802,727.802,93,21,1,0) This is the Primary ICD-10 diagnosis code for this clinic visit. "^DD",727.802,727.802,93,23,0) ^.001^6^6^3120417^^ "^DD",727.802,727.802,93,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.802,727.802,93,23,2,0) and stored in this field. "^DD",727.802,727.802,93,23,3,0) "^DD",727.802,727.802,93,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.802,727.802,93,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.802,727.802,93,23,6,0) information. "^DD",727.802,727.802,93,"DT") 3120308 "^DD",727.808,727.808,3,0) FACILITY^P40.8'^DG(40.8,^0;4^Q "^DD",727.808,727.808,3,.1) Facility "^DD",727.808,727.808,3,3) Enter the medical center division associated with this movement. "^DD",727.808,727.808,3,21,0) ^.001^1^1^3120529^^ "^DD",727.808,727.808,3,21,1,0) This is the facility/division where the extract was performed. "^DD",727.808,727.808,3,23,0) ^^3^3^3120529^ "^DD",727.808,727.808,3,23,1,0) An indicator of the division where this event happened. It is derived "^DD",727.808,727.808,3,23,2,0) from the DIVISION field (#.015) of the WARD LOCATION file (#42) which "^DD",727.808,727.808,3,23,3,0) points to the MEDICAL CENTER DIVISION file (#40.8). "^DD",727.808,727.808,3,"DT") 3120529 "^DD",727.808,727.808,5,0) SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X "^DD",727.808,727.808,5,.1) Social Security Number "^DD",727.808,727.808,5,3) Your answer must be 9 to 10 characters in length. "^DD",727.808,727.808,5,21,0) ^.001^1^1^3120529^^ "^DD",727.808,727.808,5,21,1,0) The patient's social security number. "^DD",727.808,727.808,5,23,0) ^^6^6^3120529^ "^DD",727.808,727.808,5,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.808,727.808,5,23,2,0) in the PHYSICAL MOVEMENT EXTRACT file (#727.808), SSN data is derived from "^DD",727.808,727.808,5,23,3,0) the SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2). "^DD",727.808,727.808,5,23,4,0) "^DD",727.808,727.808,5,23,5,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with "^DD",727.808,727.808,5,23,6,0) an SSN beginning with "00000" will not be included in the extract. "^DD",727.808,727.808,5,"DT") 2960911 "^DD",727.808,727.808,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.808,727.808,6,.1) Name "^DD",727.808,727.808,6,3) Your answer must be 4 characters in length. "^DD",727.808,727.808,6,21,0) ^.001^1^1^3120529^^^^ "^DD",727.808,727.808,6,21,1,0) The first four characters of the patient's last name. "^DD",727.808,727.808,6,23,0) ^^7^7^3120529^ "^DD",727.808,727.808,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.808,727.808,6,23,2,0) in the PHYSICAL MOVEMENT EXTRACT file (#727.808), NAME data is derived "^DD",727.808,727.808,6,23,3,0) from the NAME field (#.01) in the PATIENT file (#2). The first four "^DD",727.808,727.808,6,23,4,0) characters of the first "," piece are used, padded with trailing spaces "^DD",727.808,727.808,6,23,5,0) if necessary. "^DD",727.808,727.808,6,23,6,0) "^DD",727.808,727.808,6,23,7,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.808,727.808,6,"DT") 2960911 "^DD",727.808,727.808,7,0) IN OUT PATIENT INDICATOR^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q "^DD",727.808,727.808,7,.1) In Out Patient Indicator "^DD",727.808,727.808,7,3) Enter the patient's status for this extract entry. "^DD",727.808,727.808,7,21,0) ^.001^2^2^3120529^^^^ "^DD",727.808,727.808,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for "^DD",727.808,727.808,7,21,2,0) this extract entry. "^DD",727.808,727.808,7,23,0) ^^9^9^3120529^ "^DD",727.808,727.808,7,23,1,0) To determine the value of this field a call is made to $$INP^ECXUTL2 to "^DD",727.808,727.808,7,23,2,0) determine inpatient/outpatient status. If the patient is an outpatient, "^DD",727.808,727.808,7,23,3,0) processing stops and the field is set to O. If the patient is an "^DD",727.808,727.808,7,23,4,0) inpatient then $$INOUTP^ECXUTL4 is called to look at the treating "^DD",727.808,727.808,7,23,5,0) specialty. If the patient's treating specialty exists in the DSS TREATING "^DD",727.808,727.808,7,23,6,0) SPECIALTY TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT "^DD",727.808,727.808,7,23,7,0) CODE field (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file "^DD",727.808,727.808,7,23,8,0) is used. If the treating specialty is not found in the DSS TREATING "^DD",727.808,727.808,7,23,9,0) SPECIALTY TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.808,727.808,7,"DT") 3120529 "^DD",727.808,727.808,13,0) TYPE^S^2:TRANSFER;3:DISCHARGE;^0;14^Q "^DD",727.808,727.808,13,.1) Type "^DD",727.808,727.808,13,3) Enter the type of movement associated with this record. "^DD",727.808,727.808,13,21,0) ^.001^1^1^3120529^^^ "^DD",727.808,727.808,13,21,1,0) The transaction type of the movement for this patient. "^DD",727.808,727.808,13,23,0) ^.001^3^3^3120529^^ "^DD",727.808,727.808,13,23,1,0) Records for this extract are identified using the PATIENT MOVEMENT "^DD",727.808,727.808,13,23,2,0) (#405) file's ATTx cross reference where x indicates if it's a transfer or "^DD",727.808,727.808,13,23,3,0) a discharge. "^DD",727.808,727.808,13,"DT") 3120529 "^DD",727.808,727.808,14,0) LOSING WARD^P44'^SC(^0;15^Q "^DD",727.808,727.808,14,.1) Losing Ward "^DD",727.808,727.808,14,3) Enter the ward from which this patient was transferred. "^DD",727.808,727.808,14,21,0) ^.001^1^1^3120529^^^ "^DD",727.808,727.808,14,21,1,0) Indicates the ward the patient is moving from. "^DD",727.808,727.808,14,23,0) ^^3^3^3120529^ "^DD",727.808,727.808,14,23,1,0) LOSING WARD is derived from HOSPITAL LOCATION FILE POINTER field (#44) of "^DD",727.808,727.808,14,23,2,0) the WARD LOCATION file (#42) as pointed to by the WARD LOCATION field "^DD",727.808,727.808,14,23,3,0) (#.06) of the PATIENT MOVEMENT file (#405). "^DD",727.808,727.808,14,"DT") 2960911 "^DD",727.808,727.808,15,0) TREATING SPECIALTY^F^^0;16^K:$L(X)>3!($L(X)<2) X "^DD",727.808,727.808,15,.1) Treating Specialty "^DD",727.808,727.808,15,3) PTF Code from Specialty File (42.4) "^DD",727.808,727.808,15,21,0) ^.001^2^2^3120127^^^ "^DD",727.808,727.808,15,21,1,0) The PTF CODE of the treating specialty associated with this extract "^DD",727.808,727.808,15,21,2,0) record. "^DD",727.808,727.808,15,23,0) ^^1^1^3120127^ "^DD",727.808,727.808,15,23,1,0) For the Physical Movement extract, the TREATING SPECIALTY field is null. "^DD",727.808,727.808,15,"DT") 3091103 "^DD",727.808,727.808,19,0) MOV TIME^FO^^0;20^K:$L(X)>6!($L(X)<6)!'(X?6N) X "^DD",727.808,727.808,19,.1) MOV Time "^DD",727.808,727.808,19,2) S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0) "^DD",727.808,727.808,19,2.1) S Y=$$ECXTIMEX^ECXUTL(Y,0) "^DD",727.808,727.808,19,3) Answer must be 6 characters in length. "^DD",727.808,727.808,19,21,0) ^.001^1^1^3120529^^^ "^DD",727.808,727.808,19,21,1,0) Time when this patient moved from the losing ward to the gaining ward. "^DD",727.808,727.808,19,23,0) ^.001^6^6^3120529^^ "^DD",727.808,727.808,19,23,1,0) Data source: "^DD",727.808,727.808,19,23,2,0) "^DD",727.808,727.808,19,23,3,0) PATIENT MOVEMENT file (#405); DATE/TIME field (#.01) "^DD",727.808,727.808,19,23,4,0) "^DD",727.808,727.808,19,23,5,0) This field is always exactly 6 numeric characters (HHMMSS) in length; if "^DD",727.808,727.808,19,23,6,0) time cannot be determined, then "000300" is used as default. "^DD",727.808,727.808,19,"DT") 2970924 "^DD",727.808,727.808,20,0) GAINING WARD^P44'^SC(^0;21^Q "^DD",727.808,727.808,20,.1) Gaining Ward "^DD",727.808,727.808,20,3) Enter the ward to which this patient was moved. "^DD",727.808,727.808,20,21,0) ^.001^1^1^3120529^^ "^DD",727.808,727.808,20,21,1,0) Indicates the ward the patient moved to. "^DD",727.808,727.808,20,23,0) ^^3^3^3120529^ "^DD",727.808,727.808,20,23,1,0) GAINING WARD is derived from the HOSPITAL LOCATION FILE POINTER field "^DD",727.808,727.808,20,23,2,0) (#44) of the WARD LOCATION file (#42) as pointed to by the WARD LOCATION "^DD",727.808,727.808,20,23,3,0) field (#.06) of the PATIENT MOVEMENT file (#405). "^DD",727.808,727.808,20,"DT") 2960911 "^DD",727.808,727.808,21,0) ADMISSION TIME^FO^^0;22^K:$L(X)>6!($L(X)<6)!'(X?6N) X "^DD",727.808,727.808,21,.1) Admission Time "^DD",727.808,727.808,21,2) S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0) "^DD",727.808,727.808,21,2.1) S Y=$$ECXTIMEX^ECXUTL(Y,0) "^DD",727.808,727.808,21,3) Answer must be 6 characters in length. "^DD",727.808,727.808,21,21,0) ^.001^1^1^3120529^^ "^DD",727.808,727.808,21,21,1,0) The time of day at which the patient admission occurred. "^DD",727.808,727.808,21,23,0) ^^7^7^3120529^ "^DD",727.808,727.808,21,23,1,0) Data source: "^DD",727.808,727.808,21,23,2,0) "^DD",727.808,727.808,21,23,3,0) PATIENT MOVEMENT file (#405); ADMISSION/CHECK-IN MOVEMENT field (#.14) "^DD",727.808,727.808,21,23,4,0) then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01). "^DD",727.808,727.808,21,23,5,0) "^DD",727.808,727.808,21,23,6,0) This field is always exactly 6 numeric characters (HHMMSS) in length; if "^DD",727.808,727.808,21,23,7,0) time cannot be determined, then "000300" is used as default. "^DD",727.808,727.808,21,"DT") 2970924 "^DD",727.808,727.808,24,0) MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X "^DD",727.808,727.808,24,3) Answer must be 1-10 characters in length. "^DD",727.808,727.808,24,21,0) ^^1^1^3120529^ "^DD",727.808,727.808,24,21,1,0) Unique national VA patient identifier. "^DD",727.808,727.808,24,23,0) ^.001^3^3^3120529^^ "^DD",727.808,727.808,24,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.808,727.808,24,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.808,727.808,24,23,3,0) Patient file (#2). "^DD",727.808,727.808,24,"DT") 2990504 "^DD",727.808,727.808,25,0) DSS DEPT.^F^^1;2^K:$L(X)>7!($L(X)<4) X "^DD",727.808,727.808,25,.1) "^DD",727.808,727.808,25,3) Answer must be 4-7 characters in length. "^DD",727.808,727.808,25,21,0) ^.001^1^1^3120530^^ "^DD",727.808,727.808,25,21,1,0) DSS Dept. for the patient's gaining ward. "^DD",727.808,727.808,25,23,0) ^^15^15^3120530^ "^DD",727.808,727.808,25,23,1,0) The DSS Department code for the ward associated with the physical "^DD",727.808,727.808,25,23,2,0) movement record. This code is found in the DSS WARD file (#727.4) "^DD",727.808,727.808,25,23,3,0) using the value of the WARD LOCATION field (#.06) of the PATIENT "^DD",727.808,727.808,25,23,4,0) MOVEMENT file (#405) record for the patient's admission movement. "^DD",727.808,727.808,25,23,5,0) The value found in WARD LOCATION is a pointer to the WARD LOCATION "^DD",727.808,727.808,25,23,6,0) file (#42). "^DD",727.808,727.808,25,23,7,0) "^DD",727.808,727.808,25,23,8,0) Each record in file #727.4 has a #.01 field which points to a record "^DD",727.808,727.808,25,23,9,0) in file #42, and the internal entry number of the file #727.4 is set "^DD",727.808,727.808,25,23,10,0) to be the same as the record in file #42 to which it points. Therefore, "^DD",727.808,727.808,25,23,11,0) the WARD LOCATION field (#.06) can be used as a pointer to file #727.4 "^DD",727.808,727.808,25,23,12,0) as well. "^DD",727.808,727.808,25,23,13,0) "^DD",727.808,727.808,25,23,14,0) Data for this field is taken from the DSS DEPARTMENT field (#1) of "^DD",727.808,727.808,25,23,15,0) the file #727.4 record for the Losing Ward. "^DD",727.808,727.808,25,"DT") 3120530 "^DD",727.808,727.808,26,0) DOM,PRRTP AND SAARTP INDICATOR^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CET/TR;^1;3^Q "^DD",727.808,727.808,26,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.808,727.808,26,21,0) ^.001^2^2^3120530^^^^ "^DD",727.808,727.808,26,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP, or SARRTP "^DD",727.808,727.808,26,21,2,0) at the time care is provided. "^DD",727.808,727.808,26,23,0) ^.001^5^5^3120530^^^^ "^DD",727.808,727.808,26,23,1,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.808,727.808,26,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.808,727.808,26,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.808,727.808,26,23,4,0) "^DD",727.808,727.808,26,23,5,0) Else, the value is null. "^DD",727.808,727.808,26,"DT") 3120530 "^DD",727.808,727.808,27,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^1;4^Q "^DD",727.808,727.808,27,3) Enter observation patient status for this record. "^DD",727.808,727.808,27,21,0) ^.001^1^1^3120530^^^^ "^DD",727.808,727.808,27,21,1,0) Indicate if patient is considered to be an observation patient. "^DD",727.808,727.808,27,23,0) ^^12^12^3120530^ "^DD",727.808,727.808,27,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.808,727.808,27,23,2,0) "^DD",727.808,727.808,27,23,3,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.808,727.808,27,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.808,727.808,27,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.808,727.808,27,23,6,0) file. "^DD",727.808,727.808,27,23,7,0) "^DD",727.808,727.808,27,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.808,727.808,27,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.808,727.808,27,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.808,727.808,27,23,11,0) "^DD",727.808,727.808,27,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.808,727.808,27,"DT") 3120530 "^DD",727.808,727.808,28,0) ENCOUNTER NUMBER^F^^1;5^K:$L(X)>18!($L(X)<1) X "^DD",727.808,727.808,28,3) Answer must be 1-18 characters in length. "^DD",727.808,727.808,28,21,0) ^.001^1^1^3120530^^^ "^DD",727.808,727.808,28,21,1,0) The unique number assigned for DSS. "^DD",727.808,727.808,28,23,0) ^.001^4^4^3120530^^ "^DD",727.808,727.808,28,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.808,727.808,28,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.808,727.808,28,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.808,727.808,28,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.808,727.808,28,"DT") 3010514 "^DD",727.808,727.808,29,0) DISCHARGE PC PROVIDER^F^^1;6^K:$L(X)>11!($L(X)<2) X "^DD",727.808,727.808,29,3) Answer must be 2-11 characters in length. "^DD",727.808,727.808,29,21,0) ^.001^1^1^3120530^^^ "^DD",727.808,727.808,29,21,1,0) Patient's primary care provider from the losing ward. "^DD",727.808,727.808,29,23,0) ^^9^9^3120530^ "^DD",727.808,727.808,29,23,1,0) Using the DATE/TIME field (#.01) from the PATIENT MOVEMENT file (#405) and "^DD",727.808,727.808,29,23,2,0) the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in "^DD",727.808,727.808,29,23,3,0) the PHYSICAL MOVEMENT EXTRACT file (#727.808), a call is made to the "^DD",727.808,727.808,29,23,4,0) Scheduling API, OUTPTPR^SDUTL3. The API returns the provider's internal "^DD",727.808,727.808,29,23,5,0) entry number and name from the NEW PERSON file (#200). "^DD",727.808,727.808,29,23,6,0) "^DD",727.808,727.808,29,23,7,0) A "2" is prefixed to the pointer value to indicate that the source is file "^DD",727.808,727.808,29,23,8,0) #200. For example, if the IEN of the provider in file #200 is 98765, the "^DD",727.808,727.808,29,23,9,0) value that will be stored is 298765. "^DD",727.808,727.808,29,"DT") 3010514 "^DD",727.808,727.808,30,0) DISCHARGE PC TEAM^P404.51'^SCTM(404.51,^1;7^Q "^DD",727.808,727.808,30,3) Enter the primary care team associated with this event. "^DD",727.808,727.808,30,21,0) ^.001^1^1^3120530^^^ "^DD",727.808,727.808,30,21,1,0) Patient's primary care team from the losing ward. "^DD",727.808,727.808,30,23,0) ^^6^6^3120530^ "^DD",727.808,727.808,30,23,1,0) Using the DATE/TIME field (#.01) from the PATIENT MOVEMENT file (#405) and "^DD",727.808,727.808,30,23,2,0) the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in "^DD",727.808,727.808,30,23,3,0) the PHYSICAL MOVEMENT EXTRACT file (#727.808), a call is made to the "^DD",727.808,727.808,30,23,4,0) Scheduling API, OUTPTTM^SDUTL3. The API returns the team's internal entry "^DD",727.808,727.808,30,23,5,0) number and name from the TEAM file (#404.51) and the IEN is used to "^DD",727.808,727.808,30,23,6,0) populate this field. "^DD",727.808,727.808,30,"DT") 3120530 "^DD",727.808,727.808,31,0) DISCHARGE ASSOC PC PROVIDER^F^^1;8^K:$L(X)>11!($L(X)<2) X "^DD",727.808,727.808,31,3) Answer must be 2-11 characters in length. "^DD",727.808,727.808,31,21,0) ^.001^2^2^3120530^^^^ "^DD",727.808,727.808,31,21,1,0) This field contains the associate primary care provider at the time of "^DD",727.808,727.808,31,21,2,0) discharge. "^DD",727.808,727.808,31,23,0) ^.001^6^6^3120530^^ "^DD",727.808,727.808,31,23,1,0) Derived by a call to the Scheduling API, OUTPTAP^SDUTL3. The API returns "^DD",727.808,727.808,31,23,2,0) the associate provider's internal entry number and name from the NEW "^DD",727.808,727.808,31,23,3,0) PERSON file (#200). The ASSOCIATE PC PROVIDER is the value of a "2" "^DD",727.808,727.808,31,23,4,0) prefixed to the pointer value to indicate that the source file is "200". "^DD",727.808,727.808,31,23,5,0) For example, if the IEN of the provider in file #200 is 98765, the value "^DD",727.808,727.808,31,23,6,0) that will be stored is 298765. "^DD",727.808,727.808,31,"DT") 3010514 "^DD",727.808,727.808,32,0) PRODUCTION DIVISION CODE^F^^1;9^K:$L(X)>7!($L(X)<3) X "^DD",727.808,727.808,32,3) Answer must be 3-7 characters in length. "^DD",727.808,727.808,32,21,0) ^.001^1^1^3120530^^ "^DD",727.808,727.808,32,21,1,0) Identifies the division/facility where the patient is located. "^DD",727.808,727.808,32,23,0) ^^7^7^3120530^ "^DD",727.808,727.808,32,23,1,0) Data comes from the WARD AT DISCHARGE field (#200) in the PATIENT "^DD",727.808,727.808,32,23,2,0) MOVEMENT file (#405). This value is then used to get the NAME field (#.01) "^DD",727.808,727.808,32,23,3,0) in the WARD LOCATION file (#42) which in turn is used to get the DIVISION "^DD",727.808,727.808,32,23,4,0) field (#.015) in the WARD LOCATION file (#42) which is a pointer to the "^DD",727.808,727.808,32,23,5,0) MEDICAL CENTER DIVISION file (#40.8). This value is then used to call the "^DD",727.808,727.808,32,23,6,0) API GETDIV^ECXDEPT to get the STATION NUMBER field (#99) from the "^DD",727.808,727.808,32,23,7,0) INSTITUTION file (#4). "^DD",727.808,727.808,32,"DT") 3120530 "^DD",727.808,727.808,33,0) DISCHARGE PC PROV PERSON CLASS^F^^1;10^K:$L(X)>7!($L(X)<7) X "^DD",727.808,727.808,33,3) Answer must be 7 characters in length. "^DD",727.808,727.808,33,21,0) ^^2^2^3120530^ "^DD",727.808,727.808,33,21,1,0) The VA Code of the Person Class of the patient's primary care provider "^DD",727.808,727.808,33,21,2,0) from the losing ward. "^DD",727.808,727.808,33,23,0) ^.001^4^4^3120530^^ "^DD",727.808,727.808,33,23,1,0) Active Person Class is determined by the supported call "^DD",727.808,727.808,33,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.808,727.808,33,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.808,727.808,33,23,4,0) returned value string. "^DD",727.808,727.808,33,"DT") 3120530 "^DD",727.808,727.808,34,0) DISCH ASSOC PC PROVIDER PC^F^^1;11^K:$L(X)>7!($L(X)<7) X "^DD",727.808,727.808,34,3) Answer must be 7 characters in length. "^DD",727.808,727.808,34,21,0) ^^2^2^3120530^ "^DD",727.808,727.808,34,21,1,0) The VA Code of the Person Class of the associate primary care provider "^DD",727.808,727.808,34,21,2,0) associated with this record. "^DD",727.808,727.808,34,23,0) ^^4^4^3120530^ "^DD",727.808,727.808,34,23,1,0) Active Person Class is determined by the supported call "^DD",727.808,727.808,34,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.808,727.808,34,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.808,727.808,34,23,4,0) returned value string. "^DD",727.808,727.808,34,"DT") 3120530 "^DD",727.809,727.809,3,0) FACILITY^P40.8'^DG(40.8,^0;4^Q "^DD",727.809,727.809,3,.1) Facility "^DD",727.809,727.809,3,3) Enter the medical center division associated with this admission. "^DD",727.809,727.809,3,21,0) ^.001^1^1^3120530^^ "^DD",727.809,727.809,3,21,1,0) This is the medical center division where the extract was performed. "^DD",727.809,727.809,3,23,0) ^^3^3^3120530^ "^DD",727.809,727.809,3,23,1,0) An indicator of the division where this event happened. It is derived "^DD",727.809,727.809,3,23,2,0) from the DIVISION field (#.015) of the WARD LOCATION file (#42) which "^DD",727.809,727.809,3,23,3,0) points to the MEDICAL CENTER DIVISION file (#40.8). "^DD",727.809,727.809,3,"DT") 3120530 "^DD",727.809,727.809,5,0) SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X "^DD",727.809,727.809,5,.1) Social Security Number "^DD",727.809,727.809,5,3) Your answer must be 9 to 10 characters in length. "^DD",727.809,727.809,5,21,0) ^.001^1^1^3120530^^ "^DD",727.809,727.809,5,21,1,0) The patient's social security number. "^DD",727.809,727.809,5,23,0) ^^6^6^3120530^ "^DD",727.809,727.809,5,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.809,727.809,5,23,2,0) in the UNIT DOSE LOCAL EXTRACT file (#727.809), SSN data is derived from "^DD",727.809,727.809,5,23,3,0) the SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2). "^DD",727.809,727.809,5,23,4,0) "^DD",727.809,727.809,5,23,5,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with "^DD",727.809,727.809,5,23,6,0) an SSN beginning with "00000" will not be included in the extract. "^DD",727.809,727.809,5,"DT") 2960913 "^DD",727.809,727.809,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.809,727.809,6,.1) Name "^DD",727.809,727.809,6,3) Your answer must be 4 characters in length. "^DD",727.809,727.809,6,21,0) ^.001^1^1^3120530^^^^ "^DD",727.809,727.809,6,21,1,0) The first four characters of the patient's last name. "^DD",727.809,727.809,6,23,0) ^^6^6^3120530^ "^DD",727.809,727.809,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.809,727.809,6,23,2,0) in the UNIT DOSE LOCAL EXTRACT file (#727.809), NAME data is derived from "^DD",727.809,727.809,6,23,3,0) the NAME field (#.01) in the PATIENT file (#2). The first four characters "^DD",727.809,727.809,6,23,4,0) of the first "," piece are used, padded with trailing spaces if necessary. "^DD",727.809,727.809,6,23,5,0) "^DD",727.809,727.809,6,23,6,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.809,727.809,6,"DT") 2960913 "^DD",727.809,727.809,7,0) IN OUT PATIENT INDICATOR^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q "^DD",727.809,727.809,7,.1) In Out Patient Indicator "^DD",727.809,727.809,7,3) Enter the patient's status for this extract entry. "^DD",727.809,727.809,7,21,0) ^.001^2^2^3120530^^^^ "^DD",727.809,727.809,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for this "^DD",727.809,727.809,7,21,2,0) extract entry. "^DD",727.809,727.809,7,23,0) ^^10^10^3120530^ "^DD",727.809,727.809,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.809,727.809,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.809,727.809,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.809,727.809,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.809,727.809,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.809,727.809,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.809,727.809,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.809,727.809,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.809,727.809,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.809,727.809,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.809,727.809,7,"DT") 3120530 "^DD",727.809,727.809,10,0) QUANTITY^NJ8,2a^^0;11^K:+X'=X!(X>10000)!(X<0)!(X?.E1"."3N.N) X "^DD",727.809,727.809,10,.1) Quantity "^DD",727.809,727.809,10,3) Type a number between 0 and 10000, 2 decimal digits. "^DD",727.809,727.809,10,21,0) ^.001^2^2^3120530^^^ "^DD",727.809,727.809,10,21,1,0) Drug quantity dispensed in the unit of issue for that drug. Unit of issue "^DD",727.809,727.809,10,21,2,0) may vary from product to product and site to site. "^DD",727.809,727.809,10,23,0) ^.001^2^2^3120530^^ "^DD",727.809,727.809,10,23,1,0) QUANTITY is derived from the QUANTITY field (#4) of the UNIT DOSE EXTRACT "^DD",727.809,727.809,10,23,2,0) DATA file (#728.904). "^DD",727.809,727.809,10,"AUDIT") e "^DD",727.809,727.809,10,"DT") 3120716 "^DD",727.809,727.809,11,0) WARD^P44'^SC(^0;12^Q "^DD",727.809,727.809,11,.1) Ward "^DD",727.809,727.809,11,3) Enter the ward location for this patient. "^DD",727.809,727.809,11,21,0) ^.001^1^1^3120530^^^ "^DD",727.809,727.809,11,21,1,0) Current ward where the patient is located. "^DD",727.809,727.809,11,23,0) ^^5^5^3120530^ "^DD",727.809,727.809,11,23,1,0) Ward is derived from the WARD field (#5) in the UNIT DOSE EXTRACT DATA "^DD",727.809,727.809,11,23,2,0) file (#728.904) which is a pointer to the WARD LOCATION file (#42). "^DD",727.809,727.809,11,23,3,0) Using the ward pointer, the data is derived from the HOSPITAL LOCATION "^DD",727.809,727.809,11,23,4,0) FILE POINTER field (#44) in the WARD LOCATION file (#42) which is a "^DD",727.809,727.809,11,23,5,0) pointer to the HOSPITAL LOCATION file (#44). "^DD",727.809,727.809,11,"DT") 2960913 "^DD",727.809,727.809,13,0) COST^NJ8,2^^0;14^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>10000)!(X<0) X "^DD",727.809,727.809,13,.1) Cost "^DD",727.809,727.809,13,3) Enter a dollar amount between 0 and 10000, 2 decimal digits. "^DD",727.809,727.809,13,21,0) ^.001^1^1^3120530^^^ "^DD",727.809,727.809,13,21,1,0) VA pharmacy supply cost of drug dispensed. "^DD",727.809,727.809,13,23,0) ^^2^2^3120530^ "^DD",727.809,727.809,13,23,1,0) COST data is derived from the TOTAL COST field (#7) of the UNIT DOSE "^DD",727.809,727.809,13,23,2,0) EXTRACT DATA file (#728.904). "^DD",727.809,727.809,13,"DT") 2960913 "^DD",727.809,727.809,17,0) NEW FEEDER KEY^F^^0;18^K:$L(X)>17!($L(X)<17) X "^DD",727.809,727.809,17,.1) New Feeder Key "^DD",727.809,727.809,17,3) Answer must be 17 characters in length. "^DD",727.809,727.809,17,21,0) ^.001^1^1^3120530^^^ "^DD",727.809,727.809,17,21,1,0) Code that uniquely identifies a DSS drug/supply product. "^DD",727.809,727.809,17,23,0) ^^9^9^3120530^ "^DD",727.809,727.809,17,23,1,0) NEW FEEDER KEY is derived for the drug identified by the DRUG field "^DD",727.809,727.809,17,23,2,0) (#6) in the PRESCRIPTION file (#52), which is a pointer to the DRUG "^DD",727.809,727.809,17,23,3,0) file (#50). "^DD",727.809,727.809,17,23,4,0) "^DD",727.809,727.809,17,23,5,0) The PSNDF VA PRODUCT NAME ENTRY field (#22) from the DRUG file (#50), "^DD",727.809,727.809,17,23,6,0) which is a pointer to the VA PRODUCT file (#50.68) is padded to 5 "^DD",727.809,727.809,17,23,7,0) digits. This is concatenated with a 12-digit code derived from the "^DD",727.809,727.809,17,23,8,0) NDC field (#31) from the DRUG file (#50) to form a 17-digit Feeder "^DD",727.809,727.809,17,23,9,0) Key. "^DD",727.809,727.809,17,"DT") 3120530 "^DD",727.809,727.809,18,0) INVESTIGATIONAL^S^I:INVESTIGATIONAL;^0;19^Q "^DD",727.809,727.809,18,.1) Investigational "^DD",727.809,727.809,18,3) Enter I if the drug is investigational. "^DD",727.809,727.809,18,21,0) ^^1^1^3120530^ "^DD",727.809,727.809,18,21,1,0) Indicates if the drug in this record is classified as investigational. "^DD",727.809,727.809,18,23,0) ^^3^3^3120530^ "^DD",727.809,727.809,18,23,1,0) Derived from the DEA, SPECIAL HDLG field (#3) in the DRUG file (#50). If "^DD",727.809,727.809,18,23,2,0) the DEA, SPECIAL HDLG field contains an "I" (INVESTIGATIONAL DRUGS), this "^DD",727.809,727.809,18,23,3,0) field is set to "I". "^DD",727.809,727.809,18,"DT") 2960913 "^DD",727.809,727.809,19,0) UDP TIME^FO^^0;20^K:$L(X)>6!($L(X)<6) X "^DD",727.809,727.809,19,.1) UDP Time "^DD",727.809,727.809,19,2) S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,1) "^DD",727.809,727.809,19,2.1) S Y=$$ECXTIMEX^ECXUTL(Y,1) "^DD",727.809,727.809,19,3) Answer must be 6 characters in length. "^DD",727.809,727.809,19,21,0) ^.001^1^1^3120604^^^ "^DD",727.809,727.809,19,21,1,0) Time that the drug was dispensed. "^DD",727.809,727.809,19,23,0) ^^14^14^3120604^ "^DD",727.809,727.809,19,23,1,0) Data source: "^DD",727.809,727.809,19,23,2,0) "^DD",727.809,727.809,19,23,3,0) UNIT DOSE EXTRACT DATA file (#728.904); DATE field (#2). Data is inserted "^DD",727.809,727.809,19,23,4,0) in this field by Pharmacy routines PSGPLF and PSGAMSA. These routines "^DD",727.809,727.809,19,23,5,0) derive the data from either the UNIT DOSE PICK LIST STATS file (#57.6); "^DD",727.809,727.809,19,23,6,0) DATE field (#.01) or the PICK LIST file (#53.5); START DATE/TIME field "^DD",727.809,727.809,19,23,7,0) (#.03). Currently, only the 1st "." piece (date) has data. The 2nd "." "^DD",727.809,727.809,19,23,8,0) piece (time) is padded with trailing zeros to 6 characters, and "^DD",727.809,727.809,19,23,9,0) stored. If no data is available then DT (i.e., FileMan variable for "^DD",727.809,727.809,19,23,10,0) Today's Date) is used. "^DD",727.809,727.809,19,23,11,0) "^DD",727.809,727.809,19,23,12,0) The source for this data element does NOT provide any time information; "^DD",727.809,727.809,19,23,13,0) only date is provided. Consequently, the UDP TIME field is always "^DD",727.809,727.809,19,23,14,0) set to "000000". "^DD",727.809,727.809,19,"DT") 2970924 "^DD",727.809,727.809,20,0) ADMISSION DATE^FO^^0;21^K:$L(X)>8!($L(X)<8) X "^DD",727.809,727.809,20,.1) Admission Date "^DD",727.809,727.809,20,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.809,727.809,20,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.809,727.809,20,3) Answer must be 8 characters in length. "^DD",727.809,727.809,20,21,0) ^.001^2^2^3120604^^ "^DD",727.809,727.809,20,21,1,0) This 8-character numeric string represents the date on which the "^DD",727.809,727.809,20,21,2,0) patient's admission occurred. "^DD",727.809,727.809,20,23,0) ^^9^9^3120604^ "^DD",727.809,727.809,20,23,1,0) Data source: "^DD",727.809,727.809,20,23,2,0) "^DD",727.809,727.809,20,23,3,0) UNIT DOSE EXTRACT DATA file (#728.904); DFN field (#1) "^DD",727.809,727.809,20,23,4,0) then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01) "^DD",727.809,727.809,20,23,5,0) "^DD",727.809,727.809,20,23,6,0) This field is always exactly 8 numeric characters in length. The format "^DD",727.809,727.809,20,23,7,0) is YYYYMMDD; for example, 19970923. If the date cannot be determined, "^DD",727.809,727.809,20,23,8,0) then a default is used. The default date value is the value of the "^DD",727.809,727.809,20,23,9,0) YEAR MONTH field (#1) concatenated with "01" for the day (DD) portion. "^DD",727.809,727.809,20,"DT") 2970924 "^DD",727.809,727.809,21,0) ADMISSION TIME^FO^^0;22^K:$L(X)>6!($L(X)<6) X "^DD",727.809,727.809,21,.1) Admission Time "^DD",727.809,727.809,21,2) S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0) "^DD",727.809,727.809,21,2.1) S Y=$$ECXTIMEX^ECXUTL(Y,0) "^DD",727.809,727.809,21,3) Answer must be 6 characters in length. "^DD",727.809,727.809,21,21,0) ^.001^1^1^3120530^^ "^DD",727.809,727.809,21,21,1,0) Time of day at which the patient admission occurred. "^DD",727.809,727.809,21,23,0) ^^13^13^3120530^ "^DD",727.809,727.809,21,23,1,0) A call to IN5^VADPT (using the patient IEN and the event date) returns "^DD",727.809,727.809,21,23,2,0) the internal file number of the admission associated with this movement. "^DD",727.809,727.809,21,23,3,0) ADMISSION TIME is derived from the DATE/TIME field (#.01) of the PATIENT "^DD",727.809,727.809,21,23,4,0) MOVEMENT file (#405) for the movement found in VAIP(13). ADMISSION TIME "^DD",727.809,727.809,21,23,5,0) is padded with trailing zeros to six digits. "^DD",727.809,727.809,21,23,6,0) "^DD",727.809,727.809,21,23,7,0) Data source: "^DD",727.809,727.809,21,23,8,0) "^DD",727.809,727.809,21,23,9,0) UNIT DOSE EXTRACT DATA file (#728.904); DFN field (#1) then to PATIENT "^DD",727.809,727.809,21,23,10,0) MOVEMENT file (#405); DATE/TIME field (#.01) "^DD",727.809,727.809,21,23,11,0) "^DD",727.809,727.809,21,23,12,0) This field is always exactly 6 numeric characters in length; if time "^DD",727.809,727.809,21,23,13,0) cannot be determined, then "000300" is used as default. "^DD",727.809,727.809,21,"DT") 2970924 "^DD",727.809,727.809,22,0) MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X "^DD",727.809,727.809,22,3) Answer must be 1-10 characters in length. "^DD",727.809,727.809,22,21,0) ^.001^1^1^3120130^^ "^DD",727.809,727.809,22,21,1,0) Unique national VA patient identifier. "^DD",727.809,727.809,22,23,0) ^^3^3^3120130^ "^DD",727.809,727.809,22,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.809,727.809,22,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.809,727.809,22,23,3,0) Patient file (#2). "^DD",727.809,727.809,22,"DT") 2990504 "^DD",727.809,727.809,23,0) DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X "^DD",727.809,727.809,23,.1) "^DD",727.809,727.809,23,3) Answer must be 1-10 characters in length. "^DD",727.809,727.809,23,21,0) ^.001^2^2^3120601^^^^ "^DD",727.809,727.809,23,21,1,0) The nationally defined DSS Intermediate Department Number designated to "^DD",727.809,727.809,23,21,2,0) the Pharmacy care product. "^DD",727.809,727.809,23,23,0) ^.001^1^1^3120601^^ "^DD",727.809,727.809,23,23,1,0) For the Unit Dose Local extract, the DSS PRODUCT DEPARTMENT field is null. "^DD",727.809,727.809,23,"DT") 3040302 "^DD",727.809,727.809,25,0) DOM,PRRTP AND SAARTP INDICATOR^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CWT/TR;^1;4^Q "^DD",727.809,727.809,25,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.809,727.809,25,21,0) ^.001^2^2^3120530^^^^ "^DD",727.809,727.809,25,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP, or SARRTP at "^DD",727.809,727.809,25,21,2,0) the time care is provided. "^DD",727.809,727.809,25,23,0) ^.001^5^5^3120530^^^ "^DD",727.809,727.809,25,23,1,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.809,727.809,25,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.809,727.809,25,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.809,727.809,25,23,4,0) "^DD",727.809,727.809,25,23,5,0) Otherwise, the value is null. "^DD",727.809,727.809,25,"DT") 3120530 "^DD",727.809,727.809,26,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^1;5^Q "^DD",727.809,727.809,26,3) Enter observation patient status for this record. "^DD",727.809,727.809,26,21,0) ^.001^1^1^3120530^^^^ "^DD",727.809,727.809,26,21,1,0) Indicates if patient is considered to be an observation patient. "^DD",727.809,727.809,26,23,0) ^^12^12^3120530^ "^DD",727.809,727.809,26,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.809,727.809,26,23,2,0) "^DD",727.809,727.809,26,23,3,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.809,727.809,26,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.809,727.809,26,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.809,727.809,26,23,6,0) file. "^DD",727.809,727.809,26,23,7,0) "^DD",727.809,727.809,26,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.809,727.809,26,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.809,727.809,26,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.809,727.809,26,23,11,0) "^DD",727.809,727.809,26,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.809,727.809,26,"DT") 3120530 "^DD",727.809,727.809,27,0) ENCOUNTER NUMBER^F^^1;6^K:$L(X)>18!($L(X)<1) X "^DD",727.809,727.809,27,3) Answer must be 1-18 characters in length. "^DD",727.809,727.809,27,21,0) ^.001^1^1^3120530^^^ "^DD",727.809,727.809,27,21,1,0) The unique number assigned to each encounter within DSS. "^DD",727.809,727.809,27,23,0) ^^4^4^3120530^ "^DD",727.809,727.809,27,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.809,727.809,27,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.809,727.809,27,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.809,727.809,27,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.809,727.809,27,"DT") 3010503 "^DD",727.809,727.809,28,0) PRODUCTION DIVISION CODE^F^^1;7^K:$L(X)>7!($L(X)<3) X "^DD",727.809,727.809,28,3) Answer must be 3-7 characters in length. "^DD",727.809,727.809,28,21,0) ^.001^1^1^3120530^^ "^DD",727.809,727.809,28,21,1,0) Identifies the division/facility where the work was performed. "^DD",727.809,727.809,28,23,0) ^.001^6^6^3120530^^^ "^DD",727.809,727.809,28,23,1,0) Data comes from the WARD field (#5) of the UNIT DOSE EXTRACT DATA "^DD",727.809,727.809,28,23,2,0) file (#727.904), which is a pointer to the WARD LOCATION file (#42). "^DD",727.809,727.809,28,23,3,0) This value is then used to get the DIVISION field (#.015), a pointer to "^DD",727.809,727.809,28,23,4,0) the MEDICAL CENTER DIVISION file (#40.8), which is then used to call API "^DD",727.809,727.809,28,23,5,0) GETDIV^ECXDEPT to get the STATION NUMBER field (#99) from the INSTITUTION "^DD",727.809,727.809,28,23,6,0) file (#4). "^DD",727.809,727.809,28,"DT") 3120530 "^DD",727.809,727.809,29,0) MEANS TEST^S^A:CATEGORY A;B:CATEGORY B;C:CATEGORY C;P:PENDING ADJUCATION;R:REQUIRES MEANS TEST;N:MEANS TEST NOT REQUIRED;E:EXEMPT;I:INCOMPLETE;L:NO LONGER APPLICABLE;M:NON-EXEMPT;^1;8^Q "^DD",727.809,727.809,29,.1) Means Test "^DD",727.809,727.809,29,3) Select the appropriate means test category. "^DD",727.809,727.809,29,21,0) ^.001^1^1^3120614^^^ "^DD",727.809,727.809,29,21,1,0) The current means test category for this patient. "^DD",727.809,727.809,29,23,0) ^.001^8^8^3120614^^ "^DD",727.809,727.809,29,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.809,727.809,29,23,2,0) in the UNIT DOSE LOCAL EXTRACT file (#727.809), MEANS TEST data is derived "^DD",727.809,727.809,29,23,3,0) from the CURRENT MEANS TEST STATUS field (#.14) in the PATIENT file (#2). "^DD",727.809,727.809,29,23,4,0) This field is a pointer to the MEANS TEST STATUS file (#408.32). Using "^DD",727.809,727.809,29,23,5,0) the means test pointer, the data is derived from the CODE field (#.02) in "^DD",727.809,727.809,29,23,6,0) the MEANS TEST STATUS file (#408.32). "^DD",727.809,727.809,29,23,7,0) "^DD",727.809,727.809,29,23,8,0) The status indicator is returned by ELIG^VADPT. "^DD",727.809,727.809,29,"DT") 3020607 "^DD",727.809,727.809,31,0) DATE OF BIRTH^F^^1;10^K:$L(X)>8!($L(X)<8) X "^DD",727.809,727.809,31,.1) Date of Birth "^DD",727.809,727.809,31,3) Answer must be 8 characters in length. "^DD",727.809,727.809,31,21,0) ^.001^1^1^3120530^^^ "^DD",727.809,727.809,31,21,1,0) Patient's date of birth. "^DD",727.809,727.809,31,23,0) ^^2^2^3120530^ "^DD",727.809,727.809,31,23,1,0) Date of Birth is returned through the supported call DEM^VADPT. It is then "^DD",727.809,727.809,31,23,2,0) represented by an 8-character numeric string in the YYYYMMDD format. "^DD",727.809,727.809,31,"DT") 3020612 "^DD",727.809,727.809,32,0) SEX^S^M:MALE;F:FEMALE;^1;11^Q "^DD",727.809,727.809,32,.1) Sex "^DD",727.809,727.809,32,3) Enter the sex of the patient. "^DD",727.809,727.809,32,21,0) ^.001^1^1^3120130^^ "^DD",727.809,727.809,32,21,1,0) Patient's gender. "^DD",727.809,727.809,32,23,0) ^^4^4^3120130^ "^DD",727.809,727.809,32,23,1,0) Data is taken from the SEX field (#.02) of the patient's record in "^DD",727.809,727.809,32,23,2,0) the PATIENT file (#2). "^DD",727.809,727.809,32,23,3,0) "^DD",727.809,727.809,32,23,4,0) The status indicator is returned by DEM^VADPT. "^DD",727.809,727.809,32,"DT") 3020607 "^DD",727.809,727.809,35,0) ZIP+4^F^^1;14^K:$L(X)>10!($L(X)<5) X "^DD",727.809,727.809,35,.1) Zip+4 "^DD",727.809,727.809,35,3) Answer must be 5-10 characters in length. "^DD",727.809,727.809,35,21,0) ^.001^2^2^3120604^^ "^DD",727.809,727.809,35,21,1,0) The ZIP code for where the patient resides. The 5-character ZIP code is "^DD",727.809,727.809,35,21,2,0) provided if ZIP+4 is not available. "^DD",727.809,727.809,35,23,0) ^.001^4^4^3120604^^ "^DD",727.809,727.809,35,23,1,0) The patient's ZIP code with optional 4-digit extension as found in "^DD",727.809,727.809,35,23,2,0) the ZIP+4 field (#.1112) of the patient's record in the PATIENT "^DD",727.809,727.809,35,23,3,0) file (#2). While the ZIP+4 field in file 2 is a max of 9 characters, it "^DD",727.809,727.809,35,23,4,0) does put the "-" in if the ZIP code is a +4 type. "^DD",727.809,727.809,35,"DT") 3020607 "^DD",727.809,727.809,36,0) VETERAN^S^Y:YES;N:NO;^1;15^Q "^DD",727.809,727.809,36,.1) Veteran "^DD",727.809,727.809,36,3) Select the appropriate veteran status for this patient. "^DD",727.809,727.809,36,21,0) ^.001^1^1^3120530^^ "^DD",727.809,727.809,36,21,1,0) Patient's veteran status. "^DD",727.809,727.809,36,23,0) ^^3^3^3120530^ "^DD",727.809,727.809,36,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.809,727.809,36,23,2,0) in the UNIT DOSE LOCAL EXTRACT file (#727.809), VETERAN data is derived "^DD",727.809,727.809,36,23,3,0) from the VETERAN (Y/N)? field (#1901) in the PATIENT file (#2). "^DD",727.809,727.809,36,"DT") 3020607 "^DD",727.809,727.809,38,0) POW STATUS^S^Y:YES;N:NO;U:UKNOWN;^1;17^Q "^DD",727.809,727.809,38,.1) POW Status "^DD",727.809,727.809,38,3) Enter the patient's POW Status. "^DD",727.809,727.809,38,21,0) ^^1^1^3111219^ "^DD",727.809,727.809,38,21,1,0) Indicates if patient was confined as a Prisoner of War. "^DD",727.809,727.809,38,23,0) ^.001^2^2^3111219^^ "^DD",727.809,727.809,38,23,1,0) PATIENT file (#2); POW STATUS INDICATED? field (#.525). "^DD",727.809,727.809,38,23,2,0) The status indicator is returned by SVC^VADPT. "^DD",727.809,727.809,38,"DT") 3020610 "^DD",727.809,727.809,40,0) RADIATION STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;19^Q "^DD",727.809,727.809,40,.1) Radiation Status "^DD",727.809,727.809,40,3) Enter the Radiation Status for the patient. "^DD",727.809,727.809,40,21,0) ^.001^1^1^3120604^^ "^DD",727.809,727.809,40,21,1,0) Indicates if patient claims exposure to ionizing radiation. "^DD",727.809,727.809,40,23,0) ^.001^2^2^3120604^^^ "^DD",727.809,727.809,40,23,1,0) PATIENT file (#2); RADIATION EXPOSURE INDICATED? field (#.32103). "^DD",727.809,727.809,40,23,2,0) The status indicator is returned by SVC^VADPT. "^DD",727.809,727.809,40,"DT") 3020610 "^DD",727.809,727.809,41,0) AGENT ORANGE STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;20^Q "^DD",727.809,727.809,41,.1) Agent Orange Status "^DD",727.809,727.809,41,3) Enter the Agent Orange Status for the patient. "^DD",727.809,727.809,41,21,0) ^.001^1^1^3120604^^^ "^DD",727.809,727.809,41,21,1,0) Indicates whether patient was exposed to Agent Orange. "^DD",727.809,727.809,41,23,0) ^.001^2^2^3120604^^^^ "^DD",727.809,727.809,41,23,1,0) PATIENT file (#2); AGENT ORANGE EXPOS. INDICATED? field (#.32102). "^DD",727.809,727.809,41,23,2,0) The status indicator is returned by SVC^VADPT. "^DD",727.809,727.809,41,"DT") 3020610 "^DD",727.809,727.809,42,0) AGENT ORANGE LOCATION^S^K:KOREAN DMZ;V:VIETNAM;O:OTHER;^1;21^Q "^DD",727.809,727.809,42,.1) Agent Orange Location "^DD",727.809,727.809,42,3) Enter where the patient was exposed to agent orange. "^DD",727.809,727.809,42,21,0) ^.001^1^1^3120530^^^^ "^DD",727.809,727.809,42,21,1,0) Indicates the location where the patient was exposed to Agent Orange. "^DD",727.809,727.809,42,23,0) ^.001^2^2^3120530^^^ "^DD",727.809,727.809,42,23,1,0) PATIENT file (#2); AGENT ORANGE EXPOSURE LOCATION field (.3213). "^DD",727.809,727.809,42,23,2,0) The location indicator is returned by SVC^VADPT. "^DD",727.809,727.809,42,"DT") 3120530 "^DD",727.809,727.809,43,0) PURPLE HEART INDICATOR^S^Y:YES;N:NO;^1;22^Q "^DD",727.809,727.809,43,.1) Purple Heart Indicator "^DD",727.809,727.809,43,3) Enter the Purple Heart Indicator for the patient. "^DD",727.809,727.809,43,21,0) ^^1^1^3111219^ "^DD",727.809,727.809,43,21,1,0) Indicates whether or not a patient is a Purple Heart recipient. "^DD",727.809,727.809,43,23,0) ^.001^2^2^3111219^^ "^DD",727.809,727.809,43,23,1,0) PATIENT file (#2); CURRENT PH INDICATOR field (#.531). "^DD",727.809,727.809,43,23,2,0) The status indicator is returned by SVC^VADPT. "^DD",727.809,727.809,43,"DT") 3020610 "^DD",727.809,727.809,44,0) MST STATUS^S^Y:Yes, screened reports MST;N:Screened, does not report MST;D:Screened, declines to answer;U:Unknown, not screened;^1;23^Q "^DD",727.809,727.809,44,.1) MST Status "^DD",727.809,727.809,44,3) Enter the patient's MST Status. "^DD",727.809,727.809,44,21,0) ^.001^2^2^3120530^^ "^DD",727.809,727.809,44,21,1,0) Indicates the Military Sexual Trauma (MST) status of a patient on the date "^DD",727.809,727.809,44,21,2,0) of the encounter. "^DD",727.809,727.809,44,23,0) ^^5^5^3120530^ "^DD",727.809,727.809,44,23,1,0) The MST HISTORY file (#29.11) holds data regarding military sexual trauma "^DD",727.809,727.809,44,23,2,0) claims and effective dates. The patients MST status is stored in the MST "^DD",727.809,727.809,44,23,3,0) STATUS field (#3). A call will be made to $$GETSTAT^DGMSTAPI(DFN,DGDATE) "^DD",727.809,727.809,44,23,4,0) using the DFN in the PATIENT NO. - DFN (#4) field and the date in the DAY "^DD",727.809,727.809,44,23,5,0) (#8) field. "^DD",727.809,727.809,44,"DT") 3120613 "^DD",727.809,727.809,45,0) CNH/SH STATUS^S^YES:YES;NO:NO;^1;24^Q "^DD",727.809,727.809,45,.1) CNH/SH Status "^DD",727.809,727.809,45,3) Enter the patient's CNH/SH STATUS. "^DD",727.809,727.809,45,21,0) ^.001^1^1^3120531^^^ "^DD",727.809,727.809,45,21,1,0) Community Nursing Home/State Home (CNH/SH) Indicator. "^DD",727.809,727.809,45,23,0) ^^2^2^3120531^ "^DD",727.809,727.809,45,23,1,0) Data is derived from the CNH CURRENT field (#148) of the PATIENT file (#2) "^DD",727.809,727.809,45,23,2,0) and is returned by CNHSTAT^ECXUTL4(DFN). "^DD",727.809,727.809,45,"DT") 3120531 "^DD",727.809,727.809,47,0) ENROLLMENT CATEGORY^S^E:Enrolled;N:Not Enrolled;P:In Process;^1;26^Q "^DD",727.809,727.809,47,.1) Enrollment Category "^DD",727.809,727.809,47,3) Enter patient's enrollment category. "^DD",727.809,727.809,47,21,0) ^.001^1^1^3120531^^^^ "^DD",727.809,727.809,47,21,1,0) Patient's enrollment category. "^DD",727.809,727.809,47,23,0) ^^2^2^3120531^ "^DD",727.809,727.809,47,23,1,0) ENROLLMENT CATEGORY is derived from the standard call CATEGORY^DGENA4 "^DD",727.809,727.809,47,23,2,0) using the patient DFN and the ENROLLMENT STATUS. "^DD",727.809,727.809,47,"DT") 3120531 "^DD",727.809,727.809,48,0) ENROLLMENT STATUS^P27.15'^DGEN(27.15,^1;27^Q "^DD",727.809,727.809,48,.1) Enrollment Status "^DD",727.809,727.809,48,3) Enter patient's enrollment status. "^DD",727.809,727.809,48,21,0) ^.001^1^1^3120604^^^ "^DD",727.809,727.809,48,21,1,0) Patient's enrollment status. "^DD",727.809,727.809,48,23,0) ^^3^3^3120604^ "^DD",727.809,727.809,48,23,1,0) ENROLLMENT STATUS is derived from the PATIENT ENROLLMENT file (#27.11) "^DD",727.809,727.809,48,23,2,0) ENROLLMENT STATUS field (#.04) which is a pointer to the ENROLLMENT STATUS "^DD",727.809,727.809,48,23,3,0) file (#27.15). "^DD",727.809,727.809,48,"DT") 3120531 "^DD",727.809,727.809,49,0) SHAD STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;28^Q "^DD",727.809,727.809,49,.1) "^DD",727.809,727.809,49,3) Enter SHAD Status "^DD",727.809,727.809,49,21,0) ^.001^2^2^3120531^^ "^DD",727.809,727.809,49,21,1,0) Indicates whether patient meets requirements for Shipboard Hazard and "^DD",727.809,727.809,49,21,2,0) Defense (SHAD). "^DD",727.809,727.809,49,23,0) ^^3^3^3120531^ "^DD",727.809,727.809,49,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.809,727.809,49,23,2,0) in the UNIT DOSE LOCAL EXTRACT file (#727.809), Shipboard Hazard and "^DD",727.809,727.809,49,23,3,0) Defense data is derived from using DBIA #4462 GETSHAD^DGUTL3(DFN). "^DD",727.809,727.809,49,"DT") 3100212 "^DD",727.809,727.809,51,0) PRIMARY CARE PROVIDER^F^^1;30^K:$L(X)>11!($L(X)<1) X "^DD",727.809,727.809,51,.1) Primary Care Provider "^DD",727.809,727.809,51,3) Enter primary care provider assigned to this patient. "^DD",727.809,727.809,51,21,0) ^.001^2^2^3120531^^^ "^DD",727.809,727.809,51,21,1,0) The primary care provider assigned to this patient through the PCMM "^DD",727.809,727.809,51,21,2,0) module. "^DD",727.809,727.809,51,23,0) ^^9^9^3120531^ "^DD",727.809,727.809,51,23,1,0) Using the DATE field (#2) from the UNIT DOSE EXTRACT DATA file "^DD",727.809,727.809,51,23,2,0) (728.904) and the patient pointer (DFN) stored in the PATIENT NO. - DFN "^DD",727.809,727.809,51,23,3,0) field (#4) in the UNIT DOSE LOCAL EXTRACT file (#727.809), a call is made "^DD",727.809,727.809,51,23,4,0) to the Scheduling API, OUTPTPR^SDUTL3. The API returns the provider's "^DD",727.809,727.809,51,23,5,0) internal entry number and name from the NEW PERSON file (#200). "^DD",727.809,727.809,51,23,6,0) "^DD",727.809,727.809,51,23,7,0) A "2" is prefixed to the pointer value to indicate that the source file is "^DD",727.809,727.809,51,23,8,0) "200". For example, if the IEN of the provider in file #200 is 98765, the "^DD",727.809,727.809,51,23,9,0) value that will be stored is 298765. "^DD",727.809,727.809,51,"DT") 3020611 "^DD",727.809,727.809,53,0) PC PROVIDER PERSON CLASS^F^^1;32^K:$L(X)>7!($L(X)<7) X "^DD",727.809,727.809,53,.1) PC Provider Person Class "^DD",727.809,727.809,53,3) Answer must be 7 characters in length. "^DD",727.809,727.809,53,21,0) ^.001^1^1^3120531^^^ "^DD",727.809,727.809,53,21,1,0) The VA code of the Person Class of the Primary Care Provider. "^DD",727.809,727.809,53,23,0) ^.001^4^4^3120531^^ "^DD",727.809,727.809,53,23,1,0) Active Person Class is determined by the supported call "^DD",727.809,727.809,53,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.809,727.809,53,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.809,727.809,53,23,4,0) returned value string. "^DD",727.809,727.809,53,"DT") 3020611 "^DD",727.809,727.809,54,0) ASSOCIATE PC PROVIDER^F^^1;33^K:$L(X)>11!($L(X)<2) X "^DD",727.809,727.809,54,.1) Associate PC Provider "^DD",727.809,727.809,54,3) Answer must be 2-11 characters in length. "^DD",727.809,727.809,54,21,0) ^.001^2^2^3120531^^^ "^DD",727.809,727.809,54,21,1,0) The associate primary care provider assigned to this patient through the "^DD",727.809,727.809,54,21,2,0) PCMM module. "^DD",727.809,727.809,54,23,0) ^.001^9^9^3120531^^ "^DD",727.809,727.809,54,23,1,0) Using the DATE field (#2) from the UNIT DOSE EXTRACT DATA file "^DD",727.809,727.809,54,23,2,0) (728.904) and the patient pointer (DFN) stored in the PATIENT NO. - DFN "^DD",727.809,727.809,54,23,3,0) field (#4) in the UNIT DOSE LOCAL EXTRACT file (#727.809), a call is made "^DD",727.809,727.809,54,23,4,0) to the Scheduling API, OUTPTPR^SDUTL3. The API returns the Associate PC "^DD",727.809,727.809,54,23,5,0) Provider's internal entry number and name from the NEW PERSON file (#200). "^DD",727.809,727.809,54,23,6,0) "^DD",727.809,727.809,54,23,7,0) A "2" is prefixed to the pointer value to indicate that the source file is "^DD",727.809,727.809,54,23,8,0) "200". For example, if the IEN of the provider in file #200 is 98765, the "^DD",727.809,727.809,54,23,9,0) value that will be stored is 298765. "^DD",727.809,727.809,54,"DT") 3020611 "^DD",727.809,727.809,56,0) ASSOC. PC PROV. PERSON CLASS ^F^^1;35^K:$L(X)>7!($L(X)<7) X "^DD",727.809,727.809,56,.1) Associate PC Provider Person Class "^DD",727.809,727.809,56,3) Answer must be 7 characters in length. "^DD",727.809,727.809,56,21,0) ^.001^2^2^3120531^^ "^DD",727.809,727.809,56,21,1,0) The VA code of the Person Class of the Associate Primary Care Provider as "^DD",727.809,727.809,56,21,2,0) of the date of this extract record. "^DD",727.809,727.809,56,23,0) ^^4^4^3120531^ "^DD",727.809,727.809,56,23,1,0) Active Person Class is determined by the supported call "^DD",727.809,727.809,56,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.809,727.809,56,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.809,727.809,56,23,4,0) returned value string. "^DD",727.809,727.809,56,"DT") 3020611 "^DD",727.809,727.809,57,0) ORDERING DATE^F^^2;1^K:$L(X)>8!($L(X)<8) X "^DD",727.809,727.809,57,.1) Ordering Date "^DD",727.809,727.809,57,3) Answer must be 8 characters in length. "^DD",727.809,727.809,57,21,0) ^.001^1^1^3120531^^ "^DD",727.809,727.809,57,21,1,0) The date the order was first dispensed. "^DD",727.809,727.809,57,23,0) ^^3^3^3120531^ "^DD",727.809,727.809,57,23,1,0) UNIT DOSE EXTRACT DATA file (#728.904); ORDER DATE field (#9). ORDER DATE "^DD",727.809,727.809,57,23,2,0) is the START DATE/TIME field (#10) of the UNIT DOSE multiple (#55.06) "^DD",727.809,727.809,57,23,3,0) of the PHARMACY PATIENT file (#55). The format is YYYYMMDD. "^DD",727.809,727.809,57,"DT") 3020611 "^DD",727.809,727.809,58,0) ORDERING STOP CODE^F^^2;2^K:$L(X)>3!($L(X)<3) X "^DD",727.809,727.809,58,3) Answer must be 3 characters in length. "^DD",727.809,727.809,58,21,0) ^.001^1^1^3120604^^^^ "^DD",727.809,727.809,58,21,1,0) This field contains the stop code associated with the order. "^DD",727.809,727.809,58,23,0) ^^19^19^3120604^ "^DD",727.809,727.809,58,23,1,0) For outpatients the stop code is the primary stop code for the clinic "^DD",727.809,727.809,58,23,2,0) as determined by the AMIS REPORTING STOP CODE field (#1) of the CLINIC "^DD",727.809,727.809,58,23,3,0) STOP file (#40.7) as pointed to by the STOP CODE NUMBER field "^DD",727.809,727.809,58,23,4,0) (#8) of the HOSPITAL LOCATION file (#44) as pointed to by the CLINIC "^DD",727.809,727.809,58,23,5,0) FIELD (#130) of the UNIT DOSE multiple (#62) of the PHARMACY PATIENT file "^DD",727.809,727.809,58,23,6,0) (#55). If none exists, the value is set to null. "^DD",727.809,727.809,58,23,7,0) "^DD",727.809,727.809,58,23,8,0) For observation patients the stop code is translated using the following "^DD",727.809,727.809,58,23,9,0) table. "^DD",727.809,727.809,58,23,10,0) "^DD",727.809,727.809,58,23,11,0) Treating Specialty Observation Stop Code "^DD",727.809,727.809,58,23,12,0) 18 293 "^DD",727.809,727.809,58,23,13,0) 23 295 "^DD",727.809,727.809,58,23,14,0) 24 290 "^DD",727.809,727.809,58,23,15,0) 36 296 "^DD",727.809,727.809,58,23,16,0) 41 294 "^DD",727.809,727.809,58,23,17,0) 65 291 "^DD",727.809,727.809,58,23,18,0) 94 292 "^DD",727.809,727.809,58,23,19,0) 1J 297 "^DD",727.809,727.809,58,"DT") 3020611 "^DD",727.809,727.809,59,0) HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^2;3^Q "^DD",727.809,727.809,59,.1) Head and Neck Cancer Indicator "^DD",727.809,727.809,59,3) Enter the Head & Neck Cancer Indicator for the patient. "^DD",727.809,727.809,59,21,0) ^.001^1^1^3120531^^ "^DD",727.809,727.809,59,21,1,0) Identifies whether patient has head and/or neck cancer. "^DD",727.809,727.809,59,23,0) ^^3^3^3120531^ "^DD",727.809,727.809,59,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.809,727.809,59,23,2,0) (#4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "^DD",727.809,727.809,59,23,3,0) CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11). "^DD",727.809,727.809,59,"DT") 3020829 "^DD",727.809,727.809,61,0) RACE 1^F^^2;5^K:$L(X)>6!($L(X)<1) X "^DD",727.809,727.809,61,.1) Race 1 "^DD",727.809,727.809,61,3) Answer must be 1-6 characters in length. "^DD",727.809,727.809,61,21,0) ^.001^1^1^3120601^^^ "^DD",727.809,727.809,61,21,1,0) Self-reported by patient as recorded in VistA patient file. "^DD",727.809,727.809,61,23,0) ^.001^10^10^3120601^^ "^DD",727.809,727.809,61,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.809,727.809,61,23,2,0) (#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file "^DD",727.809,727.809,61,23,3,0) (#10) pointed to by the RACE INFORMATION field (#.01) of the RACE "^DD",727.809,727.809,61,23,4,0) INFORMATION subfile (#2.02) of the PATIENT file (#2). "^DD",727.809,727.809,61,23,5,0) "^DD",727.809,727.809,61,23,6,0) Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03) "^DD",727.809,727.809,61,23,7,0) where the METHOD OF COLLECTION field (#.02) is set to 1 "^DD",727.809,727.809,61,23,8,0) (SELF-IDENTIFICATION), will be included in the RACE 1 field. If any of "^DD",727.809,727.809,61,23,9,0) the RACE INFORMATION values returned is "C" (DECLINED TO ANSWER), that "^DD",727.809,727.809,61,23,10,0) will be the only value included in the RACE1 field. "^DD",727.809,727.809,61,"DT") 3020829 "^DD",727.809,727.809,62,0) BCMA DRUG DISPENSED^P50'^PSDRUG(^2;6^Q "^DD",727.809,727.809,62,.1) BCMA Drug Dispensed "^DD",727.809,727.809,62,3) Enter the drug dispensed via BCMA. "^DD",727.809,727.809,62,21,0) ^.001^1^1^3120601^^ "^DD",727.809,727.809,62,21,1,0) Contains the actual medication scanned for this entry. "^DD",727.809,727.809,62,23,0) ^.001^6^6^3120601^^ "^DD",727.809,727.809,62,23,1,0) BCMA DRUG DISPENSED field is a pointer to the DRUG file (#50). BCMA DRUG "^DD",727.809,727.809,62,23,2,0) DISPENSED field is derived from the DISPENSED DRUG field (#.01) of the "^DD",727.809,727.809,62,23,3,0) DISPENSED DRUG multiple (#53.795) of the BCMA MEDICATION LOG file "^DD",727.809,727.809,62,23,4,0) (#53.79). "^DD",727.809,727.809,62,23,5,0) "^DD",727.809,727.809,62,23,6,0) Currently, this field is NULL. "^DD",727.809,727.809,62,"DT") 3030624 "^DD",727.809,727.809,63,0) BCMA DOSE GIVEN^NJ5,2^^2;7^K:+X'=X!(X>50)!(X<0)!(X?.E1"."3N.N) X "^DD",727.809,727.809,63,.1) BCMA Dose Given "^DD",727.809,727.809,63,3) Type a Number between 0 and 50, 2 Decimal Digits. "^DD",727.809,727.809,63,21,0) ^.001^1^1^3120601^^^^ "^DD",727.809,727.809,63,21,1,0) Actual number of units given. "^DD",727.809,727.809,63,23,0) ^.001^5^5^3120601^^ "^DD",727.809,727.809,63,23,1,0) BCMA DOSE GIVEN field is derived from the DOSE GIVEN field (#.03) of the "^DD",727.809,727.809,63,23,2,0) DISPENSED DRUG multiple (#53.795) of the BCMA MEDICATION LOG file "^DD",727.809,727.809,63,23,3,0) (#53.79). "^DD",727.809,727.809,63,23,4,0) "^DD",727.809,727.809,63,23,5,0) Currently, this field is NULL. "^DD",727.809,727.809,63,"DT") 3030624 "^DD",727.809,727.809,64,0) BCMA UNIT OF ADMINISTRATION^F^^2;8^K:$L(X)>40!($L(X)<1) X "^DD",727.809,727.809,64,.1) BCMA Unit of Administration "^DD",727.809,727.809,64,3) Answer must be 1-40 characters in length. "^DD",727.809,727.809,64,21,0) ^.001^1^1^3120601^^^^ "^DD",727.809,727.809,64,21,1,0) Unit of administration (i.e. TABLET, ML, VIAL). "^DD",727.809,727.809,64,23,0) ^^5^5^3120601^ "^DD",727.809,727.809,64,23,1,0) BCMA UNIT OF ADMINISTRATION field is derived from the UNIT OF ADMINSTRATION "^DD",727.809,727.809,64,23,2,0) field (#.04) of the DISPENSED DRUG multiple (#53.795) of the BCMA "^DD",727.809,727.809,64,23,3,0) MEDICATION LOG file (#53.79). "^DD",727.809,727.809,64,23,4,0) "^DD",727.809,727.809,64,23,5,0) Currently, this field is NULL. "^DD",727.809,727.809,64,"DT") 3030624 "^DD",727.809,727.809,65,0) BCMA ICU FLAG^F^^2;9^K:$L(X)>1!($L(X)<1) X "^DD",727.809,727.809,65,.1) BCMA ICU Flag "^DD",727.809,727.809,65,3) Answer must be 1 character in length. "^DD",727.809,727.809,65,21,0) ^.001^1^1^3120601^^^ "^DD",727.809,727.809,65,21,1,0) Enter the ICU flag. "^DD",727.809,727.809,65,23,0) ^^1^1^3120601^ "^DD",727.809,727.809,65,23,1,0) Currently, this field is NULL. "^DD",727.809,727.809,65,"DT") 3030624 "^DD",727.809,727.809,67,0) DSS IP #^NJ7,0^^2;11^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X "^DD",727.809,727.809,67,3) Type a Number between 1 and 9999999, 0 Decimal Digits. "^DD",727.809,727.809,67,21,0) ^.001^2^2^3120601^^^ "^DD",727.809,727.809,67,21,1,0) The nationally defined DSS Intermediate Product Number designated to the "^DD",727.809,727.809,67,21,2,0) patient care product. "^DD",727.809,727.809,67,23,0) ^^1^1^3120601^ "^DD",727.809,727.809,67,23,1,0) For the Unit Dose Local extract, the DSS IP# field is null. "^DD",727.809,727.809,67,"DT") 3031113 "^DD",727.809,727.809,68,0) ENROLLMENT PRIORITY^F^^2;12^K:$L(X)>2!($L(X)<1) X "^DD",727.809,727.809,68,3) Answer must be 1-2 characters in length. "^DD",727.809,727.809,68,21,0) ^.001^2^2^3120601^^ "^DD",727.809,727.809,68,21,1,0) This field contains the enrollment priority group and the enrollment "^DD",727.809,727.809,68,21,2,0) priority subgroup. "^DD",727.809,727.809,68,23,0) ^^23^23^3120601^ "^DD",727.809,727.809,68,23,1,0) ENROLLMENT PRIORITY field contains the enrollment priority group and the "^DD",727.809,727.809,68,23,2,0) enrollment priority subgroup from the Patient Enrollment File #27.11. "^DD",727.809,727.809,68,23,3,0) "^DD",727.809,727.809,68,23,4,0) ENROLLMENT PRIORITY Groups determined for a patient enrollment include: "^DD",727.809,727.809,68,23,5,0) "^DD",727.809,727.809,68,23,6,0) '1' FOR GROUP 1 "^DD",727.809,727.809,68,23,7,0) '2' FOR GROUP 2 "^DD",727.809,727.809,68,23,8,0) '3' FOR GROUP 3 "^DD",727.809,727.809,68,23,9,0) '4' FOR GROUP 4 "^DD",727.809,727.809,68,23,10,0) '5' FOR GROUP 5 "^DD",727.809,727.809,68,23,11,0) '6' FOR GROUP 6 "^DD",727.809,727.809,68,23,12,0) '7' FOR GROUP 7 "^DD",727.809,727.809,68,23,13,0) '8' FOR GROUP 8 "^DD",727.809,727.809,68,23,14,0) "^DD",727.809,727.809,68,23,15,0) ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include: "^DD",727.809,727.809,68,23,16,0) "^DD",727.809,727.809,68,23,17,0) 'a' FOR 1 "^DD",727.809,727.809,68,23,18,0) 'c' FOR 3 "^DD",727.809,727.809,68,23,19,0) 'e' FOR 5 "^DD",727.809,727.809,68,23,20,0) 'g' FOR 7 "^DD",727.809,727.809,68,23,21,0) "^DD",727.809,727.809,68,23,22,0) Data is obtained from a call to $$ENRSBGRP^DGENA4(DFN) using the patient's "^DD",727.809,727.809,68,23,23,0) DFN. "^DD",727.809,727.809,68,"DT") 3040301 "^DD",727.809,727.809,69,0) USER ENROLLEE^S^U:USER ENROLLED;^2;13^Q "^DD",727.809,727.809,69,3) Enter patient's current enrollment status. "^DD",727.809,727.809,69,21,0) ^.001^2^2^3120601^^^ "^DD",727.809,727.809,69,21,1,0) Indicates whether a Veteran has User Enrollee status for the current or "^DD",727.809,727.809,69,21,2,0) future fiscal year. "^DD",727.809,727.809,69,23,0) ^.001^5^5^3120601^^ "^DD",727.809,727.809,69,23,1,0) User enrollee is determined by checking the Patient Enrollment (#27.11) "^DD",727.809,727.809,69,23,2,0) file. When a user has a current or future fiscal year in the VistA User "^DD",727.809,727.809,69,23,3,0) Enrollee Status (#.04) field the value is set to 'U' and Null if no date "^DD",727.809,727.809,69,23,4,0) or a past year's value is contained. Determined by the use of an API: "^DD",727.809,727.809,69,23,5,0) $$UESTAT^EASUSER where the Patient Identifier (DFN) is passed in. "^DD",727.809,727.809,69,"DT") 3120601 "^DD",727.809,727.809,70,0) PATIENT TYPE^S^AC:ACTIVE DUTY;AL:ALLIED VETERAN;CO:COLLATERAL;EM:EMPLOYEE;IN:INELIGIBLE;MI:MILITARY RETIREE;NO:NON-VETERAN (OTHER);NS:NSC VETERAN;SC:SC VETERAN;TR:TRICARE;^2;14^Q "^DD",727.809,727.809,70,3) Enter type of patient. "^DD",727.809,727.809,70,21,0) ^^2^2^3120601^ "^DD",727.809,727.809,70,21,1,0) Refers to the various types of patient which may be seen at a VA "^DD",727.809,727.809,70,21,2,0) facility. Every patient in the system must have a TYPE specified. "^DD",727.809,727.809,70,23,0) ^^5^5^3120601^ "^DD",727.809,727.809,70,23,1,0) PATIENT TYPE is derived from a call to TYPE^ECXUTL5(DFN). Using the "^DD",727.809,727.809,70,23,2,0) patient's DFN, the NAME field (#.01) of the TYPE OF PATIENT file "^DD",727.809,727.809,70,23,3,0) (#391) as pointed to by the TYPE field (#391) of the PATIENT file (#2) is "^DD",727.809,727.809,70,23,4,0) shortened to the first two characters to determine the value stored in "^DD",727.809,727.809,70,23,5,0) the PATIENT TYPE field (#70). "^DD",727.809,727.809,70,"DT") 3120601 "^DD",727.809,727.809,71,0) CV STATUS ELIGIBILITY^S^Y:YES;E:ELIGIBILITY EXPIRED;^2;15^Q "^DD",727.809,727.809,71,3) Enter patient's combat veteran eligibility. "^DD",727.809,727.809,71,21,0) ^^3^3^3120601^ "^DD",727.809,727.809,71,21,1,0) Records if veteran served on active duty in a theater of combat operations "^DD",727.809,727.809,71,21,2,0) during a period of war after the Persian Gulf War or in combat against a "^DD",727.809,727.809,71,21,3,0) hostile force during a period of hostilities after November 11, 1998. "^DD",727.809,727.809,71,23,0) ^^11^11^3120601^ "^DD",727.809,727.809,71,23,1,0) CV STATUS ELIGIBILITY is determined by the use of API "^DD",727.809,727.809,71,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.809,727.809,71,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.809,727.809,71,23,4,0) pieces (i.e. 1^20010106^0) and the first piece is resolved as follows. "^DD",727.809,727.809,71,23,5,0) "^DD",727.809,727.809,71,23,6,0) 1 - veteran qualifies as a CV "^DD",727.809,727.809,71,23,7,0) 0 - veteran does not qualify as a CV "^DD",727.809,727.809,71,23,8,0) -1 - bad DFN "^DD",727.809,727.809,71,23,9,0) "^DD",727.809,727.809,71,23,10,0) Based on this result the field will be set to 'Y' for 'YES' or 'E' for "^DD",727.809,727.809,71,23,11,0) 'ELIGIBILITY EXPIRED' or 'NULL' for not eligible. "^DD",727.809,727.809,71,"DT") 3120601 "^DD",727.809,727.809,72,0) CV ELIGIBILITY END DATE^F^^2;16^K:$L(X)>8!($L(X)<8) X "^DD",727.809,727.809,72,3) Answer must be 8 characters in length. "^DD",727.809,727.809,72,21,0) ^^4^4^3120601^ "^DD",727.809,727.809,72,21,1,0) Records the Combat Veteran eligibility expiration date of the veteran who "^DD",727.809,727.809,72,21,2,0) served on active duty in a theater of combat operations during a period of "^DD",727.809,727.809,72,21,3,0) war after the Persian Gulf War or in combat against a hostile force during "^DD",727.809,727.809,72,21,4,0) a period of hostilities after November 11, 1998 "^DD",727.809,727.809,72,23,0) ^^5^5^3120601^ "^DD",727.809,727.809,72,23,1,0) CV ELIGIBILITY END DATE is determined by the use of API "^DD",727.809,727.809,72,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.809,727.809,72,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.809,727.809,72,23,4,0) pieces (i.e. 1^20010106^0) the 2nd piece is the COMBAT VET END DATE in HL7 "^DD",727.809,727.809,72,23,5,0) format. "^DD",727.809,727.809,72,"DT") 3120601 "^DD",727.809,727.809,73,0) ENCOUNTER CV^S^Y:YES;^2;17^Q "^DD",727.809,727.809,73,3) Enter patient's combat veteran eligibility. "^DD",727.809,727.809,73,21,0) ^^4^4^3120601^ "^DD",727.809,727.809,73,21,1,0) Records if a veteran served on active duty in a theater of combat "^DD",727.809,727.809,73,21,2,0) operations during a period of war after the Persian Gulf War or in combat "^DD",727.809,727.809,73,21,3,0) against a hostile force during a period of hostilities after November 11, "^DD",727.809,727.809,73,21,4,0) 1998. "^DD",727.809,727.809,73,23,0) ^^10^10^3120601^ "^DD",727.809,727.809,73,23,1,0) ENCOUNTER CV is determined by the use of API $$CVEDT^DGCV(DFN,DATE) that "^DD",727.809,727.809,73,23,2,0) checks the COMBAT VET END DATE field (#.5295) from the PATIENT file #(2) "^DD",727.809,727.809,73,23,3,0) to determine CV Status. API returns three pieces (i.e. 1^20100106^0). The "^DD",727.809,727.809,73,23,4,0) third piece returns: "^DD",727.809,727.809,73,23,5,0) "^DD",727.809,727.809,73,23,6,0) 1 - vet was eligible on date specified "^DD",727.809,727.809,73,23,7,0) 0 - vet was not eligible on date specified "^DD",727.809,727.809,73,23,8,0) "^DD",727.809,727.809,73,23,9,0) Based on these returns, the value for this field shall be Y for Yes if "^DD",727.809,727.809,73,23,10,0) value is 1 or left blank if 0 to indicate ineligibility. "^DD",727.809,727.809,73,"DT") 3120601 "^DD",727.809,727.809,74,0) NATIONAL PATIENT RECORD FLAG^S^Y:YES;^2;18^Q "^DD",727.809,727.809,74,3) Indicate if patient is associated with a category 1 patient record flag. "^DD",727.809,727.809,74,21,0) ^^2^2^3120601^ "^DD",727.809,727.809,74,21,1,0) This field records whether the patient's record contains 1 or more active "^DD",727.809,727.809,74,21,2,0) category 1 (National) Patient Record Flags. "^DD",727.809,727.809,74,23,0) ^^7^7^3120601^ "^DD",727.809,727.809,74,23,1,0) The NATIONAL PATIENT RECORD FLAG field is set based on the results of the "^DD",727.809,727.809,74,23,2,0) $$GETACT^DGPFAPI(DFN,TARGET ARRAY) call. This call looks at the category "^DD",727.809,727.809,74,23,3,0) 1 national patient record flags as recorded in the PRF NATIONAL FLAG file "^DD",727.809,727.809,74,23,4,0) (#26.15). The resulting value of this call is the number of active "^DD",727.809,727.809,74,23,5,0) category I patient record flags assigned to this patient. This field is "^DD",727.809,727.809,74,23,6,0) set to Y (YES) if the result is greater than zero. A value of zero causes "^DD",727.809,727.809,74,23,7,0) this field to be left null. "^DD",727.809,727.809,74,"DT") 3120601 "^DD",727.809,727.809,82,0) COUNTRY CODE^F^^2;26^K:$L(X)>3!($L(X)<1) X "^DD",727.809,727.809,82,3) The code for the country. Answer must be 1-3 characters in length. "^DD",727.809,727.809,82,21,0) ^.001^1^1^3120601^^ "^DD",727.809,727.809,82,21,1,0) The code for the country associated with the address. "^DD",727.809,727.809,82,23,0) ^^2^2^3120601^ "^DD",727.809,727.809,82,23,1,0) The three-character alpha identifying code is copied from the CODE (#.01) "^DD",727.809,727.809,82,23,2,0) field of the COUNTRY (#779.004) file. "^DD",727.809,727.809,82,"DT") 3090609 "^DD",727.81,727.81,3,0) FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X "^DD",727.81,727.81,3,.1) Facility "^DD",727.81,727.81,3,3) Enter the station number where this extract was performed. "^DD",727.81,727.81,3,21,0) ^.001^1^1^3120604^^^^ "^DD",727.81,727.81,3,21,1,0) This is the facility/division where the extract was performed. "^DD",727.81,727.81,3,23,0) ^^4^4^3120604^ "^DD",727.81,727.81,3,23,1,0) An indicator of the division where this event happened. Using the NAME "^DD",727.81,727.81,3,23,2,0) field (#.01) pointer from the DSS EXTRACTS file (#728), FACILITY is "^DD",727.81,727.81,3,23,3,0) derived from the STATION NUMBER field (#99) for that pointer number in "^DD",727.81,727.81,3,23,4,0) the INSTITUTION file (#4). "^DD",727.81,727.81,3,"DT") 2961015 "^DD",727.81,727.81,5,0) SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X "^DD",727.81,727.81,5,.1) Social Security Number "^DD",727.81,727.81,5,3) Your answer must be 9 to 10 characters in length. "^DD",727.81,727.81,5,21,0) ^.001^1^1^3120604^^ "^DD",727.81,727.81,5,21,1,0) The patient's social security number. "^DD",727.81,727.81,5,23,0) ^^6^6^3120604^ "^DD",727.81,727.81,5,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.81,727.81,5,23,2,0) in the PRESCRIPTION EXTRACT file (#727.81), SSN data is derived from the "^DD",727.81,727.81,5,23,3,0) SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2). "^DD",727.81,727.81,5,23,4,0) "^DD",727.81,727.81,5,23,5,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with "^DD",727.81,727.81,5,23,6,0) an SSN beginning with "00000" will not be included in the extract. "^DD",727.81,727.81,5,"DT") 2960918 "^DD",727.81,727.81,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.81,727.81,6,.1) Name "^DD",727.81,727.81,6,3) Your answer must be 4 characters in length. "^DD",727.81,727.81,6,21,0) ^.001^1^1^3120604^^^^ "^DD",727.81,727.81,6,21,1,0) The first four characters of the patient's last name. "^DD",727.81,727.81,6,23,0) ^^6^6^3120604^ "^DD",727.81,727.81,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.81,727.81,6,23,2,0) in the PRESCRIPTION EXTRACT file (#727.81), NAME data is derived from the "^DD",727.81,727.81,6,23,3,0) NAME field (#.01) in the PATIENT file (#2). The first four characters of "^DD",727.81,727.81,6,23,4,0) the first "," piece are used, padded with trailing spaces if necessary. "^DD",727.81,727.81,6,23,5,0) "^DD",727.81,727.81,6,23,6,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.81,727.81,6,"DT") 2960918 "^DD",727.81,727.81,7,0) IN OUT PATIENT INDICATOR^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q "^DD",727.81,727.81,7,.1) In Out Patient Indicator "^DD",727.81,727.81,7,3) Enter the patient's status for this extract entry. "^DD",727.81,727.81,7,21,0) ^.001^2^2^3120604^^^^ "^DD",727.81,727.81,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for "^DD",727.81,727.81,7,21,2,0) this extract entry. "^DD",727.81,727.81,7,23,0) ^^14^14^3120604^ "^DD",727.81,727.81,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.81,727.81,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.81,727.81,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.81,727.81,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.81,727.81,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.81,727.81,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.81,727.81,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.81,727.81,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.81,727.81,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.81,727.81,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.81,727.81,7,23,11,0) "^DD",727.81,727.81,7,23,12,0) During the Prescription Extract, if the prescription indicates that the "^DD",727.81,727.81,7,23,13,0) medication is to be mailed to the patient, the IN/OUT PATIENT INDICATOR is "^DD",727.81,727.81,7,23,14,0) returned with an "O" OUTPATIENT value. "^DD",727.81,727.81,7,"DT") 3120604 "^DD",727.81,727.81,10,0) PROVIDER^F^^0;11^K:$L(X)>11!($L(X)<1) X "^DD",727.81,727.81,10,.1) Provider "^DD",727.81,727.81,10,3) Enter provider for this record. "^DD",727.81,727.81,10,21,0) ^.001^2^2^3120613^^^ "^DD",727.81,727.81,10,21,1,0) The provider who wrote the new, refill, or partial refill prescription "^DD",727.81,727.81,10,21,2,0) for this patient. "^DD",727.81,727.81,10,23,0) ^.001^10^10^3120613^^^ "^DD",727.81,727.81,10,23,1,0) Derived from the PROVIDER field (#4) in the PRESCRIPTION file (#52) "^DD",727.81,727.81,10,23,2,0) for new prescriptions, or from the PROVIDER field (#15) within the REFILL "^DD",727.81,727.81,10,23,3,0) multiple (#52) in the PRESCRIPTION file (#52) for refill prescriptions, "^DD",727.81,727.81,10,23,4,0) or from the PROVIDER field (#6) within the PARTIAL DATE multiple (#60) in "^DD",727.81,727.81,10,23,5,0) the PRESCRIPTION file (#52) for partial prescriptions. "^DD",727.81,727.81,10,23,6,0) "^DD",727.81,727.81,10,23,7,0) PROVIDER is the value of a "2" prefixed to the pointer value from the "^DD",727.81,727.81,10,23,8,0) NEW PERSON file (#200) to indicate that the source file is "200". For "^DD",727.81,727.81,10,23,9,0) example, if the IEN of the provider in file #200 is 98765, the value that "^DD",727.81,727.81,10,23,10,0) will be stored is 298765. "^DD",727.81,727.81,10,"DT") 2961015 "^DD",727.81,727.81,12,0) MAIL^S^1:MAIL;2:CMOP;^0;13^Q "^DD",727.81,727.81,12,.1) Mail "^DD",727.81,727.81,12,3) Enter prescription mailing method. "^DD",727.81,727.81,12,21,0) ^.001^1^1^3120604^^^^ "^DD",727.81,727.81,12,21,1,0) Identifies if prescription was mailed. "^DD",727.81,727.81,12,23,0) ^^9^9^3120604^ "^DD",727.81,727.81,12,23,1,0) Derived from the MAIL/WINDOW field (#11) in the PRESCRIPTION file "^DD",727.81,727.81,12,23,2,0) (#52) for new prescriptions, or from the MAIL/WINDOW field (#2) within "^DD",727.81,727.81,12,23,3,0) the REFILL multiple (#52) in the PRESCRIPTION file (#52) for refill "^DD",727.81,727.81,12,23,4,0) prescriptions, or from the MAIL/WINDOW field (#.02) within the PARTIAL "^DD",727.81,727.81,12,23,5,0) DATE multiple (#60) in the PRESCRIPTION file (#52) for partial "^DD",727.81,727.81,12,23,6,0) prescriptions. "^DD",727.81,727.81,12,23,7,0) "^DD",727.81,727.81,12,23,8,0) MAIL will then be determined to be picked up at window (NULL) or mailed "^DD",727.81,727.81,12,23,9,0) to patient (1 = by mail, 2 = by CMOP). "^DD",727.81,727.81,12,"DT") 3120604 "^DD",727.81,727.81,15,0) SHAD STATUS^S^Y:YES;N:NO;U:UNKNOWN;^0;16^Q "^DD",727.81,727.81,15,.1) "^DD",727.81,727.81,15,3) Enter SHAD Status. "^DD",727.81,727.81,15,21,0) ^.001^2^2^3120604^^ "^DD",727.81,727.81,15,21,1,0) Indicates whether patient meets requirements for Shipboard Hazard and "^DD",727.81,727.81,15,21,2,0) Defense (SHAD). "^DD",727.81,727.81,15,23,0) ^^3^3^3120604^ "^DD",727.81,727.81,15,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.81,727.81,15,23,2,0) in the PRESCRIPTION EXTRACT file (#727.81), Shipboard Hazard and Defense "^DD",727.81,727.81,15,23,3,0) data is derived from using DBIA #4462 GETSHAD^DGUTL3(DFN). "^DD",727.81,727.81,15,"DT") 3100212 "^DD",727.81,727.81,16,0) QUANTITY^NJ11,2a^^0;17^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."3N.N) X "^DD",727.81,727.81,16,.1) Quantity "^DD",727.81,727.81,16,3) Type a number between 0 and 99999999, 2 decimal digits. "^DD",727.81,727.81,16,21,0) ^.001^2^2^3120604^^^^ "^DD",727.81,727.81,16,21,1,0) Drug quantity dispensed in the unit of issue for that drug. Unit of "^DD",727.81,727.81,16,21,2,0) issue may vary from product to product and site to site. "^DD",727.81,727.81,16,23,0) ^.001^5^5^3120604^^^ "^DD",727.81,727.81,16,23,1,0) Derived from the QTY field (#7) in the PRESCRIPTION file (#52) for new "^DD",727.81,727.81,16,23,2,0) prescriptions, or from the QTY field (#1) within the REFILL multiple (#52) "^DD",727.81,727.81,16,23,3,0) in the PRESCRIPTION file (#52) for refill prescriptions, or from the QTY "^DD",727.81,727.81,16,23,4,0) field (#.04) within the PARTIAL DATE multiple (#60) in the PRESCRIPTION "^DD",727.81,727.81,16,23,5,0) file (#52) for partial prescriptions. "^DD",727.81,727.81,16,"AUDIT") e "^DD",727.81,727.81,16,"DT") 3120627 "^DD",727.81,727.81,17,0) COST^NJ8,2^^0;18^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>10000)!(X<0) X "^DD",727.81,727.81,17,.1) Cost "^DD",727.81,727.81,17,3) Enter a dollar amount between 0 and 10000, 2 decimal digits. "^DD",727.81,727.81,17,21,0) ^.001^1^1^3120604^^ "^DD",727.81,727.81,17,21,1,0) VA pharmacy supply cost of drug dispensed. "^DD",727.81,727.81,17,23,0) ^^14^14^3120604^ "^DD",727.81,727.81,17,23,1,0) Cost is calculated as quantity * price. "^DD",727.81,727.81,17,23,2,0) "^DD",727.81,727.81,17,23,3,0) Quantity is derived from the QTY field (#7) in the PRESCRIPTION file "^DD",727.81,727.81,17,23,4,0) (#52) for new prescriptions, or from the QTY field (#1) within the REFILL "^DD",727.81,727.81,17,23,5,0) multiple (#52) in the PRESCRIPTION file (#52) for refill prescriptions, "^DD",727.81,727.81,17,23,6,0) or from the QTY field (#.04) within the PARTIAL DATE multiple (#60) in the "^DD",727.81,727.81,17,23,7,0) PRESCRIPTION file (#52) for partial prescriptions. "^DD",727.81,727.81,17,23,8,0) "^DD",727.81,727.81,17,23,9,0) Price is derived from the UNIT PRICE OF DRUG is field (#17) in the "^DD",727.81,727.81,17,23,10,0) PRESCRIPTION file (#52) for new prescriptions, or from the CURRENT UNIT "^DD",727.81,727.81,17,23,11,0) PRICE OF DRUG field (#1.2) within the REFILL multiple (#52) in the "^DD",727.81,727.81,17,23,12,0) PRESCRIPTION file (#52) for refill prescriptions, or from the CURRENT "^DD",727.81,727.81,17,23,13,0) UNIT PRICE OF DRUG field (#.042) within the PARTIAL DATE multiple (#60) in "^DD",727.81,727.81,17,23,14,0) the PRESCRIPTION file (#52) for partial prescriptions. "^DD",727.81,727.81,17,"DT") 2960918 "^DD",727.81,727.81,18,0) ENCOUNTER SHAD^S^Y:YES;N:NO;^0;19^Q "^DD",727.81,727.81,18,.1) "^DD",727.81,727.81,18,3) Encounter related to treatment for PROJ 112/SHAD condition. "^DD",727.81,727.81,18,21,0) ^.001^2^2^3120604^^^^ "^DD",727.81,727.81,18,21,1,0) Indicates if treatment provided during the patient's encounter is related "^DD",727.81,727.81,18,21,2,0) to the Shipboard Hazard And Defense (SHAD) condition. "^DD",727.81,727.81,18,23,0) ^.001^6^6^3120604^^^^ "^DD",727.81,727.81,18,23,1,0) Using the VISIT FILE ENTRY field (#.27) in the PATIENT MOVEMENT file "^DD",727.81,727.81,18,23,2,0) (#405) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.81,727.81,18,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the Shipboard Hazard and "^DD",727.81,727.81,18,23,4,0) Defense conditions indicator stored at the PROJ 112/SHAD field (#80008) in "^DD",727.81,727.81,18,23,5,0) the VISIT file (#9000010). The value will be stored in the output array "^DD",727.81,727.81,18,23,6,0) subscripted by "SHAD". "^DD",727.81,727.81,18,"DT") 3100216 "^DD",727.81,727.81,20,0) TREATING SPECIALTY^F^^0;21^K:$L(X)>2!($L(X)<1) X "^DD",727.81,727.81,20,.1) Treating Specialty "^DD",727.81,727.81,20,3) Answer must be 1-2 characters in length. "^DD",727.81,727.81,20,21,0) ^.001^2^2^3120604^^^ "^DD",727.81,727.81,20,21,1,0) The treating specialty PTF CODE assigned to this patient when the "^DD",727.81,727.81,20,21,2,0) prescription was issued, if the patient was an inpatient at that time. "^DD",727.81,727.81,20,23,0) ^.001^7^7^3120604^^ "^DD",727.81,727.81,20,23,1,0) This field is initialized to a null, indicating an outpatient status. If "^DD",727.81,727.81,20,23,2,0) a call to IN5^VADPT (using the patient IEN and the event date) returns a "^DD",727.81,727.81,20,23,3,0) patient movement number (indicating inpatient status), then the value of "^DD",727.81,727.81,20,23,4,0) VAIP(8), which is the pointer to the FACILITY TREATING SPECIALTY file "^DD",727.81,727.81,20,23,5,0) (#45.7), is used to get the SPECIALTY field (#1) which points to the "^DD",727.81,727.81,20,23,6,0) SPECIALTY file (#42.4). Then, the PTF Code field (#7) of the "^DD",727.81,727.81,20,23,7,0) SPECIALTY file (#42.4) is obtained and stored. "^DD",727.81,727.81,20,"DT") 3120604 "^DD",727.81,727.81,23,0) DATE OF BIRTH^FO^^0;24^K:$L(X)>8!($L(X)<8) X "^DD",727.81,727.81,23,.1) Date of Birth "^DD",727.81,727.81,23,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.81,727.81,23,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.81,727.81,23,3) Answer must be 8 characters in length. "^DD",727.81,727.81,23,21,0) ^.001^1^1^3120604^^^ "^DD",727.81,727.81,23,21,1,0) Patient's date of birth. "^DD",727.81,727.81,23,23,0) ^^7^7^3120604^ "^DD",727.81,727.81,23,23,1,0) Data source: "^DD",727.81,727.81,23,23,2,0) "^DD",727.81,727.81,23,23,3,0) PRESCRIPTION file (#52); PATIENT field (#2) then to PATIENT file (#2); "^DD",727.81,727.81,23,23,4,0) DATE OF BIRTH field (#.03) "^DD",727.81,727.81,23,23,5,0) "^DD",727.81,727.81,23,23,6,0) Date of Birth is returned through the supported call DEM^VADPT. It is then "^DD",727.81,727.81,23,23,7,0) represented by an 8-character numeric string in the YYYYMMDD format. "^DD",727.81,727.81,23,"DT") 2970924 "^DD",727.81,727.81,25,0) VETERAN^S^Y:YES;N:NO;^0;26^Q "^DD",727.81,727.81,25,.1) Veteran "^DD",727.81,727.81,25,3) Select the appropriate veteran status for this patient. "^DD",727.81,727.81,25,21,0) ^.001^1^1^3120604^^ "^DD",727.81,727.81,25,21,1,0) Patient's Veteran status. "^DD",727.81,727.81,25,23,0) ^^3^3^3120604^ "^DD",727.81,727.81,25,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.81,727.81,25,23,2,0) in the PRESCRIPTION EXTRACT file (#727.81), VETERAN data is derived from "^DD",727.81,727.81,25,23,3,0) the VETERAN (Y/N)? field (#1901) in the PATIENT file (#2). "^DD",727.81,727.81,25,"DT") 2960918 "^DD",727.81,727.81,27,0) FEEDER KEY^RF^^0;28^K:$L(X)>17!($L(X)<17) X "^DD",727.81,727.81,27,.1) Feeder Key "^DD",727.81,727.81,27,3) Answer must be 17 characters in length. "^DD",727.81,727.81,27,21,0) ^.001^1^1^3120604^^ "^DD",727.81,727.81,27,21,1,0) Code that uniquely identifies a DSS drug/supply product. "^DD",727.81,727.81,27,23,0) ^^9^9^3120604^ "^DD",727.81,727.81,27,23,1,0) FEEDER KEY is derived for the drug identified by the DRUG field (#6) "^DD",727.81,727.81,27,23,2,0) in the PRESCRIPTION file (#52), which is a pointer to the DRUG file "^DD",727.81,727.81,27,23,3,0) (#50). "^DD",727.81,727.81,27,23,4,0) "^DD",727.81,727.81,27,23,5,0) The PSNDF VA PRODUCT NAME ENTRY field (#22) from the DRUG file (#50), "^DD",727.81,727.81,27,23,6,0) which is a pointer to the VA PRODUCT file (#50.68) is padded to 5 "^DD",727.81,727.81,27,23,7,0) digits. This is concatenated with a 12-digit code derived from the "^DD",727.81,727.81,27,23,8,0) NDC field (#31) from the DRUG file (#50) to form a 17-digit Feeder "^DD",727.81,727.81,27,23,9,0) Key. "^DD",727.81,727.81,27,"DT") 3120604 "^DD",727.81,727.81,28,0) DEA, SPECIAL HDLG^S^I:INVESTIGATIONAL;1:SCHEDULE 1 ITEM;2:SCHEDULE 2 ITEM;3:SCHEDULE 3 ITEM;4:SCHEDULE 4 ITEM;5:SCHEDULE 5 ITEM;^0;29^Q "^DD",727.81,727.81,28,.1) DEA Special Handling "^DD",727.81,727.81,28,3) Enter I if the drug is investigational or 1-5 depending on the Drug's Schedule Item. "^DD",727.81,727.81,28,21,0) ^.001^1^1^3120604^^^ "^DD",727.81,727.81,28,21,1,0) Indicates if the drug in this record is Investigational, or Schedule 1-5. "^DD",727.81,727.81,28,23,0) ^.001^5^5^3120604^^ "^DD",727.81,727.81,28,23,1,0) Derived from the DEA, SPECIAL HDLG field (#3) in the DRUG file (#50). If "^DD",727.81,727.81,28,23,2,0) the DEA, SPECIAL HDLG field contains an "I" (INVESTIGATIONAL DRUGS), this "^DD",727.81,727.81,28,23,3,0) field is set to "I". If the field contains a "1","2","3","4" or "5" (DRUG "^DD",727.81,727.81,28,23,4,0) SCHEDULE) it will be set to the same number. The presence of "I" takes "^DD",727.81,727.81,28,23,5,0) precedence over the numbers. "^DD",727.81,727.81,28,"DT") 3120304 "^DD",727.81,727.81,30,0) PRIMARY CARE TEAM^P404.51'^SCTM(404.51,^0;31^Q "^DD",727.81,727.81,30,.1) Primary Care Team "^DD",727.81,727.81,30,3) Enter the primary care team assigned to this patient at the time the prescription was filled. "^DD",727.81,727.81,30,21,0) ^.001^1^1^3120604^^^^ "^DD",727.81,727.81,30,21,1,0) The primary care team assigned to this patient in the PCMM module. "^DD",727.81,727.81,30,23,0) ^^5^5^3120604^ "^DD",727.81,727.81,30,23,1,0) Using the FILL DATE field (#22) from the PRESCRIPTION file (#52) and the "^DD",727.81,727.81,30,23,2,0) patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in the "^DD",727.81,727.81,30,23,3,0) PRESCRIPTION EXTRACT file (#727.81), a call is made to the Scheduling API, "^DD",727.81,727.81,30,23,4,0) OUTPTTM^SDUTL3. The API returns the team's internal entry number and name "^DD",727.81,727.81,30,23,5,0) from the TEAM file (#404.51). The IEN is stored in this field. "^DD",727.81,727.81,30,"DT") 3120604 "^DD",727.81,727.81,31,0) PRIMARY CARE PROVIDER^F^^0;32^K:$L(X)>11!($L(X)<1) X "^DD",727.81,727.81,31,.1) Primary Care Provider "^DD",727.81,727.81,31,3) Enter primary care provider assigned to this patient. "^DD",727.81,727.81,31,21,0) ^.001^2^2^3120604^^ "^DD",727.81,727.81,31,21,1,0) The primary care provider assigned to this patient through the PCMM "^DD",727.81,727.81,31,21,2,0) module. "^DD",727.81,727.81,31,23,0) ^^9^9^3120604^ "^DD",727.81,727.81,31,23,1,0) Using the FILL DATE (#22) field from the PRESCRIPTION file (#52) and the "^DD",727.81,727.81,31,23,2,0) patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in the "^DD",727.81,727.81,31,23,3,0) PRESCRIPTION EXTRACT file (#727.81), a call is made to the Scheduling API, "^DD",727.81,727.81,31,23,4,0) OUTPTPR^SDUTL3. The API returns the provider's internal entry number and "^DD",727.81,727.81,31,23,5,0) name from the NEW PERSON file (#200). "^DD",727.81,727.81,31,23,6,0) "^DD",727.81,727.81,31,23,7,0) A "2" is prefixed to the pointer value to indicate that the source file is "^DD",727.81,727.81,31,23,8,0) "200". For example, if the IEN of the provider in file #200 is 98765, the "^DD",727.81,727.81,31,23,9,0) value that will be stored is 298765. "^DD",727.81,727.81,31,"DT") 2961015 "^DD",727.81,727.81,32,0) TIME^FO^^0;33^K:$L(X)>6!($L(X)<6)!'(X?6N) X "^DD",727.81,727.81,32,.1) Time "^DD",727.81,727.81,32,2) S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,1) "^DD",727.81,727.81,32,2.1) S Y=$$ECXTIMEX^ECXUTL(Y,1) "^DD",727.81,727.81,32,3) Answer must be 6 characters in length. "^DD",727.81,727.81,32,21,0) ^.001^1^1^3120604^^^ "^DD",727.81,727.81,32,21,1,0) Time of day when the prescription fill/refill was released. "^DD",727.81,727.81,32,23,0) ^^6^6^3120604^ "^DD",727.81,727.81,32,23,1,0) PRESCRIPTION file (#52); REFILL sub-file (#52.1); RELEASED DATE/TIME field "^DD",727.81,727.81,32,23,2,0) (#17) or PRESCRIPTION file (#52); PARTIAL DATE sub-file (#52.2); RELEASED "^DD",727.81,727.81,32,23,3,0) DATE/TIME field (#8) "^DD",727.81,727.81,32,23,4,0) "^DD",727.81,727.81,32,23,5,0) This field is always exactly 6 numeric characters in length; if time "^DD",727.81,727.81,32,23,6,0) cannot be determined, then "000300" is used as default. "^DD",727.81,727.81,32,"DT") 2970924 "^DD",727.81,727.81,34,0) MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X "^DD",727.81,727.81,34,3) Answer must be 1-10 characters in length. "^DD",727.81,727.81,34,21,0) ^^1^1^3120604^ "^DD",727.81,727.81,34,21,1,0) Unique national VA patient identifier. "^DD",727.81,727.81,34,23,0) ^.001^3^3^3120604^^ "^DD",727.81,727.81,34,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.81,727.81,34,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.81,727.81,34,23,3,0) Patient file (#2). "^DD",727.81,727.81,34,"DT") 2990504 "^DD",727.81,727.81,35,0) DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X "^DD",727.81,727.81,35,.1) "^DD",727.81,727.81,35,3) Answer must be 1-10 characters in length. "^DD",727.81,727.81,35,21,0) ^.001^2^2^3120604^^^^ "^DD",727.81,727.81,35,21,1,0) The nationally defined DSS Intermediate Department Number designated to "^DD",727.81,727.81,35,21,2,0) the Pharmacy care product. "^DD",727.81,727.81,35,23,0) ^.001^1^1^3120604^^ "^DD",727.81,727.81,35,23,1,0) For the Prescription extract, the DSS PRODUCT DEPARTMENT field is null. "^DD",727.81,727.81,35,"DT") 3040302 "^DD",727.81,727.81,36,0) SEX^S^M:MALE;F:FEMALE;^1;3^Q "^DD",727.81,727.81,36,21,0) ^.001^1^1^3120131^^ "^DD",727.81,727.81,36,21,1,0) Patient's gender. "^DD",727.81,727.81,36,23,0) ^^4^4^3120131^ "^DD",727.81,727.81,36,23,1,0) Data is taken from the SEX field (#.02) of the patient's record in "^DD",727.81,727.81,36,23,2,0) the PATIENT file (#2). "^DD",727.81,727.81,36,23,3,0) "^DD",727.81,727.81,36,23,4,0) The status indicator is returned by DEM^VADPT. "^DD",727.81,727.81,36,"DT") 2980708 "^DD",727.81,727.81,37,0) ZIP+4^F^^1;4^K:$L(X)>10!($L(X)<5) X "^DD",727.81,727.81,37,3) Answer must be 5-10 characters in length. "^DD",727.81,727.81,37,21,0) ^^2^2^3120604^ "^DD",727.81,727.81,37,21,1,0) The ZIP code for where the patient resides. The 5-character ZIP code is "^DD",727.81,727.81,37,21,2,0) provided if ZIP+4 is not available. "^DD",727.81,727.81,37,23,0) ^^4^4^3120604^ "^DD",727.81,727.81,37,23,1,0) The patient's ZIP code with optional 4-digit extension as found in "^DD",727.81,727.81,37,23,2,0) the ZIP+4 field (#.1112) of the patient's record in the PATIENT "^DD",727.81,727.81,37,23,3,0) file (#2). While the ZIP+4 field in file 2 is a max of 9 characters, it "^DD",727.81,727.81,37,23,4,0) does put the "-" in if the ZIP code is a +4 type. "^DD",727.81,727.81,37,"DT") 2980708 "^DD",727.81,727.81,43,0) POW STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;10^Q "^DD",727.81,727.81,43,3) Enter the patient's POW Status. "^DD",727.81,727.81,43,21,0) ^.001^1^1^3120604^^ "^DD",727.81,727.81,43,21,1,0) Indicates if patient was confined as a Prisoner of War. "^DD",727.81,727.81,43,23,0) ^.001^2^2^3120604^^^^ "^DD",727.81,727.81,43,23,1,0) PATIENT file (#2); POW STATUS INDICATED? field (#.525). "^DD",727.81,727.81,43,23,2,0) The status indicator is returned by SVC^VADPT. "^DD",727.81,727.81,43,"DT") 2990505 "^DD",727.81,727.81,45,0) RADIATION STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;12^Q "^DD",727.81,727.81,45,3) Enter the Radiation Status for the patient. "^DD",727.81,727.81,45,21,0) ^.001^1^1^3120604^^ "^DD",727.81,727.81,45,21,1,0) Indicates if patient claims exposure to ionizing radiation. "^DD",727.81,727.81,45,23,0) ^.001^2^2^3120604^^^ "^DD",727.81,727.81,45,23,1,0) PATIENT file (#2); RADIATION EXPOSURE INDICATED? field (#.32103). "^DD",727.81,727.81,45,23,2,0) The status indicator is returned by SVC^VADPT. "^DD",727.81,727.81,45,"DT") 2990505 "^DD",727.81,727.81,46,0) AGENT ORANGE STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;13^Q "^DD",727.81,727.81,46,3) Enter the Agent Orange Status for the patient. "^DD",727.81,727.81,46,21,0) ^.001^1^1^3120604^^^ "^DD",727.81,727.81,46,21,1,0) Indicates whether patient was exposed to Agent Orange. "^DD",727.81,727.81,46,23,0) ^.001^2^2^3120604^^^^ "^DD",727.81,727.81,46,23,1,0) PATIENT file (#2); AGENT ORANGE EXPOS. INDICATED? field (#.32102). "^DD",727.81,727.81,46,23,2,0) The status indicator is returned by SVC^VADPT. "^DD",727.81,727.81,46,"DT") 2990505 "^DD",727.81,727.81,48,0) SHARING AGREEMENT INSURANCE^P36'^DIC(36,^1;15^Q "^DD",727.81,727.81,48,3) Enter the primary insurance company for a patient with a sharing agreement. "^DD",727.81,727.81,48,21,0) ^.001^2^2^3120604^^^ "^DD",727.81,727.81,48,21,1,0) Indicates the first insurer for patients who participate in sharing "^DD",727.81,727.81,48,21,2,0) agreements. "^DD",727.81,727.81,48,23,0) ^^4^4^3120604^ "^DD",727.81,727.81,48,23,1,0) Data will be taken from the INSURANCE TYPE sub-field (#.01) of the "^DD",727.81,727.81,48,23,2,0) INSURANCE TYPE field (#.3121), sub-file #2.312, of the PATIENT file "^DD",727.81,727.81,48,23,3,0) (#2). Only the first insurance company found in the multiple field is "^DD",727.81,727.81,48,23,4,0) used. "^DD",727.81,727.81,48,"DT") 3120604 "^DD",727.81,727.81,49,0) MST STATUS^S^Y:Yes, screened reports MST;N:Screened, does not report MST;D:Screened, declines to answer;U:Unknown, not screened;^1;16^Q "^DD",727.81,727.81,49,3) Enter the patient's MST Status. "^DD",727.81,727.81,49,21,0) ^^2^2^3120604^ "^DD",727.81,727.81,49,21,1,0) Military Sexual Trauma (MST) status of a patient on the date of the "^DD",727.81,727.81,49,21,2,0) encounter. "^DD",727.81,727.81,49,23,0) ^^5^5^3120604^ "^DD",727.81,727.81,49,23,1,0) The MST HISTORY file (#29.11) holds data regarding military sexual "^DD",727.81,727.81,49,23,2,0) trauma claims and effective dates. The patients MST status is stored "^DD",727.81,727.81,49,23,3,0) in the MST STATUS field (#3). A call will be made to "^DD",727.81,727.81,49,23,4,0) $$GETSTAT^DGMSTAPI(DFN,DGDATE) using the DFN in the PATIENT NO. DFN "^DD",727.81,727.81,49,23,5,0) field (#4) and the date in the DAY (#8) field. "^DD",727.81,727.81,49,"DT") 3120613 "^DD",727.81,727.81,51,0) ASSOCIATE PC PROVIDER^F^^1;18^K:$L(X)>11!($L(X)<2) X "^DD",727.81,727.81,51,3) Answer must be 2-11 characters in length. "^DD",727.81,727.81,51,21,0) ^.001^2^2^3120604^^^ "^DD",727.81,727.81,51,21,1,0) The associate primary care provider assigned to this patient through the "^DD",727.81,727.81,51,21,2,0) Primary Care Management Module (PCMM) application. "^DD",727.81,727.81,51,23,0) ^^10^10^3120604^ "^DD",727.81,727.81,51,23,1,0) Derived by a call to the Scheduling API, OUTPTAP^SDUTL3. The API returns "^DD",727.81,727.81,51,23,2,0) the associate provider's internal entry number and name from the NEW "^DD",727.81,727.81,51,23,3,0) PERSON file (#200). The ASSOCIATE PC PROVIDER is the value of a "2" "^DD",727.81,727.81,51,23,4,0) prefixed to the pointer value to indicate that the source file is "200". "^DD",727.81,727.81,51,23,5,0) For example, if the IEN of the provider in file #200 is 98765, the value "^DD",727.81,727.81,51,23,6,0) that will be stored is 298765. "^DD",727.81,727.81,51,23,7,0) "^DD",727.81,727.81,51,23,8,0) The PATIENT NO. - DFN (#4) field and the DAY field (#8) are used to "^DD",727.81,727.81,51,23,9,0) determine the patient's associate provider at the time the prescription "^DD",727.81,727.81,51,23,10,0) is filled. "^DD",727.81,727.81,51,"DT") 2990505 "^DD",727.81,727.81,52,0) ASSOC. PC PROV. PERSON CLASS^F^^1;19^K:$L(X)>7!($L(X)<7) X "^DD",727.81,727.81,52,3) Answer must be 7 characters in length. "^DD",727.81,727.81,52,21,0) ^.001^2^2^3120604^^ "^DD",727.81,727.81,52,21,1,0) The VA code of the Person Class of the Associate Primary Care Provider as "^DD",727.81,727.81,52,21,2,0) of the date of this extract record. "^DD",727.81,727.81,52,23,0) ^^4^4^3120604^ "^DD",727.81,727.81,52,23,1,0) Active Person Class is determined by the supported call "^DD",727.81,727.81,52,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.81,727.81,52,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.81,727.81,52,23,4,0) returned value string. "^DD",727.81,727.81,52,"DT") 2990505 "^DD",727.81,727.81,54,0) DOM,PRRTP AND SAARTP INDICATOR^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CET/TR;^1;21^Q "^DD",727.81,727.81,54,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.81,727.81,54,21,0) ^.001^2^2^3120604^^^^ "^DD",727.81,727.81,54,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP, or SARRTP "^DD",727.81,727.81,54,21,2,0) at the time care is provided. "^DD",727.81,727.81,54,23,0) ^.001^5^5^3120604^^^ "^DD",727.81,727.81,54,23,1,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.81,727.81,54,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.81,727.81,54,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.81,727.81,54,23,4,0) "^DD",727.81,727.81,54,23,5,0) Otherwise, the value is null. "^DD",727.81,727.81,54,"DT") 3120604 "^DD",727.81,727.81,56,0) ENROLLMENT CATEGORY^F^^1;23^K:$L(X)>1!($L(X)<1) X "^DD",727.81,727.81,56,3) Answer must be 1 character in length. "^DD",727.81,727.81,56,21,0) ^.001^1^1^3120604^^^^ "^DD",727.81,727.81,56,21,1,0) Patient's enrollment category. "^DD",727.81,727.81,56,23,0) ^^2^2^3120604^ "^DD",727.81,727.81,56,23,1,0) ENROLLMENT CATEGORY is derived from the standard call $$CATEGORY^DGENA4 "^DD",727.81,727.81,56,23,2,0) using the patient's DFN and the ENROLLMENT STATUS (#57) field. "^DD",727.81,727.81,56,"DT") 3000614 "^DD",727.81,727.81,57,0) ENROLLMENT STATUS^P27.15'^DGEN(27.15,^1;24^Q "^DD",727.81,727.81,57,3) Enter patient's enrollment status. "^DD",727.81,727.81,57,21,0) ^.001^1^1^3120604^^^^ "^DD",727.81,727.81,57,21,1,0) Patient's enrollment status. "^DD",727.81,727.81,57,23,0) ^.001^3^3^3120604^^ "^DD",727.81,727.81,57,23,1,0) ENROLLMENT STATUS is derived from the standard call $$STATUS^DGENA using "^DD",727.81,727.81,57,23,2,0) the patient's DFN and returns the ENROLLMENT STATUS field (#.04) of the "^DD",727.81,727.81,57,23,3,0) PATIENT ENROLLMENT file (#27.11). "^DD",727.81,727.81,57,"DT") 3120604 "^DD",727.81,727.81,59,0) CNHU STATUS^S^Y:YES;N:NO;^1;26^Q "^DD",727.81,727.81,59,3) Indicate if patient resides in a contract nursing home. "^DD",727.81,727.81,59,21,0) ^.001^1^1^3120605^^^ "^DD",727.81,727.81,59,21,1,0) Identifies if patient resides in a contract nursing home. "^DD",727.81,727.81,59,23,0) ^.001^1^1^3120605^^ "^DD",727.81,727.81,59,23,1,0) Currently passing NULL. "^DD",727.81,727.81,59,"DT") 3120605 "^DD",727.81,727.81,61,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^1;28^Q "^DD",727.81,727.81,61,3) Enter observation patient status for this record. "^DD",727.81,727.81,61,21,0) ^.001^1^1^3120604^^^^ "^DD",727.81,727.81,61,21,1,0) Indicates if patient is considered to be an observation patient. "^DD",727.81,727.81,61,23,0) ^.001^12^12^3120604^^ "^DD",727.81,727.81,61,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.81,727.81,61,23,2,0) "^DD",727.81,727.81,61,23,3,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.81,727.81,61,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.81,727.81,61,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.81,727.81,61,23,6,0) file. "^DD",727.81,727.81,61,23,7,0) "^DD",727.81,727.81,61,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.81,727.81,61,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.81,727.81,61,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.81,727.81,61,23,11,0) "^DD",727.81,727.81,61,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.81,727.81,61,"DT") 3120604 "^DD",727.81,727.81,62,0) ENCOUNTER NUMBER^F^^1;29^K:$L(X)>18!($L(X)<1) X "^DD",727.81,727.81,62,3) Answer must be 1-18 characters in length. "^DD",727.81,727.81,62,21,0) ^.001^1^1^3120604^^^ "^DD",727.81,727.81,62,21,1,0) The unique number assigned to each encounter within DSS. "^DD",727.81,727.81,62,23,0) ^.001^4^4^3120604^^ "^DD",727.81,727.81,62,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.81,727.81,62,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.81,727.81,62,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.81,727.81,62,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.81,727.81,62,"DT") 3010509 "^DD",727.81,727.81,63,0) AGENT ORANGE LOCATION^S^K:KOREAN DMZ;V:VIETNAM;O:OTHER;^1;30^Q "^DD",727.81,727.81,63,3) Enter where the patient was exposed to agent orange. "^DD",727.81,727.81,63,21,0) ^.001^1^1^3120604^^^ "^DD",727.81,727.81,63,21,1,0) Indicates the location where the patient was exposed to Agent Orange. "^DD",727.81,727.81,63,23,0) ^^3^3^3120604^ "^DD",727.81,727.81,63,23,1,0) The location is returned by a call to SVC^VADPT which gets its data from "^DD",727.81,727.81,63,23,2,0) the AGENT ORANGE EXPOSURE LOCATION field (#.3213) of the PATIENT file "^DD",727.81,727.81,63,23,3,0) (#2). "^DD",727.81,727.81,63,"DT") 3120604 "^DD",727.81,727.81,65,0) ORDERING STOP CODE^F^^1;32^K:$L(X)>3!($L(X)<3) X "^DD",727.81,727.81,65,3) Answer must be 3 characters in length. "^DD",727.81,727.81,65,21,0) ^.001^1^1^3120720^^^ "^DD",727.81,727.81,65,21,1,0) This field contains the stop code associated with the order. "^DD",727.81,727.81,65,23,0) ^^5^5^3120720^ "^DD",727.81,727.81,65,23,1,0) The STOP CODE field (#1) associated with the ordering location for this "^DD",727.81,727.81,65,23,2,0) order as obtained from the CLINICS AND STOP CODES (#728.44) file. "^DD",727.81,727.81,65,23,3,0) "^DD",727.81,727.81,65,23,4,0) Ordering location is derived from the CLINIC field (#5) of the "^DD",727.81,727.81,65,23,5,0) PRESCRIPTION file (#52). "^DD",727.81,727.81,65,"DT") 3010509 "^DD",727.81,727.81,66,0) ORDERING DATE^F^^1;33^K:$L(X)>8!($L(X)<8) X "^DD",727.81,727.81,66,3) Answer must be 8 characters in length. "^DD",727.81,727.81,66,21,0) ^.001^1^1^3120605^^^^ "^DD",727.81,727.81,66,21,1,0) Date provider ordered the prescription. "^DD",727.81,727.81,66,23,0) ^^3^3^3120605^ "^DD",727.81,727.81,66,23,1,0) This field is derived from the ISSUE DATE field (#1) of the PRESCRIPTION "^DD",727.81,727.81,66,23,2,0) file (#52). That date is then converted by a call to $$ECXDATE^ECXUTL to "^DD",727.81,727.81,66,23,3,0) the YYYYMMDD format. "^DD",727.81,727.81,66,"DT") 3010509 "^DD",727.81,727.81,67,0) CNH/SH STATUS^S^YES:YES;NO:NO;^1;34^Q "^DD",727.81,727.81,67,3) Enter the CNH/SH status for this patient. "^DD",727.81,727.81,67,21,0) ^.001^1^1^3120604^^^ "^DD",727.81,727.81,67,21,1,0) Community Nursing Home/State Home Indicator. "^DD",727.81,727.81,67,23,0) ^^2^2^3120604^ "^DD",727.81,727.81,67,23,1,0) Using the CNHSTAT^ECXUTL4(DFN) call, the CNH status is returned based on "^DD",727.81,727.81,67,23,2,0) the CNH CURRENT field (#148) of the PATIENT file (#2). "^DD",727.81,727.81,67,"DT") 3120604 "^DD",727.81,727.81,68,0) PRODUCTION DIVISION CODE^F^^1;35^K:$L(X)>7!($L(X)<3) X "^DD",727.81,727.81,68,3) Answer must be 3-7 characters in length. "^DD",727.81,727.81,68,21,0) ^.001^1^1^3120604^^^ "^DD",727.81,727.81,68,21,1,0) Identifies the division/facility where the work was performed. "^DD",727.81,727.81,68,23,0) ^^5^5^3120604^ "^DD",727.81,727.81,68,23,1,0) Data comes from either the DIVISION field (#20) of the PRESCRIPTION "^DD",727.81,727.81,68,23,2,0) file (#52) or the DIVISION field (#.09) of the PARTIAL DATE field (#60). "^DD",727.81,727.81,68,23,3,0) These fields point to the OUTPATIENT SITE file (#59). This value is then "^DD",727.81,727.81,68,23,4,0) used to call the api PREDIV^ECXDEPT to get the STATION NUMBER field (#99) "^DD",727.81,727.81,68,23,5,0) from the INSTITUTION file (#4). "^DD",727.81,727.81,68,"DT") 3120604 "^DD",727.81,727.81,69,0) MEANS TEST^S^A:CATEGORY A;B:CATEGORY B;C:CATEGORY C;P:PENDING ADJUDICATION;R:REQUIRES MEANS TEST;N:MEANS TEST NOT REQUIRED;E:EXEMPT;I:INCOMPLETE;L:NO LONGER APPLICABLE;M:NON-EXEMPT;^1;36^Q "^DD",727.81,727.81,69,.1) Means Test "^DD",727.81,727.81,69,3) Select the appropriate means test category. "^DD",727.81,727.81,69,21,0) ^.001^1^1^3120604^^^^ "^DD",727.81,727.81,69,21,1,0) The current means test category for this patient. "^DD",727.81,727.81,69,23,0) ^.001^8^8^3120604^^ "^DD",727.81,727.81,69,23,1,0) Using the patient pointer (DFN) stored in the "^DD",727.81,727.81,69,23,2,0) PATIENT NO. - DFN field (#4), MEANS TEST data is derived from the CURRENT "^DD",727.81,727.81,69,23,3,0) MEANS TEST STATUS field (#.14) in the PATIENT file (#2). "^DD",727.81,727.81,69,23,4,0) This field is a pointer to the MEANS TEST STATUS file (#408.32). Using "^DD",727.81,727.81,69,23,5,0) the means test pointer, the data is derived from the CODE field (#.02) in "^DD",727.81,727.81,69,23,6,0) the MEANS TEST STATUS file (#408.32). "^DD",727.81,727.81,69,23,7,0) "^DD",727.81,727.81,69,23,8,0) The status indicator is returned by ELIG^VADPT. "^DD",727.81,727.81,69,"DT") 3021009 "^DD",727.81,727.81,73,0) DSS IP #^NJ7,0^^1;40^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X "^DD",727.81,727.81,73,3) Type a Number between 1 and 9999999, 0 Decimal Digits. "^DD",727.81,727.81,73,21,0) ^.001^2^2^3120604^^^^ "^DD",727.81,727.81,73,21,1,0) The nationally defined DSS Intermediate Product Number designated to the "^DD",727.81,727.81,73,21,2,0) patient care product. "^DD",727.81,727.81,73,23,0) ^^1^1^3120604^ "^DD",727.81,727.81,73,23,1,0) For the Prescription extract, the DSS IP# field is null. "^DD",727.81,727.81,73,"DT") 3031113 "^DD",727.81,727.81,74,0) ENROLLMENT PRIORITY^F^^1;41^K:$L(X)>2!($L(X)<1) X "^DD",727.81,727.81,74,3) Answer must be 1-2 characters in length. "^DD",727.81,727.81,74,21,0) ^^2^2^3120604^ "^DD",727.81,727.81,74,21,1,0) This field contains the enrollment priority group and the enrollment "^DD",727.81,727.81,74,21,2,0) priority subgroup. "^DD",727.81,727.81,74,23,0) ^.001^20^20^3120604^^^^ "^DD",727.81,727.81,74,23,1,0) ENROLLMENT PRIORITY field contains the enrollment priority group and the "^DD",727.81,727.81,74,23,2,0) enrollment priority subgroup from the Patient Enrollment File #27.11. "^DD",727.81,727.81,74,23,3,0) "^DD",727.81,727.81,74,23,4,0) ENROLLMENT PRIORITY Groups determined for a patient enrollment include: "^DD",727.81,727.81,74,23,5,0) "^DD",727.81,727.81,74,23,6,0) '1' FOR GROUP 1 "^DD",727.81,727.81,74,23,7,0) '2' FOR GROUP 2 "^DD",727.81,727.81,74,23,8,0) '3' FOR GROUP 3 "^DD",727.81,727.81,74,23,9,0) '4' FOR GROUP 4 "^DD",727.81,727.81,74,23,10,0) '5' FOR GROUP 5 "^DD",727.81,727.81,74,23,11,0) '6' FOR GROUP 6 "^DD",727.81,727.81,74,23,12,0) '7' FOR GROUP 7 "^DD",727.81,727.81,74,23,13,0) '8' FOR GROUP 8 "^DD",727.81,727.81,74,23,14,0) "^DD",727.81,727.81,74,23,15,0) ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include: "^DD",727.81,727.81,74,23,16,0) "^DD",727.81,727.81,74,23,17,0) 'a' FOR 1 "^DD",727.81,727.81,74,23,18,0) 'c' FOR 3 "^DD",727.81,727.81,74,23,19,0) 'e' FOR 5 "^DD",727.81,727.81,74,23,20,0) 'g' FOR 7 "^DD",727.81,727.81,74,"DT") 3040301 "^DD",727.81,727.81,77,0) CV STATUS ELIGIBILITY^S^Y:YES;E:ELIGIBILITY EXPIRED;^2;2^Q "^DD",727.81,727.81,77,3) Enter patient's combat veteran eligibility. "^DD",727.81,727.81,77,21,0) ^.001^3^3^3120604^^^ "^DD",727.81,727.81,77,21,1,0) Records if veteran served on active duty in a theater of combat operations "^DD",727.81,727.81,77,21,2,0) during a period of war after the Persian Gulf War or in combat against a "^DD",727.81,727.81,77,21,3,0) hostile force during a period of hostilities after November 11, 1998. "^DD",727.81,727.81,77,23,0) ^^11^11^3120604^ "^DD",727.81,727.81,77,23,1,0) CV STATUS ELIGIBILITY is determined by the use of API "^DD",727.81,727.81,77,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.81,727.81,77,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.81,727.81,77,23,4,0) pieces (i.e. 1^20010106^0) and the first piece is resolved as follows. "^DD",727.81,727.81,77,23,5,0) "^DD",727.81,727.81,77,23,6,0) 1 - veteran qualifies as a CV "^DD",727.81,727.81,77,23,7,0) 0 - veteran does not qualify as a CV "^DD",727.81,727.81,77,23,8,0) -1 - bad DFN "^DD",727.81,727.81,77,23,9,0) "^DD",727.81,727.81,77,23,10,0) Based on this result the field will be set to 'Y' for 'YES' or 'E' for "^DD",727.81,727.81,77,23,11,0) 'ELIGIBILITY EXPIRED' or 'NULL' for not eligible. "^DD",727.81,727.81,77,"DT") 3120604 "^DD",727.81,727.81,78,0) CV ELIGIBILITY END DATE^F^^2;3^K:$L(X)>8!($L(X)<8) X "^DD",727.81,727.81,78,3) Answer must be 8 characters in length. "^DD",727.81,727.81,78,21,0) ^.001^4^4^3120604^^ "^DD",727.81,727.81,78,21,1,0) Records the Combat Veteran eligibility expiration date or veteran who "^DD",727.81,727.81,78,21,2,0) served on active duty in a theater of combat operations during a period "^DD",727.81,727.81,78,21,3,0) of war after the Persian Gulf War or in combat against a hostile force "^DD",727.81,727.81,78,21,4,0) during a period of hostilities after November 11, 1998. "^DD",727.81,727.81,78,23,0) ^^5^5^3120604^ "^DD",727.81,727.81,78,23,1,0) CV ELIGIBILITY END DATE is determined by the use of API "^DD",727.81,727.81,78,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.81,727.81,78,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.81,727.81,78,23,4,0) pieces (i.e. 1^20010106^0) the 2nd piece is the COMBAT VET END DATE in HL7 "^DD",727.81,727.81,78,23,5,0) format. "^DD",727.81,727.81,78,"DT") 3120604 "^DD",727.81,727.81,79,0) ENCOUNTER CV^S^Y:YES;^2;4^Q "^DD",727.81,727.81,79,3) Enter patient's combat veteran eligibility. "^DD",727.81,727.81,79,21,0) ^.001^4^4^3120604^^^ "^DD",727.81,727.81,79,21,1,0) Records if a veteran served on active duty in a theater of combat "^DD",727.81,727.81,79,21,2,0) operations during a period of war after the Persian Gulf War or in combat "^DD",727.81,727.81,79,21,3,0) against a hostile force during a period of hostilities after November 11, "^DD",727.81,727.81,79,21,4,0) 1998. "^DD",727.81,727.81,79,23,0) ^^10^10^3120604^ "^DD",727.81,727.81,79,23,1,0) ENCOUNTER CV is determined by the use of API $$CVEDT^DGCV(DFN,DATE) that "^DD",727.81,727.81,79,23,2,0) checks the COMBAT VET END DATE field (#.5295) from the PATIENT file (#2) "^DD",727.81,727.81,79,23,3,0) to determine CV Status. API returns three pieces (i.e. 1^20100106^0). The "^DD",727.81,727.81,79,23,4,0) third piece returns: "^DD",727.81,727.81,79,23,5,0) "^DD",727.81,727.81,79,23,6,0) 1 - vet was eligible on date specified "^DD",727.81,727.81,79,23,7,0) 0 - vet was not eligible on date specified "^DD",727.81,727.81,79,23,8,0) "^DD",727.81,727.81,79,23,9,0) Based on these returns, the value for this field shall be Y for Yes if "^DD",727.81,727.81,79,23,10,0) value is 1 or left blank if 0 to indicate ineligibility. "^DD",727.81,727.81,79,"DT") 3120604 "^DD",727.81,727.81,80,0) NATIONAL PATIENT RECORD FLAG^S^Y:YES;^2;5^Q "^DD",727.81,727.81,80,3) Indicate if patient is associated with a category 1 patient record flag. "^DD",727.81,727.81,80,21,0) ^^2^2^3120604^ "^DD",727.81,727.81,80,21,1,0) This field records whether the patient's record contains 1 or more active "^DD",727.81,727.81,80,21,2,0) category 1 (National) Patient Record Flags. "^DD",727.81,727.81,80,23,0) ^^7^7^3120604^ "^DD",727.81,727.81,80,23,1,0) The NATIONAL PATIENT RECORD FLAG field is set based on the results of the "^DD",727.81,727.81,80,23,2,0) $$GETACT^DGPFAPI(DFN,TARGET ARRAY) call. This call looks at the category "^DD",727.81,727.81,80,23,3,0) 1 national patient record flags as recorded in the PRF NATIONAL FLAG file "^DD",727.81,727.81,80,23,4,0) (#26.15). The resulting value of this call is the number of active "^DD",727.81,727.81,80,23,5,0) category I patient record flags assigned to this patient. This field is "^DD",727.81,727.81,80,23,6,0) set to Y (YES) if the result is greater than zero. A value of zero causes "^DD",727.81,727.81,80,23,7,0) this field to be left null. "^DD",727.81,727.81,80,"DT") 3120604 "^DD",727.81,727.81,81,0) RX PATIENT STATUS^S^SC:SERVICE CONNECTED;AA:A&A;OTH:OTHER;INP:INPATIENT;NON:NON-VA;^2;6^Q "^DD",727.81,727.81,81,3) Enter the patient status of the patient receiving this prescription. "^DD",727.81,727.81,81,21,0) ^.001^1^1^3120605^^^ "^DD",727.81,727.81,81,21,1,0) Indicates the status of the patient at the time the medication was filled. "^DD",727.81,727.81,81,23,0) ^^5^5^3120605^ "^DD",727.81,727.81,81,23,1,0) RX Patient Status is extracted from the SC/A&A/OTHER/INPATIENT/NVA field "^DD",727.81,727.81,81,23,2,0) (#6) of the RX PATIENT STATUS File (#53). "^DD",727.81,727.81,81,23,3,0) "^DD",727.81,727.81,81,23,4,0) The value for this field shall be based on the set of codes of this "^DD",727.81,727.81,81,23,5,0) field. "^DD",727.81,727.81,81,"DT") 3120604 "^DD",727.81,727.81,82,0) NON VA PRESCRIBER^S^Y:YES;0:NO;^2;7^Q "^DD",727.81,727.81,82,3) Indicate if prescriber is a non-VA employee. "^DD",727.81,727.81,82,21,0) ^.001^1^1^3120605^^ "^DD",727.81,727.81,82,21,1,0) Indicates the provider prescribing the prescription is not a VA employee. "^DD",727.81,727.81,82,23,0) ^^3^3^3120605^ "^DD",727.81,727.81,82,23,1,0) The NON VA PRESCRIBER field is derived from the NON-VA PRESCRIBER field "^DD",727.81,727.81,82,23,2,0) (#53.91) of the NEW PERSON file (#200). The value stored in that field "^DD",727.81,727.81,82,23,3,0) is used to determine the value stored in the NON VA PRESCRIBER field. "^DD",727.81,727.81,82,"DT") 3120605 "^DD",727.81,727.81,85,0) AGENT ORANGE ENC INDICATOR^S^Y:YES;N:NO;^2;10^Q "^DD",727.81,727.81,85,3) Enter patient's Agent Orange exposure indicator. "^DD",727.81,727.81,85,21,0) ^.001^2^2^3120605^^^^ "^DD",727.81,727.81,85,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.81,727.81,85,21,2,0) related to exposure to Agent Orange. "^DD",727.81,727.81,85,23,0) ^.001^2^2^3120605^^ "^DD",727.81,727.81,85,23,1,0) This value is retrieved from the AGENT ORANGE EXPOSURE field (#118) in "^DD",727.81,727.81,85,23,2,0) the PRESCRIPTION (#52) file. "^DD",727.81,727.81,85,"DT") 3120605 "^DD",727.81,727.81,86,0) ENCOUNTER SWAC^S^Y:YES;N:NO;^2;11^Q "^DD",727.81,727.81,86,3) Indicate if care is related to Southwest Asia Conditions status. "^DD",727.81,727.81,86,21,0) ^.001^2^2^3120605^^^ "^DD",727.81,727.81,86,21,1,0) Indicates the appropriate response for Southwest Asia conditions as "^DD",727.81,727.81,86,21,2,0) related to this patient's episode of care. "^DD",727.81,727.81,86,23,0) ^^2^2^3120605^ "^DD",727.81,727.81,86,23,1,0) This value will be retrieved from the SOUTHWEST ASIA CONDITIONS field "^DD",727.81,727.81,86,23,2,0) (#120) in the PRESCRIPTION (#52) file. "^DD",727.81,727.81,86,"DT") 3120605 "^DD",727.81,727.81,87,0) ENC HEAD/NECK CA^S^Y:YES;N:NO;^2;12^Q "^DD",727.81,727.81,87,3) Indicate if service provided is related to head and/or neck cancer. "^DD",727.81,727.81,87,21,0) ^.001^2^2^3120605^^ "^DD",727.81,727.81,87,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.81,727.81,87,21,2,0) related to head and/or neck cancer. "^DD",727.81,727.81,87,23,0) ^.001^2^2^3120605^^^ "^DD",727.81,727.81,87,23,1,0) This value is retrieved from the HEAD AND/OR NECK CANCER field (#121) "^DD",727.81,727.81,87,23,2,0) in the PRESCRIPTION (#52) file. "^DD",727.81,727.81,87,"DT") 3120605 "^DD",727.81,727.81,88,0) ENCOUNTER MST^S^N:NO;Y:YES;^2;13^Q "^DD",727.81,727.81,88,3) Indicate if treatment is related to military sexual trauma. "^DD",727.81,727.81,88,21,0) ^.001^2^2^3120605^^ "^DD",727.81,727.81,88,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.81,727.81,88,21,2,0) related to military sexual trauma. "^DD",727.81,727.81,88,23,0) ^.001^2^2^3120605^^^^ "^DD",727.81,727.81,88,23,1,0) This value is retrieved from the MILITARY SEXUAL TRAUMA field (#117) in "^DD",727.81,727.81,88,23,2,0) the PRESCRIPTION (#52) file. "^DD",727.81,727.81,88,"DT") 3120605 "^DD",727.81,727.81,90,0) RADIATION ENCOUNTER INDICATOR^S^Y:YES;N:NO;^2;15^Q "^DD",727.81,727.81,90,3) Indicate if treatment is related to exposure to ionizing radiation. "^DD",727.81,727.81,90,21,0) ^.001^2^2^3120605^^^ "^DD",727.81,727.81,90,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.81,727.81,90,21,2,0) related to exposure to ionizing radiation. "^DD",727.81,727.81,90,23,0) ^.001^2^2^3120605^^^^ "^DD",727.81,727.81,90,23,1,0) This value is retrieved from the IONIZING RADIATION EXPOSURE field (#119) "^DD",727.81,727.81,90,23,2,0) in the PRESCRIPTION (#52) file. "^DD",727.81,727.81,90,"DT") 3120605 "^DD",727.81,727.81,97,0) COUNTRY CODE^F^^2;22^K:$L(X)>3!($L(X)<1) X "^DD",727.81,727.81,97,3) The code for the country. Answer must be 1-3 characters in length. "^DD",727.81,727.81,97,21,0) ^.001^1^1^3120605^^^ "^DD",727.81,727.81,97,21,1,0) The code for the country associated with the address. "^DD",727.81,727.81,97,23,0) ^^2^2^3120605^ "^DD",727.81,727.81,97,23,1,0) The three-character alpha identifying code is copied from the CODE (#.01) "^DD",727.81,727.81,97,23,2,0) field of the COUNTRY CODE (#779.004) file. "^DD",727.81,727.81,97,"DT") 3090609 "^DD",727.811,727.811,3,0) FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X "^DD",727.811,727.811,3,.1) Facility "^DD",727.811,727.811,3,3) Enter the station number (1-7 characters) where this extract was performed. "^DD",727.811,727.811,3,21,0) ^.001^1^1^3120608^^^^ "^DD",727.811,727.811,3,21,1,0) This is the facility/division where the extract was performed. "^DD",727.811,727.811,3,23,0) ^.001^6^6^3120608^^^ "^DD",727.811,727.811,3,23,1,0) If there is data in the DIVISION field (#50) of the SURGERY file (#130) "^DD",727.811,727.811,3,23,2,0) for the extract record, this pointer to the INSTITUTION file (#4) is "^DD",727.811,727.811,3,23,3,0) used. Otherwise, FACILITY is derived as follows. Using the NAME field "^DD",727.811,727.811,3,23,4,0) (#.01) pointer from the DSS EXTRACTS file (#728), FACILITY is derived "^DD",727.811,727.811,3,23,5,0) from the STATION NUMBER field (#99) for that pointer number in the "^DD",727.811,727.811,3,23,6,0) INSTITUTION file (#4). "^DD",727.811,727.811,3,"DT") 2970911 "^DD",727.811,727.811,5,0) SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X "^DD",727.811,727.811,5,.1) Social Security Number "^DD",727.811,727.811,5,3) Your answer must be 9 to 10 characters in length. "^DD",727.811,727.811,5,21,0) ^.001^1^1^3120531^^^^ "^DD",727.811,727.811,5,21,1,0) The patient's social security number. "^DD",727.811,727.811,5,23,0) ^.001^6^6^3120531^^ "^DD",727.811,727.811,5,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.811,727.811,5,23,2,0) in the SURGERY EXTRACT file (#727.811), SSN data is derived from the "^DD",727.811,727.811,5,23,3,0) SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2). "^DD",727.811,727.811,5,23,4,0) "^DD",727.811,727.811,5,23,5,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with "^DD",727.811,727.811,5,23,6,0) an SSN beginning with "00000" will not be included in the extract. "^DD",727.811,727.811,5,"DT") 2961002 "^DD",727.811,727.811,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.811,727.811,6,.1) Name "^DD",727.811,727.811,6,3) Your answer must be 4 characters in length. "^DD",727.811,727.811,6,21,0) ^.001^1^1^3120507^^^^ "^DD",727.811,727.811,6,21,1,0) The first four characters of the patient's last name. "^DD",727.811,727.811,6,23,0) ^^6^6^3120507^ "^DD",727.811,727.811,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.811,727.811,6,23,2,0) in the SURGERY EXTRACT file (#727.811), NAME data is derived from the NAME "^DD",727.811,727.811,6,23,3,0) field (#.01) in the PATIENT file (#2). The first four characters of the "^DD",727.811,727.811,6,23,4,0) first "," piece are used, padded with trailing spaces if necessary. "^DD",727.811,727.811,6,23,5,0) "^DD",727.811,727.811,6,23,6,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.811,727.811,6,"DT") 2961002 "^DD",727.811,727.811,7,0) IN OUT PATIENT INDICATOR^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q "^DD",727.811,727.811,7,.1) In Out Patient Indicator "^DD",727.811,727.811,7,3) Enter the patient's status for this extract entry. "^DD",727.811,727.811,7,21,0) ^.001^2^2^3120608^^^^ "^DD",727.811,727.811,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for "^DD",727.811,727.811,7,21,2,0) this extract. "^DD",727.811,727.811,7,23,0) ^.001^10^10^3120608^^^ "^DD",727.811,727.811,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.811,727.811,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.811,727.811,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.811,727.811,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.811,727.811,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.811,727.811,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.811,727.811,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.811,727.811,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.811,727.811,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.811,727.811,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.811,727.811,7,"DT") 3120507 "^DD",727.811,727.811,12,0) SURGEON^F^^0;13^K:$L(X)>11!($L(X)<1) X "^DD",727.811,727.811,12,.1) Surgeon "^DD",727.811,727.811,12,3) Enter person performing the major portion of the principal operative procedure. "^DD",727.811,727.811,12,21,0) ^.001^1^1^3120507^^ "^DD",727.811,727.811,12,21,1,0) Person who performed the surgery. "^DD",727.811,727.811,12,23,0) ^^7^7^3120507^ "^DD",727.811,727.811,12,23,1,0) Derived from the SURGEON field (#.14) in the SURGERY file (#130) for "^DD",727.811,727.811,12,23,2,0) the surgical case. If the case is a non-OR surgical procedure, the "^DD",727.811,727.811,12,23,3,0) PROVIDER field (#123) from the SURGERY file (#130) is used. "^DD",727.811,727.811,12,23,4,0) "^DD",727.811,727.811,12,23,5,0) The SURGEON is the value of a "2" prefixed to the pointer value to "^DD",727.811,727.811,12,23,6,0) indicate that the source file is "200". For example, if the IEN of the "^DD",727.811,727.811,12,23,7,0) provider in file #200 is 98765, the value that will be stored is 298765. "^DD",727.811,727.811,12,"DT") 2961018 "^DD",727.811,727.811,13,0) ATTENDING SURGEON^F^^0;14^K:$L(X)>11!($L(X)<1) X "^DD",727.811,727.811,13,.1) Attending Surgeon "^DD",727.811,727.811,13,3) The attending staff surgeon responsible for this case. "^DD",727.811,727.811,13,21,0) ^.001^1^1^3120507^^ "^DD",727.811,727.811,13,21,1,0) Person who oversaw and/or signed off on this surgery. "^DD",727.811,727.811,13,23,0) ^^7^7^3120507^ "^DD",727.811,727.811,13,23,1,0) Derived from the ATTEND SURG field (#.164) in the SURGERY file (#130) "^DD",727.811,727.811,13,23,2,0) for the surgical case. If the case is a non-OR surgical procedure, the "^DD",727.811,727.811,13,23,3,0) ATTEND PROVIDER field (#124) from the SURGERY file (#130) is used. "^DD",727.811,727.811,13,23,4,0) "^DD",727.811,727.811,13,23,5,0) The ATTENDING SURGEON is the value of a "2" prefixed to the pointer value "^DD",727.811,727.811,13,23,6,0) to indicate that the source file is "200". For example, if the IEN of the "^DD",727.811,727.811,13,23,7,0) provider in file #200 is 98765, the value that will be stored is 298765. "^DD",727.811,727.811,13,"DT") 2961018 "^DD",727.811,727.811,14,0) ANESTHESIA SUPERVISOR^F^^0;15^K:$L(X)>11!($L(X)<1) X "^DD",727.811,727.811,14,.1) Anesthesia Supervisor "^DD",727.811,727.811,14,3) Enter the anesthesiology staff supervisor. "^DD",727.811,727.811,14,21,0) ^.001^1^1^3120509^^^ "^DD",727.811,727.811,14,21,1,0) Person who oversaw and/or signed off on the anesthesia for this case. "^DD",727.811,727.811,14,23,0) ^^7^7^3120509^ "^DD",727.811,727.811,14,23,1,0) Derived from the ANESTHESIOLOGIST SUPVR field (#.34) in the SURGERY "^DD",727.811,727.811,14,23,2,0) file (#130) for the surgical case. "^DD",727.811,727.811,14,23,3,0) "^DD",727.811,727.811,14,23,4,0) The ANESTHESIOLOGIST SUPERVISOR is the value of a "2" prefixed to the "^DD",727.811,727.811,14,23,5,0) pointer value to indicate that the source file is "200". For example, if "^DD",727.811,727.811,14,23,6,0) the IEN of the provider in file #200 is 98765, the value that will be "^DD",727.811,727.811,14,23,7,0) stored is 298765. "^DD",727.811,727.811,14,"DT") 2961018 "^DD",727.811,727.811,22,0) PROSTHESIS^P131.9'^SRO(131.9,^0;23^Q "^DD",727.811,727.811,22,.1) Prosthesis "^DD",727.811,727.811,22,3) Select prosthesis used during surgery. "^DD",727.811,727.811,22,21,0) ^.001^1^1^3120509^^^ "^DD",727.811,727.811,22,21,1,0) Describes which locally defined implant, if any, was used. "^DD",727.811,727.811,22,23,0) ^^2^2^3120509^ "^DD",727.811,727.811,22,23,1,0) Derived from the PROSTHESIS ITEM field (#.01) within the PROSTHESIS "^DD",727.811,727.811,22,23,2,0) INSTALLED multiple (#.47) in the SURGERY file (#130). "^DD",727.811,727.811,22,"DT") 3120507 "^DD",727.811,727.811,31,0) NON-OR DSS IDENTIFIER^F^^0;32^K:$L(X)>10!($L(X)<1) X "^DD",727.811,727.811,31,.1) "^DD",727.811,727.811,31,3) Answer must be 1-10 characters in length. "^DD",727.811,727.811,31,21,0) ^.001^2^2^3120507^^^^ "^DD",727.811,727.811,31,21,1,0) Identifies the non-OR location for this procedure if the non-OR portion "^DD",727.811,727.811,31,21,2,0) of the Surgery Package is used. "^DD",727.811,727.811,31,23,0) ^^4^4^3120507^ "^DD",727.811,727.811,31,23,1,0) For a non-OR procedure this field is derived from the DSS UNIT IDENTIFIER "^DD",727.811,727.811,31,23,2,0) field (#8) of the CLINIC AND STOP CODES file (#728.44), using the HOSPITAL "^DD",727.811,727.811,31,23,3,0) LOCATION file pointer (#44) found in the NON-OR LOCATION field (#119) of "^DD",727.811,727.811,31,23,4,0) the SURGERY file (#130). "^DD",727.811,727.811,31,"DT") 3120507 "^DD",727.811,727.811,35,0) PRIMARY CARE PROVIDER^F^^0;36^K:$L(X)>11!($L(X)<1) X "^DD",727.811,727.811,35,.1) Primary Care Provider "^DD",727.811,727.811,35,3) Enter primary care provider assigned to this patient. "^DD",727.811,727.811,35,21,0) ^.001^2^2^3120507^^^ "^DD",727.811,727.811,35,21,1,0) The primary care provider assigned to this patient through the Primary "^DD",727.811,727.811,35,21,2,0) Care Management Module (PCMM) application. "^DD",727.811,727.811,35,23,0) ^^11^11^3120507^ "^DD",727.811,727.811,35,23,1,0) Derived by a call to the Scheduling API, OUTPTPR^SDUTL3. The API returns "^DD",727.811,727.811,35,23,2,0) the provider's internal entry number and name from the NEW PERSON file "^DD",727.811,727.811,35,23,3,0) (#200). The PRIMARY CARE PROVIDER is the value of a "2" prefixed to the "^DD",727.811,727.811,35,23,4,0) pointer value to indicate that the source file is "200". For example, if "^DD",727.811,727.811,35,23,5,0) the IEN of the provider in file #200 is 98765, the value that will be "^DD",727.811,727.811,35,23,6,0) stored is 298765. "^DD",727.811,727.811,35,23,7,0) "^DD",727.811,727.811,35,23,8,0) The DATE OF OPERATION field (#.09) from the SURGERY file (#130) "^DD",727.811,727.811,35,23,9,0) and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.811,727.811,35,23,10,0) in the SURGERY EXTRACT file (#727.811) are the parameters used in the "^DD",727.811,727.811,35,23,11,0) Scheduling API call. "^DD",727.811,727.811,35,"DT") 2961018 "^DD",727.811,727.811,36,0) ADMISSION DATE^FO^^0;37^K:$L(X)>8!($L(X)<8) X "^DD",727.811,727.811,36,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.811,727.811,36,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.811,727.811,36,3) Answer must be 8 characters (YYYYMMDD) in length. "^DD",727.811,727.811,36,21,0) ^.001^2^2^3120508^^^ "^DD",727.811,727.811,36,21,1,0) This 8-character string represents the date on which the patient's "^DD",727.811,727.811,36,21,2,0) admission occurred. "^DD",727.811,727.811,36,23,0) ^^5^5^3120508^ "^DD",727.811,727.811,36,23,1,0) If the patient on whom the surgical procedure was performed was an "^DD",727.811,727.811,36,23,2,0) inpatient on the procedure date, then a call to PATDEM^ECXUTL2, "^DD",727.811,727.811,36,23,3,0) which calls INP^ECXUTL2, which calls IN5^VADPT, will return the admission "^DD",727.811,727.811,36,23,4,0) date/time in VAIP(13,1). The date is then converted to the DSS format of "^DD",727.811,727.811,36,23,5,0) YYYYMMDD. "^DD",727.811,727.811,36,"DT") 2970924 "^DD",727.811,727.811,37,0) MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X "^DD",727.811,727.811,37,3) Answer must be 1-10 characters in length. "^DD",727.811,727.811,37,21,0) ^.001^1^1^3120515^^^^ "^DD",727.811,727.811,37,21,1,0) A national VA system identifier which uniquely identifies a patient. "^DD",727.811,727.811,37,23,0) ^.001^3^3^3120515^^^ "^DD",727.811,727.811,37,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.811,727.811,37,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.811,727.811,37,23,3,0) Patient file (#2). "^DD",727.811,727.811,37,"DT") 2990504 "^DD",727.811,727.811,38,0) DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X "^DD",727.811,727.811,38,.1) "^DD",727.811,727.811,38,3) Answer must be 1-10 characters in length. "^DD",727.811,727.811,38,21,0) ^.001^2^2^3120508^^^ "^DD",727.811,727.811,38,21,1,0) The nationally defined DSS Intermediate Department Number designated to "^DD",727.811,727.811,38,21,2,0) the patient care product being provided. "^DD",727.811,727.811,38,23,0) ^^1^1^3120508^ "^DD",727.811,727.811,38,23,1,0) For the Surgery extract, the DSS PRODUCT DEPARTMENT field is null. "^DD",727.811,727.811,38,"DT") 3040302 "^DD",727.811,727.811,44,0) ASSOCIATE PC PROVIDER^F^^1;8^K:$L(X)>11!($L(X)<2) X "^DD",727.811,727.811,44,3) Answer must be 2-11 characters in length. "^DD",727.811,727.811,44,21,0) ^.001^2^2^3120508^^^^ "^DD",727.811,727.811,44,21,1,0) The Associate Primary Care Provider assigned to this patient through the "^DD",727.811,727.811,44,21,2,0) Primary Care Management Module (PCMM) application. "^DD",727.811,727.811,44,23,0) ^^10^10^3120508^ "^DD",727.811,727.811,44,23,1,0) Derived by a call to the Scheduling API, OUTPTAP^SDUTL3. The API returns "^DD",727.811,727.811,44,23,2,0) the associate provider's internal entry number and name from the NEW "^DD",727.811,727.811,44,23,3,0) PERSON file (#200). The ASSOCIATE PC PROVIDER is the value of a "2" "^DD",727.811,727.811,44,23,4,0) prefixed to the pointer value to indicate that the source file is "200". "^DD",727.811,727.811,44,23,5,0) For example, if the IEN of the provider in file #200 is 98765, the value "^DD",727.811,727.811,44,23,6,0) that will be stored is 298765. "^DD",727.811,727.811,44,23,7,0) "^DD",727.811,727.811,44,23,8,0) The PATIENT field (#.01) and the DATE OF OPERATION field (#.09) of the "^DD",727.811,727.811,44,23,9,0) SURGERY file (#130) are the parameters used to determine the ASSOCIATED "^DD",727.811,727.811,44,23,10,0) PC PROVIDER. "^DD",727.811,727.811,44,"DT") 2990505 "^DD",727.811,727.811,45,0) ASSOC. PC PROV. PERSON CLASS^F^^1;9^K:$L(X)>7!($L(X)<7) X "^DD",727.811,727.811,45,3) Answer must be 7 characters in length. "^DD",727.811,727.811,45,21,0) ^.001^2^2^3120509^^^ "^DD",727.811,727.811,45,21,1,0) VA Code of the Person Class of the patient's Associate Primary Care "^DD",727.811,727.811,45,21,2,0) Provider. "^DD",727.811,727.811,45,23,0) ^.001^4^4^3120509^^ "^DD",727.811,727.811,45,23,1,0) Active Person Class is determined by the supported call "^DD",727.811,727.811,45,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.811,727.811,45,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.811,727.811,45,23,4,0) returned value string. "^DD",727.811,727.811,45,"DT") 2990505 "^DD",727.811,727.811,47,0) CPT CODE QUANTITY MODIFIERS^F^^1;11^K:$L(X)>17!($L(X)<1) X "^DD",727.811,727.811,47,3) Answer must be 1-17 characters in length. "^DD",727.811,727.811,47,21,0) ^.001^3^3^3120509^^^^ "^DD",727.811,727.811,47,21,1,0) The 5-character CPT Code of the procedure performed, the Quantity, or "^DD",727.811,727.811,47,21,2,0) how many times the unique code appears in the record, and up to 5 "^DD",727.811,727.811,47,21,3,0) two-character CPT modifiers. "^DD",727.811,727.811,47,23,0) ^.001^4^4^3120509^^^ "^DD",727.811,727.811,47,23,1,0) This field is derived from a call to CPT^ECXUTL3 using the PRINCIPAL "^DD",727.811,727.811,47,23,2,0) PROCEDURE CODE (#.02) of the SURGERY PROCEDURE/DIAGNOSIS CODE file (#136) "^DD",727.811,727.811,47,23,3,0) and the PRIN. PROCEDURE CPT MODIFIER field (#28) of the SURGERY file "^DD",727.811,727.811,47,23,4,0) (#130) as input. "^DD",727.811,727.811,47,"DT") 3000620 "^DD",727.811,727.811,48,0) DOM,PRRTP AND SAARTP INDICATOR^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CET/TR;^1;12^Q "^DD",727.811,727.811,48,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.811,727.811,48,21,0) ^.001^2^2^3120515^^^^ "^DD",727.811,727.811,48,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP or SARRTP at "^DD",727.811,727.811,48,21,2,0) the time care is provided. "^DD",727.811,727.811,48,23,0) ^.001^5^5^3120515^^ "^DD",727.811,727.811,48,23,1,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.811,727.811,48,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.811,727.811,48,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.811,727.811,48,23,4,0) "^DD",727.811,727.811,48,23,5,0) Otherwise, the value is null. "^DD",727.811,727.811,48,"DT") 3120508 "^DD",727.811,727.811,49,0) ENROLLMENT CATEGORY^F^^1;13^K:$L(X)>1!($L(X)<1) X "^DD",727.811,727.811,49,3) Answer must be 1 character in length. "^DD",727.811,727.811,49,21,0) ^.001^1^1^3120508^^^ "^DD",727.811,727.811,49,21,1,0) Patient's enrollment category. "^DD",727.811,727.811,49,23,0) ^^2^2^3120508^ "^DD",727.811,727.811,49,23,1,0) ENROLLMENT CATEGORY is derived from the standard call $$CATEGORY^DGENA4 "^DD",727.811,727.811,49,23,2,0) using patient DFN and the ENROLLMENT STATUS (#50) field. "^DD",727.811,727.811,49,"DT") 3000620 "^DD",727.811,727.811,50,0) ENROLLMENT STATUS^F^^1;14^K:$L(X)>2!($L(X)<1) X "^DD",727.811,727.811,50,3) Answer must be 1-2 characters in length. "^DD",727.811,727.811,50,21,0) ^.001^1^1^3120508^^^ "^DD",727.811,727.811,50,21,1,0) Patient's enrollment status. "^DD",727.811,727.811,50,23,0) ^^2^2^3120508^ "^DD",727.811,727.811,50,23,1,0) ENROLLMENT STATUS is derived from the standard call $$STATUS^DGENA "^DD",727.811,727.811,50,23,2,0) using patient DFN. "^DD",727.811,727.811,50,"DT") 3000620 "^DD",727.811,727.811,52,0) PERIOD OF SERVICE^F^^1;16^K:$L(X)>1!($L(X)<1) X "^DD",727.811,727.811,52,3) Answer must be 1 character in length. "^DD",727.811,727.811,52,21,0) ^.001^2^2^3120201^^^ "^DD",727.811,727.811,52,21,1,0) The period of service that best classifies the patient based on "^DD",727.811,727.811,52,21,2,0) eligibility code. "^DD",727.811,727.811,52,23,0) ^^10^10^3120201^ "^DD",727.811,727.811,52,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.811,727.811,52,23,2,0) in the SURGERY EXTRACT file (#727.811), PERIOD OF SERVICE data is derived "^DD",727.811,727.811,52,23,3,0) from the PERIOD OF SERVICE field (#.323) in the PATIENT file (#2). This "^DD",727.811,727.811,52,23,4,0) field is a pointer to the PERIOD OF SERVICE file (#21). Using the period "^DD",727.811,727.811,52,23,5,0) of service pointer, the data is derived from the CODE field (#.03) in the "^DD",727.811,727.811,52,23,6,0) PERIOD OF SERVICE file (#21). This code is a single alpha numeric "^DD",727.811,727.811,52,23,7,0) character. "^DD",727.811,727.811,52,23,8,0) "^DD",727.811,727.811,52,23,9,0) The veteran's period of service (pointer) indicator is returned by "^DD",727.811,727.811,52,23,10,0) ELIG^VADPT. "^DD",727.811,727.811,52,"DT") 3000620 "^DD",727.811,727.811,54,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^1;18^Q "^DD",727.811,727.811,54,3) Enter observation patient status for this record. "^DD",727.811,727.811,54,21,0) ^.001^1^1^3120530^^^^ "^DD",727.811,727.811,54,21,1,0) Indicates if patient is considered to be an observation patient. "^DD",727.811,727.811,54,23,0) ^.001^12^12^3120530^^^ "^DD",727.811,727.811,54,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.811,727.811,54,23,2,0) "^DD",727.811,727.811,54,23,3,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.811,727.811,54,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.811,727.811,54,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.811,727.811,54,23,6,0) file. "^DD",727.811,727.811,54,23,7,0) "^DD",727.811,727.811,54,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.811,727.811,54,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.811,727.811,54,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.811,727.811,54,23,11,0) "^DD",727.811,727.811,54,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.811,727.811,54,"DT") 3120508 "^DD",727.811,727.811,55,0) ENCOUNTER NUMBER^F^^1;19^K:$L(X)>18!($L(X)<1) X "^DD",727.811,727.811,55,3) Answer must be 1-18 characters in length. "^DD",727.811,727.811,55,21,0) ^.001^1^1^3120515^^^^ "^DD",727.811,727.811,55,21,1,0) The unique number assigned for DSS. "^DD",727.811,727.811,55,23,0) ^.001^4^4^3120515^^^ "^DD",727.811,727.811,55,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.811,727.811,55,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.811,727.811,55,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.811,727.811,55,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.811,727.811,55,"DT") 3010503 "^DD",727.811,727.811,56,0) AGENT ORANGE LOCATION^F^^1;20^K:$L(X)>2!($L(X)<2) X "^DD",727.811,727.811,56,3) Answer must be 2 characters in length. "^DD",727.811,727.811,56,21,0) ^.001^1^1^3120509^^^^ "^DD",727.811,727.811,56,21,1,0) Indicates the location where the patient was exposed to Agent Orange. "^DD",727.811,727.811,56,23,0) ^.001^3^3^3120509^^ "^DD",727.811,727.811,56,23,1,0) Using the patient's DFN, a call is made to SVC^VADPT, which returns the "^DD",727.811,727.811,56,23,2,0) location indicator, as found in the AGENT ORANGE EXPOSURE LOCATION field "^DD",727.811,727.811,56,23,3,0) (#.3213) of the PATIENT file (#2). "^DD",727.811,727.811,56,"DT") 3010503 "^DD",727.811,727.811,57,0) PRODUCTION DIVISION CODE^F^^1;21^K:$L(X)>7!($L(X)<3) X "^DD",727.811,727.811,57,3) Answer must be 3-7 characters in length. "^DD",727.811,727.811,57,21,0) ^.001^1^1^3120515^^^ "^DD",727.811,727.811,57,21,1,0) Identifies the division/facility where the work was performed. "^DD",727.811,727.811,57,23,0) ^.001^4^4^3120515^^^^ "^DD",727.811,727.811,57,23,1,0) Data comes from the DIVISION field (#50) of the SURGERY file (#130) which "^DD",727.811,727.811,57,23,2,0) is a pointer to the INSTITUTION file (#4). This value is then used to call "^DD",727.811,727.811,57,23,3,0) the API RADDIV^ECXDEPT to get the STATION NUMBER field (#99) from the "^DD",727.811,727.811,57,23,4,0) INSTITUTION file (#4). "^DD",727.811,727.811,57,"DT") 3120508 "^DD",727.811,727.811,58,0) HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^1;22^Q "^DD",727.811,727.811,58,.1) Head and Neck Cancer Indicator "^DD",727.811,727.811,58,3) Enter the Head & Neck Cancer Indicator for the patient. "^DD",727.811,727.811,58,21,0) ^^1^1^3111228^ "^DD",727.811,727.811,58,21,1,0) Identifies whether patient has head and/or neck cancer. "^DD",727.811,727.811,58,23,0) ^.001^3^3^3111228^^^ "^DD",727.811,727.811,58,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.811,727.811,58,23,2,0) (4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "^DD",727.811,727.811,58,23,3,0) CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11). "^DD",727.811,727.811,58,"DT") 3020829 "^DD",727.811,727.811,60,0) RACE 1^F^^1;24^K:$L(X)>6!($L(X)<1) X "^DD",727.811,727.811,60,.1) Race 1 "^DD",727.811,727.811,60,3) Answer must be 1-6 characters in length. "^DD",727.811,727.811,60,21,0) ^.001^1^1^3120508^^^ "^DD",727.811,727.811,60,21,1,0) Self-reported by patient as recorded in VistA patient file. "^DD",727.811,727.811,60,23,0) ^.001^10^10^3120508^^ "^DD",727.811,727.811,60,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.811,727.811,60,23,2,0) (#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file "^DD",727.811,727.811,60,23,3,0) (#10) pointed to by the RACE INFORMATION field (#.01) of the "^DD",727.811,727.811,60,23,4,0) RACE INFORMATION subfile (#2.02) of the PATIENT file (#2). "^DD",727.811,727.811,60,23,5,0) "^DD",727.811,727.811,60,23,6,0) Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.02) "^DD",727.811,727.811,60,23,7,0) where the METHOD OF COLLECTION field (#.02) is set to 1 "^DD",727.811,727.811,60,23,8,0) (SELF-IDENTIFICATION), will be included in the RACE 1 field. If any of "^DD",727.811,727.811,60,23,9,0) the RACE INFORMATION values returned is "C" (DECLINED TO ANSWER), that "^DD",727.811,727.811,60,23,10,0) will be the only value included in the RACE1 field. "^DD",727.811,727.811,60,"DT") 3020829 "^DD",727.811,727.811,62,0) DSS IP #^NJ7,0^^1;26^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X "^DD",727.811,727.811,62,3) Type a Number between 1 and 9999999, 0 Decimal Digits. "^DD",727.811,727.811,62,21,0) ^.001^2^2^3120509^^^^ "^DD",727.811,727.811,62,21,1,0) The nationally defined DSS Intermediate Product Number designated to the "^DD",727.811,727.811,62,21,2,0) patient care product. "^DD",727.811,727.811,62,23,0) ^.001^1^1^3120509^^ "^DD",727.811,727.811,62,23,1,0) For the Surgery extract, the DSS IP# field is null. "^DD",727.811,727.811,62,"DT") 3031113 "^DD",727.811,727.811,63,0) ENROLLMENT PRIORITY^F^^1;27^K:$L(X)>2!($L(X)<1) X "^DD",727.811,727.811,63,3) Answer must be 1-2 characters in length. "^DD",727.811,727.811,63,21,0) ^.001^2^2^3120508^^ "^DD",727.811,727.811,63,21,1,0) This field contains the enrollment priority group and the enrollment "^DD",727.811,727.811,63,21,2,0) priority subgroup. "^DD",727.811,727.811,63,23,0) ^^23^23^3120508^ "^DD",727.811,727.811,63,23,1,0) ENROLLMENT PRIORITY field contains the enrollment priority group and the "^DD",727.811,727.811,63,23,2,0) enrollment priority subgroup from the Patient Enrollment File #27.11. "^DD",727.811,727.811,63,23,3,0) "^DD",727.811,727.811,63,23,4,0) ENROLLMENT PRIORITY Groups determined for a patient enrollment include: "^DD",727.811,727.811,63,23,5,0) "^DD",727.811,727.811,63,23,6,0) '1' FOR GROUP 1 "^DD",727.811,727.811,63,23,7,0) '2' FOR GROUP 2 "^DD",727.811,727.811,63,23,8,0) '3' FOR GROUP 3 "^DD",727.811,727.811,63,23,9,0) '4' FOR GROUP 4 "^DD",727.811,727.811,63,23,10,0) '5' FOR GROUP 5 "^DD",727.811,727.811,63,23,11,0) '6' FOR GROUP 6 "^DD",727.811,727.811,63,23,12,0) '7' FOR GROUP 7 "^DD",727.811,727.811,63,23,13,0) '8' FOR GROUP 8 "^DD",727.811,727.811,63,23,14,0) "^DD",727.811,727.811,63,23,15,0) ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include: "^DD",727.811,727.811,63,23,16,0) "^DD",727.811,727.811,63,23,17,0) '1' FOR a "^DD",727.811,727.811,63,23,18,0) '3' FOR c "^DD",727.811,727.811,63,23,19,0) '5' FOR e "^DD",727.811,727.811,63,23,20,0) '7' FOR g "^DD",727.811,727.811,63,23,21,0) "^DD",727.811,727.811,63,23,22,0) Data is obtained from a call to $$ENRSBGRP^DGENA4(DFN) using the patient's "^DD",727.811,727.811,63,23,23,0) DFN. "^DD",727.811,727.811,63,"DT") 3040301 "^DD",727.811,727.811,64,0) USER ENROLLEE^S^U:USER ENROLLED;^1;28^Q "^DD",727.811,727.811,64,3) Enter patient's current enrollment status. "^DD",727.811,727.811,64,21,0) ^.001^2^2^3120508^^^^ "^DD",727.811,727.811,64,21,1,0) Indicates whether a Veteran has User Enrollee status for the current or "^DD",727.811,727.811,64,21,2,0) future fiscal year. "^DD",727.811,727.811,64,23,0) ^^5^5^3120508^ "^DD",727.811,727.811,64,23,1,0) User enrollee is determined by checking the PATIENT ENROLLMENT (#27.11) "^DD",727.811,727.811,64,23,2,0) file. When a user has a current or future fiscal year in the ENROLLMENT "^DD",727.811,727.811,64,23,3,0) STATUS (#.04) field, the value is set to 'U' and is null if no date or a "^DD",727.811,727.811,64,23,4,0) past year's value is contained. Determined by the use of an API: "^DD",727.811,727.811,64,23,5,0) $$UESTAT^EASUSER where the Patient Identifier (DFN) is passed in. "^DD",727.811,727.811,64,"DT") 3120508 "^DD",727.811,727.811,65,0) PATIENT TYPE^S^AC:ACTIVE DUTY;AL:ALLIED VETERAN;CO:COLLATERAL;EM:EMPLOYEE;IN:INELIGIBLE;MI:MILITARY RETIREE;NO:NON-VETERAN (OTHER);NS:NSC VETERAN;SC:SC VETERAN;TR:TRICARE;^1;29^Q "^DD",727.811,727.811,65,3) Enter type of patient. "^DD",727.811,727.811,65,21,0) ^.001^2^2^3120508^^ "^DD",727.811,727.811,65,21,1,0) Refers to the various types of patient which may be seen at a VA facility. "^DD",727.811,727.811,65,21,2,0) Every patient in the system must have a TYPE specified. "^DD",727.811,727.811,65,23,0) ^.001^5^5^3120508^^ "^DD",727.811,727.811,65,23,1,0) PATIENT TYPE is derived from a call to TYPE^ECXUTL5(DFN). Using the "^DD",727.811,727.811,65,23,2,0) patient's DFN, the NAME field (#.01) of the TYPE OF PATIENT file "^DD",727.811,727.811,65,23,3,0) (#391) as pointed to by the TYPE field (#391) of the PATIENT file (#2) is "^DD",727.811,727.811,65,23,4,0) shortened to the first two characters to determine the value stored in "^DD",727.811,727.811,65,23,5,0) the PATIENT TYPE field (#68). "^DD",727.811,727.811,65,"DT") 3120508 "^DD",727.811,727.811,66,0) CV STATUS ELIGIBILITY^S^Y:YES;E:ELIGIBILITY EXPIRED;^1;30^Q "^DD",727.811,727.811,66,3) Enter patient's combat veteran eligibility. "^DD",727.811,727.811,66,21,0) ^.001^3^3^3120508^^^^ "^DD",727.811,727.811,66,21,1,0) Records if veteran served on active duty in a theater of combat operations "^DD",727.811,727.811,66,21,2,0) during a period of war after the Persian Gulf War or in combat against a "^DD",727.811,727.811,66,21,3,0) hostile force during a period of hostilities after November 11, 1998. "^DD",727.811,727.811,66,23,0) ^^11^11^3120508^ "^DD",727.811,727.811,66,23,1,0) CV STATUS ELIGIBILITY is determined by the use of API "^DD",727.811,727.811,66,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.811,727.811,66,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.811,727.811,66,23,4,0) pieces i.e. 1^20011006^0 and the first piece is resolved as follows. "^DD",727.811,727.811,66,23,5,0) "^DD",727.811,727.811,66,23,6,0) 1 - veteran qualifies as a CV "^DD",727.811,727.811,66,23,7,0) 0 - veteran does not qualify as a CV "^DD",727.811,727.811,66,23,8,0) -1 - bad DFN or date "^DD",727.811,727.811,66,23,9,0) "^DD",727.811,727.811,66,23,10,0) Based on this result the field will be set to 'Y' for 'YES', "^DD",727.811,727.811,66,23,11,0) E for 'ELIGIBILITY EXPIRED' or 'NULL' for 'NOT ELIGIBLE'. "^DD",727.811,727.811,66,"DT") 3120508 "^DD",727.811,727.811,67,0) CV ELIGIBILITY END DATE^F^^1;31^K:$L(X)>8!($L(X)<8) X "^DD",727.811,727.811,67,3) Answer must be 8 characters (YYYYMMDD) in length. "^DD",727.811,727.811,67,21,0) ^.001^4^4^3120509^^^ "^DD",727.811,727.811,67,21,1,0) Records the Combat Veteran eligibility expiration date of the veteran who "^DD",727.811,727.811,67,21,2,0) served on active duty in a theater of combat operations during a period of "^DD",727.811,727.811,67,21,3,0) war after the Persian Gulf War or in combat against a hostile force during "^DD",727.811,727.811,67,21,4,0) a period of hostilities after November 11, 1998. "^DD",727.811,727.811,67,23,0) ^^5^5^3120509^ "^DD",727.811,727.811,67,23,1,0) CV ELIGIBILITY END DATE is determined by the use of API "^DD",727.811,727.811,67,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.811,727.811,67,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.811,727.811,67,23,4,0) pieces (i.e. 1^20010106^0) the 2nd piece is the COMBAT VET END DATE in "^DD",727.811,727.811,67,23,5,0) HL7 format (YYYYMMDD). "^DD",727.811,727.811,67,"DT") 3120508 "^DD",727.811,727.811,68,0) ENCOUNTER CV^S^Y:YES;^1;32^Q "^DD",727.811,727.811,68,3) Enter patient's combat veteran eligibility. "^DD",727.811,727.811,68,20,0) ^.3LA^^0 "^DD",727.811,727.811,68,21,0) ^.001^4^4^3120508^^ "^DD",727.811,727.811,68,21,1,0) Records if veteran served on active duty in a theater of combat "^DD",727.811,727.811,68,21,2,0) operations during a period of war after the Persian Gulf War or in combat "^DD",727.811,727.811,68,21,3,0) against a hostile force during a period of hostilities after November 11, "^DD",727.811,727.811,68,21,4,0) 1998. "^DD",727.811,727.811,68,23,0) ^^10^10^3120508^ "^DD",727.811,727.811,68,23,1,0) ENCOUNTER CV is determined by the use of API $$CVEDT^DGCV(DFN,DATE) that "^DD",727.811,727.811,68,23,2,0) checks the COMBAT VET END DATE field (#.5295) from the PATIENT file #(2) "^DD",727.811,727.811,68,23,3,0) to determine CV Status. API returns three pieces (i.e. 1^20100106^0). The "^DD",727.811,727.811,68,23,4,0) third piece returns: "^DD",727.811,727.811,68,23,5,0) "^DD",727.811,727.811,68,23,6,0) 1 - vet was eligible on date specified "^DD",727.811,727.811,68,23,7,0) 0 - vet was not eligible on date specified "^DD",727.811,727.811,68,23,8,0) "^DD",727.811,727.811,68,23,9,0) Based on these returns, the value for this field shall be Y for Yes if "^DD",727.811,727.811,68,23,10,0) value is 1 or left blank if 0 to indicate ineligibility. "^DD",727.811,727.811,68,"DT") 3120508 "^DD",727.811,727.811,69,0) ROOM CLEANING TIME^NJ2,0^^1;33^K:+X'=X!(X>96)!(X<2)!(X?.E1"."1N.N) X "^DD",727.811,727.811,69,3) Enter the number of 15 minute intervals required to clean the room. "^DD",727.811,727.811,69,21,0) ^.001^3^3^3120509^^ "^DD",727.811,727.811,69,21,1,0) ROOM CLEANING TIME is the number of 15 minute intervals required to clean "^DD",727.811,727.811,69,21,2,0) the room. For example, an entry of 3 indicates that it took 45 minutes to "^DD",727.811,727.811,69,21,3,0) clean the room. "^DD",727.811,727.811,69,23,0) ^.001^9^9^3120509^^^^ "^DD",727.811,727.811,69,23,1,0) The ROOM CLEANING TIME is determined by using the OR CLEAN START TIME "^DD",727.811,727.811,69,23,2,0) field (#.234), OR CLEAN END TIME field (#.236) and the TIME PAT OUT OR "^DD",727.811,727.811,69,23,3,0) field (#.232) of the SURGERY file (#130). "^DD",727.811,727.811,69,23,4,0) "^DD",727.811,727.811,69,23,5,0) If the OR CLEAN START TIME and the OR CLEAN END TIME field have values, "^DD",727.811,727.811,69,23,6,0) then they are used to determine the amount of time to clean the room. If "^DD",727.811,727.811,69,23,7,0) that yields no result then the OR CLEAN END TIME and the TIME PAT OUT OR "^DD",727.811,727.811,69,23,8,0) fields are used. If that yields no result then the default value will be "^DD",727.811,727.811,69,23,9,0) 2. "^DD",727.811,727.811,69,"DT") 3120509 "^DD",727.811,727.811,71,0) NATIONAL PATIENT RECORD FLAG^S^Y:YES;^1;35^Q "^DD",727.811,727.811,71,3) Indicate if patient is associated with a category 1 patient record flag. "^DD",727.811,727.811,71,21,0) ^.001^2^2^3120508^^ "^DD",727.811,727.811,71,21,1,0) This field records that the patient's record contains 1 or more Category "^DD",727.811,727.811,71,21,2,0) 1 (National) Patient Record Flags. "^DD",727.811,727.811,71,23,0) ^^7^7^3120508^ "^DD",727.811,727.811,71,23,1,0) The NATIONAL PATIENT RECORD FLAG field is set based on the results of the "^DD",727.811,727.811,71,23,2,0) $$GETACT^DGPFAPI(DFN,TARGET ARRAY) call. This call looks at the category "^DD",727.811,727.811,71,23,3,0) 1 national patient record flags as recorded in the PRF NATIONAL FLAG file "^DD",727.811,727.811,71,23,4,0) (#26.15). The resulting value of this call is the number of active "^DD",727.811,727.811,71,23,5,0) category I patient record flags assigned to this patient. This field is "^DD",727.811,727.811,71,23,6,0) set to Y (YES) if the result is greater than zero. A value of zero causes "^DD",727.811,727.811,71,23,7,0) this field to be left null. "^DD",727.811,727.811,71,"DT") 3120508 "^DD",727.811,727.811,72,0) PRINCIPAL ANESTHETIST^F^^1;36^K:$L(X)>11!($L(X)<2) X "^DD",727.811,727.811,72,3) Answer must be 2-11 characters in length. "^DD",727.811,727.811,72,21,0) ^.001^2^2^3120720^^^ "^DD",727.811,727.811,72,21,1,0) The principal anesthesiologist or Certified Registered Nurse Anesthetist "^DD",727.811,727.811,72,21,2,0) (CRNA) (or surgeon, if local anesthesia). "^DD",727.811,727.811,72,23,0) ^^8^8^3120720^ "^DD",727.811,727.811,72,23,1,0) The PRINCIPAL ANESTHETIST field is derived from the PRINC ANESTHETIST "^DD",727.811,727.811,72,23,2,0) field (#.31) of the SURGERY file (#130). This field is a pointer to the "^DD",727.811,727.811,72,23,3,0) NEW PERSON file (#200). "^DD",727.811,727.811,72,23,4,0) "^DD",727.811,727.811,72,23,5,0) The PRINCIPAL ANESTHETIST is the value of a "2" prefixed to the pointer "^DD",727.811,727.811,72,23,6,0) value to indicate that the source file is "200". For example, if the IEN "^DD",727.811,727.811,72,23,7,0) of the provider in file #200 is 98765, the value that will be stored is "^DD",727.811,727.811,72,23,8,0) 298765. "^DD",727.811,727.811,72,"DT") 3120720 "^DD",727.811,727.811,78,0) AGENT ORANGE ENC INDICATOR^S^Y:YES;N:NO;^2;5^Q "^DD",727.811,727.811,78,3) Enter patient's agent orange exposure indicator. "^DD",727.811,727.811,78,21,0) ^.001^2^2^3120508^^ "^DD",727.811,727.811,78,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.811,727.811,78,21,2,0) related to exposure to Agent Orange. "^DD",727.811,727.811,78,23,0) ^.001^5^5^3120508^^^ "^DD",727.811,727.811,78,23,1,0) Using the VISIT field (#.015) in the SURGERY file (#130) a call is made to "^DD",727.811,727.811,78,23,2,0) API VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI "^DD",727.811,727.811,78,23,3,0) will return the agent orange indicator stored at the AGENT ORANGE EXPOSURE "^DD",727.811,727.811,78,23,4,0) field (#80002) in the VISIT file (#9000010). The value will be stored "^DD",727.811,727.811,78,23,5,0) in the output array subscripted "AO". "^DD",727.811,727.811,78,"DT") 3120508 "^DD",727.811,727.811,79,0) ENC HEAD/NECK CA^S^Y:YES;N:NO;^2;6^Q "^DD",727.811,727.811,79,3) Indicate whether patient has head and/or neck cancer. "^DD",727.811,727.811,79,21,0) ^.001^2^2^3120508^^ "^DD",727.811,727.811,79,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.811,727.811,79,21,2,0) related to head and/or neck cancer. "^DD",727.811,727.811,79,23,0) ^.001^5^5^3120508^^^ "^DD",727.811,727.811,79,23,1,0) Using the VISIT field (#.015) in the SURGERY file (#130) a call is made to "^DD",727.811,727.811,79,23,2,0) API VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI "^DD",727.811,727.811,79,23,3,0) will return the head/neck cancer data stored at the HEAD AND/OR NECK "^DD",727.811,727.811,79,23,4,0) CANCER field (#80006) in the VISIT file (#9000010). The value will be "^DD",727.811,727.811,79,23,5,0) stored in the output array subscripted by "HNC". "^DD",727.811,727.811,79,"DT") 3120508 "^DD",727.811,727.811,82,0) CLINIC POINTER^P44'^SC(^2;9^Q "^DD",727.811,727.811,82,3) Enter clinic associated with the outpatient surgical procedure. "^DD",727.811,727.811,82,21,0) ^.001^1^1^3120509^^^^ "^DD",727.811,727.811,82,21,1,0) Identifies the clinic associated with surgery specialty for this case. "^DD",727.811,727.811,82,23,0) ^^14^14^3120509^ "^DD",727.811,727.811,82,23,1,0) This applies to outpatients only. Value is null for inpatients. The "^DD",727.811,727.811,82,23,2,0) clinic is determined as follows. "^DD",727.811,727.811,82,23,3,0) "^DD",727.811,727.811,82,23,4,0) If a case is for the Non-OR portion of the Surgery package, the value for "^DD",727.811,727.811,82,23,5,0) the CLINIC POINTER is retrieved from the ASSOCIATED CLINIC field (#.021) "^DD",727.811,727.811,82,23,6,0) located in the SURGERY file (#130). "^DD",727.811,727.811,82,23,7,0) "^DD",727.811,727.811,82,23,8,0) If the value in the ASSOCIATED CLINIC is NULL, then the value is obtained "^DD",727.811,727.811,82,23,9,0) from the NON-OR LOCATION field (#119), located in the SURGERY file (#130). "^DD",727.811,727.811,82,23,10,0) "^DD",727.811,727.811,82,23,11,0) If a case is not for the Non-OR portion of the Surgery package, the value "^DD",727.811,727.811,82,23,12,0) for the CLINIC POINTER is retrieved from the ASSOCIATED CLINIC field (#2) "^DD",727.811,727.811,82,23,13,0) of the SURGICAL SPECIALTY file (#137.45) as pointed to by the SURGERY "^DD",727.811,727.811,82,23,14,0) SPECIALTY field (#.04) of the SURGERY file (#130). "^DD",727.811,727.811,82,"DT") 3120508 "^DD",727.811,727.811,83,0) CREDIT STOP^F^^2;10^K:$L(X)>3!($L(X)<1) X "^DD",727.811,727.811,83,3) Answer must be 1-3 characters in length. "^DD",727.811,727.811,83,21,0) ^.001^2^2^3120509^^^^ "^DD",727.811,727.811,83,21,1,0) Identifies the Credit Stop Code of the clinic associated with the surgery "^DD",727.811,727.811,83,21,2,0) specialty for this case. "^DD",727.811,727.811,83,23,0) ^^5^5^3120509^ "^DD",727.811,727.811,83,23,1,0) This applies only to outpatients. The clinic associated with the Surgery "^DD",727.811,727.811,83,23,2,0) Specialty is a pointer to the HOSPITAL LOCATION file (#44). CREDIT STOP "^DD",727.811,727.811,83,23,3,0) is field (#2503) in the HOSPITAL LOCATION file (#44). Follow pointer to "^DD",727.811,727.811,83,23,4,0) clinic entry in CLINIC STOP file (#40.7) to obtain three-character code. "^DD",727.811,727.811,83,23,5,0) Value is null for inpatients. "^DD",727.811,727.811,83,"DT") 3070502 "^DD",727.811,727.811,84,0) STOP CODE^F^^2;11^K:$L(X)>3!($L(X)<1) X "^DD",727.811,727.811,84,3) Answer must be 1-3 characters in length. "^DD",727.811,727.811,84,21,0) ^.001^2^2^3120509^^^^ "^DD",727.811,727.811,84,21,1,0) Identifies the Primary Stop Code of the clinic associated with the surgery "^DD",727.811,727.811,84,21,2,0) specialty for this case. "^DD",727.811,727.811,84,23,0) ^^4^4^3120509^ "^DD",727.811,727.811,84,23,1,0) This applies only to outpatients. The clinic associated with the Surgery "^DD",727.811,727.811,84,23,2,0) Specialty is a pointer to the HOSPITAL LOCATION file (#44). STOP CODE is "^DD",727.811,727.811,84,23,3,0) field (#8) in the HOSPITAL LOCATION file (#44). Value is null for "^DD",727.811,727.811,84,23,4,0) inpatients. "^DD",727.811,727.811,84,"DT") 3070502 "^DD",727.811,727.811,85,0) PRINC POSTOP DIAGNOSIS CODE^F^^2;12^K:$L(X)>7!($L(X)<1) X "^DD",727.811,727.811,85,3) Answer must be 1-7 characters in length. "^DD",727.811,727.811,85,21,0) ^.001^1^1^3120509^^^ "^DD",727.811,727.811,85,21,1,0) The post-op diagnosis for the Principle Procedure. "^DD",727.811,727.811,85,23,0) ^^3^3^3120509^ "^DD",727.811,727.811,85,23,1,0) This field is derived from the CODE NUMBER field (#.01) of the ICD "^DD",727.811,727.811,85,23,2,0) DIAGNOSIS file (#80) as pointed to by the PRIN POSTOP DIAGNOSIS CODE "^DD",727.811,727.811,85,23,3,0) field (#.03) of the SURGERY PROCEDURE/DIAGNOSIS CODES file (#136). "^DD",727.811,727.811,85,"DT") 3070502 "^DD",727.811,727.811,86,0) OTHER POSTOP DIAGNOSIS CODE #1^F^^2;13^K:$L(X)>7!($L(X)<1) X "^DD",727.811,727.811,86,3) Answer must be 1-7 characters in length. "^DD",727.811,727.811,86,21,0) ^.001^1^1^3120509^^^^ "^DD",727.811,727.811,86,21,1,0) The first associated diagnosis for the Principle Procedure. "^DD",727.811,727.811,86,23,0) ^^4^4^3120509^ "^DD",727.811,727.811,86,23,1,0) This field is derived from the CODE NUMBER field (#.01) of the ICD "^DD",727.811,727.811,86,23,2,0) DIAGNOSIS file (#80) as pointed to by the first entry in the OTHER POSTOP "^DD",727.811,727.811,86,23,3,0) DIAGNOSIS field (#.01) of the OTHER POST DIAGNOSIS multiple (#4) of the "^DD",727.811,727.811,86,23,4,0) SURGERY PROCEDURE/DIAGNOSIS CODES file (#136). "^DD",727.811,727.811,86,"DT") 3070502 "^DD",727.811,727.811,87,0) OTHER POSTOP DIAGNOSIS CODE #2^F^^2;14^K:$L(X)>7!($L(X)<1) X "^DD",727.811,727.811,87,3) Answer must be 1-7 characters in length. "^DD",727.811,727.811,87,21,0) ^.001^1^1^3120509^^ "^DD",727.811,727.811,87,21,1,0) The second associated diagnosis for the Principle Procedure. "^DD",727.811,727.811,87,23,0) ^^4^4^3120509^ "^DD",727.811,727.811,87,23,1,0) This field is derived from the CODE NUMBER field (#.01) of the ICD "^DD",727.811,727.811,87,23,2,0) DIAGNOSIS file (#80) as pointed to by the second entry in the OTHER POSTOP "^DD",727.811,727.811,87,23,3,0) DIAGNOSIS field (#.01) of the OTHER POST DIAGNOSIS multiple (#4) of the "^DD",727.811,727.811,87,23,4,0) SURGERY PROCEDURE/DIAGNOSIS CODES file (#136). "^DD",727.811,727.811,87,"DT") 3070502 "^DD",727.811,727.811,88,0) OTHER POSTOP DIAGNOSIS CODE #3^F^^2;15^K:$L(X)>7!($L(X)<1) X "^DD",727.811,727.811,88,3) Answer must be 1-7 characters in length. "^DD",727.811,727.811,88,21,0) ^.001^1^1^3120509^^ "^DD",727.811,727.811,88,21,1,0) The third associated diagnosis for the Principle Procedure. "^DD",727.811,727.811,88,23,0) ^^4^4^3120509^ "^DD",727.811,727.811,88,23,1,0) This field is derived from the CODE NUMBER field (#.01) of the ICD "^DD",727.811,727.811,88,23,2,0) DIAGNOSIS file (#80) as pointed to by the third entry in the OTHER POSTOP "^DD",727.811,727.811,88,23,3,0) DIAGNOSIS field (#.01) of the OTHER POST DIAGNOSIS multiple (#4) of the "^DD",727.811,727.811,88,23,4,0) SURGERY PROCEDURE/DIAGNOSIS CODES file (#136). "^DD",727.811,727.811,88,"DT") 3070502 "^DD",727.811,727.811,89,0) OTHER POSTOP DIAGNOSIS CODE #4^F^^2;16^K:$L(X)>7!($L(X)<1) X "^DD",727.811,727.811,89,3) Answer must be 1-7 characters in length. "^DD",727.811,727.811,89,21,0) ^.001^1^1^3120509^^ "^DD",727.811,727.811,89,21,1,0) The fourth associated diagnosis for the Principle Procedure. "^DD",727.811,727.811,89,23,0) ^^4^4^3120509^ "^DD",727.811,727.811,89,23,1,0) This field is derived from the CODE NUMBER field (#.01) of the ICD "^DD",727.811,727.811,89,23,2,0) DIAGNOSIS file (#80) as pointed to by the fourth entry in the OTHER POSTOP "^DD",727.811,727.811,89,23,3,0) DIAGNOSIS field (#.01) of the OTHER POST DIAGNOSIS multiple (#4) of the "^DD",727.811,727.811,89,23,4,0) SURGERY PROCEDURE/DIAGNOSIS CODES file (#136). "^DD",727.811,727.811,89,"DT") 3070502 "^DD",727.811,727.811,90,0) OTHER POSTOP DIAGNOSIS CODE #5^F^^2;17^K:$L(X)>7!($L(X)<1) X "^DD",727.811,727.811,90,3) Answer must be 1-7 characters in length. "^DD",727.811,727.811,90,21,0) ^.001^1^1^3120509^^^ "^DD",727.811,727.811,90,21,1,0) The fifth associated diagnosis for the Principle Procedure. "^DD",727.811,727.811,90,23,0) ^^4^4^3120509^ "^DD",727.811,727.811,90,23,1,0) This field is derived from the CODE NUMBER field (#.01) of the ICD "^DD",727.811,727.811,90,23,2,0) DIAGNOSIS file (#80) as pointed to by the fifth entry in the OTHER POSTOP "^DD",727.811,727.811,90,23,3,0) DIAGNOSIS field (#.01) of the OTHER POST DIAGNOSIS multiple (#4) of the "^DD",727.811,727.811,90,23,4,0) SURGERY PROCEDURE/DIAGNOSIS CODES file (#136). "^DD",727.811,727.811,90,"DT") 3070502 "^DD",727.811,727.811,97,0) ENCOUNTER SWAC^S^Y:YES;N:NO;^2;24^Q "^DD",727.811,727.811,97,3) Indicate if treatment is related to Southwest Asia conditions for this encounter. "^DD",727.811,727.811,97,21,0) ^.001^3^3^3120509^^^ "^DD",727.811,727.811,97,21,1,0) This field indicates if treatment provided during this patient encounter "^DD",727.811,727.811,97,21,2,0) is related to exposure to Southwest Asia conditions while serving in the "^DD",727.811,727.811,97,21,3,0) Southwest Asia Theater of Operations. "^DD",727.811,727.811,97,23,0) ^.001^4^4^3120509^^^^ "^DD",727.811,727.811,97,23,1,0) Using the pointer to the VISIT file (#90000.10) a call to the PCE "^DD",727.811,727.811,97,23,2,0) API ENCEVENT^PXAPI is made. This call returns visit data, including "^DD",727.811,727.811,97,23,3,0) the SW ASIA CONDITIONS field (#80004) in the VISIT file "^DD",727.811,727.811,97,23,4,0) (#9000010). "^DD",727.811,727.811,97,"DT") 3090513 "^DD",727.811,727.811,98,0) RADIATION ENCOUNTER INDICATOR^S^Y:YES;N:NO;^2;25^Q "^DD",727.811,727.811,98,3) Indicate Ionizing Radiation exposure for this encounter. "^DD",727.811,727.811,98,21,0) ^.001^2^2^3120509^^^^ "^DD",727.811,727.811,98,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.811,727.811,98,21,2,0) related to exposure to ionizing radiation. "^DD",727.811,727.811,98,23,0) ^.001^4^4^3120509^^^ "^DD",727.811,727.811,98,23,1,0) Using the VISIT field (#.015) in the SURGERY file (#130) a call "^DD",727.811,727.811,98,23,2,0) is made to API VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The "^DD",727.811,727.811,98,23,3,0) ENCEVENT^PXAPI returns visit data, including the IONIZING RADIATION "^DD",727.811,727.811,98,23,4,0) EXPOSURE field (#80003) in the VISIT file (#9000010). "^DD",727.811,727.811,98,"DT") 3080717 "^DD",727.811,727.811,101,0) AGENT ORANGE STATUS^S^Y:YES;N:NO;U:UNKNOWN;^2;28^Q "^DD",727.811,727.811,101,3) Indicate agent orange status for the patient. "^DD",727.811,727.811,101,21,0) ^.001^1^1^3120509^^ "^DD",727.811,727.811,101,21,1,0) Indicates if patient was exposed to Agent Orange. "^DD",727.811,727.811,101,23,0) ^.001^2^2^3120509^^^ "^DD",727.811,727.811,101,23,1,0) Derived from the PATIENT file (#2); AGENT ORANGE EXPOS. INDICATED field "^DD",727.811,727.811,101,23,2,0) (#.32102). The status indicator is returned by SVC^VADPT. "^DD",727.811,727.811,101,"DT") 3080512 "^DD",727.811,727.811,102,0) SW ASIA CONDITIONS^S^Y:YES;N:NO;U:UNKNOWN;^2;29^Q "^DD",727.811,727.811,102,3) Select patient's claimed SW ASIA condition status. "^DD",727.811,727.811,102,21,0) ^.001^1^1^3120509^^ "^DD",727.811,727.811,102,21,1,0) Indicate if patient claims exposure to Southwest Asia Conditions. "^DD",727.811,727.811,102,23,0) ^^3^3^3120509^ "^DD",727.811,727.811,102,23,1,0) This field is derived from the SOUTHWEST ASIA CONDITIONS? field "^DD",727.811,727.811,102,23,2,0) (#.322013) in the Patient File (#2) using the patient's DFN. The status "^DD",727.811,727.811,102,23,3,0) indicator is returned by SVC^VADPT which is called by PAT^ECXUTL3. "^DD",727.811,727.811,102,"DT") 3090609 "^DD",727.811,727.811,121,0) DATE OF BIRTH^FO^^3;15^K:$L(X)>8!($L(X)<8) X "^DD",727.811,727.811,121,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.811,727.811,121,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.811,727.811,121,3) Answer must be 8 characters (YYYYMMDD) in length. "^DD",727.811,727.811,121,21,0) ^^1^1^3120104^ "^DD",727.811,727.811,121,21,1,0) Patient's date of birth. "^DD",727.811,727.811,121,23,0) ^.001^4^4^3120104^^^ "^DD",727.811,727.811,121,23,1,0) The data is derived by using the Patient No. - DFN (#4) field of this file "^DD",727.811,727.811,121,23,2,0) to retrieve the DATE OF BIRTH (#.03) field from the PATIENT (#2) file. "^DD",727.811,727.811,121,23,3,0) If Date of Birth cannot be determined, then January 1, 1942, is used as "^DD",727.811,727.811,121,23,4,0) default. "^DD",727.811,727.811,121,"DT") 3110620 "^DD",727.813,727.813,3,0) FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X "^DD",727.813,727.813,3,.1) Facility "^DD",727.813,727.813,3,3) Enter the station number (1-7 characters) where this extract was performed. "^DD",727.813,727.813,3,21,0) ^.001^1^1^3120601^^^^ "^DD",727.813,727.813,3,21,1,0) This is the facility/division where the extract was performed. "^DD",727.813,727.813,3,23,0) ^.001^4^4^3120601^^^^ "^DD",727.813,727.813,3,23,1,0) An indicator of the division where this event happened. Using the NAME "^DD",727.813,727.813,3,23,2,0) field (.01) pointer from the DSS EXTRACTS file (#728), FACILITY is "^DD",727.813,727.813,3,23,3,0) derived from the STATION NUMBER field (99) for that pointer number in "^DD",727.813,727.813,3,23,4,0) the INSTITUTION file (#4). "^DD",727.813,727.813,3,"DT") 2990510 "^DD",727.813,727.813,4,0) PATIENT NO. - DFN^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X "^DD",727.813,727.813,4,.1) Patient No. - DFN "^DD",727.813,727.813,4,3) Type a number between 1 and 999999999, 0 decimal digits. "^DD",727.813,727.813,4,21,0) ^.001^2^2^3120320^^^^ "^DD",727.813,727.813,4,21,1,0) The IEN (Internal Entry Number) for the patient or entity at "^DD",727.813,727.813,4,21,2,0) the local site. "^DD",727.813,727.813,4,23,0) ^^16^16^3120320^ "^DD",727.813,727.813,4,23,1,0) The entity to which this extract applies. "^DD",727.813,727.813,4,23,2,0) "^DD",727.813,727.813,4,23,3,0) 1. For Lab Extract without LMIP Codes: It could be an inpatient, a "^DD",727.813,727.813,4,23,4,0) referral patient, or a research subject (which could be a patient, animal, "^DD",727.813,727.813,4,23,5,0) tissue sample, etc.). "^DD",727.813,727.813,4,23,6,0) "^DD",727.813,727.813,4,23,7,0) Internal entry number in the PATIENT file (#2), or the REFERRAL file "^DD",727.813,727.813,4,23,8,0) (#67), or the RESEARCH file (#67.1). Derived from the NAME field (.03) as "^DD",727.813,727.813,4,23,9,0) defined from the PARENT FILE field (.02) in the LAB DATA file (#63). "^DD",727.813,727.813,4,23,10,0) "^DD",727.813,727.813,4,23,11,0) 2. For Lab Extract with LMIP Codes: The patient to whom this extract "^DD",727.813,727.813,4,23,12,0) applies. It could be an inpatient or a referral patient. "^DD",727.813,727.813,4,23,13,0) "^DD",727.813,727.813,4,23,14,0) Internal entry number in the PATIENT file (#2) or the REFERRAL PATIENT "^DD",727.813,727.813,4,23,15,0) file (#67). Derived from the NAME field (.03) as defined from the PARENT "^DD",727.813,727.813,4,23,16,0) FILE field (.02) in the LAB DATA file (#63). "^DD",727.813,727.813,4,"DT") 3120309 "^DD",727.813,727.813,5,0) SSN IDENTIFYING NUMBER^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X "^DD",727.813,727.813,5,.1) Social Security Identifying Number "^DD",727.813,727.813,5,3) Your answer must be 9 to 10 characters in length. "^DD",727.813,727.813,5,21,0) ^.001^2^2^3120601^^^^ "^DD",727.813,727.813,5,21,1,0) The patient's social security number or the identifying number for a "^DD",727.813,727.813,5,21,2,0) referral patient. "^DD",727.813,727.813,5,23,0) ^.001^16^16^3120601^^^^ "^DD",727.813,727.813,5,23,1,0) SSN or identifying number as defined by one of two methods: "^DD",727.813,727.813,5,23,2,0) 1. For Lab Extract without LMIP Codes: "^DD",727.813,727.813,5,23,3,0) If the PARENT FILE field (.02) in the LAB DATA file (#63) is "^DD",727.813,727.813,5,23,4,0) a. PATIENT file (#2) = SOCIAL SECURITY NUMBER field (.09) "^DD",727.813,727.813,5,23,5,0) b. REFERRAL PATIENT file (#67) = "000123456" "^DD",727.813,727.813,5,23,6,0) c. RESEARCH file (#67.1) = "888888888" "^DD",727.813,727.813,5,23,7,0) "^DD",727.813,727.813,5,23,8,0) 2. For Lab Extract with LMIP Codes: "^DD",727.813,727.813,5,23,9,0) If the PATIENT field (9) of the ACCESSION WKLD CODE TIME field (1) "^DD",727.813,727.813,5,23,10,0) multiple within the WKLD CODE field (1) multiple within the DATE "^DD",727.813,727.813,5,23,11,0) field (.03) multiple of the WKLD DATA file (#64.1) is "^DD",727.813,727.813,5,23,12,0) a. PATIENT file (#2) = SOCIAL SECURITY NUMBER field (.09) "^DD",727.813,727.813,5,23,13,0) b. REFERRAL PATIENT file (#67) = "000123456" "^DD",727.813,727.813,5,23,14,0) "^DD",727.813,727.813,5,23,15,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with "^DD",727.813,727.813,5,23,16,0) an SSN beginning with "00000" will not be included in the extract. "^DD",727.813,727.813,5,"DT") 2961017 "^DD",727.813,727.813,7,0) IN OUT PATIENT INDICATOR^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q "^DD",727.813,727.813,7,.1) In Out Patient Indicator "^DD",727.813,727.813,7,3) Enter the patient's status at the time of the lab test. "^DD",727.813,727.813,7,21,0) ^.001^2^2^3120608^^^^ "^DD",727.813,727.813,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for this "^DD",727.813,727.813,7,21,2,0) extract. "^DD",727.813,727.813,7,23,0) ^.001^10^10^3120608^^ "^DD",727.813,727.813,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.813,727.813,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.813,727.813,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.813,727.813,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.813,727.813,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.813,727.813,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.813,727.813,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.813,727.813,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.813,727.813,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.813,727.813,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.813,727.813,7,"DT") 3120309 "^DD",727.813,727.813,8,0) DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X "^DD",727.813,727.813,8,.1) Day "^DD",727.813,727.813,8,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.813,727.813,8,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.813,727.813,8,3) Answer must be 8 characters in length. "^DD",727.813,727.813,8,21,0) ^^1^1^3111219^ "^DD",727.813,727.813,8,21,1,0) Date the last test/specimen was collected. "^DD",727.813,727.813,8,23,0) ^.001^16^16^3111219^^^^ "^DD",727.813,727.813,8,23,1,0) Data source -- "^DD",727.813,727.813,8,23,2,0) "^DD",727.813,727.813,8,23,3,0) For Lab Extract: "^DD",727.813,727.813,8,23,4,0) Data is inserted in this field by Laboratory routine ECXLABN "^DD",727.813,727.813,8,23,5,0) and is derived from WKLD LOG file (#64.03) DATE/TIME COLLECTED "^DD",727.813,727.813,8,23,6,0) field (#12). "^DD",727.813,727.813,8,23,7,0) The value in field #12 of file #64.03 originated from "^DD",727.813,727.813,8,23,8,0) routine LRCAPDSS and is derived from WKLD DATA file (#64.1); "^DD",727.813,727.813,8,23,9,0) sub-file ACCESSION WKLD CODE TIME (#64.1111); INVERSE DATE "^DD",727.813,727.813,8,23,10,0) COMPLETED field (#21) "^DD",727.813,727.813,8,23,11,0) "^DD",727.813,727.813,8,23,12,0) This field is always exactly 8 numeric characters in length. The format "^DD",727.813,727.813,8,23,13,0) is YYYYMMDD; for example, 19970923. If the date cannot be determined, "^DD",727.813,727.813,8,23,14,0) then a default is used. The default date value is the value of the "^DD",727.813,727.813,8,23,15,0) YEAR MONTH field (#1) concatenated with "01" for the day (DD) portion. "^DD",727.813,727.813,8,23,16,0) Year 2000 compliant per vendor. "^DD",727.813,727.813,8,"DT") 2970924 "^DD",727.813,727.813,9,0) ACCESSION AREA^F^^0;10^K:$L(X)>5!($L(X)<1) X "^DD",727.813,727.813,9,.1) Accession Area "^DD",727.813,727.813,9,3) Answer must be 1-5 characters in length. "^DD",727.813,727.813,9,21,0) ^.001^1^1^3120328^^^^ "^DD",727.813,727.813,9,21,1,0) The accession area where the lab specimen was received. "^DD",727.813,727.813,9,23,0) ^^11^11^3120328^ "^DD",727.813,727.813,9,23,1,0) For a laboratory procedure on a routine medical center patient, this "^DD",727.813,727.813,9,23,2,0) field will contain the IEN of the ACCESSION file (#68) as pointed to by "^DD",727.813,727.813,9,23,3,0) the ACCESSION AREA field (#6) of the WKLD LOG file (64.03). "^DD",727.813,727.813,9,23,4,0) "^DD",727.813,727.813,9,23,5,0) For a procedure on a referral patient, this field will contain the "^DD",727.813,727.813,9,23,6,0) first two characters of the AGENCY CODE field (#95) of the INSTITUTION "^DD",727.813,727.813,9,23,7,0) file (#4). Coinciding with the LOCATION field, If the referring "^DD",727.813,727.813,9,23,8,0) facility doesn't exist or is not found in the INSTITUTION file (#4), "^DD",727.813,727.813,9,23,9,0) this field will be set to XX. If the referring facility is found in "^DD",727.813,727.813,9,23,10,0) the INSTITUTION file (#4) and not containing a STATION NUMBER (#99), "^DD",727.813,727.813,9,23,11,0) this field will be set to ZZ. "^DD",727.813,727.813,9,"DT") 2980120 "^DD",727.813,727.813,10,0) ABBREVIATION^F^^0;11^K:$L(X)>5!($L(X)<1) X "^DD",727.813,727.813,10,.1) Abbreviation "^DD",727.813,727.813,10,3) Your answer must be 1 to 5 characters in length. "^DD",727.813,727.813,10,21,0) ^^2^2^3120315^ "^DD",727.813,727.813,10,21,1,0) The abbreviation for the accession area where the lab specimen "^DD",727.813,727.813,10,21,2,0) was received. "^DD",727.813,727.813,10,23,0) ^.001^10^10^3120315^^^^ "^DD",727.813,727.813,10,23,1,0) 1. For Lab Extract without LMIP Codes: "^DD",727.813,727.813,10,23,2,0) ABBREVIATION field (.09) of the ACCESSION file (#68) as pointed to by "^DD",727.813,727.813,10,23,3,0) the ACCESSION AREA field (3) within the TEST multiple (6) within the "^DD",727.813,727.813,10,23,4,0) SPECIMEN # multiple (1) of the LAB ORDER ENTRY file (#69). "^DD",727.813,727.813,10,23,5,0) "^DD",727.813,727.813,10,23,6,0) 2. For Lab Extract with LMIP Codes: "^DD",727.813,727.813,10,23,7,0) ABBREVIATION field (.09) in the ACCESSION file (#68) as pointed to by "^DD",727.813,727.813,10,23,8,0) the MAJ. SECT. field (6) of the ACCESSION WKLD CODE TIME field "^DD",727.813,727.813,10,23,9,0) (1) multiple within the WKLD CODE field (1) multiple within the DATE "^DD",727.813,727.813,10,23,10,0) field (.03) multiple of the WKLD DATA file (#64.1). "^DD",727.813,727.813,10,"DT") 2960730 "^DD",727.813,727.813,11,0) TEST^P60'^LAB(60,^0;12^Q "^DD",727.813,727.813,11,.1) Test "^DD",727.813,727.813,11,3) Enter the lab test for this entry. "^DD",727.813,727.813,11,21,0) ^^1^1^3120320^ "^DD",727.813,727.813,11,21,1,0) The lab test performed. "^DD",727.813,727.813,11,23,0) ^^10^10^3120320^ "^DD",727.813,727.813,11,23,1,0) 1. For Lab Extract without LMIP Codes: "^DD",727.813,727.813,11,23,2,0) The IEN of the record in the LABORATORY TEST FILE (#60) as pointed to "^DD",727.813,727.813,11,23,3,0) by TEST/PROCEDURE field (.01) of the TEST multiple (6) within the "^DD",727.813,727.813,11,23,4,0) SPECIMEN # multiple (1) of the LAB ORDER ENTRY file (#69). "^DD",727.813,727.813,11,23,5,0) "^DD",727.813,727.813,11,23,6,0) 2. For Lab Extract with LMIP Codes: "^DD",727.813,727.813,11,23,7,0) The IEN of the record in the LABORATORY TEST FILE (#60) as pointed to "^DD",727.813,727.813,11,23,8,0) by the LAB TEST field (1) of the ACCESSION WKLD CODE TIME field (1) "^DD",727.813,727.813,11,23,9,0) multiple within the WKLD CODE field (1) multiple within the DATE field "^DD",727.813,727.813,11,23,10,0) (.03) multiple of the WKLD DATA file (#64.1). "^DD",727.813,727.813,11,"DT") 2960730 "^DD",727.813,727.813,12,0) URGENCY OF TEST^P62.05'^LAB(62.05,^0;13^Q "^DD",727.813,727.813,12,.1) Urgency of Test "^DD",727.813,727.813,12,3) Enter urgency of test completed. "^DD",727.813,727.813,12,21,0) ^.001^1^1^3120320^^ "^DD",727.813,727.813,12,21,1,0) The turnaround time requested. "^DD",727.813,727.813,12,23,0) ^^10^10^3120320^ "^DD",727.813,727.813,12,23,1,0) 1. For Lab Extract without LMIP Codes: "^DD",727.813,727.813,12,23,2,0) The IEN of the record in the URGENCY FILE (#62.05) as pointed to by "^DD",727.813,727.813,12,23,3,0) URGENCY field (1) of the TEST multiple (6) within the SPECIMEN # "^DD",727.813,727.813,12,23,4,0) multiple (1) of the LAB ORDER ENTRY file (#69). "^DD",727.813,727.813,12,23,5,0) "^DD",727.813,727.813,12,23,6,0) 2. For Lab Extract with LMIP Codes: "^DD",727.813,727.813,12,23,7,0) The IEN of the record in the URGENCY FILE (#62.05) as pointed to by the "^DD",727.813,727.813,12,23,8,0) URGENCY field (22) of the ACCESSION WKLD CODE TIME field (1) multiple "^DD",727.813,727.813,12,23,9,0) within the WKLD CODE field (1) multiple within the DATE field (.03) "^DD",727.813,727.813,12,23,10,0) multiple of the WKLD DATA file (#64.1). "^DD",727.813,727.813,12,"DT") 2960730 "^DD",727.813,727.813,14,0) LOCATION^F^^0;15^K:$L(X)>20!($L(X)<1) X "^DD",727.813,727.813,14,.1) Location "^DD",727.813,727.813,14,3) Answer must be 1-20 characters in length. "^DD",727.813,727.813,14,21,0) ^.001^1^1^3120403^^^^ "^DD",727.813,727.813,14,21,1,0) The service/location from which the original order came. "^DD",727.813,727.813,14,23,0) ^^13^13^3120403^ "^DD",727.813,727.813,14,23,1,0) For regular patients, this field is set to the IEN of the record in the "^DD",727.813,727.813,14,23,2,0) HOSPITAL LOCATION file (#44) as copied from the ORDERING LOCATION field "^DD",727.813,727.813,14,23,3,0) (#20) of the ACCESSION WKLD CODE TIME field (#1) multiple within the CODE "^DD",727.813,727.813,14,23,4,0) field (#1) multiple within the DATE field (#.03) multiple of the WKLD DATA "^DD",727.813,727.813,14,23,5,0) file (#64.1). "^DD",727.813,727.813,14,23,6,0) "^DD",727.813,727.813,14,23,7,0) For referral patients, and the referring facility is found in the "^DD",727.813,727.813,14,23,8,0) INSTITUTION (#4) file, this field is set to the STATION NUMBER (#99) field "^DD",727.813,727.813,14,23,9,0) of the referring facility. "^DD",727.813,727.813,14,23,10,0) If the STATION NUMBER (#99) field is null, this field is set to ZZZZZ. "^DD",727.813,727.813,14,23,11,0) "^DD",727.813,727.813,14,23,12,0) For referral patients, and the referring facility is NOT found in the "^DD",727.813,727.813,14,23,13,0) INSTITUTION file (#4), this field is set to XXXXX. "^DD",727.813,727.813,14,"DT") 2980708 "^DD",727.813,727.813,21,0) PRIMARY CARE PROVIDER^F^^0;22^K:$L(X)>11!($L(X)<1) X "^DD",727.813,727.813,21,.1) Primary Care Provider "^DD",727.813,727.813,21,3) Enter primary care provider assigned to this patient. "^DD",727.813,727.813,21,21,0) ^.001^2^2^3120404^^^^ "^DD",727.813,727.813,21,21,1,0) The primary care provider assigned to this patient through the Primary "^DD",727.813,727.813,21,21,2,0) Care Management Module (PCMM) module application on the accession date. "^DD",727.813,727.813,21,23,0) ^.001^10^10^3120404^^ "^DD",727.813,727.813,21,23,1,0) Derived by a call to the Scheduling API, OUTPTPR^SDUTL3. The API returns "^DD",727.813,727.813,21,23,2,0) the provider's internal entry number and name from the NEW PERSON file "^DD",727.813,727.813,21,23,3,0) (#200). The PRIMARY CARE PROVIDER is the value of a "2" prefixed to the "^DD",727.813,727.813,21,23,4,0) pointer value to indicate that the source file is "200". For example, if "^DD",727.813,727.813,21,23,5,0) the IEN of the provider in file #200 is 98765, the value that will be "^DD",727.813,727.813,21,23,6,0) stored is 298765. "^DD",727.813,727.813,21,23,7,0) "^DD",727.813,727.813,21,23,8,0) The DATE COLLECTED field (#12) of the WKLD LOG file (#64.03) and the "^DD",727.813,727.813,21,23,9,0) PATIENT NO. - DFN field (4) in the LABORATORY EXTRACT file (#727.813) "^DD",727.813,727.813,21,23,10,0) are the parameters used in the Scheduling API call. "^DD",727.813,727.813,21,"DT") 3120326 "^DD",727.813,727.813,22,0) MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X "^DD",727.813,727.813,22,3) Answer must be 1-10 characters in length. "^DD",727.813,727.813,22,21,0) ^.001^1^1^3120130^^ "^DD",727.813,727.813,22,21,1,0) Unique national VA patient identifier. "^DD",727.813,727.813,22,23,0) ^^3^3^3120130^ "^DD",727.813,727.813,22,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.813,727.813,22,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.813,727.813,22,23,3,0) Patient file (#2). "^DD",727.813,727.813,22,"DT") 2990504 "^DD",727.813,727.813,23,0) DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X "^DD",727.813,727.813,23,.1) "^DD",727.813,727.813,23,3) Answer must be 1-10 characters in length. "^DD",727.813,727.813,23,21,0) ^.001^2^2^3120315^^^^ "^DD",727.813,727.813,23,21,1,0) The nationally defined DSS Intermediate Department Number designated to "^DD",727.813,727.813,23,21,2,0) the Laboratory care product. "^DD",727.813,727.813,23,23,0) ^^1^1^3120315^ "^DD",727.813,727.813,23,23,1,0) For the Laboratory extract, the DSS PRODUCT DEPARTMENT field is null. "^DD",727.813,727.813,23,"DT") 3040302 "^DD",727.813,727.813,27,0) ASSOCIATE PC PROVIDER^F^^1;6^K:$L(X)>11!($L(X)<2) X "^DD",727.813,727.813,27,3) Answer must be 2-11 characters in length. "^DD",727.813,727.813,27,21,0) ^.001^2^2^3120404^^^^ "^DD",727.813,727.813,27,21,1,0) The Associate Primary Care Provider assigned to this patient through the "^DD",727.813,727.813,27,21,2,0) Primary Care Management Module (PCMM) module application. "^DD",727.813,727.813,27,23,0) ^.001^10^10^3120404^^ "^DD",727.813,727.813,27,23,1,0) Derived by a call to the Scheduling API, OUTPTAP^SDUTL3. The API returns "^DD",727.813,727.813,27,23,2,0) the associate provider's internal entry number and name from the NEW "^DD",727.813,727.813,27,23,3,0) PERSON file (#200). The ASSOCIATE PC PROVIDER is the value of a "2" "^DD",727.813,727.813,27,23,4,0) prefixed to the pointer value to indicate that the source file is "200". "^DD",727.813,727.813,27,23,5,0) For example, if the IEN of the provider in file #200 is 98765, the value "^DD",727.813,727.813,27,23,6,0) that will be stored is 298765. "^DD",727.813,727.813,27,23,7,0) "^DD",727.813,727.813,27,23,8,0) The DATE COLLECTED field (#12) of the WKLD LOG file (#64.03) and the "^DD",727.813,727.813,27,23,9,0) PATIENT NO. - DFN field (4) in the LABORATORY EXTRACT file (#727.813) are "^DD",727.813,727.813,27,23,10,0) the parameters used in the Scheduling API call. "^DD",727.813,727.813,27,"DT") 2990504 "^DD",727.813,727.813,28,0) ASSOC. PC PROV. PERSON CLASS^F^^1;7^K:$L(X)>7!($L(X)<7) X "^DD",727.813,727.813,28,3) Answer must be 7 characters in length. "^DD",727.813,727.813,28,21,0) ^.001^2^2^3120404^^^^ "^DD",727.813,727.813,28,21,1,0) VA Code of the Person Class of the patient's Associate Primary Care "^DD",727.813,727.813,28,21,2,0) Provider. "^DD",727.813,727.813,28,23,0) ^.001^4^4^3120404^^^ "^DD",727.813,727.813,28,23,1,0) Active Person Class is determined by the supported call "^DD",727.813,727.813,28,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.813,727.813,28,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.813,727.813,28,23,4,0) returned value string. "^DD",727.813,727.813,28,"DT") 2990504 "^DD",727.813,727.813,30,0) DOM,PRRTP AND SAARTP INDICATOR^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CWT/TR;^1;9^Q "^DD",727.813,727.813,30,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.813,727.813,30,21,0) ^.001^2^2^3120314^^ "^DD",727.813,727.813,30,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP, or SARRTP at "^DD",727.813,727.813,30,21,2,0) the time care is provided. "^DD",727.813,727.813,30,23,0) ^.001^5^5^3120314^^ "^DD",727.813,727.813,30,23,1,0) If the patient's treating specialty exist in the DSS TREATING SPECIALTY "^DD",727.813,727.813,30,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.813,727.813,30,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.813,727.813,30,23,4,0) "^DD",727.813,727.813,30,23,5,0) Otherwise, the value is null. "^DD",727.813,727.813,30,"DT") 3120314 "^DD",727.813,727.813,31,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^1;10^Q "^DD",727.813,727.813,31,3) Enter observation patient status for this record. "^DD",727.813,727.813,31,21,0) ^.001^1^1^3120314^^^ "^DD",727.813,727.813,31,21,1,0) Indicates if patient is considered to be an observation patient. "^DD",727.813,727.813,31,23,0) ^^12^12^3120314^ "^DD",727.813,727.813,31,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.813,727.813,31,23,2,0) "^DD",727.813,727.813,31,23,3,0) If the patient's treating specialty exist in the DSS TREATING SPECIALTY "^DD",727.813,727.813,31,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.813,727.813,31,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.813,727.813,31,23,6,0) file. "^DD",727.813,727.813,31,23,7,0) "^DD",727.813,727.813,31,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.813,727.813,31,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.813,727.813,31,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.813,727.813,31,23,11,0) "^DD",727.813,727.813,31,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.813,727.813,31,"DT") 3120314 "^DD",727.813,727.813,32,0) ENCOUNTER NUMBER^F^^1;11^K:$L(X)>18!($L(X)<1) X "^DD",727.813,727.813,32,3) Answer must be 1-18 characters in length "^DD",727.813,727.813,32,21,0) ^.001^1^1^3120404^^^^ "^DD",727.813,727.813,32,21,1,0) The unique number assigned for DSS. "^DD",727.813,727.813,32,23,0) ^.001^4^4^3120404^^ "^DD",727.813,727.813,32,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.813,727.813,32,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.813,727.813,32,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.813,727.813,32,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.813,727.813,32,"DT") 3010509 "^DD",727.813,727.813,33,0) ORDERING STOP CODE^F^^1;12^K:$L(X)>3!($L(X)<3) X "^DD",727.813,727.813,33,3) Answer must be 3 characters in length. "^DD",727.813,727.813,33,21,0) ^.001^1^1^3120320^^^^ "^DD",727.813,727.813,33,21,1,0) This field contains the stop code associated with the order. "^DD",727.813,727.813,33,23,0) ^^5^5^3120320^ "^DD",727.813,727.813,33,23,1,0) The STOP CODE field (#1) associated with the ordering location for this "^DD",727.813,727.813,33,23,2,0) order as obtained from the CLINICS AND STOP CODES (#728.44) file. "^DD",727.813,727.813,33,23,3,0) "^DD",727.813,727.813,33,23,4,0) Ordering location is derived from the HOSPITAL LOCATION field (#14) of "^DD",727.813,727.813,33,23,5,0) the processing WKLD LOG file (#64.03) of this extract. "^DD",727.813,727.813,33,"DT") 3010509 "^DD",727.813,727.813,34,0) ORDERING DATE^F^^1;13^K:$L(X)>8!($L(X)<8) X "^DD",727.813,727.813,34,3) Answer must be 8 characters in length "^DD",727.813,727.813,34,21,0) ^.001^1^1^3120130^^ "^DD",727.813,727.813,34,21,1,0) Date test was ordered. "^DD",727.813,727.813,34,23,0) ^^1^1^3120130^ "^DD",727.813,727.813,34,23,1,0) This field contains the date of the order in YYYYMMDD format. "^DD",727.813,727.813,34,"DT") 3010509 "^DD",727.813,727.813,36,0) DSS IP #^NJ7,0^^1;15^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X "^DD",727.813,727.813,36,3) Type a Number between 1 and 9999999, 0 Decimal Digits "^DD",727.813,727.813,36,21,0) ^.001^2^2^3120404^^^^ "^DD",727.813,727.813,36,21,1,0) The nationally defined DSS Intermediate Product Number designated to the "^DD",727.813,727.813,36,21,2,0) patient care product. "^DD",727.813,727.813,36,23,0) ^.001^1^1^3120404^^ "^DD",727.813,727.813,36,23,1,0) For the Laboratory extract, the DSS IP# field is null. "^DD",727.813,727.813,36,"DT") 3031113 "^DD",727.813,727.813,37,0) ORDERING PROVIDER PERSON CLASS^F^^1;16^K:$L(X)>7!($L(X)<7) X "^DD",727.813,727.813,37,3) Answer must be 7 characters in length. "^DD",727.813,727.813,37,21,0) ^.001^1^1^3120404^^^ "^DD",727.813,727.813,37,21,1,0) VA code of the Person Class of the patient's Ordering Provider. "^DD",727.813,727.813,37,23,0) ^.001^4^4^3120404^^ "^DD",727.813,727.813,37,23,1,0) Active Person Class is determined by the supported call "^DD",727.813,727.813,37,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.813,727.813,37,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.813,727.813,37,23,4,0) returned value string. "^DD",727.813,727.813,37,"DT") 3050405 "^DD",727.814,727.814,3,0) FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X "^DD",727.814,727.814,3,.1) Facility "^DD",727.814,727.814,3,3) Enter the station number (1-7 characters) where this extract was performed. "^DD",727.814,727.814,3,21,0) ^.001^1^1^3120405^^^ "^DD",727.814,727.814,3,21,1,0) This is the facility/division where the extract was performed. "^DD",727.814,727.814,3,23,0) ^^6^6^3120405^ "^DD",727.814,727.814,3,23,1,0) Derived from the HOSPITAL DIVISION field (#3) within the REGISTERED "^DD",727.814,727.814,3,23,2,0) EXAMS multiple (#2) in the RAD/NUC MED PATIENT file (#70). HOSPITAL "^DD",727.814,727.814,3,23,3,0) DIVISION points to the RAD/NUC MED DIVISION file (#79) which in turn "^DD",727.814,727.814,3,23,4,0) points to the INSTITUTION file (#4). "^DD",727.814,727.814,3,23,5,0) "^DD",727.814,727.814,3,23,6,0) This is a copy of the STATION NUMBER (#99) field. "^DD",727.814,727.814,3,"DT") 2961017 "^DD",727.814,727.814,5,0) SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X "^DD",727.814,727.814,5,.1) Social Security Number "^DD",727.814,727.814,5,3) Your answer must be 9 to 10 characters in length. "^DD",727.814,727.814,5,21,0) ^.001^1^1^3120531^^^ "^DD",727.814,727.814,5,21,1,0) The patient's social security number. "^DD",727.814,727.814,5,23,0) ^.001^6^6^3120531^^ "^DD",727.814,727.814,5,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.814,727.814,5,23,2,0) in the RADIOLOGY EXTRACT file (#727.814), SSN data is derived from the "^DD",727.814,727.814,5,23,3,0) SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2). "^DD",727.814,727.814,5,23,4,0) "^DD",727.814,727.814,5,23,5,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with "^DD",727.814,727.814,5,23,6,0) an SSN beginning with "00000" will not be included in the extract. "^DD",727.814,727.814,5,"DT") 2961004 "^DD",727.814,727.814,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.814,727.814,6,.1) Name "^DD",727.814,727.814,6,3) Your answer must be 4 characters in length. "^DD",727.814,727.814,6,21,0) ^.001^1^1^3120404^^^^ "^DD",727.814,727.814,6,21,1,0) The first four characters of the patient's last name. "^DD",727.814,727.814,6,23,0) ^^6^6^3120404^ "^DD",727.814,727.814,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.814,727.814,6,23,2,0) in the RADIOLOGY EXTRACT file (#727.814), NAME data is derived from the "^DD",727.814,727.814,6,23,3,0) NAME field (#.01) in the PATIENT file (#2). The first four characters of "^DD",727.814,727.814,6,23,4,0) the first "," piece are used, padded with trailing spaces if necessary. "^DD",727.814,727.814,6,23,5,0) "^DD",727.814,727.814,6,23,6,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.814,727.814,6,"DT") 2961004 "^DD",727.814,727.814,7,0) IN OUT PATIENT INDICATOR^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q "^DD",727.814,727.814,7,.1) In Out Patient Indicator "^DD",727.814,727.814,7,3) Enter the patient's status at the time of the exam. "^DD",727.814,727.814,7,21,0) ^.001^2^2^3120608^^^^ "^DD",727.814,727.814,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for this "^DD",727.814,727.814,7,21,2,0) extract. "^DD",727.814,727.814,7,23,0) ^.001^10^10^3120608^^ "^DD",727.814,727.814,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.814,727.814,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.814,727.814,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.814,727.814,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.814,727.814,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.814,727.814,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.814,727.814,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.814,727.814,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.814,727.814,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.814,727.814,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.814,727.814,7,"DT") 3120404 "^DD",727.814,727.814,9,0) CPT CODE & MODIFIERS^FO^^0;10^K:$L(X)>15!($L(X)<5) X "^DD",727.814,727.814,9,.1) "^DD",727.814,727.814,9,2) S Y(0)=Y S Y=$$CPTOUT^ECXUTL3(Y) "^DD",727.814,727.814,9,2.1) S Y=$$CPTOUT^ECXUTL3(Y) "^DD",727.814,727.814,9,3) Answer must be 5-15 characters in length. "^DD",727.814,727.814,9,21,0) ^.001^2^2^3120404^^^ "^DD",727.814,727.814,9,21,1,0) The five character Current Procedural Terminology (CPT) code for the "^DD",727.814,727.814,9,21,2,0) radiology procedure performed, and up to 5, two character CPT modifiers. "^DD",727.814,727.814,9,23,0) ^^10^10^3120404^ "^DD",727.814,727.814,9,23,1,0) Derived from the CPT CODE field (#9) in the RAD/NUC MED PROCEDURES file "^DD",727.814,727.814,9,23,2,0) (#71) for the procedure identified in the RADIOLOGY PROCEDURE field (#2) "^DD",727.814,727.814,9,23,3,0) of the EXAMINATIONS multiple (#50) of the REGISTERED EXAMS multiple (#2) "^DD",727.814,727.814,9,23,4,0) in the RAD/NUC MED PATIENT file (#70). CPT CODE is a pointer to the CPT "^DD",727.814,727.814,9,23,5,0) CODE field (#.01) in the CPT file (#81). "^DD",727.814,727.814,9,23,6,0) "^DD",727.814,727.814,9,23,7,0) The source of CPT modifiers is the MODIFIER field (#.01) of the CPT "^DD",727.814,727.814,9,23,8,0) MODIFIER file (#81.3) as pointed to by the CPT MODIFIERS field (#.01) of "^DD",727.814,727.814,9,23,9,0) the CPT MODIFIERS multiple #(135) of the EXAMINATIONS multiple (#50) of "^DD",727.814,727.814,9,23,10,0) the REGISTERED EXAMS multiple (#2) in the RAD/NUC MED PATIENT file (#70). "^DD",727.814,727.814,9,"DT") 2990614 "^DD",727.814,727.814,22,0) PRIMARY CARE PROVIDER^F^^0;23^K:$L(X)>11!($L(X)<1) X "^DD",727.814,727.814,22,.1) Primary Care Provider "^DD",727.814,727.814,22,3) Enter primary care provider assigned to this patient. "^DD",727.814,727.814,22,21,0) ^.001^2^2^3120507^^^^ "^DD",727.814,727.814,22,21,1,0) The primary care provider assigned to this patient through the Primary "^DD",727.814,727.814,22,21,2,0) Care Management Module (PCMM) module. "^DD",727.814,727.814,22,23,0) ^^11^11^3120507^ "^DD",727.814,727.814,22,23,1,0) Derived by a call to the Scheduling API, OUTPTPR^SDUTL3. The API returns "^DD",727.814,727.814,22,23,2,0) the provider's internal entry number and name from the NEW PERSON file "^DD",727.814,727.814,22,23,3,0) (#200). The PRIMARY CARE PROVIDER is the value of a "2" prefixed to the "^DD",727.814,727.814,22,23,4,0) pointer value to indicate that the source file is "200". For example, if "^DD",727.814,727.814,22,23,5,0) the IEN of the provider in file #200 is 98765, the value that will be "^DD",727.814,727.814,22,23,6,0) stored is 298765. "^DD",727.814,727.814,22,23,7,0) "^DD",727.814,727.814,22,23,8,0) The EXAM DATE field (#.01) of the REGISTERED EXAMS multiple (#2) of the "^DD",727.814,727.814,22,23,9,0) RAD/NUC MED PATIENT file (#70) and the PATIENT NO. - DFN field (#4) in the "^DD",727.814,727.814,22,23,10,0) RADIOLOGY EXTRACT file (#727.814) are the parameters used in the "^DD",727.814,727.814,22,23,11,0) Scheduling API call. "^DD",727.814,727.814,22,"DT") 2961018 "^DD",727.814,727.814,23,0) MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X "^DD",727.814,727.814,23,3) Answer must be 1-10 characters in length. "^DD",727.814,727.814,23,21,0) ^.001^1^1^3120131^^ "^DD",727.814,727.814,23,21,1,0) Unique national VA patient identifier. "^DD",727.814,727.814,23,23,0) ^^3^3^3120131^ "^DD",727.814,727.814,23,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.814,727.814,23,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.814,727.814,23,23,3,0) Patient file (#2). "^DD",727.814,727.814,23,"DT") 2990504 "^DD",727.814,727.814,24,0) DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X "^DD",727.814,727.814,24,.1) "^DD",727.814,727.814,24,3) Answer must be 1-10 characters in length. "^DD",727.814,727.814,24,21,0) ^.001^2^2^3120404^^^^ "^DD",727.814,727.814,24,21,1,0) The nationally defined DSS Intermediate Department Number designated to "^DD",727.814,727.814,24,21,2,0) the Radiology care product. "^DD",727.814,727.814,24,23,0) ^.001^1^1^3120404^^ "^DD",727.814,727.814,24,23,1,0) For the Radiology extract, the DSS PRODUCT DEPARTMENT field is null. "^DD",727.814,727.814,24,"DT") 3040302 "^DD",727.814,727.814,28,0) ASSOCIATE PC PROVIDER^F^^1;6^K:$L(X)>11!($L(X)<2) X "^DD",727.814,727.814,28,3) Answer must be 2-11 characters in length. "^DD",727.814,727.814,28,21,0) ^.001^2^2^3120414^^^^ "^DD",727.814,727.814,28,21,1,0) The Associate Primary Care Provider assigned to this patient through the "^DD",727.814,727.814,28,21,2,0) Primary Care Management Module (PCMM) application. "^DD",727.814,727.814,28,23,0) ^.001^11^11^3120414^^ "^DD",727.814,727.814,28,23,1,0) Derived by a call to the Scheduling API, OUTPTAP^SDUTL3. The API returns "^DD",727.814,727.814,28,23,2,0) the associate provider's internal entry number and name from the NEW "^DD",727.814,727.814,28,23,3,0) PERSON file (#200). The ASSOCIATE PC PROVIDER is the value of a "2" "^DD",727.814,727.814,28,23,4,0) prefixed to the pointer value to indicate that the source file is "200". "^DD",727.814,727.814,28,23,5,0) For example, if the IEN of the provider in file #200 is 98765, the value "^DD",727.814,727.814,28,23,6,0) that will be stored is 298765. "^DD",727.814,727.814,28,23,7,0) "^DD",727.814,727.814,28,23,8,0) The EXAM DATE field (.01) of the REGISTERED EXAMS multiple (2) of the "^DD",727.814,727.814,28,23,9,0) RAD/NUC MED PATIENT file (#70) and the PATIENT NO. - DFN field (4) in the "^DD",727.814,727.814,28,23,10,0) RADIOLOGY EXTRACT file (#727.814) are the parameters used in the "^DD",727.814,727.814,28,23,11,0) Scheduling API call. "^DD",727.814,727.814,28,"DT") 2990505 "^DD",727.814,727.814,29,0) ASSOC. PC PROV. PERSON CLASS^F^^1;7^K:$L(X)>7!($L(X)<7) X "^DD",727.814,727.814,29,3) Answer must be 7 characters in length. "^DD",727.814,727.814,29,21,0) ^.001^2^2^3120416^^ "^DD",727.814,727.814,29,21,1,0) VA Code of the Person Class of the patient's Associate Primary Care "^DD",727.814,727.814,29,21,2,0) Provider. "^DD",727.814,727.814,29,23,0) ^^4^4^3120416^ "^DD",727.814,727.814,29,23,1,0) Active Person Class is determined by the supported call "^DD",727.814,727.814,29,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.814,727.814,29,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.814,727.814,29,23,4,0) returned value string. "^DD",727.814,727.814,29,"DT") 2990505 "^DD",727.814,727.814,31,0) DOM,PRRTP AND SAARTP INDICATOR^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CWT/TR;^1;9^Q "^DD",727.814,727.814,31,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.814,727.814,31,21,0) ^.001^2^2^3120405^^^^ "^DD",727.814,727.814,31,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP or SARRTP at "^DD",727.814,727.814,31,21,2,0) the time care is provided. "^DD",727.814,727.814,31,23,0) ^^5^5^3120405^ "^DD",727.814,727.814,31,23,1,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.814,727.814,31,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.814,727.814,31,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.814,727.814,31,23,4,0) "^DD",727.814,727.814,31,23,5,0) Otherwise, the value is null. "^DD",727.814,727.814,31,"DT") 3120404 "^DD",727.814,727.814,32,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^1;10^Q "^DD",727.814,727.814,32,3) Enter observation patient status for this record. "^DD",727.814,727.814,32,21,0) ^.001^1^1^3120405^^^^ "^DD",727.814,727.814,32,21,1,0) Indicates if patient is considered to be an observation patient. "^DD",727.814,727.814,32,23,0) ^^12^12^3120405^ "^DD",727.814,727.814,32,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.814,727.814,32,23,2,0) "^DD",727.814,727.814,32,23,3,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.814,727.814,32,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.814,727.814,32,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.814,727.814,32,23,6,0) file. "^DD",727.814,727.814,32,23,7,0) "^DD",727.814,727.814,32,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.814,727.814,32,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.814,727.814,32,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.814,727.814,32,23,11,0) "^DD",727.814,727.814,32,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.814,727.814,32,"DT") 3120404 "^DD",727.814,727.814,33,0) ENCOUNTER NUMBER^F^^1;11^K:$L(X)>18!($L(X)<1) X "^DD",727.814,727.814,33,3) Answer must be 1-18 characters in length. "^DD",727.814,727.814,33,21,0) ^.001^1^1^3120404^^^^ "^DD",727.814,727.814,33,21,1,0) The unique number assigned for DSS. "^DD",727.814,727.814,33,23,0) ^.001^4^4^3120404^^ "^DD",727.814,727.814,33,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.814,727.814,33,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.814,727.814,33,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.814,727.814,33,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.814,727.814,33,"DT") 3010509 "^DD",727.814,727.814,34,0) RAD STOP CODE^F^^1;12^K:$L(X)>3!($L(X)<3) X "^DD",727.814,727.814,34,3) Stop Code (3 characters) associated with imaging exam location. "^DD",727.814,727.814,34,21,0) ^.001^1^1^3120404^^^^ "^DD",727.814,727.814,34,21,1,0) This field contains the stop code associated with the order. "^DD",727.814,727.814,34,23,0) ^^8^8^3120404^ "^DD",727.814,727.814,34,23,1,0) This field is populated from the AMIS REPORTING STOP CODE (#1) field of "^DD",727.814,727.814,34,23,2,0) the CLINIC STOP (#40.7) file. "^DD",727.814,727.814,34,23,3,0) "^DD",727.814,727.814,34,23,4,0) It comes from the IMAGING LOCATION field (#4) of the REGISTERED EXAMS "^DD",727.814,727.814,34,23,5,0) multiple (#2) of the RAD/NUC MED PATIENT file (#70). IMAGING LOCATION is "^DD",727.814,727.814,34,23,6,0) a pointer to the IMAGING LOCATIONS file (#79.1) and uses the DSS ID (#22) "^DD",727.814,727.814,34,23,7,0) field value. DSS ID is a pointer to the CLINIC STOP (#40.7) file where "^DD",727.814,727.814,34,23,8,0) the AMIS REPORTING STOP CODE field (#1) is returned. "^DD",727.814,727.814,34,"DT") 3050405 "^DD",727.814,727.814,35,0) ORDERING DATE^F^^1;13^K:$L(X)>8!($L(X)<8) X "^DD",727.814,727.814,35,3) Answer must be 8 characters in length. "^DD",727.814,727.814,35,21,0) ^.001^1^1^3120404^^^ "^DD",727.814,727.814,35,21,1,0) Date exam was ordered. "^DD",727.814,727.814,35,23,0) ^.001^1^1^3120404^^ "^DD",727.814,727.814,35,23,1,0) This field contains the date of the order in YYYYMMDD format. "^DD",727.814,727.814,35,"DT") 3010509 "^DD",727.814,727.814,37,0) DSS IP #^NJ7,0^^1;15^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X "^DD",727.814,727.814,37,3) Type a Number between 1 and 9999999, 0 Decimal Digits. "^DD",727.814,727.814,37,21,0) ^.001^2^2^3120404^^^^ "^DD",727.814,727.814,37,21,1,0) The nationally defined DSS Intermediate Product Number designated to the "^DD",727.814,727.814,37,21,2,0) patient care product. "^DD",727.814,727.814,37,23,0) ^.001^1^1^3120404^^ "^DD",727.814,727.814,37,23,1,0) For the Radiology extract, the DSS IP# field is null. "^DD",727.814,727.814,37,"DT") 3031113 "^DD",727.814,727.814,38,0) ORDERING PROVIDER PERSON CLASS^F^^1;16^K:$L(X)>7!($L(X)<1) X "^DD",727.814,727.814,38,3) Answer must be 1-7 characters in length. "^DD",727.814,727.814,38,21,0) ^.001^2^2^3120404^^^ "^DD",727.814,727.814,38,21,1,0) The VA code of the Person Class of the Ordering Provider as of the date "^DD",727.814,727.814,38,21,2,0) of this extract record. "^DD",727.814,727.814,38,23,0) ^.001^4^4^3120404^^ "^DD",727.814,727.814,38,23,1,0) Active Person Class is determined by the supported call "^DD",727.814,727.814,38,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.814,727.814,38,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.814,727.814,38,23,4,0) returned value string. "^DD",727.814,727.814,38,"DT") 3040301 "^DD",727.814,727.814,39,0) INTERPRETING RADIOLOGIST^F^^1;17^K:$L(X)>11!($L(X)<1) X "^DD",727.814,727.814,39,3) Answer must be 1-11 characters in length. "^DD",727.814,727.814,39,21,0) ^.001^1^1^3120404^^ "^DD",727.814,727.814,39,21,1,0) The interpreting radiologist for this exam. "^DD",727.814,727.814,39,23,0) ^^8^8^3120404^ "^DD",727.814,727.814,39,23,1,0) This field is derived from the PRIMARY INTERPRETING STAFF field (#15) of "^DD",727.814,727.814,39,23,2,0) the EXAMINATIONS multiple (#50) of the REGISTERED EXAMS multiple (#2) of "^DD",727.814,727.814,39,23,3,0) the RAD/NUC MED PATIENT file (#70). "^DD",727.814,727.814,39,23,4,0) "^DD",727.814,727.814,39,23,5,0) The INTERPRETING RADIOLOGIST field is the value of a "2" prefixed to the "^DD",727.814,727.814,39,23,6,0) pointer value to indicate that the source file is "200". For example, if "^DD",727.814,727.814,39,23,7,0) the IEN of the provider in file #200 is 98765, the value that will be "^DD",727.814,727.814,39,23,8,0) stored is 298765. "^DD",727.814,727.814,39,"DT") 3050405 "^DD",727.814,727.814,40,0) INTERPRETING RADIOLOGIST PC^F^^1;18^K:$L(X)>7!($L(X)<1) X "^DD",727.814,727.814,40,3) Answer must be 1-7 characters in length. "^DD",727.814,727.814,40,21,0) ^.001^2^2^3120404^^ "^DD",727.814,727.814,40,21,1,0) The VA Code of the Person Class of the Interpreting Radiologist as of the "^DD",727.814,727.814,40,21,2,0) date of this record. "^DD",727.814,727.814,40,23,0) ^^4^4^3120404^ "^DD",727.814,727.814,40,23,1,0) Active Person Class is determined by the supported call "^DD",727.814,727.814,40,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.814,727.814,40,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.814,727.814,40,23,4,0) returned value string. "^DD",727.814,727.814,40,"DT") 3050405 "^DD",727.814,727.814,42,0) CLINIC STOP CODE^F^^1;20^K:$L(X)>3!($L(X)<3) X "^DD",727.814,727.814,42,3) Answer must be 3 characters in length. "^DD",727.814,727.814,42,21,0) ^.001^2^2^3120405^^^^ "^DD",727.814,727.814,42,21,1,0) This is the ordering stop code of the clinic that ordered the radiology "^DD",727.814,727.814,42,21,2,0) exam. "^DD",727.814,727.814,42,23,0) ^^5^5^3120405^ "^DD",727.814,727.814,42,23,1,0) This value is derived from the AMIS REPORTING STOP CODE field (#1) of the "^DD",727.814,727.814,42,23,2,0) CLINIC STOP file (#40.7) as pointed to by the STOP CODE NUMBER field (#8) "^DD",727.814,727.814,42,23,3,0) of the HOSPITAL LOCATION file (#44) as pointed to by PRINCIPAL CLINIC "^DD",727.814,727.814,42,23,4,0) field (#8) of the EXAMINATIONS multiple (#50) of the EXAMS multiple (#2) "^DD",727.814,727.814,42,23,5,0) of the RAD/NUC MED PATIENT file (#70). "^DD",727.814,727.814,42,"DT") 3050405 "^DD",727.814,727.814,49,0) CREDIT METHOD^S^0:REGULAR CREDIT;1:INTERPRETATION ONLY;2:NO CREDIT;3:TECHNICAL COMPONENT ONLY;^1;27^Q "^DD",727.814,727.814,49,3) Enter the credit method associated with this exam. "^DD",727.814,727.814,49,21,0) ^.001^8^8^3120716^^^^ "^DD",727.814,727.814,49,21,1,0) This field indicates the type of credit this location receives for "^DD",727.814,727.814,49,21,2,0) examinations. The code is based on where the exam and "^DD",727.814,727.814,49,21,3,0) interpretation were done. If the exam and interpretation were done "^DD",727.814,727.814,49,21,4,0) at the same facility, a value of 0 is given. If only the "^DD",727.814,727.814,49,21,5,0) interpretation was done at this facility, a value of 1 is given. "^DD",727.814,727.814,49,21,6,0) If the exam and interpretation were both done at a different "^DD",727.814,727.814,49,21,7,0) location a value of 2 is given and finally, if only the examination "^DD",727.814,727.814,49,21,8,0) was done at this facility a value of 3 is given. "^DD",727.814,727.814,49,23,0) ^.001^3^3^3120716^^^^ "^DD",727.814,727.814,49,23,1,0) This field is derived from the CREDIT METHOD (#26) field of the "^DD",727.814,727.814,49,23,2,0) EXAMINATIONS (#50) multiple of the REGISTERED EXAMS (#2) multiple of the "^DD",727.814,727.814,49,23,3,0) RAD/NUC MED PATIENT (#70) file. "^DD",727.814,727.814,49,"DT") 3120716 "^DD",727.815,727.815,3,0) FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X "^DD",727.815,727.815,3,.1) Facility "^DD",727.815,727.815,3,3) Enter the station number where this extract was performed. "^DD",727.815,727.815,3,21,0) ^.001^1^1^3120608^^^^ "^DD",727.815,727.815,3,21,1,0) This is the facility/division where the extract was performed. "^DD",727.815,727.815,3,23,0) ^^8^8^3120608^ "^DD",727.815,727.815,3,23,1,0) Derived from the LOCATION field (#3) of the EVENT CAPTURE PATIENT file "^DD",727.815,727.815,3,23,2,0) (#721), which points to the INSTITUTION file (#4). "^DD",727.815,727.815,3,23,3,0) "^DD",727.815,727.815,3,23,4,0) This is a copy of the STATION NUMBER field (#99). "^DD",727.815,727.815,3,23,5,0) "^DD",727.815,727.815,3,23,6,0) The facility field should be 3 to 7 characters but due to FileMan "^DD",727.815,727.815,3,23,7,0) limitations for data on this node, the field will retain its current "^DD",727.815,727.815,3,23,8,0) setting of 1 to 7. "^DD",727.815,727.815,3,"DT") 3111229 "^DD",727.815,727.815,5,0) SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X "^DD",727.815,727.815,5,.1) Social Security Number "^DD",727.815,727.815,5,3) Enter the social security number for this patient's extract record. "^DD",727.815,727.815,5,21,0) ^.001^1^1^3120605^^^^ "^DD",727.815,727.815,5,21,1,0) The patient's social security number. "^DD",727.815,727.815,5,23,0) ^.001^7^7^3120605^^^ "^DD",727.815,727.815,5,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.815,727.815,5,23,2,0) (#4) in the EVENT CAPTURE LOCAL EXTRACT file (#727.815), SSN data is "^DD",727.815,727.815,5,23,3,0) derived from the SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file "^DD",727.815,727.815,5,23,4,0) (#2). "^DD",727.815,727.815,5,23,5,0) "^DD",727.815,727.815,5,23,6,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with "^DD",727.815,727.815,5,23,7,0) an SSN beginning with "00000" will not be included in the extract. "^DD",727.815,727.815,5,"DT") 2910802 "^DD",727.815,727.815,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.815,727.815,6,.1) Name "^DD",727.815,727.815,6,3) Enter the first four characters of this patient's last name. "^DD",727.815,727.815,6,21,0) ^.001^2^2^3120607^^^^ "^DD",727.815,727.815,6,21,1,0) The first four characters of the patient's last name associated "^DD",727.815,727.815,6,21,2,0) with this extract record. "^DD",727.815,727.815,6,23,0) ^.001^7^7^3120607^^^ "^DD",727.815,727.815,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.815,727.815,6,23,2,0) in the EVENT CAPTURE LOCAL EXTRACT file (#727.815), NAME data is derived "^DD",727.815,727.815,6,23,3,0) from the NAME field (#.01) in the PATIENT file (#2). The first four "^DD",727.815,727.815,6,23,4,0) characters of the first "," piece are used, padded with trailing spaces if "^DD",727.815,727.815,6,23,5,0) necessary. "^DD",727.815,727.815,6,23,6,0) "^DD",727.815,727.815,6,23,7,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.815,727.815,6,"DT") 2910802 "^DD",727.815,727.815,7,0) IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X "^DD",727.815,727.815,7,.1) In Out Patient Indicator "^DD",727.815,727.815,7,3) Answer must be 1 character in length. "^DD",727.815,727.815,7,21,0) ^.001^2^2^3120610^^^^ "^DD",727.815,727.815,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for this "^DD",727.815,727.815,7,21,2,0) extract. "^DD",727.815,727.815,7,23,0) ^.001^14^14^3120610^^^^ "^DD",727.815,727.815,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.815,727.815,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.815,727.815,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.815,727.815,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.815,727.815,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.815,727.815,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.815,727.815,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.815,727.815,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.815,727.815,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.815,727.815,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.815,727.815,7,23,11,0) "^DD",727.815,727.815,7,23,12,0) This field should be a set of codes, with I for INPATIENT and O for "^DD",727.815,727.815,7,23,13,0) OUTPATIENT, but due to FileMan limitations for data on this node, the "^DD",727.815,727.815,7,23,14,0) field is being left as free text. "^DD",727.815,727.815,7,"DT") 3011129 "^DD",727.815,727.815,8,0) DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X "^DD",727.815,727.815,8,.1) Day "^DD",727.815,727.815,8,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.815,727.815,8,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.815,727.815,8,3) Answer must be 8 characters in length. "^DD",727.815,727.815,8,21,0) ^.001^1^1^3120610^^^^ "^DD",727.815,727.815,8,21,1,0) Date when procedure was performed. "^DD",727.815,727.815,8,23,0) ^.001^7^7^3120610^^ "^DD",727.815,727.815,8,23,1,0) Date is pulled from the DATE/TIME OF PROCEDURE field (#2) in the EVENT "^DD",727.815,727.815,8,23,2,0) CAPTURE PATIENT file (#721). "^DD",727.815,727.815,8,23,3,0) "^DD",727.815,727.815,8,23,4,0) This field is always exactly 8 numeric characters in length. The format "^DD",727.815,727.815,8,23,5,0) is YYYYMMDD; for example, 19970923. If the date cannot be determined, "^DD",727.815,727.815,8,23,6,0) then a default is used. The default date value is the value of the "^DD",727.815,727.815,8,23,7,0) YEAR MONTH field (#1) concatenated with "01" for the day (DD) portion. "^DD",727.815,727.815,8,"DT") 3111121 "^DD",727.815,727.815,9,0) DSS UNIT^P724'^ECD(^0;10^Q "^DD",727.815,727.815,9,.1) DSS Unit "^DD",727.815,727.815,9,3) Enter the name of the DSS unit for this extract record. "^DD",727.815,727.815,9,21,0) ^.001^1^1^3120610^^ "^DD",727.815,727.815,9,21,1,0) The DSS UNIT assigned for the procedure performed during this encounter. "^DD",727.815,727.815,9,23,0) ^^3^3^3120608^ "^DD",727.815,727.815,9,23,1,0) The DSS UNIT is a locally defined group of work products entered for a "^DD",727.815,727.815,9,23,2,0) specific DSS department. The DSS UNIT is derived from the DSS UNIT field "^DD",727.815,727.815,9,23,3,0) (#6) in the EVENT CAPTURE PATIENT file (#721). "^DD",727.815,727.815,9,"DT") 2910828 "^DD",727.815,727.815,12,0) VOLUME^NJ4,0^^0;13^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X "^DD",727.815,727.815,12,.1) Volume "^DD",727.815,727.815,12,3) Type a Number between 1 and 9999, 0 Decimal Digits. "^DD",727.815,727.815,12,21,0) ^.001^2^2^3120605^^^ "^DD",727.815,727.815,12,21,1,0) The number of days, or number of timed-specific units, or number of times "^DD",727.815,727.815,12,21,2,0) the procedure was performed. "^DD",727.815,727.815,12,23,0) ^.001^3^3^3120605^^ "^DD",727.815,727.815,12,23,1,0) Numeric volume for this procedure associated with this extract "^DD",727.815,727.815,12,23,2,0) record. Volume is pulled from the VOLUME field (#9) in the "^DD",727.815,727.815,12,23,3,0) EVENT CAPTURE PATIENT file (#721). "^DD",727.815,727.815,12,"DT") 2911108 "^DD",727.815,727.815,13,0) COST CENTER^F^^0;14^K:$L(X)>8!($L(X)<6) X "^DD",727.815,727.815,13,.1) Cost Center "^DD",727.815,727.815,13,3) Enter the cost center associated with this extract record. "^DD",727.815,727.815,13,21,0) ^.001^2^2^3120608^^^ "^DD",727.815,727.815,13,21,1,0) This is the cost center associated with the DSS Unit for this extract "^DD",727.815,727.815,13,21,2,0) record. "^DD",727.815,727.815,13,23,0) ^^6^6^3120608^ "^DD",727.815,727.815,13,23,1,0) A pointer to the COST CENTER file (#420.1). Cost center is derived from "^DD",727.815,727.815,13,23,2,0) the COST CENTER field (#3) in the DSS UNIT file (#724). "^DD",727.815,727.815,13,23,3,0) "^DD",727.815,727.815,13,23,4,0) This field should be a pointer to the COST CENTER file (#420.1) but due to "^DD",727.815,727.815,13,23,5,0) FileMan limitations for data on this node, the field is being left as a "^DD",727.815,727.815,13,23,6,0) free text field. "^DD",727.815,727.815,13,"DT") 2951204 "^DD",727.815,727.815,14,0) ORDERING SECTION^F^^0;15^K:$L(X)>3!($L(X)<1) X "^DD",727.815,727.815,14,.1) Ordering Section "^DD",727.815,727.815,14,3) Answer must be 1-3 characters in length. "^DD",727.815,727.815,14,21,0) ^.001^3^3^3120610^^^ "^DD",727.815,727.815,14,21,1,0) This is the IEN of the Ordering Section. The Ordering Section represents "^DD",727.815,727.815,14,21,2,0) the medical specialty (for example, ambulatory care) responsible for the "^DD",727.815,727.815,14,21,3,0) encounter. "^DD",727.815,727.815,14,23,0) ^^6^6^3120610^ "^DD",727.815,727.815,14,23,1,0) The Ordering Section is pulled from the ORDERING SECTION field (#11) in "^DD",727.815,727.815,14,23,2,0) the EVENT CAPTURE PATIENT file (#721). "^DD",727.815,727.815,14,23,3,0) "^DD",727.815,727.815,14,23,4,0) This field should be a pointer to the MEDICAL SPECIALTY file (#723) but "^DD",727.815,727.815,14,23,5,0) due to FileMan limitations for data on this node, the field is being left "^DD",727.815,727.815,14,23,6,0) as a free text field. "^DD",727.815,727.815,14,"DT") 2990517 "^DD",727.815,727.815,16,0) PROVIDER^F^^0;17^K:$L(X)>11!($L(X)<2) X "^DD",727.815,727.815,16,.1) Provider "^DD",727.815,727.815,16,3) Answer must be 2-11 characters in length. "^DD",727.815,727.815,16,21,0) ^.001^2^2^3120605^^^ "^DD",727.815,727.815,16,21,1,0) The primary provider who performed the procedure associated "^DD",727.815,727.815,16,21,2,0) with the Event Capture Patient record. "^DD",727.815,727.815,16,23,0) ^^7^7^3120605^ "^DD",727.815,727.815,16,23,1,0) Data is derived by returning a local array (first node) of the "^DD",727.815,727.815,16,23,2,0) $$GETPRV^ECPRVMUT API (DBIA #4460) that returns the PROVIDER multiple "^DD",727.815,727.815,16,23,3,0) (#42) from the EVENT CAPTURE PATIENT File (#721). "^DD",727.815,727.815,16,23,4,0) "^DD",727.815,727.815,16,23,5,0) The PROVIDER is the value of a "2" prefixed to the pointer value to "^DD",727.815,727.815,16,23,6,0) indicate that the source file is "200". For example, if the IEN of the "^DD",727.815,727.815,16,23,7,0) provider in file #200 is 98765, the value that will be stored is 298765. "^DD",727.815,727.815,16,"DT") 2990517 "^DD",727.815,727.815,17,0) PROVIDER PERSON CLASS^F^^0;18^K:$L(X)>7!($L(X)<1) X "^DD",727.815,727.815,17,3) Answer must be 1-7 characters in length. "^DD",727.815,727.815,17,21,0) ^.001^2^2^3120608^^^^ "^DD",727.815,727.815,17,21,1,0) The VA code of the Person Class of the Provider as of the date of this "^DD",727.815,727.815,17,21,2,0) record. "^DD",727.815,727.815,17,23,0) ^^8^8^3120608^ "^DD",727.815,727.815,17,23,1,0) Active Person Class is determined by the supported call "^DD",727.815,727.815,17,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.815,727.815,17,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.815,727.815,17,23,4,0) returned value string. "^DD",727.815,727.815,17,23,5,0) "^DD",727.815,727.815,17,23,6,0) This field should be exactly 7 characters in length but due to FileMan "^DD",727.815,727.815,17,23,7,0) limitations for data on this node, the field will retain its current "^DD",727.815,727.815,17,23,8,0) setting of 1 to 7. "^DD",727.815,727.815,17,"DT") 3000801 "^DD",727.815,727.815,18,0) PROVIDER #2^F^^0;19^K:$L(X)>11!($L(X)<2) X "^DD",727.815,727.815,18,.1) Provider #2 "^DD",727.815,727.815,18,3) Answer must be 2-11 characters in length. "^DD",727.815,727.815,18,21,0) ^.001^2^2^3120605^^^^ "^DD",727.815,727.815,18,21,1,0) The second assisting provider who performed the procedure associated with "^DD",727.815,727.815,18,21,2,0) the Event Capture Patient record. "^DD",727.815,727.815,18,23,0) ^.001^7^7^3120605^^ "^DD",727.815,727.815,18,23,1,0) Data is derived by returning a local array (second node) of the "^DD",727.815,727.815,18,23,2,0) $$GETPRV^ECPRVMUT API (DBIA #4460) that returns the PROVIDER "^DD",727.815,727.815,18,23,3,0) multiple (#42) from the EVENT CAPTURE PATIENT File (#721). "^DD",727.815,727.815,18,23,4,0) "^DD",727.815,727.815,18,23,5,0) The PROVIDER #2 is the value of a "2" prefixed to the pointer value to "^DD",727.815,727.815,18,23,6,0) indicate that the source file is "200". For example, if the IEN of the "^DD",727.815,727.815,18,23,7,0) provider in file #200 is 98765, the value that will be stored is 298765. "^DD",727.815,727.815,18,"DT") 2990517 "^DD",727.815,727.815,19,0) PROVIDER #2 PERSON CLASS^F^^0;20^K:$L(X)>7!($L(X)<1) X "^DD",727.815,727.815,19,3) Answer must be 1-7 characters in length. "^DD",727.815,727.815,19,21,0) ^.001^2^2^3120608^^^ "^DD",727.815,727.815,19,21,1,0) This is the VA code of the Person Class of the second assisting provider "^DD",727.815,727.815,19,21,2,0) as of the date of this record. "^DD",727.815,727.815,19,23,0) ^^8^8^3120608^ "^DD",727.815,727.815,19,23,1,0) Active Person Class is determined by the supported call "^DD",727.815,727.815,19,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.815,727.815,19,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.815,727.815,19,23,4,0) returned value string. "^DD",727.815,727.815,19,23,5,0) "^DD",727.815,727.815,19,23,6,0) This field should be exactly 7 characters in length but due to FileMan "^DD",727.815,727.815,19,23,7,0) limitations for data on this node, the field will retain its current "^DD",727.815,727.815,19,23,8,0) setting of 1 to 7. "^DD",727.815,727.815,19,"DT") 3001103 "^DD",727.815,727.815,20,0) PROVIDER #3^F^^0;21^K:$L(X)>11!($L(X)<2) X "^DD",727.815,727.815,20,.1) Provider #3 "^DD",727.815,727.815,20,3) Answer must be 2-11 characters in length. "^DD",727.815,727.815,20,21,0) ^.001^2^2^3120605^^ "^DD",727.815,727.815,20,21,1,0) The third assisting provider who performed the procedure associated with "^DD",727.815,727.815,20,21,2,0) the Event Capture Patient record. "^DD",727.815,727.815,20,23,0) ^^7^7^3120605^ "^DD",727.815,727.815,20,23,1,0) Data is derived by returning a local array (third node) of the "^DD",727.815,727.815,20,23,2,0) $$GETPRV^ECPRVMUT API (DBIA #4460) that returns the PROVIDER "^DD",727.815,727.815,20,23,3,0) multiple (#42) from the EVENT CAPTURE PATIENT File (#721). "^DD",727.815,727.815,20,23,4,0) "^DD",727.815,727.815,20,23,5,0) The PROVIDER #3 is the value of a "2" prefixed to the pointer value to "^DD",727.815,727.815,20,23,6,0) indicate that the source file is "200". For example, if the IEN of the "^DD",727.815,727.815,20,23,7,0) provider in file #200 is 98765, the value that will be stored is 298765. "^DD",727.815,727.815,20,"DT") 2990517 "^DD",727.815,727.815,21,0) PROVIDER #3 PERSON CLASS^F^^0;22^K:$L(X)>7!($L(X)<1) X "^DD",727.815,727.815,21,3) Answer must be 1-7 characters in length. "^DD",727.815,727.815,21,21,0) ^.001^2^2^3120608^^^ "^DD",727.815,727.815,21,21,1,0) The VA code of the Person Class of the third assisting provider as of the "^DD",727.815,727.815,21,21,2,0) date of this record. "^DD",727.815,727.815,21,23,0) ^^8^8^3120608^ "^DD",727.815,727.815,21,23,1,0) Active Person Class is determined by the supported call "^DD",727.815,727.815,21,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.815,727.815,21,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.815,727.815,21,23,4,0) returned value string. "^DD",727.815,727.815,21,23,5,0) "^DD",727.815,727.815,21,23,6,0) This field should be exactly 7 characters in length but due to FileMan "^DD",727.815,727.815,21,23,7,0) limitations for data on this node, the field will retain its current "^DD",727.815,727.815,21,23,8,0) setting of 1 to 7. "^DD",727.815,727.815,21,"DT") 3001103 "^DD",727.815,727.815,26,0) PRIMARY CARE TEAM^F^^0;27^K:$L(X)>4!($L(X)<1) X "^DD",727.815,727.815,26,.1) Primary Care Team "^DD",727.815,727.815,26,3) Enter primary care team assigned to this patient. "^DD",727.815,727.815,26,21,0) ^.001^1^1^3120608^^^ "^DD",727.815,727.815,26,21,1,0) The IEN of the primary care team assigned to this patient. "^DD",727.815,727.815,26,23,0) ^^10^10^3120608^ "^DD",727.815,727.815,26,23,1,0) Using the DATE/TIME OF PROCEDURE field (#2) from the EVENT CAPTURE "^DD",727.815,727.815,26,23,2,0) PATIENT file (#721) and the patient pointer (DFN) stored in the PATIENT "^DD",727.815,727.815,26,23,3,0) NO. - DFN field (#4) in the EVENT CAPTURE LOCAL EXTRACT file (#727.815), "^DD",727.815,727.815,26,23,4,0) a call is made to the Scheduling API, OUTPTTM^SDUTL3. The API returns "^DD",727.815,727.815,26,23,5,0) the team's internal entry number and name from the TEAM file (#404.51). "^DD",727.815,727.815,26,23,6,0) Only the pointer (IEN) to File 404.51 is transmitted. "^DD",727.815,727.815,26,23,7,0) "^DD",727.815,727.815,26,23,8,0) This field should be a pointer to the TEAM file (#404.51) but due to "^DD",727.815,727.815,26,23,9,0) FileMan limitations for data on this node, this field is being left as a "^DD",727.815,727.815,26,23,10,0) free text field. "^DD",727.815,727.815,26,"DT") 2961106 "^DD",727.815,727.815,28,0) PCE CPT CODE & MODIFIERS^FO^^0;29^K:$L(X)>17!($L(X)<5) X "^DD",727.815,727.815,28,.1) "^DD",727.815,727.815,28,2) S Y(0)=Y S Y=$$CPTOUT^ECXUTL3(Y) "^DD",727.815,727.815,28,2.1) S Y=$$CPTOUT^ECXUTL3(Y) "^DD",727.815,727.815,28,3) Answer must be 5-17 characters in length. "^DD",727.815,727.815,28,21,0) ^.001^3^3^3120605^^ "^DD",727.815,727.815,28,21,1,0) Five character Current Procedural Terminology (CPT) Code, the quantity "^DD",727.815,727.815,28,21,2,0) (or how many times the unique code appears in the record), and up to five "^DD",727.815,727.815,28,21,3,0) two-character CPT modifiers. "^DD",727.815,727.815,28,23,0) ^^5^5^3120605^ "^DD",727.815,727.815,28,23,1,0) PCE CPT CODE is derived from the PCE CPT CODE field (#19) and the CPT "^DD",727.815,727.815,28,23,2,0) MODIFIER multiple (#36) in the EVENT CAPTURE PATIENT file (#721). "^DD",727.815,727.815,28,23,3,0) "^DD",727.815,727.815,28,23,4,0) The source of CPT modifiers is the MODIFIER field (#.01) of the CPT "^DD",727.815,727.815,28,23,5,0) MODIFIER file (#81.3). "^DD",727.815,727.815,28,"DT") 2990614 "^DD",727.815,727.815,29,0) ICD-9 CODE^F^^0;30^K:$L(X)>7!($L(X)<1) X "^DD",727.815,727.815,29,.1) ICD-9 Code "^DD",727.815,727.815,29,3) Enter the ICD-9 code for this record. "^DD",727.815,727.815,29,21,0) ^^1^1^3120608^ "^DD",727.815,727.815,29,21,1,0) The Primary ICD-9 code for the procedure performed. "^DD",727.815,727.815,29,23,0) ^.001^3^3^3120608^^^ "^DD",727.815,727.815,29,23,1,0) ICD-9 CODE is derived from the ICD-9 CODE field (#20) in the EVENT "^DD",727.815,727.815,29,23,2,0) CAPTURE PATIENT file (#721) which points to the ICD DIAGNOSIS file "^DD",727.815,727.815,29,23,3,0) (#80). "^DD",727.815,727.815,29,"DT") 2961106 "^DD",727.815,727.815,30,0) SECONDARY ICD9 CODE #1^F^^0;31^K:$L(X)>7!($L(X)<1) X "^DD",727.815,727.815,30,3) Enter the ICD-9 code for this record. "^DD",727.815,727.815,30,21,0) ^^1^1^3120608^ "^DD",727.815,727.815,30,21,1,0) The first of the secondary ICD-9 codes for the procedure performed. "^DD",727.815,727.815,30,23,0) ^.001^3^3^3120608^^ "^DD",727.815,727.815,30,23,1,0) ICD-9 CODE is derived from the ICD-9 CODE field (#20) in the EVENT "^DD",727.815,727.815,30,23,2,0) CAPTURE PATIENT file (#721) which points to the ICD DIAGNOSIS file "^DD",727.815,727.815,30,23,3,0) (#80). "^DD",727.815,727.815,30,"DT") 3001102 "^DD",727.815,727.815,31,0) SECONDARY ICD9 CODE #2^F^^0;32^K:$L(X)>7!($L(X)<1) X "^DD",727.815,727.815,31,.1) SECONDARY ICD9 CODE #2 "^DD",727.815,727.815,31,3) Enter the ICD-9 code for this record. "^DD",727.815,727.815,31,21,0) ^.001^1^1^3120608^^ "^DD",727.815,727.815,31,21,1,0) The second of the secondary ICD-9 codes for the procedure performed. "^DD",727.815,727.815,31,23,0) ^.001^3^3^3120608^^^ "^DD",727.815,727.815,31,23,1,0) ICD-9 CODE is derived from the ICD-9 CODE field (#20) in the EVENT "^DD",727.815,727.815,31,23,2,0) CAPTURE PATIENT file (#721) which points to the ICD DIAGNOSIS file "^DD",727.815,727.815,31,23,3,0) (#80). "^DD",727.815,727.815,31,"DT") 3001018 "^DD",727.815,727.815,32,0) SECONDARY ICD9 CODE #3^F^^0;33^K:$L(X)>7!($L(X)<1) X "^DD",727.815,727.815,32,.1) SECONDARY ICD9 CODE #3 "^DD",727.815,727.815,32,3) Enter the ICD-9 code for this record. "^DD",727.815,727.815,32,21,0) ^^1^1^3120608^ "^DD",727.815,727.815,32,21,1,0) The third of the secondary ICD-9 codes for the procedure performed. "^DD",727.815,727.815,32,23,0) ^.001^3^3^3120608^^^ "^DD",727.815,727.815,32,23,1,0) ICD-9 CODE is derived from the ICD-9 CODE field (#20) in the EVENT "^DD",727.815,727.815,32,23,2,0) CAPTURE PATIENT file (#721) which points to the ICD DIAGNOSIS file "^DD",727.815,727.815,32,23,3,0) (#80). "^DD",727.815,727.815,32,"DT") 3001018 "^DD",727.815,727.815,33,0) SECONDARY ICD9 CODE #4^F^^0;34^K:$L(X)>7!($L(X)<1) X "^DD",727.815,727.815,33,.1) SECONMDARY ICD9 CODE #4 "^DD",727.815,727.815,33,3) Enter the ICD-9 code for this record. "^DD",727.815,727.815,33,21,0) ^^1^1^3120608^ "^DD",727.815,727.815,33,21,1,0) The fourth of the secondary ICD-9 codes for the procedure performed. "^DD",727.815,727.815,33,23,0) ^.001^3^3^3120608^^ "^DD",727.815,727.815,33,23,1,0) ICD-9 CODE is derived from the ICD-9 CODE field (#20) in the EVENT "^DD",727.815,727.815,33,23,2,0) CAPTURE PATIENT file (#721) which points to the ICD DIAGNOSIS file "^DD",727.815,727.815,33,23,3,0) (#80). "^DD",727.815,727.815,33,"DT") 3001018 "^DD",727.815,727.815,34,0) AGENT ORANGE^S^Y:YES;N:NO;U:UNKNOWN;^0;35^Q "^DD",727.815,727.815,34,.1) Agent Orange "^DD",727.815,727.815,34,3) Select the appropriate agent orange status for this patient. "^DD",727.815,727.815,34,21,0) ^.001^1^1^3120606^^ "^DD",727.815,727.815,34,21,1,0) Indicates whether patient was exposed to Agent Orange. "^DD",727.815,727.815,34,23,0) ^^6^6^3120606^ "^DD",727.815,727.815,34,23,1,0) Using the patient pointer (DFN) stored in the PATIENT field (#1) in the "^DD",727.815,727.815,34,23,2,0) EVENT CAPTURE PATIENT file (#721). AGENT ORANGE data is derived from the "^DD",727.815,727.815,34,23,3,0) AGENT ORANGE EXPOS. INDICATED? field (#.32102) in the PATIENT file (#2). "^DD",727.815,727.815,34,23,4,0) "^DD",727.815,727.815,34,23,5,0) The status indicator is returned by SVC^VADPT which is called by routine "^DD",727.815,727.815,34,23,6,0) PAT^ECXUTL3. "^DD",727.815,727.815,34,"DT") 2961017 "^DD",727.815,727.815,35,0) RADIATION EXPOSURE^S^Y:YES;N:NO;U:UNKNOWN;^0;36^Q "^DD",727.815,727.815,35,.1) Radiation Exposure "^DD",727.815,727.815,35,3) Select the appropriate radiation status for this patient. "^DD",727.815,727.815,35,21,0) ^.001^1^1^3120606^^ "^DD",727.815,727.815,35,21,1,0) Indicates if patient claims exposure to ionizing radiation. "^DD",727.815,727.815,35,23,0) ^^6^6^3120606^ "^DD",727.815,727.815,35,23,1,0) Using the patient pointer (DFN) stored in the PATIENT field (#1) in "^DD",727.815,727.815,35,23,2,0) the EVENT CAPTURE PATIENT file (#721). RADIATION data is derived from the "^DD",727.815,727.815,35,23,3,0) RADIATION EXPOSURE INDICATED? field (#.32103) in the PATIENT file (#2). "^DD",727.815,727.815,35,23,4,0) "^DD",727.815,727.815,35,23,5,0) The status indicator is returned by SVC^VADPT which is called by "^DD",727.815,727.815,35,23,6,0) routine PAT^ECXUTL3. "^DD",727.815,727.815,35,"DT") 2961017 "^DD",727.815,727.815,36,0) SW ASIA CONDITIONS^S^Y:YES;N:NO;U:UNKNOWN;^0;37^Q "^DD",727.815,727.815,36,.1) "^DD",727.815,727.815,36,3) Enter patient's Southwest Asia Indicator status. "^DD",727.815,727.815,36,21,0) ^.001^2^2^3120606^^^^ "^DD",727.815,727.815,36,21,1,0) This field is used to indicate if this visit represents treatment of a VA "^DD",727.815,727.815,36,21,2,0) patient claiming exposure to Southwest Asia Conditions. "^DD",727.815,727.815,36,23,0) ^^3^3^3120606^ "^DD",727.815,727.815,36,23,1,0) This field is derived from the SOUTHWEST ASIA CONDITIONS? field "^DD",727.815,727.815,36,23,2,0) (#.322013) in the Patient File (#2) using the patient's DFN. The status "^DD",727.815,727.815,36,23,3,0) indicator is returned by SVC^VADPT which is called by PAT^ECXUTL3. "^DD",727.815,727.815,36,"DT") 3090527 "^DD",727.815,727.815,37,0) SERVICE CONNECTED^S^Y:YES;N:NO;^0;38^Q "^DD",727.815,727.815,37,.1) Service Connected "^DD",727.815,727.815,37,3) Select the appropriate service connected status for this patient. "^DD",727.815,727.815,37,21,0) ^.001^1^1^3120606^^ "^DD",727.815,727.815,37,21,1,0) Indicates if patient is service connected. "^DD",727.815,727.815,37,23,0) ^^6^6^3120606^ "^DD",727.815,727.815,37,23,1,0) Using the patient pointer (DFN) stored in the PATIENT field (#1) in the "^DD",727.815,727.815,37,23,2,0) EVENT CAPTURE PATIENT file (#721). SERVICE CONNECTED data is derived from "^DD",727.815,727.815,37,23,3,0) the SERVICE CONNECTED? field (#.301) in the PATIENT file (#2). "^DD",727.815,727.815,37,23,4,0) "^DD",727.815,727.815,37,23,5,0) The status indicator is returned by ELIG^VADPT which is called by "^DD",727.815,727.815,37,23,6,0) routine PAT^ECXUTL3. "^DD",727.815,727.815,37,"DT") 2961017 "^DD",727.815,727.815,40,0) DSS IDENTIFIER^F^^0;41^K:$L(X)>6!($L(X)<6) X "^DD",727.815,727.815,40,.1) DSS Identifier "^DD",727.815,727.815,40,3) Answer must be 6 characters in length. "^DD",727.815,727.815,40,21,0) ^.001^2^2^3120606^^^ "^DD",727.815,727.815,40,21,1,0) The DSS Identifier represents the primary and secondary stop codes of "^DD",727.815,727.815,40,21,2,0) the Associated Clinic. "^DD",727.815,727.815,40,23,0) ^^25^25^3120606^ "^DD",727.815,727.815,40,23,1,0) The DSS IDENTIFIER represents the primary and secondary stop codes of "^DD",727.815,727.815,40,23,2,0) the Associated Clinic in the Event Capture Patient record, OR it is "^DD",727.815,727.815,40,23,3,0) the Associated Stop Code of the DSS Unit in the Event Capture Patient "^DD",727.815,727.815,40,23,4,0) record. "^DD",727.815,727.815,40,23,5,0) "^DD",727.815,727.815,40,23,6,0) If the secondary stop code is not known, then "000" will be "^DD",727.815,727.815,40,23,7,0) used as the 2nd 3-characters. If the primary stop code is not "^DD",727.815,727.815,40,23,8,0) known, then "000000" will be used. If the DSS Unit does not have "^DD",727.815,727.815,40,23,9,0) an Associated Stop Code, then "000000" will be used. "^DD",727.815,727.815,40,23,10,0) "^DD",727.815,727.815,40,23,11,0) The source of the data is: "^DD",727.815,727.815,40,23,12,0) "^DD",727.815,727.815,40,23,13,0) STOP CODE NUMBER field (#8) of the HOSPITAL LOCATION file (#44) as "^DD",727.815,727.815,40,23,14,0) pointed to by the ASSOCIATED CLINIC field (#26) of the EVENT CAPTURE "^DD",727.815,727.815,40,23,15,0) PATIENT file (#721) concatenated with the AMIS REPORTING STOP CODE field "^DD",727.815,727.815,40,23,16,0) (#1) of the CLINIC STOP file (#40.7) as pointed to by the CREDIT STOP "^DD",727.815,727.815,40,23,17,0) CODE field (#2503) of the HOSPITAL LOCATION file (#44). "^DD",727.815,727.815,40,23,18,0) "^DD",727.815,727.815,40,23,19,0) OR "^DD",727.815,727.815,40,23,20,0) "^DD",727.815,727.815,40,23,21,0) ASSOCIATED STOP CODE field (#9) of the DSS UNIT file (#724) as pointed to "^DD",727.815,727.815,40,23,22,0) by the DSS UNIT field (#6) of the EVENT CAPTURE PATIENT file (#721) "^DD",727.815,727.815,40,23,23,0) concatenated with the AMIS REPORTING STOP CODE field (#1) of the CLINIC "^DD",727.815,727.815,40,23,24,0) STOP file (#40.7) as pointed to by the CREDIT STOP CODE field (#2503) of "^DD",727.815,727.815,40,23,25,0) the HOSPITAL LOCATION file (#44). "^DD",727.815,727.815,40,"DT") 2970911 "^DD",727.815,727.815,42,0) MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X "^DD",727.815,727.815,42,3) Answer must be 1-10 characters in length. "^DD",727.815,727.815,42,21,0) ^^1^1^3120606^ "^DD",727.815,727.815,42,21,1,0) Unique national VA patient identifier. "^DD",727.815,727.815,42,23,0) ^.001^3^3^3120606^^ "^DD",727.815,727.815,42,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.815,727.815,42,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.815,727.815,42,23,3,0) Patient file (#2). "^DD",727.815,727.815,42,"DT") 2990504 "^DD",727.815,727.815,43,0) DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>14!($L(X)<1) X "^DD",727.815,727.815,43,.1) "^DD",727.815,727.815,43,3) Answer must be 1-14 characters in length. "^DD",727.815,727.815,43,21,0) ^.001^2^2^3120608^^^^ "^DD",727.815,727.815,43,21,1,0) The nationally defined DSS Department Code designated for the patient "^DD",727.815,727.815,43,21,2,0) care product. "^DD",727.815,727.815,43,23,0) ^.001^3^3^3120608^^^ "^DD",727.815,727.815,43,23,1,0) Data comes from the UNIT NUMBER field (#4) of the DSS UNIT file (#724) as "^DD",727.815,727.815,43,23,2,0) pointed to by the DSS UNIT field (#6) of the EVENT CAPTURE PATIENT file "^DD",727.815,727.815,43,23,3,0) (#721). "^DD",727.815,727.815,43,"DT") 3120608 "^DD",727.815,727.815,47,0) PC PROVIDER PERSON CLASS^F^^1;6^K:$L(X)>7!($L(X)<7) X "^DD",727.815,727.815,47,3) Answer must be 7 characters in length. "^DD",727.815,727.815,47,21,0) ^.001^2^2^3120606^^^ "^DD",727.815,727.815,47,21,1,0) The VA Code of the Person Class of the Primary Care Provider as of the "^DD",727.815,727.815,47,21,2,0) date of this extract record. "^DD",727.815,727.815,47,23,0) ^^4^4^3120606^ "^DD",727.815,727.815,47,23,1,0) Active Person Class is determined by the supported call "^DD",727.815,727.815,47,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.815,727.815,47,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.815,727.815,47,23,4,0) returned value string. "^DD",727.815,727.815,47,"DT") 2981103 "^DD",727.815,727.815,49,0) ASSOCIATE PC PROVIDER^F^^1;8^K:$L(X)>11!($L(X)<2) X "^DD",727.815,727.815,49,3) Answer must be 2-11 characters in length. "^DD",727.815,727.815,49,21,0) ^.001^1^1^3120606^^^ "^DD",727.815,727.815,49,21,1,0) The Associate Primary Care Provider assigned with the PCMM application. "^DD",727.815,727.815,49,23,0) ^^10^10^3120606^ "^DD",727.815,727.815,49,23,1,0) Derived by a call to the Scheduling API, OUTPTAP^SDUTL3. The API returns "^DD",727.815,727.815,49,23,2,0) the associate provider's internal entry number and name from the NEW "^DD",727.815,727.815,49,23,3,0) PERSON file (#200). The ASSOCIATE PC PROVIDER is the value of a "2" "^DD",727.815,727.815,49,23,4,0) prefixed to the pointer value to indicate that the source file is "200". "^DD",727.815,727.815,49,23,5,0) For example, if the IEN of the provider in file #200 is 98765, the value "^DD",727.815,727.815,49,23,6,0) that will be stored is 298765. "^DD",727.815,727.815,49,23,7,0) "^DD",727.815,727.815,49,23,8,0) The PATIENT field (#1) and the DATE/TIME OF PROCEDURE field (#3) of "^DD",727.815,727.815,49,23,9,0) the EVENT CAPTURE PATIENT file (#721) are used to determine the patient's "^DD",727.815,727.815,49,23,10,0) associate provider at the time of the admission. "^DD",727.815,727.815,49,"DT") 2990506 "^DD",727.815,727.815,50,0) ASSOC. PC PROV. PERSON CLASS^F^^1;9^K:$L(X)>7!($L(X)<7) X "^DD",727.815,727.815,50,3) Answer must be 7 characters in length. "^DD",727.815,727.815,50,21,0) ^.001^2^2^3120606^^ "^DD",727.815,727.815,50,21,1,0) VA Code of the Person Class of the patient's Associate Primary Care "^DD",727.815,727.815,50,21,2,0) Provider. "^DD",727.815,727.815,50,23,0) ^^4^4^3120606^ "^DD",727.815,727.815,50,23,1,0) Active Person Class is determined by the supported call "^DD",727.815,727.815,50,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.815,727.815,50,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.815,727.815,50,23,4,0) returned value string. "^DD",727.815,727.815,50,"DT") 2990506 "^DD",727.815,727.815,53,0) MST STATUS^S^Y:Yes, Screened reports MST;N:No, Screened does not report MST;D:Screened Declines to answer;U:Unknown, not screened;^1;12^Q "^DD",727.815,727.815,53,3) Enter patient's MST status. "^DD",727.815,727.815,53,21,0) ^.001^2^2^3120606^^^^ "^DD",727.815,727.815,53,21,1,0) Indicates the Military Sexual Trauma (MST) status of a patient on the day "^DD",727.815,727.815,53,21,2,0) of the encounter. "^DD",727.815,727.815,53,23,0) ^.001^5^5^3120606^^ "^DD",727.815,727.815,53,23,1,0) The MST HISTORY file (#29.11) holds data regarding military sexual trauma "^DD",727.815,727.815,53,23,2,0) claims and effective dates. The patient's MST status is stored in the MST "^DD",727.815,727.815,53,23,3,0) STATUS field (#3). A call will be made to $$GETSTAT^DGMSTAPI(DFN,DGDATE) "^DD",727.815,727.815,53,23,4,0) using the DFN from the PATIENT field (#1) and the DATE/TIME OF PROCEDURE "^DD",727.815,727.815,53,23,5,0) field (#3) of the EVENT CAPTURE PATIENT file (#721). "^DD",727.815,727.815,53,"DT") 3120606 "^DD",727.815,727.815,54,0) DOM,PRRTP AND SAARTP INDICATOR^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CET/TR;^1;13^Q "^DD",727.815,727.815,54,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.815,727.815,54,21,0) ^.001^2^2^3120601^^^ "^DD",727.815,727.815,54,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP, or SARRTP at "^DD",727.815,727.815,54,21,2,0) the time care is provided. "^DD",727.815,727.815,54,23,0) ^.001^5^5^3120601^^^^ "^DD",727.815,727.815,54,23,1,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.815,727.815,54,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.815,727.815,54,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.815,727.815,54,23,4,0) "^DD",727.815,727.815,54,23,5,0) Otherwise, the value is null. "^DD",727.815,727.815,54,"DT") 3120601 "^DD",727.815,727.815,55,0) DATE OF BIRTH^F^^1;14^K:$L(X)>8!($L(X)<1) X "^DD",727.815,727.815,55,3) Answer must be 1-8 characters in length. "^DD",727.815,727.815,55,21,0) ^.001^1^1^3120606^^^^ "^DD",727.815,727.815,55,21,1,0) Patient's date of birth. "^DD",727.815,727.815,55,23,0) ^^7^7^3120606^ "^DD",727.815,727.815,55,23,1,0) Data source: "^DD",727.815,727.815,55,23,2,0) "^DD",727.815,727.815,55,23,3,0) EVENT CAPTURE PATIENT file (#721); PATIENT field (#2) then to PATIENT file "^DD",727.815,727.815,55,23,4,0) (#2); DATE OF BIRTH field (#.03) "^DD",727.815,727.815,55,23,5,0) "^DD",727.815,727.815,55,23,6,0) Date of Birth is returned through the supported call DEM^VADPT. It is then "^DD",727.815,727.815,55,23,7,0) represented by an 8-character numeric string in the YYYYMMDD format. "^DD",727.815,727.815,55,"DT") 3000802 "^DD",727.815,727.815,56,0) ENROLLMENT CATEGORY^F^^1;15^K:$L(X)>1!($L(X)<1) X "^DD",727.815,727.815,56,3) Answer must be 1 character in length. "^DD",727.815,727.815,56,21,0) ^.001^1^1^3120606^^^^ "^DD",727.815,727.815,56,21,1,0) Patient's enrollment category. "^DD",727.815,727.815,56,23,0) ^^3^3^3120606^ "^DD",727.815,727.815,56,23,1,0) ENROLLMENT CATEGORY is derived from the standard call $$CATEGORY^DGENA4 "^DD",727.815,727.815,56,23,2,0) using the patient's DFN and the CURRENT ENROLLMENT field (#27.01) of the "^DD",727.815,727.815,56,23,3,0) PATIENT file (#2). "^DD",727.815,727.815,56,"DT") 3000802 "^DD",727.815,727.815,57,0) ENROLLMENT STATUS^F^^1;16^K:$L(X)>2!($L(X)<1) X "^DD",727.815,727.815,57,3) Answer must be 1-2 characters in length. "^DD",727.815,727.815,57,21,0) ^.001^1^1^3120608^^ "^DD",727.815,727.815,57,21,1,0) The IEN of the patient's enrollment status. "^DD",727.815,727.815,57,23,0) ^.001^7^7^3120608^^ "^DD",727.815,727.815,57,23,1,0) ENROLLMENT STATUS is derived from the standard call $$STATUS^DGENA using "^DD",727.815,727.815,57,23,2,0) the patient's DFN and returns the ENROLLMENT STATUS field (#.04) of the "^DD",727.815,727.815,57,23,3,0) PATIENT ENROLLMENT file (#27.11). "^DD",727.815,727.815,57,23,4,0) "^DD",727.815,727.815,57,23,5,0) This field should be a pointer to the ENROLLMENT STATUS file (#27.15) "^DD",727.815,727.815,57,23,6,0) file but due to FileMan limitations for data on this node, the field is "^DD",727.815,727.815,57,23,7,0) being left as a free text field. "^DD",727.815,727.815,57,"DT") 3000802 "^DD",727.815,727.815,61,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^1;20^Q "^DD",727.815,727.815,61,3) Enter observation patient status for this record. "^DD",727.815,727.815,61,21,0) ^.001^1^1^3120601^^^^ "^DD",727.815,727.815,61,21,1,0) Indicates if patient is considered to be an observation patient. "^DD",727.815,727.815,61,23,0) ^.001^12^12^3120601^^ "^DD",727.815,727.815,61,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.815,727.815,61,23,2,0) "^DD",727.815,727.815,61,23,3,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.815,727.815,61,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.815,727.815,61,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.815,727.815,61,23,6,0) file. "^DD",727.815,727.815,61,23,7,0) "^DD",727.815,727.815,61,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.815,727.815,61,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.815,727.815,61,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.815,727.815,61,23,11,0) "^DD",727.815,727.815,61,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.815,727.815,61,"DT") 3120601 "^DD",727.815,727.815,62,0) ENCOUNTER NUMBER^F^^1;21^K:$L(X)>18!($L(X)<1) X "^DD",727.815,727.815,62,3) Answer must be 1-18 characters in length. "^DD",727.815,727.815,62,21,0) ^.001^1^1^3120607^^^ "^DD",727.815,727.815,62,21,1,0) The unique number assigned for DSS. "^DD",727.815,727.815,62,23,0) ^.001^4^4^3120607^^ "^DD",727.815,727.815,62,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.815,727.815,62,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.815,727.815,62,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.815,727.815,62,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.815,727.815,62,"DT") 3010504 "^DD",727.815,727.815,63,0) AGENT ORANGE LOCATION^F^^1;22^K:$L(X)>2!($L(X)<2) X "^DD",727.815,727.815,63,3) Answer must be 2 characters in length. "^DD",727.815,727.815,63,21,0) ^.001^1^1^3120606^^^^ "^DD",727.815,727.815,63,21,1,0) Indicates the location where the patient was exposed to Agent Orange. "^DD",727.815,727.815,63,23,0) ^.001^3^3^3120606^^ "^DD",727.815,727.815,63,23,1,0) The location is returned by a call to SVC^VADPT which gets its data from "^DD",727.815,727.815,63,23,2,0) the AGENT ORANGE EXPOSURE LOCATION field (#.3213) of the PATIENT file "^DD",727.815,727.815,63,23,3,0) (#2). "^DD",727.815,727.815,63,"DT") 3010504 "^DD",727.815,727.815,68,0) CNH/SH STATUS^S^YES:YES;NO:NO;^1;27^Q "^DD",727.815,727.815,68,3) Enter the CNH/SH status for this patient. "^DD",727.815,727.815,68,21,0) ^.001^2^2^3120606^^^^ "^DD",727.815,727.815,68,21,1,0) This field is used to indicate whether a patient is currently in "^DD",727.815,727.815,68,21,2,0) a contract nursing home/state home. "^DD",727.815,727.815,68,23,0) ^^2^2^3120606^ "^DD",727.815,727.815,68,23,1,0) Using the CNHSTAT^ECXUTL4(DFN) call, the CNH status is returned based on "^DD",727.815,727.815,68,23,2,0) the CNH CURRENT field (#148) of the PATIENT file (#2). "^DD",727.815,727.815,68,"DT") 3120606 "^DD",727.815,727.815,69,0) PRODUCTION DIVISION CODE^F^^1;28^K:$L(X)>7!($L(X)<3) X "^DD",727.815,727.815,69,3) Answer must be 3-7 characters in length. "^DD",727.815,727.815,69,21,0) ^.001^1^1^3120606^^ "^DD",727.815,727.815,69,21,1,0) Identifies the division/facility where the work was performed. "^DD",727.815,727.815,69,23,0) ^^3^3^3120606^ "^DD",727.815,727.815,69,23,1,0) The LOCATION field (#4) of the EVENT CAPTURE PATIENT file (#721) is used "^DD",727.815,727.815,69,23,2,0) to call the api RADDIV^ECXDEPT to get the STATION NUMBER field (#99) from "^DD",727.815,727.815,69,23,3,0) the INSTITUTION file (#4). "^DD",727.815,727.815,69,"DT") 3120606 "^DD",727.815,727.815,71,0) HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^1;30^Q "^DD",727.815,727.815,71,.1) Head and Neck Cancer Indicator "^DD",727.815,727.815,71,3) Enter the Head & Neck Cancer Indicator for the patient. "^DD",727.815,727.815,71,21,0) ^.001^1^1^3120606^^ "^DD",727.815,727.815,71,21,1,0) Identifies whether patient has head and/or neck cancer. "^DD",727.815,727.815,71,23,0) ^^3^3^3120606^ "^DD",727.815,727.815,71,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.815,727.815,71,23,2,0) (#4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "^DD",727.815,727.815,71,23,3,0) CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11). "^DD",727.815,727.815,71,"DT") 3020828 "^DD",727.815,727.815,73,0) RACE 1^F^^1;32^K:$L(X)>6!($L(X)<1) X "^DD",727.815,727.815,73,3) Answer must be 1-6 characters in length. "^DD",727.815,727.815,73,21,0) ^.001^1^1^3120608^^^^ "^DD",727.815,727.815,73,21,1,0) Self-reported by patient as recorded in VistA patient file. "^DD",727.815,727.815,73,23,0) ^.001^11^11^3120608^^ "^DD",727.815,727.815,73,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.815,727.815,73,23,2,0) (#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file "^DD",727.815,727.815,73,23,3,0) (#10) pointed to by the RACE INFORMATION field (#.01) of the "^DD",727.815,727.815,73,23,4,0) RACE INFORMATION subfile (#2.02) of the PATIENT file (#2). "^DD",727.815,727.815,73,23,5,0) "^DD",727.815,727.815,73,23,6,0) Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03) "^DD",727.815,727.815,73,23,7,0) where the METHOD OF COLLECTION field (#.02) is set to 1 "^DD",727.815,727.815,73,23,8,0) (SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race "^DD",727.815,727.815,73,23,9,0) entries can be included. If any of the RACE INFORMATION values returned is "^DD",727.815,727.815,73,23,10,0) "C" (DECLINED TO ANSWER), that will be the only value included in the "^DD",727.815,727.815,73,23,11,0) RACE1 field. "^DD",727.815,727.815,73,"DT") 3021210 "^DD",727.815,727.815,76,0) ENROLLMENT PRIORITY^F^^1;35^K:$L(X)>2!($L(X)<1) X "^DD",727.815,727.815,76,3) Answer must be 1-2 characters in length. "^DD",727.815,727.815,76,21,0) ^.001^2^2^3120606^^ "^DD",727.815,727.815,76,21,1,0) This field contains the enrollment priority group and the enrollment "^DD",727.815,727.815,76,21,2,0) priority subgroup. "^DD",727.815,727.815,76,23,0) ^^20^20^3120606^ "^DD",727.815,727.815,76,23,1,0) ENROLLMENT PRIORITY field contains the enrollment priority group and the "^DD",727.815,727.815,76,23,2,0) enrollment priority subgroup from the PATIENT ENROLLMENT File (#27.11). "^DD",727.815,727.815,76,23,3,0) "^DD",727.815,727.815,76,23,4,0) ENROLLMENT PRIORITY Groups determined for a patient enrollment include: "^DD",727.815,727.815,76,23,5,0) "^DD",727.815,727.815,76,23,6,0) '1' FOR GROUP 1 "^DD",727.815,727.815,76,23,7,0) '2' FOR GROUP 2 "^DD",727.815,727.815,76,23,8,0) '3' FOR GROUP 3 "^DD",727.815,727.815,76,23,9,0) '4' FOR GROUP 4 "^DD",727.815,727.815,76,23,10,0) '5' FOR GROUP 5 "^DD",727.815,727.815,76,23,11,0) '6' FOR GROUP 6 "^DD",727.815,727.815,76,23,12,0) '7' FOR GROUP 7 "^DD",727.815,727.815,76,23,13,0) '8' FOR GROUP 8 "^DD",727.815,727.815,76,23,14,0) "^DD",727.815,727.815,76,23,15,0) ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include: "^DD",727.815,727.815,76,23,16,0) "^DD",727.815,727.815,76,23,17,0) 'a' FOR 1 "^DD",727.815,727.815,76,23,18,0) 'c' FOR 3 "^DD",727.815,727.815,76,23,19,0) 'e' FOR 5 "^DD",727.815,727.815,76,23,20,0) 'g' FOR 7 "^DD",727.815,727.815,76,"DT") 3040226 "^DD",727.815,727.815,77,0) USER ENROLLEE^S^U:USER ENROLLED;^1;36^Q "^DD",727.815,727.815,77,3) Enter patient's current enrollment status. "^DD",727.815,727.815,77,21,0) ^.001^2^2^3120606^^^ "^DD",727.815,727.815,77,21,1,0) Indicates whether a Veteran has User Enrollee status for the current or "^DD",727.815,727.815,77,21,2,0) future fiscal year. "^DD",727.815,727.815,77,23,0) ^.001^5^5^3120606^^ "^DD",727.815,727.815,77,23,1,0) User enrollee is determined by checking the Patient Enrollment (#27.11) "^DD",727.815,727.815,77,23,2,0) file. When a user has a current or future fiscal year in the VistA User "^DD",727.815,727.815,77,23,3,0) Enrollee Status (#.04) field the value is set to 'U' and Null if no date "^DD",727.815,727.815,77,23,4,0) or a past year's value is contained. Determined by the use of an API: "^DD",727.815,727.815,77,23,5,0) $$UESTAT^EASUSER where the Patient Identifier (DFN) is passed in. "^DD",727.815,727.815,77,"DT") 3120606 "^DD",727.815,727.815,78,0) PATIENT TYPE^S^AC:ACTIVE DUTY;AL:ALLIED VETERAN;CO:COLLATERAL;EM:EMPLOYEE;IN:INELIGIBLE;MI:MILITARY RETIREE;NO:NON-VETERAN (OTHER);NS:NSC VETERAN;SC:SC VETERAN;TR:TRICARE;^1;37^Q "^DD",727.815,727.815,78,3) Enter type of patient. "^DD",727.815,727.815,78,21,0) ^.001^2^2^3120606^^ "^DD",727.815,727.815,78,21,1,0) Refers to the various types of patients which may be seen at a VA "^DD",727.815,727.815,78,21,2,0) facility. Every patient in the system must have a TYPE specified. "^DD",727.815,727.815,78,23,0) ^^5^5^3120606^ "^DD",727.815,727.815,78,23,1,0) PATIENT TYPE is derived from a call to TYPE^ECXUTL5(DFN). Using the "^DD",727.815,727.815,78,23,2,0) patient's DFN, the NAME field (#.01) of the TYPE OF PATIENT file (#391) as "^DD",727.815,727.815,78,23,3,0) pointed to by the TYPE field (#391) of the PATIENT file (#2) is shortened "^DD",727.815,727.815,78,23,4,0) to the first two characters to determine the value stored in the PATIENT "^DD",727.815,727.815,78,23,5,0) TYPE field (#78). "^DD",727.815,727.815,78,"DT") 3040226 "^DD",727.815,727.815,79,0) CV STATUS ELIGIBILITY^S^Y:YES;E:ELIGIBILITY EXPIRED;^1;38^Q "^DD",727.815,727.815,79,3) Enter patient's combat veteran eligibility. "^DD",727.815,727.815,79,21,0) ^.001^4^4^3120606^^^ "^DD",727.815,727.815,79,21,1,0) Records if Veteran service on active duty in a theater of combat "^DD",727.815,727.815,79,21,2,0) operations during a period of war after the Persian Gulf War or in combat "^DD",727.815,727.815,79,21,3,0) against a hostile force during a period of hostilities after November 11, "^DD",727.815,727.815,79,21,4,0) 1998. "^DD",727.815,727.815,79,23,0) ^.001^11^11^3120606^^ "^DD",727.815,727.815,79,23,1,0) CV STATUS ELIGIBILITY is determined by the use of API "^DD",727.815,727.815,79,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.815,727.815,79,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.815,727.815,79,23,4,0) pieces (i.e. 1^20010106^0) and the first piece is resolved as follows. "^DD",727.815,727.815,79,23,5,0) "^DD",727.815,727.815,79,23,6,0) 1 - veteran qualifies as a CV "^DD",727.815,727.815,79,23,7,0) 0 - veteran does not qualify as a CV "^DD",727.815,727.815,79,23,8,0) -1 - bad DFN "^DD",727.815,727.815,79,23,9,0) "^DD",727.815,727.815,79,23,10,0) Based on this result the field will be set to 'Y' for 'YES' or 'E' for "^DD",727.815,727.815,79,23,11,0) 'ELIGIBILITY EXPIRED' or 'NULL' for not eligible. "^DD",727.815,727.815,79,"DT") 3120606 "^DD",727.815,727.815,80,0) CV ELIGIBILITY END DATE^F^^2;1^K:$L(X)>8!($L(X)<8) X "^DD",727.815,727.815,80,3) Answer must be 8 characters in length. "^DD",727.815,727.815,80,21,0) ^.001^4^4^3120606^^ "^DD",727.815,727.815,80,21,1,0) Records the Combat Veteran eligibility expiration date of the veteran who "^DD",727.815,727.815,80,21,2,0) served on active duty in a theater of combat operations during a period of "^DD",727.815,727.815,80,21,3,0) war after the Persian Gulf War or in combat against a hostile force during "^DD",727.815,727.815,80,21,4,0) a period of hostilities after November 11, 1998. "^DD",727.815,727.815,80,23,0) ^^5^5^3120606^ "^DD",727.815,727.815,80,23,1,0) CV ELIGIBILITY END DATE is determined by the use of API "^DD",727.815,727.815,80,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.815,727.815,80,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.815,727.815,80,23,4,0) pieces (i.e. 1^20010106^0) the 2nd piece is the COMBAT VET END DATE in "^DD",727.815,727.815,80,23,5,0) HL7 format. "^DD",727.815,727.815,80,"DT") 3120606 "^DD",727.815,727.815,81,0) ENCOUNTER CV^S^Y:YES;^2;2^Q "^DD",727.815,727.815,81,3) Enter patient's combat veteran eligibility. "^DD",727.815,727.815,81,21,0) ^^4^4^3120606^ "^DD",727.815,727.815,81,21,1,0) Records if a Veteran served on active duty in a theater of combat "^DD",727.815,727.815,81,21,2,0) operations during a period of war after the Persian Gulf War or in combat "^DD",727.815,727.815,81,21,3,0) against a hostile force during a period of hostilities after November 11, "^DD",727.815,727.815,81,21,4,0) 1998. "^DD",727.815,727.815,81,23,0) ^^10^10^3120606^ "^DD",727.815,727.815,81,23,1,0) ENCOUNTER CV is determined by the use of API $$CVEDT^DGCV(DFN,DATE) that "^DD",727.815,727.815,81,23,2,0) checks the COMBAT VET END DATE field (#.5295) from the PATIENT file (#2) "^DD",727.815,727.815,81,23,3,0) to determine CV Status. API returns three pieces (i.e. 1^20100106^0). The "^DD",727.815,727.815,81,23,4,0) third piece returns: "^DD",727.815,727.815,81,23,5,0) "^DD",727.815,727.815,81,23,6,0) 1 - vet was eligible on date specified "^DD",727.815,727.815,81,23,7,0) 0 - vet was not eligible on date specified "^DD",727.815,727.815,81,23,8,0) "^DD",727.815,727.815,81,23,9,0) Based on these returns, the value for this field shall be Y for Yes if "^DD",727.815,727.815,81,23,10,0) value is 1 or left blank if 0 to indicate ineligibility. "^DD",727.815,727.815,81,"DT") 3120606 "^DD",727.815,727.815,82,0) NATIONAL PATIENT RECORD FLAG^S^Y:YES;^2;3^Q "^DD",727.815,727.815,82,3) Indicate if patient is associated with a category 1 patient record flag. "^DD",727.815,727.815,82,21,0) ^^2^2^3120606^ "^DD",727.815,727.815,82,21,1,0) This field records whether the patient's record contains 1 or more "^DD",727.815,727.815,82,21,2,0) active category 1 (National) Patient Record Flags. "^DD",727.815,727.815,82,23,0) ^^7^7^3120606^ "^DD",727.815,727.815,82,23,1,0) The NATIONAL PATIENT RECORD FLAG field is set based on the results of the "^DD",727.815,727.815,82,23,2,0) $$GETACT^DGPFAPI(DFN,TARGET ARRAY) call. This call looks at the category "^DD",727.815,727.815,82,23,3,0) 1 national patient record flags as recorded in the PRF NATIONAL FLAG file "^DD",727.815,727.815,82,23,4,0) (#26.15). The resulting value of this call is the number of active "^DD",727.815,727.815,82,23,5,0) category I patient record flags assigned to this patient. This field is "^DD",727.815,727.815,82,23,6,0) set to Y (YES) if the result is greater than zero. A value of zero causes "^DD",727.815,727.815,82,23,7,0) this field to be left null. "^DD",727.815,727.815,82,"DT") 3120606 "^DD",727.815,727.815,84,0) AGENT ORANGE ENC INDICATOR^S^Y:YES;N:NO;^2;5^Q "^DD",727.815,727.815,84,3) Enter patient's agent orange exposure indicator. "^DD",727.815,727.815,84,21,0) ^.001^2^2^3120607^^^ "^DD",727.815,727.815,84,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.815,727.815,84,21,2,0) related to exposure to Agent Orange. "^DD",727.815,727.815,84,23,0) ^^5^5^3120607^ "^DD",727.815,727.815,84,23,1,0) Using the VISIT field (#28) in the EVENT CAPTURE PATIENT file (#721) "^DD",727.815,727.815,84,23,2,0) a call is made to API VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. "^DD",727.815,727.815,84,23,3,0) The ENCEVENT^PXAPI returns the agent orange indicator stored at the AGENT "^DD",727.815,727.815,84,23,4,0) ORANGE EXPOSURE field (#80002) in the VISIT file (#9000010). The value "^DD",727.815,727.815,84,23,5,0) will be stored in the output array subscripted by "AO". "^DD",727.815,727.815,84,"DT") 3120607 "^DD",727.815,727.815,85,0) ENCOUNTER SWAC^S^Y:YES;N:NO;^2;6^Q "^DD",727.815,727.815,85,3) Indicate if care is related to Southwest Asia Conditions status. "^DD",727.815,727.815,85,21,0) ^.001^2^2^3120607^^^ "^DD",727.815,727.815,85,21,1,0) Indicates the appropriate response for Southwest Asia conditions as "^DD",727.815,727.815,85,21,2,0) related to this patient's episode of care. "^DD",727.815,727.815,85,23,0) ^^5^5^3120607^ "^DD",727.815,727.815,85,23,1,0) Using the VISIT field (#28) in the EVENT CAPTURE PATIENT file (#721) "^DD",727.815,727.815,85,23,2,0) a call is made to API VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. "^DD",727.815,727.815,85,23,3,0) The ENCEVENT^PXAPI returns the Southwest Asia conditions indicator stored "^DD",727.815,727.815,85,23,4,0) at the SW ASIA CONDITIONS field (#80004) in the VISIT file (#9000010). The "^DD",727.815,727.815,85,23,5,0) value will be stored in the output array subscripted by "PGE". "^DD",727.815,727.815,85,"DT") 3120607 "^DD",727.815,727.815,86,0) ENC HEAD/NECK CA^S^Y:YES;N:NO;^2;7^Q "^DD",727.815,727.815,86,3) Indicate if service provided is related to head and/or neck cancer. "^DD",727.815,727.815,86,21,0) ^.001^2^2^3120607^^^ "^DD",727.815,727.815,86,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.815,727.815,86,21,2,0) related to head/neck Cancer. "^DD",727.815,727.815,86,23,0) ^^5^5^3120607^ "^DD",727.815,727.815,86,23,1,0) Using the VISIT field (#28) in the EVENT CAPTURE PATIENT file (#721) "^DD",727.815,727.815,86,23,2,0) a call is made to API VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. "^DD",727.815,727.815,86,23,3,0) The ENCEVENT^PXAPI returns the head/neck cancer data stored at the HEAD "^DD",727.815,727.815,86,23,4,0) AND/OR NECK CANCER field (#80006) in the VISIT file (#9000010). The value "^DD",727.815,727.815,86,23,5,0) will be stored in the output array subscripted by "HNC". "^DD",727.815,727.815,86,"DT") 3120607 "^DD",727.815,727.815,87,0) ENCOUNTER MST^S^Y:YES;N:NO;^2;8^Q "^DD",727.815,727.815,87,3) Indicate if treatment is related to military sexual trauma. "^DD",727.815,727.815,87,21,0) ^.001^2^2^3120607^^^ "^DD",727.815,727.815,87,21,1,0) Indicates the appropriate response for military sexual trauma as related "^DD",727.815,727.815,87,21,2,0) to this patient's episode of care. "^DD",727.815,727.815,87,23,0) ^^5^5^3120607^ "^DD",727.815,727.815,87,23,1,0) Using the VISIT field (#28) in the EVENT CAPTURE PATIENT file (#721) a "^DD",727.815,727.815,87,23,2,0) call is made to API VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The "^DD",727.815,727.815,87,23,3,0) ENCEVENT^PXAPI returns the military sexual trauma data stored at the "^DD",727.815,727.815,87,23,4,0) MILITARY SEXUAL TRAUMA field (#80005) in the VISIT file (#9000010). The "^DD",727.815,727.815,87,23,5,0) value will be stored in the output array subscripted by "MST". "^DD",727.815,727.815,87,"DT") 3120607 "^DD",727.815,727.815,88,0) RADIATION ENCOUNTER INDICATOR^S^Y:YES;N:NO;^2;9^Q "^DD",727.815,727.815,88,3) Indicate if treatment is related to exposure to ionizing radiation. "^DD",727.815,727.815,88,21,0) ^.001^2^2^3120607^^ "^DD",727.815,727.815,88,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.815,727.815,88,21,2,0) related to exposure to ionizing radiation. "^DD",727.815,727.815,88,23,0) ^.001^6^6^3120607^^^ "^DD",727.815,727.815,88,23,1,0) Using the VISIT field (#28) in the EVENT CAPTURE PATIENT file (#721) a "^DD",727.815,727.815,88,23,2,0) call is made to API VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. "^DD",727.815,727.815,88,23,3,0) The ENCEVENT^PXAPI returns the ionizing radiation exposure indicator "^DD",727.815,727.815,88,23,4,0) stored at the IONIZING RADIATION EXPOSURE field (#80003) in the VISIT file "^DD",727.815,727.815,88,23,5,0) (#9000010). The value will be stored in the output array subscripted by "^DD",727.815,727.815,88,23,6,0) "IR". "^DD",727.815,727.815,88,"DT") 3120607 "^DD",727.815,727.815,89,0) NUTRITION DIAGNOSIS^F^^2;10^K:$L(X)>8!($L(X)<8) X "^DD",727.815,727.815,89,3) Answer must be 8 characters in length. "^DD",727.815,727.815,89,23,0) ^^1^1^3120127^ "^DD",727.815,727.815,89,23,1,0) Currently NULL. "^DD",727.815,727.815,89,"DT") 3060619 "^DD",727.815,727.815,97,0) SHAD STATUS^S^Y:YES;N:NO;U:UNKNOWN;^2;18^Q "^DD",727.815,727.815,97,3) Enter SHAD Status. "^DD",727.815,727.815,97,21,0) ^.001^2^2^3120607^^ "^DD",727.815,727.815,97,21,1,0) Indicates whether patient meets requirements for Shipboard Hazard and "^DD",727.815,727.815,97,21,2,0) Defense (SHAD). "^DD",727.815,727.815,97,23,0) ^^3^3^3120607^ "^DD",727.815,727.815,97,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.815,727.815,97,23,2,0) in the EVENT CAPTURE LOCAL EXTRACT file (#727.815), Shipboard Hazard and "^DD",727.815,727.815,97,23,3,0) Defense data is derived from using DBIA #4462 GETSHAD^DGUTL3(DFN). "^DD",727.815,727.815,97,"DT") 3100216 "^DD",727.815,727.815,100,0) PROVIDER #4^F^^2;21^K:$L(X)>11!($L(X)<2) X "^DD",727.815,727.815,100,3) Answer must be 2-11 characters in length. "^DD",727.815,727.815,100,21,0) ^^3^3^3120607^ "^DD",727.815,727.815,100,21,1,0) The fourth provider associated with the patient encounter. It represents "^DD",727.815,727.815,100,21,2,0) an assisting Provider who performed the procedure associated with the "^DD",727.815,727.815,100,21,3,0) Event Capture patient record. "^DD",727.815,727.815,100,23,0) ^^7^7^3120607^ "^DD",727.815,727.815,100,23,1,0) Data is derived by returning a local array (fourth node) of the "^DD",727.815,727.815,100,23,2,0) $$GETPRV^ECPRVMUT API (DBIA #4460) that returns the PROVIDER multiple "^DD",727.815,727.815,100,23,3,0) (#42) from the EVENT CAPTURE PATIENT File (#721). "^DD",727.815,727.815,100,23,4,0) "^DD",727.815,727.815,100,23,5,0) The PROVIDER #4 is the value of a "2" prefixed to the pointer value to "^DD",727.815,727.815,100,23,6,0) indicate that the source file is "200". For example, if the IEN of the "^DD",727.815,727.815,100,23,7,0) provider in file #200 is 98765, the value that will be stored is 298765. "^DD",727.815,727.815,100,"DT") 3110311 "^DD",727.815,727.815,103,0) PROVIDER #5^F^^2;24^K:$L(X)>11!($L(X)<2) X "^DD",727.815,727.815,103,3) Answer must be 2-11 characters in length. "^DD",727.815,727.815,103,21,0) ^^3^3^3120607^ "^DD",727.815,727.815,103,21,1,0) The fifth provider associated with the patient encounter. It represents "^DD",727.815,727.815,103,21,2,0) an assisting Provider who performed the procedure associated with the "^DD",727.815,727.815,103,21,3,0) Event Capture patient record. "^DD",727.815,727.815,103,23,0) ^^7^7^3120607^ "^DD",727.815,727.815,103,23,1,0) Data is derived by returning a local array (fifth node) of the "^DD",727.815,727.815,103,23,2,0) $$GETPRV^ECPRVMUT API (DBIA #4460) that returns the PROVIDER multiple "^DD",727.815,727.815,103,23,3,0) (#42) from the EVENT CAPTURE PATIENT File (#721). "^DD",727.815,727.815,103,23,4,0) "^DD",727.815,727.815,103,23,5,0) The PROVIDER #5 is the value of a "2" prefixed to the pointer value to "^DD",727.815,727.815,103,23,6,0) indicate that the source file is "200". For example, if the IEN of the "^DD",727.815,727.815,103,23,7,0) provider in file #200 is 98765, the value that will be stored is 298765. "^DD",727.815,727.815,103,"DT") 3110311 "^DD",727.815,727.815,106,0) PRIMARY ICD-10 CODE^F^^2;27^K:$L(X)>8!($L(X)<1) X "^DD",727.815,727.815,106,3) Answer must be 1-8 characters in length. "^DD",727.815,727.815,106,21,0) ^.001^1^1^3120607^^^^ "^DD",727.815,727.815,106,21,1,0) This is the Primary ICD10 code for this encounter. "^DD",727.815,727.815,106,23,0) ^.001^6^6^3120607^^^ "^DD",727.815,727.815,106,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.815,727.815,106,23,2,0) and stored in this field. "^DD",727.815,727.815,106,23,3,0) "^DD",727.815,727.815,106,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.815,727.815,106,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.815,727.815,106,23,6,0) information. "^DD",727.815,727.815,106,"DT") 3120304 "^DD",727.815,727.815,107,0) SECONDARY ICD-10 CODE #1^F^^2;28^K:$L(X)>8!($L(X)<1) X "^DD",727.815,727.815,107,3) Answer must be 1-8 characters in length. "^DD",727.815,727.815,107,21,0) ^.001^1^1^3120607^^^^ "^DD",727.815,727.815,107,21,1,0) This is the first secondary ICD10 code for this encounter. "^DD",727.815,727.815,107,23,0) ^.001^6^6^3120607^^^ "^DD",727.815,727.815,107,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.815,727.815,107,23,2,0) and stored in this field. "^DD",727.815,727.815,107,23,3,0) "^DD",727.815,727.815,107,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.815,727.815,107,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.815,727.815,107,23,6,0) information. "^DD",727.815,727.815,107,"DT") 3120304 "^DD",727.815,727.815,108,0) SECONDARY ICD-10 CODE #2^F^^2;29^K:$L(X)>8!($L(X)<1) X "^DD",727.815,727.815,108,3) Answer must be 1-8 characters in length. "^DD",727.815,727.815,108,21,0) ^.001^1^1^3120607^^^^ "^DD",727.815,727.815,108,21,1,0) This is the second secondary ICD10 code for this encounter. "^DD",727.815,727.815,108,23,0) ^.001^6^6^3120607^^^^ "^DD",727.815,727.815,108,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.815,727.815,108,23,2,0) and stored in this field. "^DD",727.815,727.815,108,23,3,0) "^DD",727.815,727.815,108,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.815,727.815,108,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.815,727.815,108,23,6,0) information. "^DD",727.815,727.815,108,"DT") 3120304 "^DD",727.815,727.815,109,0) SECONDARY ICD-10 CODE #3^F^^2;30^K:$L(X)>8!($L(X)<1) X "^DD",727.815,727.815,109,3) Answer must be 1-8 characters in length. "^DD",727.815,727.815,109,21,0) ^.001^1^1^3120607^^^^ "^DD",727.815,727.815,109,21,1,0) This is the third secondary ICD10 code for this encounter. "^DD",727.815,727.815,109,23,0) ^.001^6^6^3120607^^^^ "^DD",727.815,727.815,109,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.815,727.815,109,23,2,0) and stored in this field. "^DD",727.815,727.815,109,23,3,0) "^DD",727.815,727.815,109,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.815,727.815,109,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.815,727.815,109,23,6,0) information. "^DD",727.815,727.815,109,"DT") 3120304 "^DD",727.815,727.815,110,0) SECONDARY ICD-10 CODE #4^F^^2;31^K:$L(X)>8!($L(X)<1) X "^DD",727.815,727.815,110,3) Answer must be 1-8 characters in length. "^DD",727.815,727.815,110,21,0) ^.001^1^1^3120607^^^^ "^DD",727.815,727.815,110,21,1,0) This is the fourth secondary ICD10 code for this encounter. "^DD",727.815,727.815,110,23,0) ^.001^6^6^3120607^^^ "^DD",727.815,727.815,110,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.815,727.815,110,23,2,0) and stored in this field. "^DD",727.815,727.815,110,23,3,0) "^DD",727.815,727.815,110,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.815,727.815,110,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.815,727.815,110,23,6,0) information. "^DD",727.815,727.815,110,"DT") 3120304 "^DD",727.817,727.817,3,0) FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X "^DD",727.817,727.817,3,.1) Facility "^DD",727.817,727.817,3,3) Enter the station number where this extract was performed. "^DD",727.817,727.817,3,21,0) ^^1^1^3120308^ "^DD",727.817,727.817,3,21,1,0) This is the facility/division where the extract was performed. "^DD",727.817,727.817,3,23,0) ^.001^1^1^3120308^^^ "^DD",727.817,727.817,3,23,1,0) Currently, FACILITY field is null. "^DD",727.817,727.817,3,"DT") 3120227 "^DD",727.817,727.817,5,0) SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X "^DD",727.817,727.817,5,.1) Social Security Number "^DD",727.817,727.817,5,3) Your answer must be 9 to 10 characters in length. "^DD",727.817,727.817,5,21,0) ^.001^1^1^3120531^^ "^DD",727.817,727.817,5,21,1,0) The patient's social security number. "^DD",727.817,727.817,5,23,0) ^^7^7^3120531^ "^DD",727.817,727.817,5,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN "^DD",727.817,727.817,5,23,2,0) field (4) in the TREATING SPECIALTY CHANGE EXTRACT file (#727.817), "^DD",727.817,727.817,5,23,3,0) SSN data is derived from the SOCIAL SECURITY NUMBER field (.09) in "^DD",727.817,727.817,5,23,4,0) the PATIENT file (#2). "^DD",727.817,727.817,5,23,5,0) "^DD",727.817,727.817,5,23,6,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with "^DD",727.817,727.817,5,23,7,0) an SSN beginning with "00000" will not be included in the extract. "^DD",727.817,727.817,5,"DT") 2961004 "^DD",727.817,727.817,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.817,727.817,6,.1) Name "^DD",727.817,727.817,6,3) Your answer must be 4 characters in length. "^DD",727.817,727.817,6,21,0) ^.001^1^1^3120127^^^^ "^DD",727.817,727.817,6,21,1,0) The first four characters of the patient's last name. "^DD",727.817,727.817,6,23,0) ^^7^7^3120127^ "^DD",727.817,727.817,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN "^DD",727.817,727.817,6,23,2,0) field (4) in the TREATING SPECIALTY CHANGE EXTRACT file (#727.817), "^DD",727.817,727.817,6,23,3,0) NAME data is derived from the NAME field (.01) in the PATIENT file "^DD",727.817,727.817,6,23,4,0) (#2). The first four characters of the first "," piece are used, "^DD",727.817,727.817,6,23,5,0) padded with trailing spaces if necessary. "^DD",727.817,727.817,6,23,6,0) "^DD",727.817,727.817,6,23,7,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.817,727.817,6,"DT") 2961004 "^DD",727.817,727.817,7,0) IN OUT PATIENT INDICATOR^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q "^DD",727.817,727.817,7,.1) In Out Patient Indicator "^DD",727.817,727.817,7,3) Enter the patient's status at the time of the treating specialty change. "^DD",727.817,727.817,7,21,0) ^.001^2^2^3120608^^^^ "^DD",727.817,727.817,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for this "^DD",727.817,727.817,7,21,2,0) extract entry. "^DD",727.817,727.817,7,23,0) ^.001^10^10^3120608^^^ "^DD",727.817,727.817,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.817,727.817,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.817,727.817,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.817,727.817,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.817,727.817,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.817,727.817,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.817,727.817,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.817,727.817,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.817,727.817,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.817,727.817,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.817,727.817,7,"DT") 3120308 "^DD",727.817,727.817,10,0) ADMISSION DATE^FO^^0;11^K:$L(X)>8!($L(X)<8) X "^DD",727.817,727.817,10,.1) Admission Date "^DD",727.817,727.817,10,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.817,727.817,10,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.817,727.817,10,3) Answer must be 8 characters in length. "^DD",727.817,727.817,10,21,0) ^.001^1^1^3120309^^ "^DD",727.817,727.817,10,21,1,0) Patient's admission date. "^DD",727.817,727.817,10,23,0) ^^10^10^3120309^ "^DD",727.817,727.817,10,23,1,0) Data source: "^DD",727.817,727.817,10,23,2,0) "^DD",727.817,727.817,10,23,3,0) PATIENT MOVEMENT file (#405); ADMISSION/CHECK-IN MOVEMENT field (#.14) "^DD",727.817,727.817,10,23,4,0) PATIENT MOVEMENT FILE (#405); DATE/TIME (#.01) "^DD",727.817,727.817,10,23,5,0) "^DD",727.817,727.817,10,23,6,0) This field is always exactly 8 numeric characters in length. The format "^DD",727.817,727.817,10,23,7,0) is YYYYMMDD; for example, 19970923. If the date cannot be determined, "^DD",727.817,727.817,10,23,8,0) then a default is used. The default date value is the value of the "^DD",727.817,727.817,10,23,9,0) YEAR MONTH field (#1) concatenated with "01" for the day (DD) portion. "^DD",727.817,727.817,10,23,10,0) Year 2000 compliant per vendor. "^DD",727.817,727.817,10,"DT") 2970924 "^DD",727.817,727.817,11,0) DISCHARGE DATE^FO^^0;12^K:$L(X)>8!($L(X)<8) X "^DD",727.817,727.817,11,.1) Discharge Date "^DD",727.817,727.817,11,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.817,727.817,11,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.817,727.817,11,3) Answer must be 8 characters in length. "^DD",727.817,727.817,11,21,0) ^^1^1^3111123^ "^DD",727.817,727.817,11,21,1,0) Patient's discharge date. "^DD",727.817,727.817,11,23,0) ^.001^9^9^3111123^^^^ "^DD",727.817,727.817,11,23,1,0) Data source: "^DD",727.817,727.817,11,23,2,0) "^DD",727.817,727.817,11,23,3,0) PATIENT MOVEMENT file (#405); DATE/TIME field (#.01) "^DD",727.817,727.817,11,23,4,0) "^DD",727.817,727.817,11,23,5,0) This field is always exactly 8 numeric characters in length. The format "^DD",727.817,727.817,11,23,6,0) is YYYYMMDD; for example, 19970923. If the date cannot be determined, "^DD",727.817,727.817,11,23,7,0) then a default is used. The default date value is the value of the "^DD",727.817,727.817,11,23,8,0) YEAR MONTH field (#1) concatenated with "01" for the day (DD) portion. "^DD",727.817,727.817,11,23,9,0) Year 2000 compliant per vendor. "^DD",727.817,727.817,11,"DT") 2970924 "^DD",727.817,727.817,12,0) MOVEMENT FILE #^P405'^DGPM(^0;13^Q "^DD",727.817,727.817,12,.1) Movement File Number "^DD",727.817,727.817,12,3) Enter the patient movement number associated with this extract record. "^DD",727.817,727.817,12,21,0) ^^1^1^3120308^ "^DD",727.817,727.817,12,21,1,0) Current patient movement record associated with this extract record. "^DD",727.817,727.817,12,23,0) ^^4^4^3120308^ "^DD",727.817,727.817,12,23,1,0) A number used as an index into the patient movement file. "^DD",727.817,727.817,12,23,2,0) "^DD",727.817,727.817,12,23,3,0) The ^DGPM("ATT3" or "ATT6",DATE,D0) cross reference is used to "^DD",727.817,727.817,12,23,4,0) obtain the current movement IEN associated with this patient. "^DD",727.817,727.817,12,"DT") 2961004 "^DD",727.817,727.817,14,0) NEW TREATING SPECIALTY^F^^0;15^K:$L(X)>3!($L(X)<2) X "^DD",727.817,727.817,14,.1) New Treating Specialty "^DD",727.817,727.817,14,3) PTF Code from Specialty File (42.4) "^DD",727.817,727.817,14,21,0) ^^2^2^3111123^ "^DD",727.817,727.817,14,21,1,0) The treating specialty code for this patient at the date and time of this "^DD",727.817,727.817,14,21,2,0) record. "^DD",727.817,727.817,14,23,0) ^.001^10^10^3111123^^^^ "^DD",727.817,727.817,14,23,1,0) Source: "^DD",727.817,727.817,14,23,2,0) Field #.09; file #405 "^DD",727.817,727.817,14,23,3,0) Field #7; file #45.7 "^DD",727.817,727.817,14,23,4,0) "^DD",727.817,727.817,14,23,5,0) PTF Code of SPECIALTY file (#42.4) derived from SPECIALTY "^DD",727.817,727.817,14,23,6,0) field (#1) and PTF CODE (#7) of FACILITY TREATING SPECIALTY file (#45.7) "^DD",727.817,727.817,14,23,7,0) record pointed to by FACILITY TREATING SPECIALTY field (#.09) of PATIENT "^DD",727.817,727.817,14,23,8,0) MOVEMENT file (#405) record. The movement record is the current treating "^DD",727.817,727.817,14,23,9,0) specialty movement. Then, the PTF Code is obtained and stored instead of "^DD",727.817,727.817,14,23,10,0) the actual specialty code. "^DD",727.817,727.817,14,"DT") 3070413 "^DD",727.817,727.817,15,0) LOSING TREATING SPECIALTY^F^^0;16^K:$L(X)>3!($L(X)<2) X "^DD",727.817,727.817,15,.1) Losing Treating Specialty "^DD",727.817,727.817,15,3) Answer must be 2-3 characters in length. "^DD",727.817,727.817,15,21,0) ^^2^2^3111123^ "^DD",727.817,727.817,15,21,1,0) The patient's treating specialty code from prior treating specialty "^DD",727.817,727.817,15,21,2,0) record. "^DD",727.817,727.817,15,23,0) ^.001^15^15^3111123^^^ "^DD",727.817,727.817,15,23,1,0) Using the "ATT3" or "ATT6" cross reference on the PATIENT MOVEMENT file "^DD",727.817,727.817,15,23,2,0) (#405) and the patient pointer (DFN) stored in the PATIENT NO. - DFN "^DD",727.817,727.817,15,23,3,0) field (4) in the TREATING SPECIALTY CHANGE EXTRACT file (#727.817), "^DD",727.817,727.817,15,23,4,0) NEW TREATING SPECIALTY data is derived from the FACILITY TREATING "^DD",727.817,727.817,15,23,5,0) SPECIALTY field (.09) in the PATIENT MOVEMENT file (#405). This facility "^DD",727.817,727.817,15,23,6,0) treating specialty data is a pointer to the FACILITY TREATING SPECIALTY "^DD",727.817,727.817,15,23,7,0) file (#45.7). Using the SPECIALTY field (1) in the FACILITY TREATING "^DD",727.817,727.817,15,23,8,0) SPECIALTY file (#45.7), the pointer to the SPECIALTY file (#42.4) is "^DD",727.817,727.817,15,23,9,0) obtained. "^DD",727.817,727.817,15,23,10,0) "^DD",727.817,727.817,15,23,11,0) This Specialty is then the LOSING Specialty for the Treating Specialty "^DD",727.817,727.817,15,23,12,0) change occurring on the date in the TRT extract record. "^DD",727.817,727.817,15,23,13,0) "^DD",727.817,727.817,15,23,14,0) Then, the PTF Code is obtained and stored instead of the actual specialty "^DD",727.817,727.817,15,23,15,0) code. "^DD",727.817,727.817,15,"DT") 3070502 "^DD",727.817,727.817,16,0) LOSING TREATING SPECIALTY LOS^NJ4,0^^0;17^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X "^DD",727.817,727.817,16,.1) Losing TS LOS "^DD",727.817,727.817,16,3) Type a Number between 0 and 9999, 0 Decimal Digits "^DD",727.817,727.817,16,21,0) ^^1^1^3120308^ "^DD",727.817,727.817,16,21,1,0) The length of stay, in days, on the prior treating specialty. "^DD",727.817,727.817,16,23,0) ^.001^7^7^3120308^^^^ "^DD",727.817,727.817,16,23,1,0) Calculated as current treating specialty date minus the date (DATE/TIME "^DD",727.817,727.817,16,23,2,0) field (.01) of the PATIENT MOVEMENT file (#405)) of the last treating "^DD",727.817,727.817,16,23,3,0) specialty change. "^DD",727.817,727.817,16,23,4,0) "^DD",727.817,727.817,16,23,5,0) This field will only be used for actual treating specialty changes. "^DD",727.817,727.817,16,23,6,0) For file #405 records which reflect provider-only changes this "^DD",727.817,727.817,16,23,7,0) field will be null. "^DD",727.817,727.817,16,"DT") 2980116 "^DD",727.817,727.817,20,0) ADMISSION TIME^FO^^0;21^K:$L(X)>6!($L(X)<6)!'(X?6N) X "^DD",727.817,727.817,20,.1) Admission Time "^DD",727.817,727.817,20,2) S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0) "^DD",727.817,727.817,20,2.1) S Y=$$ECXTIMEX^ECXUTL(Y,0) "^DD",727.817,727.817,20,3) Answer must be 6 characters in length. "^DD",727.817,727.817,20,21,0) ^^2^2^3120302^ "^DD",727.817,727.817,20,21,1,0) The time at which the patient admission occurred in HHMMSS. A 24 hour "^DD",727.817,727.817,20,21,2,0) clock format is used (e.g. 8:31:12 p.m. would be 203112). "^DD",727.817,727.817,20,23,0) ^.001^7^7^3120302^^^^ "^DD",727.817,727.817,20,23,1,0) Data source: "^DD",727.817,727.817,20,23,2,0) "^DD",727.817,727.817,20,23,3,0) PATIENT MOVEMENT file (#405); ADMISSION/CHECK-IN MOVEMENT field (#.14) "^DD",727.817,727.817,20,23,4,0) PATIENT MOVEMENT FILE (#405); DATE/TIME (#.01) "^DD",727.817,727.817,20,23,5,0) "^DD",727.817,727.817,20,23,6,0) This field is always exactly 6 numeric characters in length; if time "^DD",727.817,727.817,20,23,7,0) cannot be determined, then "000300" is used as default. "^DD",727.817,727.817,20,"DT") 2970924 "^DD",727.817,727.817,24,0) MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X "^DD",727.817,727.817,24,3) Answer must be 1-10 characters in length. "^DD",727.817,727.817,24,21,0) ^.001^1^1^3120127^^ "^DD",727.817,727.817,24,21,1,0) A national VA system identifier which uniquely identifies a patient. "^DD",727.817,727.817,24,23,0) ^^3^3^3120127^ "^DD",727.817,727.817,24,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.817,727.817,24,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.817,727.817,24,23,3,0) Patient file (#2). "^DD",727.817,727.817,24,"DT") 2990504 "^DD",727.817,727.817,30,0) ATTENDING PHYSICIAN LOS^NJ4,0^^1;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X "^DD",727.817,727.817,30,3) Type a Number between 0 and 9999, 0 Decimal Digits. "^DD",727.817,727.817,30,21,0) ^.001^1^1^3120720^^^^ "^DD",727.817,727.817,30,21,1,0) The patient's length of stay with the losing attending physician. "^DD",727.817,727.817,30,23,0) ^.001^12^12^3120720^^^^ "^DD",727.817,727.817,30,23,1,0) The ATTENDING PHYSICIAN LOS is determined by looping through both the "^DD",727.817,727.817,30,23,2,0) treating specialty/provider change movements and the discharge movements "^DD",727.817,727.817,30,23,3,0) of the PATIENT MOVEMENT file (#405). "^DD",727.817,727.817,30,23,4,0) "^DD",727.817,727.817,30,23,5,0) For each movement, a call is made to PREVATT^ECXTRT1. If the attending "^DD",727.817,727.817,30,23,6,0) physician has changed since the last movement, or if the movement is a "^DD",727.817,727.817,30,23,7,0) discharge, then the call returns the length of stay (LOS) to be associated "^DD",727.817,727.817,30,23,8,0) with the attending physician of the previous movement. For the treating "^DD",727.817,727.817,30,23,9,0) specialty/provider change movement associated with an admission, this "^DD",727.817,727.817,30,23,10,0) field will be left blank. This field will also be blank if the attending "^DD",727.817,727.817,30,23,11,0) physician for the current movement or the previous movement cannot be "^DD",727.817,727.817,30,23,12,0) determined. Maximum value for this field is 9999. "^DD",727.817,727.817,30,"DT") 2980723 "^DD",727.817,727.817,31,0) PRIMARY WARD PROVIDER LOS^NJ4,0^^1;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X "^DD",727.817,727.817,31,3) Type a Number between 0 and 9999, 0 Decimal Digits "^DD",727.817,727.817,31,21,0) ^.001^1^1^3120720^^ "^DD",727.817,727.817,31,21,1,0) The patient's length of stay with the losing primary ward provider. "^DD",727.817,727.817,31,23,0) ^^12^12^3120720^ "^DD",727.817,727.817,31,23,1,0) The PRIMARY WARD PROVIDER LOS is determined by looping through both the "^DD",727.817,727.817,31,23,2,0) treating specialty/provider change movements and the discharge movements "^DD",727.817,727.817,31,23,3,0) of the PATIENT MOVEMENT file (#405). "^DD",727.817,727.817,31,23,4,0) "^DD",727.817,727.817,31,23,5,0) For each movement, a call is made to PREVPRV^ECXTRT1. If the primary "^DD",727.817,727.817,31,23,6,0) provider has changed since the last movement, or if the movement is a "^DD",727.817,727.817,31,23,7,0) discharge, then the call returns the length of stay (LOS) to be associated "^DD",727.817,727.817,31,23,8,0) with the primary provider of the previous movement. For the treating "^DD",727.817,727.817,31,23,9,0) specialty/provider change movement associated with an admission, this "^DD",727.817,727.817,31,23,10,0) field will be left blank. This field will also be blank if the primary "^DD",727.817,727.817,31,23,11,0) provider for the current movement or the previous movement cannot be "^DD",727.817,727.817,31,23,12,0) determined. Maximum value for this field is 9999. "^DD",727.817,727.817,31,"DT") 2980723 "^DD",727.817,727.817,32,0) DOM,PRRTP AND SAARTP INDICATOR^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CWT/TR;^1;9^Q "^DD",727.817,727.817,32,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.817,727.817,32,21,0) ^.001^2^2^3120314^^^^ "^DD",727.817,727.817,32,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP or SARRTP at "^DD",727.817,727.817,32,21,2,0) the time care is provided. "^DD",727.817,727.817,32,23,0) ^.001^4^4^3120314^^^^ "^DD",727.817,727.817,32,23,1,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.817,727.817,32,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.817,727.817,32,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.817,727.817,32,23,4,0) Otherwise, the value is null. "^DD",727.817,727.817,32,"DT") 3120308 "^DD",727.817,727.817,33,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^1;10^Q "^DD",727.817,727.817,33,3) Enter observation patient status for this record. "^DD",727.817,727.817,33,21,0) ^.001^1^1^3120309^^^^ "^DD",727.817,727.817,33,21,1,0) Indicates if patient is considered to be an observation patient. "^DD",727.817,727.817,33,23,0) ^.001^12^12^3120309^^ "^DD",727.817,727.817,33,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.817,727.817,33,23,2,0) "^DD",727.817,727.817,33,23,3,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.817,727.817,33,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.817,727.817,33,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.817,727.817,33,23,6,0) file. "^DD",727.817,727.817,33,23,7,0) "^DD",727.817,727.817,33,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.817,727.817,33,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.817,727.817,33,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.817,727.817,33,23,11,0) "^DD",727.817,727.817,33,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.817,727.817,33,"DT") 3120308 "^DD",727.817,727.817,34,0) ENCOUNTER NUMBER^F^^1;11^K:$L(X)>18!($L(X)<1) X "^DD",727.817,727.817,34,3) Answer must be 1-18 characters in length "^DD",727.817,727.817,34,21,0) ^.001^1^1^3120314^^^ "^DD",727.817,727.817,34,21,1,0) The unique number assigned for DSS. "^DD",727.817,727.817,34,23,0) ^^4^4^3120314^ "^DD",727.817,727.817,34,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.817,727.817,34,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.817,727.817,34,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.817,727.817,34,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.817,727.817,34,"DT") 3010503 "^DD",727.819,727.819,3,0) FACILITY^P40.8'^DG(40.8,^0;4^Q "^DD",727.819,727.819,3,.1) Facility "^DD",727.819,727.819,3,3) Enter the medical center division where this IV Room is located. "^DD",727.819,727.819,3,21,0) ^.001^1^1^3120607^^^^ "^DD",727.819,727.819,3,21,1,0) This is the medical center division where the IV room is located. "^DD",727.819,727.819,3,23,0) ^.001^7^7^3120607^^ "^DD",727.819,727.819,3,23,1,0) An indicator of the medical center division where the IV room for this "^DD",727.819,727.819,3,23,2,0) event happened. It is derived from the IV ROOM field (#.22) of IV "^DD",727.819,727.819,3,23,3,0) multiple (#100) in the PHARMACY PATIENT (#55) file. "^DD",727.819,727.819,3,23,4,0) "^DD",727.819,727.819,3,23,5,0) The IEN of the IV room is passed to the API ALL^PSJ59P5 which returns the "^DD",727.819,727.819,3,23,6,0) DIVISION (#.02) field from the IV ROOM (#59.5) sub file, which points "^DD",727.819,727.819,3,23,7,0) to the MEDICAL CENTER DIVISION (#40.8) FILE. "^DD",727.819,727.819,3,"DT") 3120531 "^DD",727.819,727.819,5,0) SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X "^DD",727.819,727.819,5,.1) Social Security Number "^DD",727.819,727.819,5,3) Your answer must be 9 to 10 characters in length. "^DD",727.819,727.819,5,21,0) ^.001^1^1^3120604^^^ "^DD",727.819,727.819,5,21,1,0) The patient's social security number. "^DD",727.819,727.819,5,23,0) ^.001^6^6^3120604^^ "^DD",727.819,727.819,5,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.819,727.819,5,23,2,0) in the IV DETAIL EXTRACT file (#727.819), SSN data is derived from the "^DD",727.819,727.819,5,23,3,0) SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2). "^DD",727.819,727.819,5,23,4,0) "^DD",727.819,727.819,5,23,5,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with "^DD",727.819,727.819,5,23,6,0) an SSN beginning with "00000" will not be included in the extract. "^DD",727.819,727.819,5,"DT") 2960925 "^DD",727.819,727.819,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.819,727.819,6,.1) Name "^DD",727.819,727.819,6,3) Your answer must be 4 characters in length. "^DD",727.819,727.819,6,21,0) ^.001^1^1^3120604^^^^ "^DD",727.819,727.819,6,21,1,0) The first four characters of the patient's last name. "^DD",727.819,727.819,6,23,0) ^.001^6^6^3120604^^ "^DD",727.819,727.819,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.819,727.819,6,23,2,0) in the IV DETAIL EXTRACT file (#727.819), NAME data is derived from the "^DD",727.819,727.819,6,23,3,0) NAME field (#.01) in the PATIENT file (#2). The first four characters of "^DD",727.819,727.819,6,23,4,0) the first "," piece are used, padded with trailing spaces if necessary. "^DD",727.819,727.819,6,23,5,0) "^DD",727.819,727.819,6,23,6,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.819,727.819,6,"DT") 2960925 "^DD",727.819,727.819,7,0) IN OUT PATIENT INDICATOR^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q "^DD",727.819,727.819,7,.1) In Out Patient Indicator "^DD",727.819,727.819,7,3) Enter the patient's status for this extract entry. "^DD",727.819,727.819,7,21,0) ^.001^2^2^3120604^^ "^DD",727.819,727.819,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for this "^DD",727.819,727.819,7,21,2,0) extract. "^DD",727.819,727.819,7,23,0) ^.001^10^10^3120604^^ "^DD",727.819,727.819,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.819,727.819,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.819,727.819,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.819,727.819,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.819,727.819,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.819,727.819,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.819,727.819,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.819,727.819,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.819,727.819,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.819,727.819,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.819,727.819,7,"DT") 3120531 "^DD",727.819,727.819,10,0) QUANTITY^NJ8,2a^^0;11^K:+X'=X!(X>10000)!(X<0)!(X?.E1"."3N.N) X "^DD",727.819,727.819,10,.1) Quantity "^DD",727.819,727.819,10,3) Enter a number between 0 and 10000, 2 decimal digits. "^DD",727.819,727.819,10,21,0) ^.001^2^2^3120615^^^^ "^DD",727.819,727.819,10,21,1,0) Drug quantity dispensed in the unit of issue for that drug. Unit of "^DD",727.819,727.819,10,21,2,0) issue may vary from product to product and site to site. "^DD",727.819,727.819,10,23,0) ^^5^5^3120615^ "^DD",727.819,727.819,10,23,1,0) QUANTITY is calculated by incrementing a counter based upon the value "^DD",727.819,727.819,10,23,2,0) found in the TRANSACTION TYPE field (#5) in the IV EXTRACT DATA file "^DD",727.819,727.819,10,23,3,0) (#728.113). If TRANSACTION TYPE equals 1 for DISPENSED, the counter is "^DD",727.819,727.819,10,23,4,0) incremented by 1; if 4 for CANCELED, no change is made to the counter; "^DD",727.819,727.819,10,23,5,0) if 2 for RETURNED or 3 for DESTROYED, the counter is decremented by 1. "^DD",727.819,727.819,10,"AUDIT") e "^DD",727.819,727.819,10,"DT") 3120716 "^DD",727.819,727.819,11,0) WARD^P44'^SC(^0;12^Q "^DD",727.819,727.819,11,.1) Ward "^DD",727.819,727.819,11,3) Enter the ward location for this patient. "^DD",727.819,727.819,11,21,0) ^.001^1^1^3120612^^^^ "^DD",727.819,727.819,11,21,1,0) Current ward where the patient is located. "^DD",727.819,727.819,11,23,0) ^.001^7^7^3120612^^ "^DD",727.819,727.819,11,23,1,0) This field is initialized to .5, indicating an outpatient status. It "^DD",727.819,727.819,11,23,2,0) will be set to blank if the patient is an observation patient. A call is "^DD",727.819,727.819,11,23,3,0) made to IN5^VADPT using the patient IEN and the event date. If data is "^DD",727.819,727.819,11,23,4,0) returned identifying an inpatient episode, the value of VAIP(5), ward "^DD",727.819,727.819,11,23,5,0) location, is used to get the HOSPITAL LOCATION FILE POINTER field (#44) in "^DD",727.819,727.819,11,23,6,0) the WARD LOCATION file (#42) which is a pointer to the HOSPITAL LOCATION "^DD",727.819,727.819,11,23,7,0) file (#44). "^DD",727.819,727.819,11,"DT") 2960925 "^DD",727.819,727.819,13,0) COST^NJ8,2X^^0;13^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".4N!(X>10000)!(X<0) X "^DD",727.819,727.819,13,.1) Cost "^DD",727.819,727.819,13,3) Enter a dollar amount between 0 and 10000, 4 decimal digits. "^DD",727.819,727.819,13,21,0) ^.001^1^1^3120607^^^^ "^DD",727.819,727.819,13,21,1,0) VA pharmacy supply cost of drug dispensed. "^DD",727.819,727.819,13,23,0) ^.001^3^3^3120607^^ "^DD",727.819,727.819,13,23,1,0) This field is calculated by multiplying the TOTAL DOSES PER DAY field "^DD",727.819,727.819,13,23,2,0) (#20) of this file by AVERAGE DRUG COST PER UNIT field (#7) of the IV "^DD",727.819,727.819,13,23,3,0) ADDITIVES file (#52.6). "^DD",727.819,727.819,13,"DT") 3120612 "^DD",727.819,727.819,17,0) DEA, SPECIAL HDLG^S^I:INVESTIGATIONAL;1:SCHEDULE 1 ITEM;2:SCHEDULE 2 ITEM;3:SCHEDULE 3 ITEM;4:SCHEDULE 4 ITEM;5:SCHEDULE 5 ITEM;^0;17^Q "^DD",727.819,727.819,17,.1) DEA Special Handling "^DD",727.819,727.819,17,3) Enter I if the drug is investigational or 1-5 depending on the Drug's Schedule Item. "^DD",727.819,727.819,17,21,0) ^.001^1^1^3120607^^^^ "^DD",727.819,727.819,17,21,1,0) Indicates if the drug in this record is Investigational, or Schedule 1-5. "^DD",727.819,727.819,17,23,0) ^^5^5^3120607^ "^DD",727.819,727.819,17,23,1,0) Derived from the DEA, SPECIAL HDLG field (#3) in the DRUG file (#50). "^DD",727.819,727.819,17,23,2,0) If the DEA, SPECIAL HDLG field contains an "I" (INVESTIGATIONAL DRUGS), "^DD",727.819,727.819,17,23,3,0) this field is set to "I". If the field contains a "1","2","3","4" or "5" "^DD",727.819,727.819,17,23,4,0) (DRUG SCHEDULE) it will be set to the same number. The presence of "I" "^DD",727.819,727.819,17,23,5,0) takes precedence over the numbers. "^DD",727.819,727.819,17,"DT") 3120304 "^DD",727.819,727.819,18,0) PHARMACY IV DISPENSING FEE^S^A:ADMIXTURE;P:PIGGYBACK;H:HYPERAL;S:SYRINGE;C:CHEMOTHERAPY;^0;18^Q "^DD",727.819,727.819,18,.1) Pharmacy IV Dispensing Fee "^DD",727.819,727.819,18,3) Enter the type of IV dispensed. "^DD",727.819,727.819,18,21,0) ^.001^1^1^3120612^^^^ "^DD",727.819,727.819,18,21,1,0) The type of IV dispensed. "^DD",727.819,727.819,18,23,0) ^.001^1^1^3120612^^ "^DD",727.819,727.819,18,23,1,0) Derived from the TYPE field (#11) of the IV EXTRACT DATA file (#728.113). "^DD",727.819,727.819,18,"DT") 3120607 "^DD",727.819,727.819,19,0) NEW FEEDER KEY^F^^0;19^K:$L(X)>17!($L(X)<17) X "^DD",727.819,727.819,19,.1) New Feeder Key "^DD",727.819,727.819,19,3) Answer must be 17 characters in length. "^DD",727.819,727.819,19,21,0) ^.001^1^1^3120607^^ "^DD",727.819,727.819,19,21,1,0) Code that uniquely identifies a DSS drug/supply product. "^DD",727.819,727.819,19,23,0) ^^9^9^3120607^ "^DD",727.819,727.819,19,23,1,0) NEW FEEDER KEY is derived for the drug identified by the DRUG field "^DD",727.819,727.819,19,23,2,0) (#6) in the PRESCRIPTION file (#52), which is a pointer to the DRUG "^DD",727.819,727.819,19,23,3,0) file (#50). "^DD",727.819,727.819,19,23,4,0) "^DD",727.819,727.819,19,23,5,0) The PSNDF VA PRODUCT NAME ENTRY field (#22) from the DRUG file (#50), "^DD",727.819,727.819,19,23,6,0) which is a pointer to the VA PRODUCT file (#50.68) is padded to 5 "^DD",727.819,727.819,19,23,7,0) digits. This is concatenated with a 12-digit code derived from the "^DD",727.819,727.819,19,23,8,0) NDC field (#31) from the DRUG file (#50) to form a 17-digit Feeder "^DD",727.819,727.819,19,23,9,0) Key. "^DD",727.819,727.819,19,"DT") 3120607 "^DD",727.819,727.819,22,0) PRIMARY CARE PROVIDER^F^^0;22^K:$L(X)>11!($L(X)<1) X "^DD",727.819,727.819,22,.1) Primary Care Provider "^DD",727.819,727.819,22,3) Enter primary care provider assigned to this patient. "^DD",727.819,727.819,22,21,0) ^.001^2^2^3120612^^^ "^DD",727.819,727.819,22,21,1,0) The primary care provider assigned to this patient through the PCMM "^DD",727.819,727.819,22,21,2,0) module. "^DD",727.819,727.819,22,23,0) ^^8^8^3120612^ "^DD",727.819,727.819,22,23,1,0) Using the DATE/TIME field (#4) and the DFN field (#1) in the IV EXTRACT "^DD",727.819,727.819,22,23,2,0) DATA file (#728.113) a call is made to the Scheduling API, OUTPTPR^SDUTL3. "^DD",727.819,727.819,22,23,3,0) The API returns the provider's internal entry number and name from the NEW "^DD",727.819,727.819,22,23,4,0) PERSON file (#200). "^DD",727.819,727.819,22,23,5,0) "^DD",727.819,727.819,22,23,6,0) A "2" is prefixed to the pointer value to indicate that the source file is "^DD",727.819,727.819,22,23,7,0) "200". For example, if the IEN of the provider in file #200 is 98765, the "^DD",727.819,727.819,22,23,8,0) value that will be stored is 298765. "^DD",727.819,727.819,22,"DT") 2961017 "^DD",727.819,727.819,23,0) IVP TIME^FO^^0;23^K:$L(X)>6!($L(X)<6) X "^DD",727.819,727.819,23,.1) IVP Time "^DD",727.819,727.819,23,2) S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,1) "^DD",727.819,727.819,23,2.1) S Y=$$ECXTIMEX^ECXUTL(Y,1) "^DD",727.819,727.819,23,3) Answer must be 6 characters in length. "^DD",727.819,727.819,23,21,0) ^.001^1^1^3120608^^ "^DD",727.819,727.819,23,21,1,0) The time of day when the IV medication was dispensed. "^DD",727.819,727.819,23,23,0) ^^6^6^3120608^ "^DD",727.819,727.819,23,23,1,0) The time portion of the DATE/TIME field (#4) of the IV EXTRACT DATA file "^DD",727.819,727.819,23,23,2,0) (#728.113), which is set by routine PSIVSTAT, is used and padded to 6 "^DD",727.819,727.819,23,23,3,0) characters if needed. "^DD",727.819,727.819,23,23,4,0) "^DD",727.819,727.819,23,23,5,0) This field is always exactly 6 numeric characters in length; if time "^DD",727.819,727.819,23,23,6,0) cannot be determined, then "000300" is used as default. "^DD",727.819,727.819,23,"DT") 2970924 "^DD",727.819,727.819,24,0) ADMISSION DATE^FO^^0;24^K:$L(X)>8!($L(X)<8) X "^DD",727.819,727.819,24,.1) Admission Date "^DD",727.819,727.819,24,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.819,727.819,24,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.819,727.819,24,3) Answer must be 8 characters in length. "^DD",727.819,727.819,24,21,0) ^.001^2^2^3120608^^^^ "^DD",727.819,727.819,24,21,1,0) This 8-character numeric string represents the date on which the patient's "^DD",727.819,727.819,24,21,2,0) admission occurred. "^DD",727.819,727.819,24,23,0) ^^14^14^3120608^ "^DD",727.819,727.819,24,23,1,0) A call to IN5^VADPT (using the patient IEN and the event date) returns the "^DD",727.819,727.819,24,23,2,0) internal file number of the admission associated with this movement. "^DD",727.819,727.819,24,23,3,0) ADMISSION DATE is derived from the DATE/TIME field (#.01) of the PATIENT "^DD",727.819,727.819,24,23,4,0) MOVEMENT file (#405) for the movement found in VAIP(13). "^DD",727.819,727.819,24,23,5,0) "^DD",727.819,727.819,24,23,6,0) Data source: "^DD",727.819,727.819,24,23,7,0) "^DD",727.819,727.819,24,23,8,0) IV EXTRACT DATA file (#728.113); DFN field (#1) "^DD",727.819,727.819,24,23,9,0) then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01) "^DD",727.819,727.819,24,23,10,0) "^DD",727.819,727.819,24,23,11,0) This field is always exactly 8 numeric characters in length. The format "^DD",727.819,727.819,24,23,12,0) is YYYYMMDD; for example, 19970923. If the date cannot be determined, "^DD",727.819,727.819,24,23,13,0) then a default is used. The default date value is the value of the "^DD",727.819,727.819,24,23,14,0) YEAR MONTH field (#1) concatenated with "01" for the day (DD) portion. "^DD",727.819,727.819,24,"DT") 2970924 "^DD",727.819,727.819,25,0) ADMISSION TIME^FO^^0;25^K:$L(X)>6!($L(X)<6) X "^DD",727.819,727.819,25,.1) Admission Time "^DD",727.819,727.819,25,2) S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0) "^DD",727.819,727.819,25,2.1) S Y=$$ECXTIMEX^ECXUTL(Y,0) "^DD",727.819,727.819,25,3) Answer must be 6 characters in length. "^DD",727.819,727.819,25,21,0) ^.001^1^1^3120608^^ "^DD",727.819,727.819,25,21,1,0) Time of day at which the patient admission occurred. "^DD",727.819,727.819,25,23,0) ^^13^13^3120608^ "^DD",727.819,727.819,25,23,1,0) A call to IN5^VADPT (using the patient IEN and the event date) returns the "^DD",727.819,727.819,25,23,2,0) internal file number of the admission associated with this movement. "^DD",727.819,727.819,25,23,3,0) ADMISSION TIME is derived from the DATE/TIME field (#.01) of the PATIENT "^DD",727.819,727.819,25,23,4,0) MOVEMENT file (#405) for the movement found in VAIP(13). ADMISSION TIME is "^DD",727.819,727.819,25,23,5,0) padded with trailing zeros to six digits. "^DD",727.819,727.819,25,23,6,0) "^DD",727.819,727.819,25,23,7,0) Data source: "^DD",727.819,727.819,25,23,8,0) "^DD",727.819,727.819,25,23,9,0) IV EXTRACT DATA file (#728.113); DFN field (#1) "^DD",727.819,727.819,25,23,10,0) then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01) "^DD",727.819,727.819,25,23,11,0) "^DD",727.819,727.819,25,23,12,0) This field is always exactly 6 numeric characters in length; if time "^DD",727.819,727.819,25,23,13,0) cannot be determined, then "000300" is used as default. "^DD",727.819,727.819,25,"DT") 2970924 "^DD",727.819,727.819,26,0) DSS IDENTIFIER FOR ENCOUNTER^F^^0;26^K:$L(X)>6!($L(X)<6) X "^DD",727.819,727.819,26,3) Answer must be 6 characters in length. "^DD",727.819,727.819,26,21,0) ^^2^2^3111220^ "^DD",727.819,727.819,26,21,1,0) Primary and secondary stop codes associated with the clinic, if IV "^DD",727.819,727.819,26,21,2,0) dispensed to outpatient. "^DD",727.819,727.819,26,23,0) 1^.001^3^3^3111220^^^ "^DD",727.819,727.819,26,23,1,0) File #728.113 contains a pointer to HOSPITAL LOCATION (file #44). "^DD",727.819,727.819,26,23,2,0) Using this pointer, obtain the primary and secondary clinic "^DD",727.819,727.819,26,23,3,0) stop codes from the CLINIC AND STOP CODES file (#728.44). "^DD",727.819,727.819,26,"DT") 2970922 "^DD",727.819,727.819,27,0) MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X "^DD",727.819,727.819,27,3) Answer must be 1-10 characters in length. "^DD",727.819,727.819,27,21,0) ^.001^1^1^3120612^^^^ "^DD",727.819,727.819,27,21,1,0) Unique national VA patient identifier. "^DD",727.819,727.819,27,23,0) ^^3^3^3120612^ "^DD",727.819,727.819,27,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.819,727.819,27,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.819,727.819,27,23,3,0) PATIENT file (#2). "^DD",727.819,727.819,27,"DT") 2990504 "^DD",727.819,727.819,28,0) DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X "^DD",727.819,727.819,28,.1) "^DD",727.819,727.819,28,3) Answer must be 1-10 characters in length. "^DD",727.819,727.819,28,21,0) ^.001^2^2^3120610^^^^ "^DD",727.819,727.819,28,21,1,0) The nationally defined DSS Intermediate Department Number designated to "^DD",727.819,727.819,28,21,2,0) the Pharmacy care product. "^DD",727.819,727.819,28,23,0) ^.001^1^1^3120610^^ "^DD",727.819,727.819,28,23,1,0) For the IV Detail extract, the DSS PRODUCT DEPARTMENT field is null. "^DD",727.819,727.819,28,"DT") 3040302 "^DD",727.819,727.819,30,0) PC PROVIDER PERSON CLASS^F^^1;4^K:$L(X)>7!($L(X)<7) X "^DD",727.819,727.819,30,3) Answer must be 7 characters in length. "^DD",727.819,727.819,30,21,0) ^.001^2^2^3120613^^^^ "^DD",727.819,727.819,30,21,1,0) The VA Code of the Person Class of the Primary Care Provider as of the "^DD",727.819,727.819,30,21,2,0) date of this extract record. "^DD",727.819,727.819,30,23,0) ^.001^4^4^3120613^^^ "^DD",727.819,727.819,30,23,1,0) Active Person Class is determined by the supported call "^DD",727.819,727.819,30,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.819,727.819,30,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.819,727.819,30,23,4,0) returned value string. "^DD",727.819,727.819,30,"DT") 2981026 "^DD",727.819,727.819,31,0) ASSOCIATE PC PROVIDER^F^^1;5^K:$L(X)>11!($L(X)<2) X "^DD",727.819,727.819,31,3) Answer must be 2-11 characters in length. "^DD",727.819,727.819,31,21,0) ^.001^2^2^3120608^^^ "^DD",727.819,727.819,31,21,1,0) The associate primary care provider assigned to this patient through the "^DD",727.819,727.819,31,21,2,0) PCMM module. "^DD",727.819,727.819,31,23,0) ^^8^8^3120608^ "^DD",727.819,727.819,31,23,1,0) Using the DATE/TIME field (#4) and the DFN field (#1) of the IV EXTRACT "^DD",727.819,727.819,31,23,2,0) DATA file (#728.113) a call is made to the Scheduling API, OUTPTPR^SDUTL3. "^DD",727.819,727.819,31,23,3,0) The API returns the Associate PC Provider's internal entry number and name "^DD",727.819,727.819,31,23,4,0) from the NEW PERSON file (#200). "^DD",727.819,727.819,31,23,5,0) "^DD",727.819,727.819,31,23,6,0) A "2" is prefixed to the pointer value to indicate that the source file is "^DD",727.819,727.819,31,23,7,0) "200". For example, if the IEN of the provider in file #200 is 98765, the "^DD",727.819,727.819,31,23,8,0) value that will be stored is 298765. "^DD",727.819,727.819,31,"DT") 2990504 "^DD",727.819,727.819,32,0) ASSOC. PC PROV. PERSON CLASS^F^^1;6^K:$L(X)>7!($L(X)<7) X "^DD",727.819,727.819,32,3) Answer must be 7 characters in length. "^DD",727.819,727.819,32,21,0) ^.001^2^2^3120608^^ "^DD",727.819,727.819,32,21,1,0) The VA code of the Person Class of the Associate Primary Care Provider as "^DD",727.819,727.819,32,21,2,0) of the date of this extract record. "^DD",727.819,727.819,32,23,0) ^^4^4^3120608^ "^DD",727.819,727.819,32,23,1,0) Active Person Class is determined by the supported call "^DD",727.819,727.819,32,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.819,727.819,32,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.819,727.819,32,23,4,0) returned value string. "^DD",727.819,727.819,32,"DT") 2990504 "^DD",727.819,727.819,34,0) DOM,PRRTP AND SAARTP INDICATOR^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CET/TR;^1;8^Q "^DD",727.819,727.819,34,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.819,727.819,34,21,0) ^.001^2^2^3120604^^^^ "^DD",727.819,727.819,34,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP, or SARRTP at "^DD",727.819,727.819,34,21,2,0) the time care is provided. "^DD",727.819,727.819,34,23,0) ^.001^5^5^3120604^^^^ "^DD",727.819,727.819,34,23,1,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.819,727.819,34,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.819,727.819,34,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.819,727.819,34,23,4,0) "^DD",727.819,727.819,34,23,5,0) Otherwise, the value is null. "^DD",727.819,727.819,34,"DT") 3120531 "^DD",727.819,727.819,35,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^1;9^Q "^DD",727.819,727.819,35,3) Enter observation patient status for this record. "^DD",727.819,727.819,35,21,0) ^.001^1^1^3120604^^^^ "^DD",727.819,727.819,35,21,1,0) Indicates if patient is considered to be an observation patient. "^DD",727.819,727.819,35,23,0) ^.001^12^12^3120604^^^ "^DD",727.819,727.819,35,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.819,727.819,35,23,2,0) "^DD",727.819,727.819,35,23,3,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.819,727.819,35,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.819,727.819,35,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.819,727.819,35,23,6,0) file. "^DD",727.819,727.819,35,23,7,0) "^DD",727.819,727.819,35,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.819,727.819,35,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.819,727.819,35,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.819,727.819,35,23,11,0) "^DD",727.819,727.819,35,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.819,727.819,35,"DT") 3120531 "^DD",727.819,727.819,36,0) ENCOUNTER NUMBER^F^^1;10^K:$L(X)>18!($L(X)<1) X "^DD",727.819,727.819,36,3) Answer must be 1-18 characters in length "^DD",727.819,727.819,36,21,0) ^.001^1^1^3120604^^ "^DD",727.819,727.819,36,21,1,0) The unique number assigned for DSS. "^DD",727.819,727.819,36,23,0) ^.001^4^4^3120604^^ "^DD",727.819,727.819,36,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.819,727.819,36,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.819,727.819,36,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.819,727.819,36,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.819,727.819,36,"DT") 3010504 "^DD",727.819,727.819,37,0) ORDERING PROVIDER^F^^1;11^K:$L(X)>11!($L(X)<2) X "^DD",727.819,727.819,37,3) Answer must be 2-11 characters in length. "^DD",727.819,727.819,37,21,0) ^.001^1^1^3120719^^^^ "^DD",727.819,727.819,37,21,1,0) The provider who ordered the IV product. "^DD",727.819,727.819,37,23,0) ^^7^7^3120719^ "^DD",727.819,727.819,37,23,1,0) The ORDERING PROVIDER field is derived from the PROVIDER field (#9) of "^DD",727.819,727.819,37,23,2,0) the IV EXTRACT DATA file (#728.113). "^DD",727.819,727.819,37,23,3,0) "^DD",727.819,727.819,37,23,4,0) ORDERING PROVIDER is the value of a "2" prefixed to the pointer value from "^DD",727.819,727.819,37,23,5,0) the NEW PERSON file (#200) to indicate that the source file is "200". For "^DD",727.819,727.819,37,23,6,0) example, if the IEN of the provider in file #200 is 98765, the value that "^DD",727.819,727.819,37,23,7,0) will be stored is 298765. "^DD",727.819,727.819,37,"DT") 3010508 "^DD",727.819,727.819,38,0) ORDERING STOP CODE^F^^1;12^K:$L(X)>3!($L(X)<3) X "^DD",727.819,727.819,38,3) Answer must be 3 characters in length "^DD",727.819,727.819,38,21,0) ^.001^1^1^3120608^^ "^DD",727.819,727.819,38,21,1,0) This field contains the stop code associated with the order. "^DD",727.819,727.819,38,23,0) ^^19^19^3120608^ "^DD",727.819,727.819,38,23,1,0) For outpatients the stop code is the primary stop code for the clinic as "^DD",727.819,727.819,38,23,2,0) determined by the AMIS REPORTING STOP CODE field (#1) of the CLINIC STOP "^DD",727.819,727.819,38,23,3,0) file (#40.7) as pointed to by the STOP CODE NUMBER field (#8) of the "^DD",727.819,727.819,38,23,4,0) HOSPITAL LOCATION file (#44) as pointed to by the CLINIC FIELD (#136) of "^DD",727.819,727.819,38,23,5,0) the IV multiple (#100) of the PHARMACY PATIENT file (#55). If none exists, "^DD",727.819,727.819,38,23,6,0) the value is set to null. "^DD",727.819,727.819,38,23,7,0) "^DD",727.819,727.819,38,23,8,0) For observation patients the stop code is translated using the following "^DD",727.819,727.819,38,23,9,0) table. "^DD",727.819,727.819,38,23,10,0) "^DD",727.819,727.819,38,23,11,0) Treating Specialty Observation Stop Code "^DD",727.819,727.819,38,23,12,0) 18 293 "^DD",727.819,727.819,38,23,13,0) 23 295 "^DD",727.819,727.819,38,23,14,0) 24 290 "^DD",727.819,727.819,38,23,15,0) 36 296 "^DD",727.819,727.819,38,23,16,0) 41 294 "^DD",727.819,727.819,38,23,17,0) 65 291 "^DD",727.819,727.819,38,23,18,0) 94 292 "^DD",727.819,727.819,38,23,19,0) 1J 297 "^DD",727.819,727.819,38,"DT") 3021002 "^DD",727.819,727.819,39,0) ORDERING DATE^F^^1;13^K:$L(X)>8!($L(X)<8) X "^DD",727.819,727.819,39,3) Answer must be 8 characters in length. "^DD",727.819,727.819,39,21,0) ^.001^1^1^3120608^^^^ "^DD",727.819,727.819,39,21,1,0) Date the order was verified by Nurse. "^DD",727.819,727.819,39,23,0) ^.001^4^4^3120608^^ "^DD",727.819,727.819,39,23,1,0) Data comes from the DATE field (#16) of the IV EXTRACT DATA file "^DD",727.819,727.819,39,23,2,0) (#728.113). "^DD",727.819,727.819,39,23,3,0) "^DD",727.819,727.819,39,23,4,0) This field contains the date of the order in YYYYMMDD format. "^DD",727.819,727.819,39,"DT") 3010508 "^DD",727.819,727.819,41,0) PRODUCTION DIVISION CODE^F^^1;15^K:$L(X)>7!($L(X)<3) X "^DD",727.819,727.819,41,3) Answer must be 3-7 characters in length. "^DD",727.819,727.819,41,21,0) ^.001^1^1^3120608^^ "^DD",727.819,727.819,41,21,1,0) Identifies the division/facility where the work was performed. "^DD",727.819,727.819,41,23,0) ^.001^4^4^3120608^^^^ "^DD",727.819,727.819,41,23,1,0) Data comes from the DIVISION field (#.02) of the IV ROOM file (#59.5), "^DD",727.819,727.819,41,23,2,0) which is a pointer to the MEDICAL CENTER DIVISION file (#40.8). This value "^DD",727.819,727.819,41,23,3,0) is then used to call the api GETDIV^ECXDEPT to get the STATION NUMBER "^DD",727.819,727.819,41,23,4,0) field (#99) from the INSTITUTION file (#4). "^DD",727.819,727.819,41,"DT") 3120608 "^DD",727.819,727.819,42,0) MEANS TEST^S^A:CATEGORY A;B:CATEGORY B;C:CATEGORY C;P:PENDING ADJUDICATION;R:REQUIRES MEANS TEST;N:MEANS TEST NOT REQUIRED;E:EXEMPT;I:INCOMPLETE;L:NO LONGER APPLICABLE;M:NON-EXEMPT;^1;16^Q "^DD",727.819,727.819,42,.1) Means Test "^DD",727.819,727.819,42,3) Select the appropriate means test category. "^DD",727.819,727.819,42,21,0) ^.001^1^1^3120612^^^^ "^DD",727.819,727.819,42,21,1,0) The current means test category for this patient. "^DD",727.819,727.819,42,23,0) ^^8^8^3120612^ "^DD",727.819,727.819,42,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.819,727.819,42,23,2,0) in the IV DETAIL EXTRACT file (#727.819), MEANS TEST data is derived "^DD",727.819,727.819,42,23,3,0) from the CURRENT MEANS TEST STATUS field (#.14) in the PATIENT file (#2). "^DD",727.819,727.819,42,23,4,0) This field is a pointer to the MEANS TEST STATUS file (#408.32). Using "^DD",727.819,727.819,42,23,5,0) the means test pointer, the data is derived from the CODE field (#.02) in "^DD",727.819,727.819,42,23,6,0) the MEANS TEST STATUS file (#408.32). "^DD",727.819,727.819,42,23,7,0) "^DD",727.819,727.819,42,23,8,0) The status indicator is returned by ELIG^VADPT. "^DD",727.819,727.819,42,"DT") 3020612 "^DD",727.819,727.819,44,0) DATE OF BIRTH^F^^1;18^K:$L(X)>8!($L(X)<8) X "^DD",727.819,727.819,44,.1) Date of Birth "^DD",727.819,727.819,44,3) Answer must be 8 characters in length. "^DD",727.819,727.819,44,21,0) ^.001^1^1^3120608^^^ "^DD",727.819,727.819,44,21,1,0) Patient's date of birth. "^DD",727.819,727.819,44,23,0) ^.001^2^2^3120608^^ "^DD",727.819,727.819,44,23,1,0) Date of Birth is returned through the supported call DEM^VADPT. It is then "^DD",727.819,727.819,44,23,2,0) represented by an 8-character numeric string in the YYYYMMDD format. "^DD",727.819,727.819,44,"DT") 3020612 "^DD",727.819,727.819,45,0) SEX^S^M:MALE;F:FEMALE;^1;19^Q "^DD",727.819,727.819,45,.1) Sex "^DD",727.819,727.819,45,3) Enter the sex of the patient. "^DD",727.819,727.819,45,21,0) ^.001^1^1^3120612^^^ "^DD",727.819,727.819,45,21,1,0) Patient's gender. "^DD",727.819,727.819,45,23,0) ^.001^4^4^3120612^^ "^DD",727.819,727.819,45,23,1,0) Data is taken from the SEX field (#.02) of the patient's record in "^DD",727.819,727.819,45,23,2,0) the PATIENT file (#2). "^DD",727.819,727.819,45,23,3,0) "^DD",727.819,727.819,45,23,4,0) The gender is returned by DEM^VADPT. "^DD",727.819,727.819,45,"DT") 3020612 "^DD",727.819,727.819,48,0) ZIP+4^F^^1;22^K:$L(X)>10!($L(X)<5) X "^DD",727.819,727.819,48,.1) Zip+4 "^DD",727.819,727.819,48,3) Answer must be 5-10 characters in length "^DD",727.819,727.819,48,21,0) ^.001^2^2^3120612^^ "^DD",727.819,727.819,48,21,1,0) The ZIP code for where the patient resides. The 5-character ZIP code is "^DD",727.819,727.819,48,21,2,0) provided if ZIP+4 is not available. "^DD",727.819,727.819,48,23,0) ^^4^4^3120612^ "^DD",727.819,727.819,48,23,1,0) The patient's ZIP code with optional 4-digit extension as found in "^DD",727.819,727.819,48,23,2,0) the ZIP+4 field (#.1112) of the patient's record in the PATIENT "^DD",727.819,727.819,48,23,3,0) file (#2). While the ZIP+4 field in file 2 is a max of 9 characters, it "^DD",727.819,727.819,48,23,4,0) does put the "-" in if the ZIP code is a +4 type. "^DD",727.819,727.819,48,"DT") 3020612 "^DD",727.819,727.819,49,0) VETERAN^S^Y:YES;N:NO;^1;23^Q "^DD",727.819,727.819,49,.1) Veteran "^DD",727.819,727.819,49,3) Select the appropriate veteran status for this patient. "^DD",727.819,727.819,49,21,0) ^.001^1^1^3120612^^^ "^DD",727.819,727.819,49,21,1,0) Patient's Veteran status. "^DD",727.819,727.819,49,23,0) ^^3^3^3120612^ "^DD",727.819,727.819,49,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.819,727.819,49,23,2,0) in the IV DETAIL EXTRACT file (#727.819), VETERAN data is derived from the "^DD",727.819,727.819,49,23,3,0) VETERAN (Y/N)? field (#1901) in the PATIENT file (#2). "^DD",727.819,727.819,49,"DT") 3020612 "^DD",727.819,727.819,51,0) POW STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;25^Q "^DD",727.819,727.819,51,.1) POW Status "^DD",727.819,727.819,51,3) Enter the patient's POW status. "^DD",727.819,727.819,51,21,0) ^.001^1^1^3120612^^^ "^DD",727.819,727.819,51,21,1,0) Indicates if patient was confined as a Prisoner of War. "^DD",727.819,727.819,51,23,0) ^.001^2^2^3120612^^^^ "^DD",727.819,727.819,51,23,1,0) PATIENT file (#2); POW STATUS INDICATED? field (#.525). "^DD",727.819,727.819,51,23,2,0) The status indicator is returned by SVC^VADPT. "^DD",727.819,727.819,51,"DT") 3020612 "^DD",727.819,727.819,53,0) RADIATION STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;27^Q "^DD",727.819,727.819,53,.1) Radiation Status "^DD",727.819,727.819,53,3) Enter the Radiation Status for the patient. "^DD",727.819,727.819,53,21,0) ^.001^1^1^3120612^^^ "^DD",727.819,727.819,53,21,1,0) Indicates if patient claims exposure to ionizing radiation. "^DD",727.819,727.819,53,23,0) ^.001^2^2^3120612^^^^ "^DD",727.819,727.819,53,23,1,0) PATIENT file (#2); RADIATION EXPOSURE INDICATED? field (#.32103). "^DD",727.819,727.819,53,23,2,0) The status indicator is returned by SVC^VADPT. "^DD",727.819,727.819,53,"DT") 3020612 "^DD",727.819,727.819,54,0) AGENT ORANGE STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;28^Q "^DD",727.819,727.819,54,.1) Agent Orange Status "^DD",727.819,727.819,54,3) Enter the Agent Orange Status for the patient. "^DD",727.819,727.819,54,21,0) ^.001^1^1^3120612^^^ "^DD",727.819,727.819,54,21,1,0) Indicates whether patient was exposed to Agent Orange. "^DD",727.819,727.819,54,23,0) ^.001^2^2^3120612^^^^ "^DD",727.819,727.819,54,23,1,0) PATIENT file (#2); AGENT ORANGE EXPOS. INDICATED? field (#.32102). "^DD",727.819,727.819,54,23,2,0) The status indicator is returned by SVC^VADPT. "^DD",727.819,727.819,54,"DT") 3120610 "^DD",727.819,727.819,55,0) AGENT ORANGE LOCATION^F^^1;29^K:$L(X)>1!($L(X)<1) X "^DD",727.819,727.819,55,3) Answer must be 1 character in length. "^DD",727.819,727.819,55,21,0) ^.001^1^1^3120612^^^^ "^DD",727.819,727.819,55,21,1,0) Indicates the location where the patient was exposed to Agent Orange. "^DD",727.819,727.819,55,23,0) ^.001^2^2^3120612^^^ "^DD",727.819,727.819,55,23,1,0) PATIENT file (#2); AGENT ORANGE EXPOSURE LOCATION field (.3213). "^DD",727.819,727.819,55,23,2,0) The location indicator is returned by SVC^VADPT. "^DD",727.819,727.819,55,"DT") 3020612 "^DD",727.819,727.819,56,0) PURPLE HEART INDICATOR^S^Y:YES;N:NO;^1;30^Q "^DD",727.819,727.819,56,.1) Purple Heart Indicator "^DD",727.819,727.819,56,3) Enter the Purple Heart Indicator for the patient. "^DD",727.819,727.819,56,21,0) ^^1^1^3111220^ "^DD",727.819,727.819,56,21,1,0) Indicates whether or not a patient is a Purple Heart recipient. "^DD",727.819,727.819,56,23,0) ^.001^2^2^3111220^^ "^DD",727.819,727.819,56,23,1,0) PATIENT file (#2); CURRENT PH INDICATOR field (#.531). "^DD",727.819,727.819,56,23,2,0) The status indicator is returned by SVC^VADPT. "^DD",727.819,727.819,56,"DT") 3020612 "^DD",727.819,727.819,57,0) MST STATUS^S^Y:Yes, screened reports MST;N:Screened, does not report MST;D:Screened, declines to answer;U:Unknown, not screened;^1;31^Q "^DD",727.819,727.819,57,.1) MST Status "^DD",727.819,727.819,57,3) Enter the patient's MST Status. "^DD",727.819,727.819,57,21,0) ^.001^2^2^3120612^^^ "^DD",727.819,727.819,57,21,1,0) Indicates the Military Sexual Trauma (MST) status of a patient on the date "^DD",727.819,727.819,57,21,2,0) of the encounter. "^DD",727.819,727.819,57,23,0) ^.001^5^5^3120612^^ "^DD",727.819,727.819,57,23,1,0) The MST HISTORY file (#29.11) holds data regarding military sexual "^DD",727.819,727.819,57,23,2,0) trauma claims and effective dates. The patient's MST status is stored "^DD",727.819,727.819,57,23,3,0) in the MST STATUS field (#3). A call will be made to "^DD",727.819,727.819,57,23,4,0) $$GETSTAT^DGMSTAPI(DFN,DGDATE) using the DFN in the PATIENT NO. DFN (#4) "^DD",727.819,727.819,57,23,5,0) field and the date in the DAY (#8) field. "^DD",727.819,727.819,57,"DT") 3120613 "^DD",727.819,727.819,59,0) ENROLLMENT CATEGORY^F^^1;33^K:$L(X)>1!($L(X)<1) X "^DD",727.819,727.819,59,.1) Enrollment Category "^DD",727.819,727.819,59,3) Answer must be 1 character in length. "^DD",727.819,727.819,59,21,0) ^.001^1^1^3120608^^^ "^DD",727.819,727.819,59,21,1,0) Patient's enrollment category. "^DD",727.819,727.819,59,23,0) ^^2^2^3120608^ "^DD",727.819,727.819,59,23,1,0) ENROLLMENT CATEGORY is derived from the standard call $$CATEGORY^DGENA4 "^DD",727.819,727.819,59,23,2,0) using the patient's DFN and the ENROLLMENT STATUS (#60) field. "^DD",727.819,727.819,59,"DT") 3020612 "^DD",727.819,727.819,60,0) ENROLLMENT STATUS^F^^1;34^K:$L(X)>2!($L(X)<1) X "^DD",727.819,727.819,60,.1) Enrollment Status "^DD",727.819,727.819,60,3) Answer must be 1-2 characters in length. "^DD",727.819,727.819,60,21,0) ^.001^1^1^3120608^^^ "^DD",727.819,727.819,60,21,1,0) Patient's enrollment status. "^DD",727.819,727.819,60,23,0) ^.001^3^3^3120608^^ "^DD",727.819,727.819,60,23,1,0) ENROLLMENT STATUS is derived from the standard call $$STATUS^DGENA using "^DD",727.819,727.819,60,23,2,0) the patient's DFN and returns the ENROLLMENT STATUS field (#.04) of the "^DD",727.819,727.819,60,23,3,0) PATIENT ENROLLMENT file (#27.11). "^DD",727.819,727.819,60,"DT") 3020612 "^DD",727.819,727.819,61,0) SHAD STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;35^Q "^DD",727.819,727.819,61,.1) "^DD",727.819,727.819,61,3) Enter SHAD Status. "^DD",727.819,727.819,61,21,0) ^.001^2^2^3120608^^ "^DD",727.819,727.819,61,21,1,0) Indicates whether patient meets requirements for Shipboard Hazard and "^DD",727.819,727.819,61,21,2,0) Defense (SHAD). "^DD",727.819,727.819,61,23,0) ^^3^3^3120608^ "^DD",727.819,727.819,61,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.819,727.819,61,23,2,0) in the IV DETAIL EXTRACT file (#727.819), Shipboard Hazard and Defense "^DD",727.819,727.819,61,23,3,0) data is derived from using DBIA #4462 GETSHAD^DGUTL3(DFN). "^DD",727.819,727.819,61,"DT") 3100212 "^DD",727.819,727.819,62,0) CNH/SH STATUS^S^YES:YES;NO:NO;^1;36^Q "^DD",727.819,727.819,62,.1) CNH/SH Status "^DD",727.819,727.819,62,3) Enter the CNH/SH status for this patient. "^DD",727.819,727.819,62,21,0) ^.001^1^1^3120608^^^ "^DD",727.819,727.819,62,21,1,0) Community Nursing Home/State Home (CNH/SH) Indicator. "^DD",727.819,727.819,62,23,0) ^^2^2^3120608^ "^DD",727.819,727.819,62,23,1,0) Using the CNHSTAT^ECXUTL4(DFN) call, the CNH status is returned based on "^DD",727.819,727.819,62,23,2,0) the CNH CURRENT field (#148) of the PATIENT file (#2). "^DD",727.819,727.819,62,"DT") 3120608 "^DD",727.819,727.819,64,0) HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^2;1^Q "^DD",727.819,727.819,64,.1) Head and Neck Cancer Indicator "^DD",727.819,727.819,64,3) Enter the Head & Neck Cancer Indicator for the patient. "^DD",727.819,727.819,64,21,0) ^.001^1^1^3120608^^ "^DD",727.819,727.819,64,21,1,0) Identifies whether patient has head and/or neck cancer. "^DD",727.819,727.819,64,23,0) ^^3^3^3120608^ "^DD",727.819,727.819,64,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.819,727.819,64,23,2,0) (#4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "^DD",727.819,727.819,64,23,3,0) CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11). "^DD",727.819,727.819,64,"DT") 3020828 "^DD",727.819,727.819,66,0) RACE 1^F^^2;3^K:$L(X)>6!($L(X)<1) X "^DD",727.819,727.819,66,.1) Race 1 "^DD",727.819,727.819,66,3) Answer must be 1-6 characters in length. "^DD",727.819,727.819,66,21,0) ^.001^1^1^3120608^^ "^DD",727.819,727.819,66,21,1,0) Self-reported by patient as recorded in VistA patient file. "^DD",727.819,727.819,66,23,0) ^^11^11^3120608^ "^DD",727.819,727.819,66,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.819,727.819,66,23,2,0) (#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file "^DD",727.819,727.819,66,23,3,0) (#10) pointed to by the RACE INFORMATION field (#.01) of the "^DD",727.819,727.819,66,23,4,0) RACE INFORMATION subfile (#2.02) of the PATIENT file (#2). "^DD",727.819,727.819,66,23,5,0) "^DD",727.819,727.819,66,23,6,0) Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03) "^DD",727.819,727.819,66,23,7,0) where the METHOD OF COLLECTION field (#.02) set to 1 "^DD",727.819,727.819,66,23,8,0) (SELF-IDENTIFICATION), will be include in the RACE 1 field. Up to 6 race "^DD",727.819,727.819,66,23,9,0) entries can be included. If any of the RACE INFORMATION values returned "^DD",727.819,727.819,66,23,10,0) is "C" (DECLINED TO ANSWER), that will be the only value included in the "^DD",727.819,727.819,66,23,11,0) RACE 1 field. "^DD",727.819,727.819,66,"DT") 3020828 "^DD",727.819,727.819,67,0) BCMA DRUG DISPENSED^P50'^PSDRUG(^2;4^Q "^DD",727.819,727.819,67,.1) BCMA Drug Dispensed "^DD",727.819,727.819,67,3) Enter drug dispensed. "^DD",727.819,727.819,67,21,0) ^^1^1^3120612^ "^DD",727.819,727.819,67,21,1,0) This is the dispensed drug. "^DD",727.819,727.819,67,23,0) ^.001^5^5^3120612^^ "^DD",727.819,727.819,67,23,1,0) BCMA DRUG DISPENSED field is derived from the DISPENSED DRUG field (#.01) "^DD",727.819,727.819,67,23,2,0) of the DISPENSED DRUG multiple (sub-file #53.795) of the BCMA MEDICATION "^DD",727.819,727.819,67,23,3,0) LOG file (#53.79). "^DD",727.819,727.819,67,23,4,0) "^DD",727.819,727.819,67,23,5,0) Currently, passing NULL. "^DD",727.819,727.819,67,"DT") 3030624 "^DD",727.819,727.819,68,0) BCMA DOSE GIVEN^NJ5,2^^2;5^K:+X'=X!(X>50)!(X<0)!(X?.E1"."3N.N) X "^DD",727.819,727.819,68,.1) BCMA Dose Given "^DD",727.819,727.819,68,3) Type a Number between 0 and 50, 2 Decimal Digits. "^DD",727.819,727.819,68,21,0) ^.001^1^1^3120608^^^^ "^DD",727.819,727.819,68,21,1,0) Actual number of units given. "^DD",727.819,727.819,68,23,0) ^.001^1^1^3120608^^ "^DD",727.819,727.819,68,23,1,0) Currently, passing NULL. "^DD",727.819,727.819,68,"DT") 3030624 "^DD",727.819,727.819,69,0) BCMA UNIT OF ADMINISTRATION^F^^2;6^K:$L(X)>40!($L(X)<1) X "^DD",727.819,727.819,69,.1) BCMA Unit of Administration "^DD",727.819,727.819,69,3) Answer must be 1-40 characters in length. "^DD",727.819,727.819,69,21,0) ^.001^1^1^3120608^^^^ "^DD",727.819,727.819,69,21,1,0) Unit of administration (i.e. TABLET, ML, VIAL). "^DD",727.819,727.819,69,23,0) ^.001^1^1^3120608^^ "^DD",727.819,727.819,69,23,1,0) Currently, passing NULL. "^DD",727.819,727.819,69,"DT") 3030624 "^DD",727.819,727.819,70,0) BCMA ICU FLAG^S^Y:YES;N:NO;^2;7^Q "^DD",727.819,727.819,70,.1) BCMA ICU Flag "^DD",727.819,727.819,70,3) Indicate if patient is in the ICU. "^DD",727.819,727.819,70,21,0) ^^1^1^3120608^ "^DD",727.819,727.819,70,21,1,0) Indicates if patient is in the ICU. "^DD",727.819,727.819,70,23,0) ^.001^1^1^3120608^^ "^DD",727.819,727.819,70,23,1,0) Currently, passing NULL. "^DD",727.819,727.819,70,"DT") 3120608 "^DD",727.819,727.819,72,0) DSS IP #^NJ7,0^^2;9^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X "^DD",727.819,727.819,72,3) Type a Number between 1 and 9999999, 0 Decimal Digits. "^DD",727.819,727.819,72,21,0) ^.001^2^2^3120608^^^ "^DD",727.819,727.819,72,21,1,0) The nationally defined DSS Intermediate Product Number designated to the "^DD",727.819,727.819,72,21,2,0) patient care product. "^DD",727.819,727.819,72,23,0) ^^1^1^3120608^ "^DD",727.819,727.819,72,23,1,0) For the IV Detail extract, the DSS IP# field is null. "^DD",727.819,727.819,72,"DT") 3031113 "^DD",727.819,727.819,73,0) ENROLLMENT PRIORITY^F^^2;10^K:$L(X)>2!($L(X)<1) X "^DD",727.819,727.819,73,3) Answer must be 1-2 characters in length. "^DD",727.819,727.819,73,21,0) ^.001^2^2^3120608^^ "^DD",727.819,727.819,73,21,1,0) This field contains the enrollment priority group and the enrollment "^DD",727.819,727.819,73,21,2,0) priority subgroup. "^DD",727.819,727.819,73,23,0) ^^20^20^3120608^ "^DD",727.819,727.819,73,23,1,0) ENROLLMENT PRIORITY field contains the enrollment priority group and the "^DD",727.819,727.819,73,23,2,0) enrollment priority subgroup from the PATIENT ENROLLMENT File (#27.11). "^DD",727.819,727.819,73,23,3,0) "^DD",727.819,727.819,73,23,4,0) ENROLLMENT PRIORITY Groups determined for a patient enrollment include: "^DD",727.819,727.819,73,23,5,0) "^DD",727.819,727.819,73,23,6,0) '1' FOR GROUP 1 "^DD",727.819,727.819,73,23,7,0) '2' FOR GROUP 2 "^DD",727.819,727.819,73,23,8,0) '3' FOR GROUP 3 "^DD",727.819,727.819,73,23,9,0) '4' FOR GROUP 4 "^DD",727.819,727.819,73,23,10,0) '5' FOR GROUP 5 "^DD",727.819,727.819,73,23,11,0) '6' FOR GROUP 6 "^DD",727.819,727.819,73,23,12,0) '7' FOR GROUP 7 "^DD",727.819,727.819,73,23,13,0) '8' FOR GROUP 8 "^DD",727.819,727.819,73,23,14,0) "^DD",727.819,727.819,73,23,15,0) ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include: "^DD",727.819,727.819,73,23,16,0) "^DD",727.819,727.819,73,23,17,0) 'a' FOR 1 "^DD",727.819,727.819,73,23,18,0) 'c' FOR 3 "^DD",727.819,727.819,73,23,19,0) 'e' FOR 5 "^DD",727.819,727.819,73,23,20,0) 'g' FOR 7 "^DD",727.819,727.819,73,"DT") 3040226 "^DD",727.819,727.819,74,0) USER ENROLLEE^S^U:USER ENROLLED;^2;11^Q "^DD",727.819,727.819,74,3) Enter patient's current enrollment status. "^DD",727.819,727.819,74,21,0) ^.001^2^2^3120612^^^^ "^DD",727.819,727.819,74,21,1,0) Indicates whether a Veteran has User Enrollee status for the current or "^DD",727.819,727.819,74,21,2,0) future fiscal year. "^DD",727.819,727.819,74,23,0) ^^5^5^3120612^ "^DD",727.819,727.819,74,23,1,0) User enrollee is determined by checking the Patient Enrollment (#27.11) "^DD",727.819,727.819,74,23,2,0) file. When a user has a current or future fiscal year in the VistA User "^DD",727.819,727.819,74,23,3,0) Enrollee Status (#.04) field the value is set to 'U' and Null if no date "^DD",727.819,727.819,74,23,4,0) or a past year's value is contained. Determined by the use of an API: "^DD",727.819,727.819,74,23,5,0) $$UESTAT^EASUSER where the Patient Identifier (DFN) is passed in. "^DD",727.819,727.819,74,"DT") 3120608 "^DD",727.819,727.819,75,0) PATIENT TYPE^S^AC:ACTIVE DUTY;AL:ALLIED VETERAN;CO:COLLATERAL;EM:EMPLOYEE;IN:INELIGIBLE;MI:MILITARY RETIREE;NO:NON-VETERAN (OTHER);NS:NSC VETERAN;SC:SC VETERAN;TR:TRICARE;^2;12^Q "^DD",727.819,727.819,75,3) Enter type of patient. "^DD",727.819,727.819,75,21,0) ^.001^1^1^3120610^^^ "^DD",727.819,727.819,75,21,1,0) Refers to the various types of patient which may be seen at a VA facility. "^DD",727.819,727.819,75,23,0) ^.001^5^5^3120610^^ "^DD",727.819,727.819,75,23,1,0) PATIENT TYPE is derived from a call to TYPE^ECXUTL5(DFN). Using the "^DD",727.819,727.819,75,23,2,0) patient's DFN, the NAME field (#.01) of the TYPE OF PATIENT file "^DD",727.819,727.819,75,23,3,0) (#391) as pointed to by the TYPE field (#391) of the PATIENT file (#2) is "^DD",727.819,727.819,75,23,4,0) shortened to the first two characters to determine the value stored in "^DD",727.819,727.819,75,23,5,0) the PATIENT TYPE field (#68). "^DD",727.819,727.819,75,"DT") 3040226 "^DD",727.819,727.819,76,0) CV STATUS ELIGIBILITY^S^Y:YES;E:ELIGIBILITY EXPIRED;^2;13^Q "^DD",727.819,727.819,76,3) Enter patient's combat veteran eligibility. "^DD",727.819,727.819,76,21,0) ^.001^4^4^3120614^^^ "^DD",727.819,727.819,76,21,1,0) Records if veteran served on active duty in a theater of combat "^DD",727.819,727.819,76,21,2,0) operations during a period of war after the Persian Gulf War or in combat "^DD",727.819,727.819,76,21,3,0) against a hostile force during a period of hostilities after November 11, "^DD",727.819,727.819,76,21,4,0) 1998. "^DD",727.819,727.819,76,23,0) ^.001^11^11^3120614^^ "^DD",727.819,727.819,76,23,1,0) CV STATUS ELIGIBILITY is determined by the use of API "^DD",727.819,727.819,76,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.819,727.819,76,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.819,727.819,76,23,4,0) pieces (i.e. 1^20010106^0) and the first piece is resolved as follows. "^DD",727.819,727.819,76,23,5,0) "^DD",727.819,727.819,76,23,6,0) 1 - veteran qualifies as a CV "^DD",727.819,727.819,76,23,7,0) 0 - veteran does not qualify as a CV "^DD",727.819,727.819,76,23,8,0) -1 - bad DFN "^DD",727.819,727.819,76,23,9,0) "^DD",727.819,727.819,76,23,10,0) Based on this result the field will be set to 'Y' for 'YES' or 'E' for "^DD",727.819,727.819,76,23,11,0) 'ELIGIBILITY EXPIRED' or 'NULL' for not eligible. "^DD",727.819,727.819,76,"DT") 3120610 "^DD",727.819,727.819,77,0) CV ELIGIBILITY END DATE^F^^2;14^K:$L(X)>8!($L(X)<8) X "^DD",727.819,727.819,77,3) Answer must be 8 characters in length. "^DD",727.819,727.819,77,21,0) ^.001^4^4^3120610^^ "^DD",727.819,727.819,77,21,1,0) Records the Combat Veteran eligibility expiration date or veteran who "^DD",727.819,727.819,77,21,2,0) served on active duty in a theater of combat operations during a period "^DD",727.819,727.819,77,21,3,0) of war after the Persian Gulf War or in combat against a hostile force "^DD",727.819,727.819,77,21,4,0) during a period of hostilities after November 11, 1998. "^DD",727.819,727.819,77,23,0) ^^5^5^3120610^ "^DD",727.819,727.819,77,23,1,0) CV ELIGIBILITY END DATE is determined by the use of API "^DD",727.819,727.819,77,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.819,727.819,77,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.819,727.819,77,23,4,0) pieces (i.e. 1^20010106^0) the 2nd piece is the COMBAT VET END DATE in "^DD",727.819,727.819,77,23,5,0) HL7 format. "^DD",727.819,727.819,77,"DT") 3120610 "^DD",727.819,727.819,78,0) ENCOUNTER CV^S^Y:YES;^2;15^Q "^DD",727.819,727.819,78,3) Enter patient's combat veteran eligibility. "^DD",727.819,727.819,78,21,0) ^.001^4^4^3120610^^ "^DD",727.819,727.819,78,21,1,0) Records if a Veteran served on active duty in a theater of combat "^DD",727.819,727.819,78,21,2,0) operations during a period of war after the Persian Gulf War or in combat "^DD",727.819,727.819,78,21,3,0) against a hostile force during a period of hostilities after November 11, "^DD",727.819,727.819,78,21,4,0) 1998. "^DD",727.819,727.819,78,23,0) ^^10^10^3120610^ "^DD",727.819,727.819,78,23,1,0) ENCOUNTER CV is determined by the use of API $$CVEDT^DGCV(DFN,DATE) that "^DD",727.819,727.819,78,23,2,0) checks the COMBAT VET END DATE field (#.5295) from the PATIENT file #(2) "^DD",727.819,727.819,78,23,3,0) to determine CV Status. API returns three pieces (i.e. 1^20100106^0). The "^DD",727.819,727.819,78,23,4,0) third piece returns: "^DD",727.819,727.819,78,23,5,0) "^DD",727.819,727.819,78,23,6,0) 1 - vet was eligible on date specified "^DD",727.819,727.819,78,23,7,0) 0 - vet was not eligible on date specified "^DD",727.819,727.819,78,23,8,0) "^DD",727.819,727.819,78,23,9,0) Based on these returns, the value for this field shall be Y for Yes if "^DD",727.819,727.819,78,23,10,0) value is 1 or left blank if 0 to indicate ineligibility. "^DD",727.819,727.819,78,"DT") 3120610 "^DD",727.819,727.819,79,0) NATIONAL PATIENT RECORD FLAG^S^Y:YES;^2;16^Q "^DD",727.819,727.819,79,3) Indicate if patient is associated with a category 1 patient record flag. "^DD",727.819,727.819,79,21,0) ^^2^2^3120610^ "^DD",727.819,727.819,79,21,1,0) This field records whether the patient's record contains 1 or more "^DD",727.819,727.819,79,21,2,0) active category 1 (National) Patient Record Flags. "^DD",727.819,727.819,79,23,0) ^^7^7^3120610^ "^DD",727.819,727.819,79,23,1,0) The NATIONAL PATIENT RECORD FLAG field is set based on the results of the "^DD",727.819,727.819,79,23,2,0) $$GETACT^DGPFAPI(DFN,TARGET ARRAY) call. This call looks at the category "^DD",727.819,727.819,79,23,3,0) 1 national patient record flags as recorded in the PRF NATIONAL FLAG file "^DD",727.819,727.819,79,23,4,0) (#26.15). The resulting value of this call is the number of active "^DD",727.819,727.819,79,23,5,0) category I patient record flags assigned to this patient. This field is "^DD",727.819,727.819,79,23,6,0) set to Y (YES) if the result is greater than zero. A value of zero causes "^DD",727.819,727.819,79,23,7,0) this field to be left null. "^DD",727.819,727.819,79,"DT") 3120610 "^DD",727.819,727.819,87,0) COUNTRY CODE^F^^2;24^K:$L(X)>3!($L(X)<1) X "^DD",727.819,727.819,87,3) The code for the country. Answer must be 1-3 characters in length. "^DD",727.819,727.819,87,21,0) ^.001^1^1^3120610^^^ "^DD",727.819,727.819,87,21,1,0) This is the code for the country associated with the address. "^DD",727.819,727.819,87,23,0) ^.001^2^2^3120610^^ "^DD",727.819,727.819,87,23,1,0) The three-character alpha identifying code is copied from the CODE (#.01) "^DD",727.819,727.819,87,23,2,0) field of the COUNTRY (#779.004) file. "^DD",727.819,727.819,87,"DT") 3090609 "^DD",727.824,727.824,3,0) FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X "^DD",727.824,727.824,3,.1) Facility "^DD",727.824,727.824,3,3) Enter the station number (1-7 characters) where this extract was performed. "^DD",727.824,727.824,3,21,0) ^.001^1^1^3120515^^^ "^DD",727.824,727.824,3,21,1,0) This is the facility/division where the extract was performed. "^DD",727.824,727.824,3,23,0) ^^4^4^3120515^ "^DD",727.824,727.824,3,23,1,0) An indicator of the division where this event happened. Using the NAME "^DD",727.824,727.824,3,23,2,0) field (#.01) pointer from the DSS EXTRACTS file (#728), FACILITY is "^DD",727.824,727.824,3,23,3,0) derived from the STATION NUMBER field (#99) for that pointer number in "^DD",727.824,727.824,3,23,4,0) the INSTITUTION file (#4). "^DD",727.824,727.824,3,"DT") 2961018 "^DD",727.824,727.824,5,0) SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X "^DD",727.824,727.824,5,.1) Social Security Number "^DD",727.824,727.824,5,3) Your answer must be 9 to 10 characters in length. "^DD",727.824,727.824,5,21,0) ^.001^1^1^3120515^^ "^DD",727.824,727.824,5,21,1,0) The patient's social security number. "^DD",727.824,727.824,5,23,0) ^^6^6^3120515^ "^DD",727.824,727.824,5,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.824,727.824,5,23,2,0) in the LAB RESULTS EXTRACT file (#727.824), SSN data is derived from the "^DD",727.824,727.824,5,23,3,0) SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2). "^DD",727.824,727.824,5,23,4,0) "^DD",727.824,727.824,5,23,5,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with "^DD",727.824,727.824,5,23,6,0) an SSN beginning with "00000" will not be included in the extract. "^DD",727.824,727.824,5,"DT") 2961009 "^DD",727.824,727.824,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.824,727.824,6,.1) Name "^DD",727.824,727.824,6,3) Your answer must be 4 characters in length. "^DD",727.824,727.824,6,21,0) ^.001^1^1^3120515^^^^ "^DD",727.824,727.824,6,21,1,0) The first four characters of the patient's last name. "^DD",727.824,727.824,6,23,0) ^^6^6^3120515^ "^DD",727.824,727.824,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.824,727.824,6,23,2,0) in the LAB RESULTS EXTRACT file (#727.824), NAME data is derived from the "^DD",727.824,727.824,6,23,3,0) NAME field (#.01) in the PATIENT file (#2). The first four characters of "^DD",727.824,727.824,6,23,4,0) the first "," piece are used, padded with trailing spaces if necessary. "^DD",727.824,727.824,6,23,5,0) "^DD",727.824,727.824,6,23,6,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.824,727.824,6,"DT") 2961009 "^DD",727.824,727.824,7,0) IN OUT PATIENT INDICATOR^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q "^DD",727.824,727.824,7,.1) In Out Patient Indicator "^DD",727.824,727.824,7,3) Enter the patient's status for this extract entry. "^DD",727.824,727.824,7,21,0) ^.001^2^2^3120608^^^^ "^DD",727.824,727.824,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for this "^DD",727.824,727.824,7,21,2,0) extract entry. "^DD",727.824,727.824,7,23,0) ^.001^10^10^3120608^^ "^DD",727.824,727.824,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.824,727.824,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.824,727.824,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.824,727.824,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.824,727.824,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.824,727.824,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.824,727.824,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.824,727.824,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.824,727.824,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.824,727.824,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.824,727.824,7,"DT") 3120515 "^DD",727.824,727.824,8,0) DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X "^DD",727.824,727.824,8,.1) Day "^DD",727.824,727.824,8,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.824,727.824,8,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.824,727.824,8,3) Answer must be 8 characters in length. "^DD",727.824,727.824,8,21,0) ^.001^1^1^3120515^^^ "^DD",727.824,727.824,8,21,1,0) Date the Lab Test/Specimen was collected. "^DD",727.824,727.824,8,23,0) ^.001^11^11^3120515^^ "^DD",727.824,727.824,8,23,1,0) Data source: "^DD",727.824,727.824,8,23,2,0) "^DD",727.824,727.824,8,23,3,0) LAB DSS LAR EXTRACT file (#64.036); DATE RESULTS AVAIL field (#5) which "^DD",727.824,727.824,8,23,4,0) is populated from the LAB DATA file (#63); CHEM, HEM, TOX, RIA, SER, etc. "^DD",727.824,727.824,8,23,5,0) sub-file (#63.04); DATE/TIME SPECIMEN TAKEN field (#.01). "^DD",727.824,727.824,8,23,6,0) "^DD",727.824,727.824,8,23,7,0) This field is always exactly 8 numeric characters in length. The format "^DD",727.824,727.824,8,23,8,0) is YYYYMMDD; for example, 19970923. If the date cannot be determined, "^DD",727.824,727.824,8,23,9,0) then a default is used. The default date value is the value of the "^DD",727.824,727.824,8,23,10,0) YEAR MONTH field (#1) concatenated with "01" for the day (DD) portion. "^DD",727.824,727.824,8,23,11,0) Year 2000 compliant per vendor. "^DD",727.824,727.824,8,"DT") 3030114 "^DD",727.824,727.824,12,0) HI/LO INDICATOR^S^H:HIGH;L:LOW;^0;12^Q "^DD",727.824,727.824,12,.1) Hi/Lo Indicator "^DD",727.824,727.824,12,3) For an abnormal test result, was it High or Low? "^DD",727.824,727.824,12,21,0) ^.001^1^1^3120516^^^^ "^DD",727.824,727.824,12,21,1,0) Indicates High or Low test result. "^DD",727.824,727.824,12,23,0) ^.001^5^5^3120516^^ "^DD",727.824,727.824,12,23,1,0) Results indicator of the test identified in the CHEM, HEM, TOX, RIA, "^DD",727.824,727.824,12,23,2,0) SER, etc. multiple (#4) within the LAB DATA file (#63). The indicator is "^DD",727.824,727.824,12,23,3,0) returned from a call to LRCAPDAR, which in turn calls $$TSTRES^LRRPU "^DD",727.824,727.824,12,23,4,0) which returns the indicator as found on the second "^" piece of "^DD",727.824,727.824,12,23,5,0) ^LR(LRDFN,"CH",INVERSE_DATE,TEST_IEN). "^DD",727.824,727.824,12,"DT") 2961009 "^DD",727.824,727.824,19,0) WORKLOAD CODE^F^^0;19^K:$L(X)>11!($L(X)<1) X "^DD",727.824,727.824,19,.1) Workload Code "^DD",727.824,727.824,19,3) Enter the workload code for this event. "^DD",727.824,727.824,19,21,0) ^.001^2^2^3120515^^^ "^DD",727.824,727.824,19,21,1,0) The LMIP/NLT workload code for this record. May correspond to a College of "^DD",727.824,727.824,19,21,2,0) American Pathologists (CAP) code. "^DD",727.824,727.824,19,23,0) ^.001^4^4^3120515^^ "^DD",727.824,727.824,19,23,1,0) WKLD CODE field (#1) of the WKLD CODE file (#64) as pointed to by the "^DD",727.824,727.824,19,23,2,0) NATIONAL VA LAB CODE field (#64) of the LABORATORY TEST file (#60) as "^DD",727.824,727.824,19,23,3,0) pointed to by the LOCAL LAB TEST NAME field (#1) multiple within the DSS "^DD",727.824,727.824,19,23,4,0) LAB TEST field (#1) multiple of the DSS LAB TESTS file (#727.2). "^DD",727.824,727.824,19,"DT") 3120515 "^DD",727.824,727.824,20,0) MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X "^DD",727.824,727.824,20,3) Answer must be 1-10 characters in length. "^DD",727.824,727.824,20,21,0) ^^1^1^3120515^ "^DD",727.824,727.824,20,21,1,0) A national VA system identifier which uniquely identifies a patient. "^DD",727.824,727.824,20,23,0) ^.001^3^3^3120515^^ "^DD",727.824,727.824,20,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.824,727.824,20,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.824,727.824,20,23,3,0) Patient file (#2). "^DD",727.824,727.824,20,"DT") 2990504 "^DD",727.824,727.824,22,0) DOM,PRRTP AND SAARTP INDICATOR^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CET/TR;^1;3^Q "^DD",727.824,727.824,22,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.824,727.824,22,21,0) ^.001^2^2^3120515^^^^ "^DD",727.824,727.824,22,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP or SARRTP at "^DD",727.824,727.824,22,21,2,0) time care is provided. "^DD",727.824,727.824,22,23,0) ^.001^5^5^3120515^^^^ "^DD",727.824,727.824,22,23,1,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.824,727.824,22,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.824,727.824,22,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.824,727.824,22,23,4,0) "^DD",727.824,727.824,22,23,5,0) Otherwise, the value is null. "^DD",727.824,727.824,22,"DT") 3120515 "^DD",727.824,727.824,23,0) TIME COLLECTED^F^^1;4^K:$L(X)>6!($L(X)<6) X "^DD",727.824,727.824,23,3) Answer must be 6 characters in length. "^DD",727.824,727.824,23,21,0) ^.001^1^1^3120719^^^^ "^DD",727.824,727.824,23,21,1,0) Time of day specimen was collected. "^DD",727.824,727.824,23,23,0) ^^5^5^3120719^ "^DD",727.824,727.824,23,23,1,0) The TIME COLLECTED field (#23) is derived from the DATE/TIME SPECIMEN "^DD",727.824,727.824,23,23,2,0) TAKEN field (#.01) of the CHEM, HEM, TOX, RIA, SER, etc. field (#4) of "^DD",727.824,727.824,23,23,3,0) the LAB DATA file (#63). This field is always exactly 6 numeric "^DD",727.824,727.824,23,23,4,0) characters in length. If the specimen time cannot be determined, then "^DD",727.824,727.824,23,23,5,0) "000300" is used as default. "^DD",727.824,727.824,23,"DT") 3120719 "^DD",727.824,727.824,24,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^1;5^Q "^DD",727.824,727.824,24,3) Enter observation patient status for this record. "^DD",727.824,727.824,24,21,0) ^.001^1^1^3120515^^^^ "^DD",727.824,727.824,24,21,1,0) Indicates if patient is considered to be an observation patient. "^DD",727.824,727.824,24,23,0) ^.001^12^12^3120515^^ "^DD",727.824,727.824,24,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.824,727.824,24,23,2,0) "^DD",727.824,727.824,24,23,3,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.824,727.824,24,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.824,727.824,24,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.824,727.824,24,23,6,0) file. "^DD",727.824,727.824,24,23,7,0) "^DD",727.824,727.824,24,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.824,727.824,24,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.824,727.824,24,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.824,727.824,24,23,11,0) "^DD",727.824,727.824,24,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.824,727.824,24,"DT") 3120515 "^DD",727.824,727.824,25,0) ENCOUNTER NUMBER^F^^1;6^K:$L(X)>18!($L(X)<1) X "^DD",727.824,727.824,25,3) Answer must be 1-18 characters in length. "^DD",727.824,727.824,25,21,0) ^.001^1^1^3120515^^^^ "^DD",727.824,727.824,25,21,1,0) The unique number assigned for DSS. "^DD",727.824,727.824,25,23,0) ^.001^4^4^3120515^^ "^DD",727.824,727.824,25,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.824,727.824,25,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.824,727.824,25,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.824,727.824,25,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.824,727.824,25,"DT") 3010503 "^DD",727.824,727.824,26,0) PRODUCTION DIVISION CODE^F^^1;7^K:$L(X)>7!($L(X)<3) X "^DD",727.824,727.824,26,3) Answer must be 3-7 characters in length. "^DD",727.824,727.824,26,21,0) ^.001^1^1^3120515^^ "^DD",727.824,727.824,26,21,1,0) Identifies the division/facility where the work was performed. "^DD",727.824,727.824,26,23,0) ^^4^4^3120515^ "^DD",727.824,727.824,26,23,1,0) Data comes from the NAME field (#.01) of the DSS EXTRACT file (#728) which "^DD",727.824,727.824,26,23,2,0) is a pointer to the INSTITUTION file (#4). This value is then used to call "^DD",727.824,727.824,26,23,3,0) the API RADDIV^ECXDEPT to get the STATION NUMBER field (#99) from the "^DD",727.824,727.824,26,23,4,0) INSTITUTION file (#4). "^DD",727.824,727.824,26,"DT") 3120515 "^DD",727.824,727.824,28,0) ORDERING PROVIDER^F^^1;9^K:$L(X)>11!($L(X)<1) X "^DD",727.824,727.824,28,3) Answer must be 1-11 characters in length. "^DD",727.824,727.824,28,21,0) ^.001^1^1^3120515^^^ "^DD",727.824,727.824,28,21,1,0) The provider ordering this lab test. "^DD",727.824,727.824,28,23,0) ^^8^8^3120515^ "^DD",727.824,727.824,28,23,1,0) The ORDERING PROVIDER is derived from the REQUESTING PERSON field (#.1) of "^DD",727.824,727.824,28,23,2,0) the CHEM, HEM, TOX, RIA, SER, etc. multiple field (#4) of the LAB DATA "^DD",727.824,727.824,28,23,3,0) file (#63). "^DD",727.824,727.824,28,23,4,0) "^DD",727.824,727.824,28,23,5,0) The value obtained is a pointer to the NEW PERSON file (#200). A "2" is "^DD",727.824,727.824,28,23,6,0) prefixed to the pointer value to indicate that it points to file #200. "^DD",727.824,727.824,28,23,7,0) For example, if the IEN of the provider in file #200 is 98765, the value "^DD",727.824,727.824,28,23,8,0) that will be stored is 298765. "^DD",727.824,727.824,28,"DT") 3040226 "^DD",727.824,727.824,29,0) ORDERING PROVIDER PERSON CLASS^F^^1;10^K:$L(X)>7!($L(X)<7) X "^DD",727.824,727.824,29,3) Answer must be 7 characters in length. "^DD",727.824,727.824,29,21,0) ^.001^2^2^3120515^^^ "^DD",727.824,727.824,29,21,1,0) The VA Code of the Person Class of the Ordering Provider as of the date "^DD",727.824,727.824,29,21,2,0) of this extract record. "^DD",727.824,727.824,29,23,0) ^.001^4^4^3120515^^ "^DD",727.824,727.824,29,23,1,0) Active Person Class is determined by the supported call "^DD",727.824,727.824,29,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.824,727.824,29,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.824,727.824,29,23,4,0) returned value string. "^DD",727.824,727.824,29,"DT") 3120515 "^DD",727.825,727.825,2,0) EXTRACT NUMBER^P727'^ECX(727,^0;3^Q "^DD",727.825,727.825,2,.1) Extract Number "^DD",727.825,727.825,2,1,0) ^.1 "^DD",727.825,727.825,2,1,1,0) 727.815^AC "^DD",727.825,727.825,2,1,1,1) S ^ECX(727.825,"AC",$E(X,1,30),DA)="" "^DD",727.825,727.825,2,1,1,2) K ^ECX(727.825,"AC",$E(X,1,30),DA) "^DD",727.825,727.825,2,1,1,3) DO NOT DELETE "^DD",727.825,727.825,2,1,1,"%D",0) ^.101^2^2^3001024^^ "^DD",727.825,727.825,2,1,1,"%D",1,0) This cross reference is essential for managing and purging data "^DD",727.825,727.825,2,1,1,"%D",2,0) in this file. "^DD",727.825,727.825,2,1,1,"DT") 2910802 "^DD",727.825,727.825,2,3) Enter the extract number for this extract. "^DD",727.825,727.825,2,21,0) ^^2^2^3120723^ "^DD",727.825,727.825,2,21,1,0) The corresponding entry in the DSS EXTRACT LOG file (#727) for this "^DD",727.825,727.825,2,21,2,0) extract. "^DD",727.825,727.825,2,23,0) ^.001^2^2^3120723^^^^ "^DD",727.825,727.825,2,23,1,0) A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to "^DD",727.825,727.825,2,23,2,0) pick up the header for the mail message. "^DD",727.825,727.825,2,"DT") 2950317 "^DD",727.825,727.825,3,0) FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X "^DD",727.825,727.825,3,.1) Facility "^DD",727.825,727.825,3,3) Enter the station number where this extract was performed. "^DD",727.825,727.825,3,21,0) ^.001^1^1^3120613^^ "^DD",727.825,727.825,3,21,1,0) This is the facility/division where the extract was performed. "^DD",727.825,727.825,3,23,0) ^.001^8^8^3120613^^ "^DD",727.825,727.825,3,23,1,0) An indicator of the division where this event happened. Using the SITE "^DD",727.825,727.825,3,23,2,0) NAME field (#.01) in the A&SP SITE PARAMETERS file (#509850.8), FACILITY "^DD",727.825,727.825,3,23,3,0) is derived from the STATION NUMBER field (#99) for that pointer number in "^DD",727.825,727.825,3,23,4,0) the INSTITUTION file (#4). "^DD",727.825,727.825,3,23,5,0) "^DD",727.825,727.825,3,23,6,0) This field should be 3 to 7 characters but due to FileMan limitations for "^DD",727.825,727.825,3,23,7,0) data on this node, the field will remain as a free text field of 1 to 7 "^DD",727.825,727.825,3,23,8,0) characters. "^DD",727.825,727.825,3,"DT") 3111229 "^DD",727.825,727.825,4,0) PATIENT NO. - DFN^P2'^DPT(^0;5^Q "^DD",727.825,727.825,4,.1) Patient No. - DFN "^DD",727.825,727.825,4,3) Enter the name of the patient for this extract record. "^DD",727.825,727.825,4,21,0) ^.001^1^1^3120610^^ "^DD",727.825,727.825,4,21,1,0) The patient associated with this extract record. "^DD",727.825,727.825,4,23,0) ^.001^2^2^3120610^^ "^DD",727.825,727.825,4,23,1,0) PATIENT NO. - DFN is derived from the PATIENT field (#1) in the A&SP CLINIC "^DD",727.825,727.825,4,23,2,0) VISIT file (#509850.6). "^DD",727.825,727.825,4,"DT") 2971030 "^DD",727.825,727.825,5,0) SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X "^DD",727.825,727.825,5,.1) Social Security Number "^DD",727.825,727.825,5,3) Enter the social security number for this patient's extract record. "^DD",727.825,727.825,5,21,0) ^.001^1^1^3120613^^^^ "^DD",727.825,727.825,5,21,1,0) The patient's social security number. "^DD",727.825,727.825,5,23,0) ^.001^6^6^3120613^^^^ "^DD",727.825,727.825,5,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.825,727.825,5,23,2,0) (#4) in the QUASAR EXTRACT file (#727.825), SSN data is derived from "^DD",727.825,727.825,5,23,3,0) the SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2). "^DD",727.825,727.825,5,23,4,0) "^DD",727.825,727.825,5,23,5,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with "^DD",727.825,727.825,5,23,6,0) an SSN beginning with "00000" will not be included in the extract. "^DD",727.825,727.825,5,"DT") 2910802 "^DD",727.825,727.825,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.825,727.825,6,.1) Name "^DD",727.825,727.825,6,3) Enter the first four characters of this patient's last name. "^DD",727.825,727.825,6,21,0) ^.001^1^1^3120613^^^ "^DD",727.825,727.825,6,21,1,0) The first four characters of the patient's last name. "^DD",727.825,727.825,6,23,0) ^.001^6^6^3120613^^^ "^DD",727.825,727.825,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.825,727.825,6,23,2,0) in the QUASAR EXTRACT file (#727.825), NAME data is derived from the "^DD",727.825,727.825,6,23,3,0) NAME field (#.01) in the PATIENT file (#2). The first four characters of "^DD",727.825,727.825,6,23,4,0) the first "," piece are used, padded with trailing spaces if necessary. "^DD",727.825,727.825,6,23,5,0) "^DD",727.825,727.825,6,23,6,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.825,727.825,6,"DT") 2910802 "^DD",727.825,727.825,7,0) IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X "^DD",727.825,727.825,7,.1) In Out Patient Indicator "^DD",727.825,727.825,7,3) Answer must be 1 character in length. "^DD",727.825,727.825,7,21,0) ^.001^2^2^3120610^^ "^DD",727.825,727.825,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for this "^DD",727.825,727.825,7,21,2,0) extract. "^DD",727.825,727.825,7,23,0) ^^14^14^3120610^ "^DD",727.825,727.825,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.825,727.825,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.825,727.825,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.825,727.825,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.825,727.825,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.825,727.825,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.825,727.825,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.825,727.825,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.825,727.825,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.825,727.825,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.825,727.825,7,23,11,0) "^DD",727.825,727.825,7,23,12,0) This field should be a set of codes, with I for INPATIENT and O for "^DD",727.825,727.825,7,23,13,0) OUTPATIENT, but due to FileMan limitations for data on this node, the "^DD",727.825,727.825,7,23,14,0) field is being left as free text. "^DD",727.825,727.825,7,"DT") 3011129 "^DD",727.825,727.825,8,0) DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X "^DD",727.825,727.825,8,.1) Day "^DD",727.825,727.825,8,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.825,727.825,8,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.825,727.825,8,3) Answer must be 8 characters in length. "^DD",727.825,727.825,8,21,0) ^.001^1^1^3120613^^^^ "^DD",727.825,727.825,8,21,1,0) Date when Speech & Audiology procedure was performed. "^DD",727.825,727.825,8,23,0) ^.001^7^7^3120613^^ "^DD",727.825,727.825,8,23,1,0) Date is pulled from the DATE field (#.01) in the A&SP CLINIC VISIT file "^DD",727.825,727.825,8,23,2,0) (#509850.6). "^DD",727.825,727.825,8,23,3,0) "^DD",727.825,727.825,8,23,4,0) This field is always exactly 8 numeric characters in length. The format "^DD",727.825,727.825,8,23,5,0) is YYYYMMDD; for example, 19970923. If the date cannot be determined, "^DD",727.825,727.825,8,23,6,0) then a default is used. The default date value is the value of the "^DD",727.825,727.825,8,23,7,0) YEAR MONTH field (#1) concatenated with "01" for the day (DD) portion. "^DD",727.825,727.825,8,"DT") 2970924 "^DD",727.825,727.825,9,0) DSS UNIT^P724'^ECD(^0;10^Q "^DD",727.825,727.825,9,.1) DSS Unit "^DD",727.825,727.825,9,3) Enter the name of the DSS unit for this extract record. "^DD",727.825,727.825,9,21,0) ^^1^1^3120610^ "^DD",727.825,727.825,9,21,1,0) The DSS UNIT assigned for the procedure performed during this encounter. "^DD",727.825,727.825,9,23,0) ^^6^6^3120610^ "^DD",727.825,727.825,9,23,1,0) A locally defined group of work products entered for a specific DSS "^DD",727.825,727.825,9,23,2,0) department. The DSS UNIT pointer is pulled from either the AUDIOLOGY DSS "^DD",727.825,727.825,9,23,3,0) UNIT LINK field (#727.8251) or the SPEECH PATHOLOGY DSS UNIT LINK field "^DD",727.825,727.825,9,23,4,0) (#727.8252) of the A&SP SITE PARAMETERS file (#509850.8) based on the "^DD",727.825,727.825,9,23,5,0) CLINIC STOP CODE field (#4) of 'A' for AUDIOLOGY or 'S' for SPEECH of the "^DD",727.825,727.825,9,23,6,0) A&SP CLINIC VISIT file (#509850.6). "^DD",727.825,727.825,9,"DT") 2910828 "^DD",727.825,727.825,10,0) CATEGORY^F^^0;11^K:$L(X)>6!($L(X)<1) X "^DD",727.825,727.825,10,.1) Category "^DD",727.825,727.825,10,3) Answer must be 1-6 characters in length. "^DD",727.825,727.825,10,21,0) ^.001^1^1^3120610^^^ "^DD",727.825,727.825,10,21,1,0) Name of the category selected for this extract. "^DD",727.825,727.825,10,23,0) ^^1^1^3120610^ "^DD",727.825,727.825,10,23,1,0) Currently, this field is null. "^DD",727.825,727.825,10,"DT") 2970911 "^DD",727.825,727.825,12,0) VOLUME^NJ4,0^^0;13^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X "^DD",727.825,727.825,12,.1) Volume "^DD",727.825,727.825,12,3) Type a Number between 1 and 9999, 0 Decimal Digits. "^DD",727.825,727.825,12,21,0) ^.001^1^1^3120610^^^^ "^DD",727.825,727.825,12,21,1,0) The number of times this specific procedure was performed. "^DD",727.825,727.825,12,23,0) ^^8^8^3120610^ "^DD",727.825,727.825,12,23,1,0) Numeric volume for this procedure associated with this extract record. "^DD",727.825,727.825,12,23,2,0) Volume is pulled from the VOLUME field (#.03) of the PROCEDURE CODE "^DD",727.825,727.825,12,23,3,0) multiple field (#10) in the A&SP CLINIC VISIT file (#509850.6). "^DD",727.825,727.825,12,23,4,0) "^DD",727.825,727.825,12,23,5,0) This field should have a numeric upper limit of 99, to match that of the "^DD",727.825,727.825,12,23,6,0) VOLUME field (#.03) of the PROCEDURE CODE multiple field (#10) in the A&SP "^DD",727.825,727.825,12,23,7,0) CLINIC VISIT file (#509850.6). However, due to the FileMan limitation "^DD",727.825,727.825,12,23,8,0) for data on this node, the field will retain its upper limit of 9999. "^DD",727.825,727.825,12,"DT") 2911108 "^DD",727.825,727.825,13,0) COST CENTER^F^^0;14^K:$L(X)>8!($L(X)<6) X "^DD",727.825,727.825,13,.1) Cost Center "^DD",727.825,727.825,13,3) Enter the cost center associated with this extract record. "^DD",727.825,727.825,13,21,0) ^.001^2^2^3120610^^ "^DD",727.825,727.825,13,21,1,0) This is the cost center associated with the DSS Unit for this extract "^DD",727.825,727.825,13,21,2,0) record. "^DD",727.825,727.825,13,23,0) ^^7^7^3120610^ "^DD",727.825,727.825,13,23,1,0) A pointer to the COST CENTER file (#420.1). Cost center "^DD",727.825,727.825,13,23,2,0) is derived from the COST CENTER field (#3) in the DSS UNIT "^DD",727.825,727.825,13,23,3,0) file (#724). "^DD",727.825,727.825,13,23,4,0) "^DD",727.825,727.825,13,23,5,0) This field should be a pointer to the COST CENTER file (#420.1) but due to "^DD",727.825,727.825,13,23,6,0) FileMan limitations for data on this node, the field is being left as a "^DD",727.825,727.825,13,23,7,0) free text field. "^DD",727.825,727.825,13,"DT") 2951204 "^DD",727.825,727.825,14,0) ORDERING SECTION^F^^0;15^K:$L(X)>3!($L(X)<1) X "^DD",727.825,727.825,14,.1) Ordering Section "^DD",727.825,727.825,14,3) Answer must be 1-3 characters in length. "^DD",727.825,727.825,14,21,0) ^^3^3^3120610^ "^DD",727.825,727.825,14,21,1,0) This is the IEN for the Ordering Section. The Ordering Section represents "^DD",727.825,727.825,14,21,2,0) the medical specialty (for example, ambulatory care) responsible for the "^DD",727.825,727.825,14,21,3,0) encounter. "^DD",727.825,727.825,14,23,0) ^^7^7^3120610^ "^DD",727.825,727.825,14,23,1,0) Based on the DSS Unit, this is the MEDICAL SPECIALTY file (#723) IEN of "^DD",727.825,727.825,14,23,2,0) the Ordering Section, which is found in the MEDICAL SPECIALTY field (#2) "^DD",727.825,727.825,14,23,3,0) of the DSS UNIT file (#724). "^DD",727.825,727.825,14,23,4,0) "^DD",727.825,727.825,14,23,5,0) This field should be a pointer to the MEDICAL SPECIALTY file (#723) but "^DD",727.825,727.825,14,23,6,0) due to FileMan limitations for data on this node, the field is being left "^DD",727.825,727.825,14,23,7,0) as a free text field. "^DD",727.825,727.825,14,"DT") 2990517 "^DD",727.825,727.825,15,0) SECTION^F^^0;16^K:$L(X)>3!($L(X)<1) X "^DD",727.825,727.825,15,.1) Section "^DD",727.825,727.825,15,3) Answer must be 1-3 characters in length. "^DD",727.825,727.825,15,21,0) ^.001^2^2^3120611^^ "^DD",727.825,727.825,15,21,1,0) This is the IEN of the entry in the MEDICAL SPECIALTY file (#723) for the "^DD",727.825,727.825,15,21,2,0) DSS Unit associated with this extract record. "^DD",727.825,727.825,15,23,0) ^^11^11^3120611^ "^DD",727.825,727.825,15,23,1,0) The data is pulled from CLINIC STOP CODE field (#4) in the A&SP CLINIC "^DD",727.825,727.825,15,23,2,0) VISIT file (#509850.6). With a DSS Unit link in the A&SP SITE PARAMETERS "^DD",727.825,727.825,15,23,3,0) file (#509850.8) and based on the visit being an audiology or speech "^DD",727.825,727.825,15,23,4,0) pathology stop code, AUDIOLOGY DSS UNIT LINK (#727.8251) and SPEECH "^DD",727.825,727.825,15,23,5,0) PATHOLOGY DSS UNIT LINK (#727.8252) fields in the A&SP SITE PARAMETERS "^DD",727.825,727.825,15,23,6,0) file (#509850.8) are used retrieve the MEDICAL SPECIALTY field (#2) from "^DD",727.825,727.825,15,23,7,0) the DSS UNIT file (#724). "^DD",727.825,727.825,15,23,8,0) "^DD",727.825,727.825,15,23,9,0) This field should be a pointer to the MEDICAL SPECIALTY file (#723) but "^DD",727.825,727.825,15,23,10,0) due to FileMan limitations for data on this node, this field will remain "^DD",727.825,727.825,15,23,11,0) a free text field. "^DD",727.825,727.825,15,"DT") 2990517 "^DD",727.825,727.825,16,0) PROVIDER^F^^0;17^K:$L(X)>11!($L(X)<2) X "^DD",727.825,727.825,16,.1) Provider "^DD",727.825,727.825,16,3) Answer must be 2-11 characters in length. "^DD",727.825,727.825,16,21,0) ^.001^2^2^3120613^^^ "^DD",727.825,727.825,16,21,1,0) The Provider who performed the procedure associated with the A&SP Clinic "^DD",727.825,727.825,16,21,2,0) Visit record. "^DD",727.825,727.825,16,23,0) ^.001^13^13^3120613^^ "^DD",727.825,727.825,16,23,1,0) Data is derived by using the EVENT CAPTURE CODE POINTER field (#.07) of "^DD",727.825,727.825,16,23,2,0) the PROCEDURE CODE multiple (#10) in the A&SP CLINIC VISIT file "^DD",727.825,727.825,16,23,3,0) (#509850.6). If there is data in the EVENT CAPTURE CODE POINTER field "^DD",727.825,727.825,16,23,4,0) (#.07) then the source of the data will be the EC PROCEDURE PROVIDER "^DD",727.825,727.825,16,23,5,0) (#.05) of the EVENT CAPTURE PROCEDURE multiple (#15) in the A&SP CLINIC "^DD",727.825,727.825,16,23,6,0) VISIT file (#509850.6) file. If there isn't data in the EVENT CAPTURE "^DD",727.825,727.825,16,23,7,0) CODE POINTER field (#.07) then the source of the data will be the "^DD",727.825,727.825,16,23,8,0) PROCEDURE PROVIDER field (#.05) of the PROCEDURE CODE multiple (#10) of "^DD",727.825,727.825,16,23,9,0) the A&SP CLINIC VISIT file (#509850.6). "^DD",727.825,727.825,16,23,10,0) "^DD",727.825,727.825,16,23,11,0) The PROVIDER is the value of a "2" prefixed to the pointer value to "^DD",727.825,727.825,16,23,12,0) indicate that the source file is "200". For example, if the IEN of the "^DD",727.825,727.825,16,23,13,0) provider in file #200 is 98765, the value that will be stored is 298765. "^DD",727.825,727.825,16,"DT") 2990517 "^DD",727.825,727.825,17,0) PROVIDER PERSON CLASS^F^^0;18^K:$L(X)>7!($L(X)<1) X "^DD",727.825,727.825,17,.1) "^DD",727.825,727.825,17,3) Answer must be 1-7 characters in length. "^DD",727.825,727.825,17,21,0) ^.001^2^2^3120614^^^^ "^DD",727.825,727.825,17,21,1,0) The VA code of the Person Class of the Provider as of the date of this "^DD",727.825,727.825,17,21,2,0) record. "^DD",727.825,727.825,17,23,0) ^.001^8^8^3120614^^^ "^DD",727.825,727.825,17,23,1,0) Active Person Class is determined by the supported call "^DD",727.825,727.825,17,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.825,727.825,17,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.825,727.825,17,23,4,0) returned value string. "^DD",727.825,727.825,17,23,5,0) "^DD",727.825,727.825,17,23,6,0) This field should be exactly 7 characters in length but due to FileMan "^DD",727.825,727.825,17,23,7,0) limitations for data on this node, the field will retain its current "^DD",727.825,727.825,17,23,8,0) setting of 1 to 7. "^DD",727.825,727.825,17,"DT") 3110321 "^DD",727.825,727.825,19,0) PROVIDER #2 PERSON CLASS^F^^0;20^K:$L(X)>7!($L(X)<1) X "^DD",727.825,727.825,19,.1) "^DD",727.825,727.825,19,3) Answer must be 1-7 characters in length. "^DD",727.825,727.825,19,21,0) ^.001^2^2^3120611^^^ "^DD",727.825,727.825,19,21,1,0) This is the VA code of the Person Class of the second assisting Provider "^DD",727.825,727.825,19,21,2,0) as of the date of this record. "^DD",727.825,727.825,19,23,0) ^^8^8^3120611^ "^DD",727.825,727.825,19,23,1,0) Active Person Class is determined by the supported call "^DD",727.825,727.825,19,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.825,727.825,19,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.825,727.825,19,23,4,0) returned value string. "^DD",727.825,727.825,19,23,5,0) "^DD",727.825,727.825,19,23,6,0) This field should be exactly 7 characters in length but due to FileMan "^DD",727.825,727.825,19,23,7,0) limitations for data on this node, the field will retain its current "^DD",727.825,727.825,19,23,8,0) setting of 1 to 7. "^DD",727.825,727.825,19,"DT") 3110321 "^DD",727.825,727.825,21,0) PROVIDER #3 PERSON CLASS^F^^0;22^K:$L(X)>7!($L(X)<1) X "^DD",727.825,727.825,21,.1) "^DD",727.825,727.825,21,3) Answer must be 1-7 characters in length. "^DD",727.825,727.825,21,21,0) ^.001^2^2^3120611^^^ "^DD",727.825,727.825,21,21,1,0) This is the VA code of the Person Class of the third assisting Provider as "^DD",727.825,727.825,21,21,2,0) of the date of this record. "^DD",727.825,727.825,21,23,0) ^^8^8^3120611^ "^DD",727.825,727.825,21,23,1,0) Active Person Class is determined by the supported call "^DD",727.825,727.825,21,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.825,727.825,21,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.825,727.825,21,23,4,0) returned value string. "^DD",727.825,727.825,21,23,5,0) "^DD",727.825,727.825,21,23,6,0) This field should be exactly 7 characters in length but due to FileMan "^DD",727.825,727.825,21,23,7,0) limitations for data on this node, the field will retain its current "^DD",727.825,727.825,21,23,8,0) setting of 1 to 7. "^DD",727.825,727.825,21,"DT") 3110321 "^DD",727.825,727.825,25,0) TIME^FO^^0;26^K:$L(X)>6!($L(X)<6) X "^DD",727.825,727.825,25,.1) Time "^DD",727.825,727.825,25,2) S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0) "^DD",727.825,727.825,25,2.1) S Y=$$ECXTIMEX^ECXUTL(Y,0) "^DD",727.825,727.825,25,3) Answer must be 6 characters in length. "^DD",727.825,727.825,25,21,0) ^.001^1^1^3120611^^ "^DD",727.825,727.825,25,21,1,0) Time when the procedure was performed. "^DD",727.825,727.825,25,23,0) ^^5^5^3120611^ "^DD",727.825,727.825,25,23,1,0) Time is extracted from the date information pulled from the DATE field "^DD",727.825,727.825,25,23,2,0) (#.01) in the A&SP CLINIC VISIT file (#509850.6). "^DD",727.825,727.825,25,23,3,0) "^DD",727.825,727.825,25,23,4,0) This field is always exactly 6 numeric characters in length; if time "^DD",727.825,727.825,25,23,5,0) cannot be determined, then "000300" is used as default. "^DD",727.825,727.825,25,"DT") 2970924 "^DD",727.825,727.825,26,0) PRIMARY CARE TEAM^F^^0;27^K:$L(X)>4!($L(X)<1) X "^DD",727.825,727.825,26,.1) Primary Care Team "^DD",727.825,727.825,26,2) S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,1) "^DD",727.825,727.825,26,2.1) S Y=$$ECXTIMEX^ECXUTL(Y,1) "^DD",727.825,727.825,26,3) Enter primary care team assigned to this patient. "^DD",727.825,727.825,26,21,0) ^.001^1^1^3120614^^^^ "^DD",727.825,727.825,26,21,1,0) The IEN of the primary care team assigned to this patient. "^DD",727.825,727.825,26,23,0) ^.001^10^10^3120614^^ "^DD",727.825,727.825,26,23,1,0) Using the DATE field (#.01) from the A&SP CLINIC VISIT file (#509850.6) "^DD",727.825,727.825,26,23,2,0) and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.825,727.825,26,23,3,0) in the QUASAR EXTRACT file (#727.825), a call is made to the Scheduling "^DD",727.825,727.825,26,23,4,0) API, OUTPTTM^SDUTL3. The API returns the team's internal entry number and "^DD",727.825,727.825,26,23,5,0) name from the TEAM file (#404.51). Only the pointer (IEN) to File 404.51 "^DD",727.825,727.825,26,23,6,0) is transmitted. "^DD",727.825,727.825,26,23,7,0) "^DD",727.825,727.825,26,23,8,0) This field should be a pointer to the TEAM file (#404.51) but due to "^DD",727.825,727.825,26,23,9,0) FileMan limitations for data on this node, this field is being left as a "^DD",727.825,727.825,26,23,10,0) free text field. "^DD",727.825,727.825,26,"DT") 2961106 "^DD",727.825,727.825,27,0) PRIMARY CARE PROVIDER^F^^0;28^K:$L(X)>11!($L(X)<1) X "^DD",727.825,727.825,27,.1) Primary Care Provider "^DD",727.825,727.825,27,3) Enter primary care provider assigned to this patient. "^DD",727.825,727.825,27,21,0) ^.001^1^1^3120614^^^^ "^DD",727.825,727.825,27,21,1,0) The primary care provider assigned to this patient. "^DD",727.825,727.825,27,23,0) ^^9^9^3120614^ "^DD",727.825,727.825,27,23,1,0) Using the DATE field (#.01) and PATIENT NAME field (#1) from the A&SP "^DD",727.825,727.825,27,23,2,0) CLINIC VISIT file (#509850.6) a call is made to the Scheduling API, "^DD",727.825,727.825,27,23,3,0) OUTPTPR^SDUTL3. The API returns the provider's internal entry number and "^DD",727.825,727.825,27,23,4,0) name from the NEW PERSON file (#200). "^DD",727.825,727.825,27,23,5,0) "^DD",727.825,727.825,27,23,6,0) The PRIMARY CARE PROVIDER is the value of a "2" prefixed to the pointer "^DD",727.825,727.825,27,23,7,0) value to indicate that the source file is "200". For example, if the IEN "^DD",727.825,727.825,27,23,8,0) of the provider in file #200 is 98765, the value that will be stored is "^DD",727.825,727.825,27,23,9,0) 298765. "^DD",727.825,727.825,27,"DT") 2961017 "^DD",727.825,727.825,28,0) PCE CPT CODE & MODIFIERS^FO^^0;29^K:$L(X)>15!($L(X)<5) X "^DD",727.825,727.825,28,.1) "^DD",727.825,727.825,28,2) S Y(0)=Y S Y=$$CPTOUT^ECXUTL3(Y) "^DD",727.825,727.825,28,2.1) S Y=$$CPTOUT^ECXUTL3(Y) "^DD",727.825,727.825,28,3) Answer must be 5-15 characters in length. "^DD",727.825,727.825,28,21,0) ^.001^3^3^3120613^^^^ "^DD",727.825,727.825,28,21,1,0) Five character Current Procedural Terminology (CPT) Code, the quantity(or "^DD",727.825,727.825,28,21,2,0) how many times the unique code appears in the record), and up to five "^DD",727.825,727.825,28,21,3,0) two-character CPT modifiers. "^DD",727.825,727.825,28,23,0) ^.001^6^6^3120613^^ "^DD",727.825,727.825,28,23,1,0) PCE CPT CODE is derived from the PROCEDURE CODE multiple field (#10) and "^DD",727.825,727.825,28,23,2,0) CPT MODIFIER multiple field (#.04) of the A&SP CLINIC VISIT file "^DD",727.825,727.825,28,23,3,0) (#509850.6). "^DD",727.825,727.825,28,23,4,0) "^DD",727.825,727.825,28,23,5,0) This field should have an upper limit of 17 characters but due to the "^DD",727.825,727.825,28,23,6,0) FileMan limitation for data on this node, it will remain at 15 characters. "^DD",727.825,727.825,28,"DT") 2990614 "^DD",727.825,727.825,29,0) ICD-9 CODE^F^^0;30^K:$L(X)>7!($L(X)<1) X "^DD",727.825,727.825,29,.1) ICD-9 Code "^DD",727.825,727.825,29,2) S Y(0)=Y S Y=$$CPTOUT^ECXUTL3(Y) "^DD",727.825,727.825,29,2.1) S Y=$$CPTOUT^ECXUTL3(Y) "^DD",727.825,727.825,29,3) Enter the ICD-9 code for this record. "^DD",727.825,727.825,29,21,0) ^.001^1^1^3120611^^^^ "^DD",727.825,727.825,29,21,1,0) Primary ICD-9 code for this clinic visit. "^DD",727.825,727.825,29,23,0) ^^3^3^3120611^ "^DD",727.825,727.825,29,23,1,0) ICD-9 CODE is derived from the DIAGNOSTIC CODE field (#.01) and PRIMARY "^DD",727.825,727.825,29,23,2,0) DIAGNOSIS field (#.12) of the DIAGNOSTIC CODE multiple field (#3) in the "^DD",727.825,727.825,29,23,3,0) A&SP CLINIC VISIT file (#509850.6). "^DD",727.825,727.825,29,"DT") 2961106 "^DD",727.825,727.825,30,0) SECONDARY ICD9 CODE #1^F^^0;31^K:$L(X)>7!($L(X)<1) X "^DD",727.825,727.825,30,.1) ICD-9 Code "^DD",727.825,727.825,30,3) Answer must be 1-7 characters in length. "^DD",727.825,727.825,30,21,0) ^.001^1^1^3120611^^^^ "^DD",727.825,727.825,30,21,1,0) The first of the Secondary ICD-9 codes for this clinic visit. "^DD",727.825,727.825,30,23,0) ^^3^3^3120611^ "^DD",727.825,727.825,30,23,1,0) Derived from the DIAGNOSTIC CODE field (#.01) and PRIMARY DIAGNOSIS field "^DD",727.825,727.825,30,23,2,0) (#.12) of the DIAGNOSTIC CODE multiple field (#3) in the A&SP CLINIC VISIT "^DD",727.825,727.825,30,23,3,0) file (#509850.6). "^DD",727.825,727.825,30,"DT") 3000801 "^DD",727.825,727.825,31,0) SECONDARY ICD9 CODE #2^F^^0;32^K:$L(X)>7!($L(X)<1) X "^DD",727.825,727.825,31,.1) "^DD",727.825,727.825,31,3) Answer must be 1-7 characters in length. "^DD",727.825,727.825,31,21,0) ^.001^1^1^3120611^^^^ "^DD",727.825,727.825,31,21,1,0) The second of the Secondary ICD-9 codes for this clinic visit. "^DD",727.825,727.825,31,23,0) ^.001^3^3^3120611^^ "^DD",727.825,727.825,31,23,1,0) Derived from the DIAGNOSTIC CODE field (#.01) and PRIMARY DIAGNOSIS field "^DD",727.825,727.825,31,23,2,0) (#.12) of the DIAGNOSTIC CODE multiple field (#3) in the A&SP CLINIC VISIT "^DD",727.825,727.825,31,23,3,0) file (#509850.6). "^DD",727.825,727.825,31,"DT") 3001013 "^DD",727.825,727.825,32,0) SECONDARY ICD9 CODE #3^F^^0;33^K:$L(X)>7!($L(X)<1) X "^DD",727.825,727.825,32,.1) "^DD",727.825,727.825,32,3) Answer must be 1-7 characters in length. "^DD",727.825,727.825,32,21,0) ^.001^1^1^3120611^^ "^DD",727.825,727.825,32,21,1,0) The third of the Secondary ICD-9 codes for this clinic visit. "^DD",727.825,727.825,32,23,0) ^^3^3^3120611^ "^DD",727.825,727.825,32,23,1,0) Derived from the DIAGNOSTIC CODE field (#.01) and PRIMARY DIAGNOSIS field "^DD",727.825,727.825,32,23,2,0) (#.12) of the DIAGNOSTIC CODE multiple field (#3) in the A&SP CLINIC VISIT "^DD",727.825,727.825,32,23,3,0) file (#509850.6). "^DD",727.825,727.825,32,"DT") 3001013 "^DD",727.825,727.825,33,0) SECONDARY ICD9 CODE #4^F^^0;34^K:$L(X)>7!($L(X)<1) X "^DD",727.825,727.825,33,.1) "^DD",727.825,727.825,33,3) Answer must be 1-7 characters in length. "^DD",727.825,727.825,33,21,0) ^.001^1^1^3120611^^ "^DD",727.825,727.825,33,21,1,0) The fourth of the Secondary ICD-9 codes for this clinic visit. "^DD",727.825,727.825,33,23,0) ^^3^3^3120611^ "^DD",727.825,727.825,33,23,1,0) Derived from the DIAGNOSTIC CODE field (#.01) and PRIMARY DIAGNOSIS field "^DD",727.825,727.825,33,23,2,0) (#.12) of the DIAGNOSTIC CODE multiple field (#3) in the A&SP CLINIC VISIT "^DD",727.825,727.825,33,23,3,0) file (#509850.6). "^DD",727.825,727.825,33,"DT") 3001013 "^DD",727.825,727.825,34,0) AGENT ORANGE^S^Y:YES;N:NO;U:UNKNOWN;^0;35^Q "^DD",727.825,727.825,34,.1) Agent Orange "^DD",727.825,727.825,34,3) Select the appropriate agent orange status for this patient. "^DD",727.825,727.825,34,21,0) ^.001^1^1^3120611^^ "^DD",727.825,727.825,34,21,1,0) Indicates whether patient was exposed to Agent Orange. "^DD",727.825,727.825,34,23,0) ^^7^7^3120611^ "^DD",727.825,727.825,34,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NAME field (#1) in "^DD",727.825,727.825,34,23,2,0) the A&SP CLINIC VISIT (#509850.6). AGENT ORANGE data is derived from the "^DD",727.825,727.825,34,23,3,0) AGENT ORANGE EXPOS. INDICATED? field (#.32102) in the PATIENT file "^DD",727.825,727.825,34,23,4,0) (#2). "^DD",727.825,727.825,34,23,5,0) "^DD",727.825,727.825,34,23,6,0) The status indicator is returned by SVC^VADPT which is called by "^DD",727.825,727.825,34,23,7,0) routine PAT^ECXUTL3. "^DD",727.825,727.825,34,"DT") 2961017 "^DD",727.825,727.825,35,0) RADIATION EXPOSURE^S^Y:YES;N:NO;U:UNKNOWN;^0;36^Q "^DD",727.825,727.825,35,.1) Radiation Exposure "^DD",727.825,727.825,35,3) Select the appropriate radiation status for this patient. "^DD",727.825,727.825,35,21,0) ^.001^1^1^3120614^^^ "^DD",727.825,727.825,35,21,1,0) Indicates if patient claims exposure to ionizing radiation. "^DD",727.825,727.825,35,23,0) ^.001^6^6^3120614^^ "^DD",727.825,727.825,35,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NAME field (#1) in "^DD",727.825,727.825,35,23,2,0) the A&SP CLINIC VISIT (#509850.6). RADIATION data is derived from the "^DD",727.825,727.825,35,23,3,0) RADIATION EXPOSURE INDICATED? field (#.32103) in the PATIENT file (#2). "^DD",727.825,727.825,35,23,4,0) "^DD",727.825,727.825,35,23,5,0) The status indicator is returned by SVC^VADPT which is called by "^DD",727.825,727.825,35,23,6,0) routine PAT^ECXUTL3. "^DD",727.825,727.825,35,"DT") 2961017 "^DD",727.825,727.825,36,0) SW ASIA CONDITIONS^S^Y:YES;N:NO;U:UNKNOWN;^0;37^Q "^DD",727.825,727.825,36,.1) "^DD",727.825,727.825,36,3) "^DD",727.825,727.825,36,21,0) ^.001^2^2^3120614^^^^ "^DD",727.825,727.825,36,21,1,0) This field is used to indicate if patient claims exposure to Southwest "^DD",727.825,727.825,36,21,2,0) Asia conditions. "^DD",727.825,727.825,36,23,0) ^.001^7^7^3120614^^ "^DD",727.825,727.825,36,23,1,0) This field is derived from the SOUTHWEST ASIA CONDITIONS? field "^DD",727.825,727.825,36,23,2,0) (#.322013) in the Patient File (#2) using the patient's DFN. The status "^DD",727.825,727.825,36,23,3,0) indicator is returned by SVC^VADPT which is called by PAT^ECXUTL3. "^DD",727.825,727.825,36,23,4,0) "^DD",727.825,727.825,36,23,5,0) Due to FileMan limitations for data on this node, I'm unable to add a "^DD",727.825,727.825,36,23,6,0) help prompt. The help prompt would be "Enter patient's Southwest Asia "^DD",727.825,727.825,36,23,7,0) Indicator status." if it could be added. "^DD",727.825,727.825,36,"DT") 3090527 "^DD",727.825,727.825,37,0) SERVICE CONNECTED^S^Y:YES;N:NO;^0;38^Q "^DD",727.825,727.825,37,.1) Service Connected "^DD",727.825,727.825,37,3) Select the appropriate service connected status for this patient. "^DD",727.825,727.825,37,21,0) ^.001^1^1^3120611^^ "^DD",727.825,727.825,37,21,1,0) Indicates if patient is service connected. "^DD",727.825,727.825,37,23,0) ^^6^6^3120611^ "^DD",727.825,727.825,37,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NAME field (#1) in "^DD",727.825,727.825,37,23,2,0) the A&SP CLINIC VISIT (#509850.6). SERVICE CONNECTED data is derived from "^DD",727.825,727.825,37,23,3,0) the SERVICE CONNECTED? field (#.301) in the PATIENT file (#2). "^DD",727.825,727.825,37,23,4,0) "^DD",727.825,727.825,37,23,5,0) The status indicator is returned by ELIG^VADPT which is called by "^DD",727.825,727.825,37,23,6,0) routine PAT^ECXUTL3. "^DD",727.825,727.825,37,"DT") 2961017 "^DD",727.825,727.825,38,0) SENT TO PCE^S^Y:YES;N:NO;^0;39^Q "^DD",727.825,727.825,38,.1) Sent to PCE "^DD",727.825,727.825,38,3) Enter Y if data has been sent to PCE, N if not. "^DD",727.825,727.825,38,21,0) ^^1^1^3120611^ "^DD",727.825,727.825,38,21,1,0) This field flags data that has been sent from QUASAR to PCE. "^DD",727.825,727.825,38,23,0) ^^1^1^3120611^ "^DD",727.825,727.825,38,23,1,0) Currently, this field is always set to NO. "^DD",727.825,727.825,38,"DT") 2961022 "^DD",727.825,727.825,40,0) DSS IDENTIFIER^F^^0;41^K:$L(X)>6!($L(X)<6) X "^DD",727.825,727.825,40,.1) DSS Identifier "^DD",727.825,727.825,40,3) Answer must be 6 characters in length. "^DD",727.825,727.825,40,21,0) ^.001^2^2^3120611^^^^ "^DD",727.825,727.825,40,21,1,0) The DSS Identifier represents the primary and secondary stop codes of the "^DD",727.825,727.825,40,21,2,0) Associated Clinic. "^DD",727.825,727.825,40,23,0) ^^23^23^3120611^ "^DD",727.825,727.825,40,23,1,0) The DSS Identifier represents the primary and secondary stop codes of the "^DD",727.825,727.825,40,23,2,0) Clinic Location in the A&SP Clinic Visit record, OR it is the observation "^DD",727.825,727.825,40,23,3,0) treating specialty stop code of the treating specialty in the A&SP Clinic "^DD",727.825,727.825,40,23,4,0) Visit record. This data element is always exactly 6 characters in length. "^DD",727.825,727.825,40,23,5,0) "^DD",727.825,727.825,40,23,6,0) If the secondary stop code is not known, then "000" will be used as the "^DD",727.825,727.825,40,23,7,0) 2nd 3-characters. If the primary stop code is not known, then "000000" "^DD",727.825,727.825,40,23,8,0) will be used. "^DD",727.825,727.825,40,23,9,0) "^DD",727.825,727.825,40,23,10,0) If the treating specialy is an observation treating specialty, then "^DD",727.825,727.825,40,23,11,0) the DSS Identifier is assigned an observation treating specialty stop "^DD",727.825,727.825,40,23,12,0) code_"000". "^DD",727.825,727.825,40,23,13,0) "^DD",727.825,727.825,40,23,14,0) The source of the data is: "^DD",727.825,727.825,40,23,15,0) "^DD",727.825,727.825,40,23,16,0) (1) A&SP CLINIC VISIT file (#509850.6); CLINIC LOCATION field (#2.6) "^DD",727.825,727.825,40,23,17,0) (2) HOSPITAL LOCATION file (#44); STOP CODE NUMBER field (#8) "^DD",727.825,727.825,40,23,18,0) and CREDIT STOP CODE field (#2503) "^DD",727.825,727.825,40,23,19,0) (3) CLINIC STOP file (#40.7); AMIS REPORTING STOP CODE field (#1) "^DD",727.825,727.825,40,23,20,0) Or, "^DD",727.825,727.825,40,23,21,0) (1) Treating Specialty is a selected observation treating "^DD",727.825,727.825,40,23,22,0) specialty. "^DD",727.825,727.825,40,23,23,0) (2) Selected observation treating specialty stop code. "^DD",727.825,727.825,40,"DT") 2970911 "^DD",727.825,727.825,42,0) MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X "^DD",727.825,727.825,42,3) Answer must be 1-10 characters in length. "^DD",727.825,727.825,42,21,0) ^.001^1^1^3120614^^^^ "^DD",727.825,727.825,42,21,1,0) A national VA system identifier which uniquely identifies a patient. "^DD",727.825,727.825,42,23,0) ^.001^3^3^3120614^^ "^DD",727.825,727.825,42,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.825,727.825,42,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.825,727.825,42,23,3,0) PATIENT file (#2). "^DD",727.825,727.825,42,"DT") 2990504 "^DD",727.825,727.825,43,0) DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>14!($L(X)<1) X "^DD",727.825,727.825,43,.1) "^DD",727.825,727.825,43,3) Answer must be 1-14 characters in length. "^DD",727.825,727.825,43,21,0) ^.001^2^2^3120611^^ "^DD",727.825,727.825,43,21,1,0) The nationally defined DSS Department Code designated for the patient "^DD",727.825,727.825,43,21,2,0) care. "^DD",727.825,727.825,43,23,0) ^^4^4^3120611^ "^DD",727.825,727.825,43,23,1,0) Obtained from either the AUDIOLOGY DSS UNIT LINK field (#727.8251) or "^DD",727.825,727.825,43,23,2,0) SPEECH PATHOLOGY DSS UNIT LINK field (#727.8252) of the A&SP SITE "^DD",727.825,727.825,43,23,3,0) PARAMTETERS file (#509850.8). The data comes from the UNIT NUMBER field "^DD",727.825,727.825,43,23,4,0) (#4) of the DSS UNIT file (#724). "^DD",727.825,727.825,43,"DT") 3120611 "^DD",727.825,727.825,47,0) PC PROVIDER PERSON CLASS^F^^1;6^K:$L(X)>7!($L(X)<7) X "^DD",727.825,727.825,47,3) Answer must be 7 characters in length. "^DD",727.825,727.825,47,21,0) ^.001^2^2^3120611^^ "^DD",727.825,727.825,47,21,1,0) The VA Code of the Person Class of the Primary Care Provider as of the "^DD",727.825,727.825,47,21,2,0) date of this extract record. "^DD",727.825,727.825,47,23,0) ^^4^4^3120611^ "^DD",727.825,727.825,47,23,1,0) Active Person Class is determined by the supported call "^DD",727.825,727.825,47,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.825,727.825,47,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.825,727.825,47,23,4,0) returned value string. "^DD",727.825,727.825,47,"DT") 2981103 "^DD",727.825,727.825,49,0) ASSOCIATE PC PROVIDER^F^^1;8^K:$L(X)>11!($L(X)<2) X "^DD",727.825,727.825,49,3) Answer must be 2-11 characters in length. "^DD",727.825,727.825,49,21,0) ^.001^1^1^3120611^^^ "^DD",727.825,727.825,49,21,1,0) The Associate Primary Care Provider assigned with the PCMM application. "^DD",727.825,727.825,49,23,0) ^^10^10^3120611^ "^DD",727.825,727.825,49,23,1,0) Derived by a call to the Scheduling API, OUTPTAP^SDUTL3. The API returns "^DD",727.825,727.825,49,23,2,0) the associate provider's internal entry number and name from the NEW "^DD",727.825,727.825,49,23,3,0) PERSON file (#200). The ASSOCIATE PC PROVIDER is the value of a "2" "^DD",727.825,727.825,49,23,4,0) prefixed to the pointer value to indicate that the source file is "200". "^DD",727.825,727.825,49,23,5,0) For example, if the IEN of the provider in file #200 is 98765, the value "^DD",727.825,727.825,49,23,6,0) that will be stored is 298765. "^DD",727.825,727.825,49,23,7,0) "^DD",727.825,727.825,49,23,8,0) The PATIENT NAME field (#1) and the DATE (#.01) fields of the A&SP CLINIC "^DD",727.825,727.825,49,23,9,0) VISIT file (#509850.6) are used to determine the patient's associate "^DD",727.825,727.825,49,23,10,0) provider at the time of the visit. "^DD",727.825,727.825,49,"DT") 2990506 "^DD",727.825,727.825,50,0) ASSOC. PC PROV. PERSON CLASS^F^^1;9^K:$L(X)>7!($L(X)<7) X "^DD",727.825,727.825,50,3) Answer must be 7 characters in length. "^DD",727.825,727.825,50,21,0) ^.001^2^2^3120611^^ "^DD",727.825,727.825,50,21,1,0) VA Code of the Person Class of the patient's Associate Primary Care "^DD",727.825,727.825,50,21,2,0) Provider. "^DD",727.825,727.825,50,23,0) ^^4^4^3120611^ "^DD",727.825,727.825,50,23,1,0) Active Person Class is determined by the supported call "^DD",727.825,727.825,50,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.825,727.825,50,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.825,727.825,50,23,4,0) returned value string. "^DD",727.825,727.825,50,"DT") 2990506 "^DD",727.825,727.825,52,0) DIVISION^P40.8'^DG(40.8,^1;11^Q "^DD",727.825,727.825,52,3) Enter the division associated with this encounter. "^DD",727.825,727.825,52,21,0) ^.001^1^1^3120612^^ "^DD",727.825,727.825,52,21,1,0) The division associated with the QUASAR record. "^DD",727.825,727.825,52,23,0) ^^3^3^3120612^ "^DD",727.825,727.825,52,23,1,0) The DIVISION field for this file is obtained from the DIVISION field (#60), of "^DD",727.825,727.825,52,23,2,0) the AS&P CLINIC VISIT file (#509850.6), which points to the MEDICAL CENTER "^DD",727.825,727.825,52,23,3,0) DIVISION file (#40.8). "^DD",727.825,727.825,52,"DT") 3120612 "^DD",727.825,727.825,53,0) MST STATUS^S^Y:Yes, Screened reports MST;N:No, Screened does not report MST;D:Screened Declines to answer;U:Unknown, not screened;^1;12^Q "^DD",727.825,727.825,53,3) Enter patient's MST status. "^DD",727.825,727.825,53,21,0) ^.001^2^2^3120614^^^^ "^DD",727.825,727.825,53,21,1,0) Indicates the Military Sexual Trauma (MST) status of a patient on the day "^DD",727.825,727.825,53,21,2,0) of the encounter. "^DD",727.825,727.825,53,23,0) ^.001^5^5^3120614^^ "^DD",727.825,727.825,53,23,1,0) The MST HISTORY file (#29.11) holds data regarding military sexual trauma "^DD",727.825,727.825,53,23,2,0) claims and effective dates. The patient's MST status is stored in the MST "^DD",727.825,727.825,53,23,3,0) STATUS field (#3). A call will be made to $$GETSTAT^DGMSTAPI(DFN,DGDATE) "^DD",727.825,727.825,53,23,4,0) using the DFN from the PATIENT NAME field (#1) and the DATE field (#.01) "^DD",727.825,727.825,53,23,5,0) of the A&SP CLINIC VISIT file (#509850.6). "^DD",727.825,727.825,53,"DT") 3120612 "^DD",727.825,727.825,54,0) DOM,PRRTP AND SAARTP INDICATOR^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR/;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CET/TR;^1;13^Q "^DD",727.825,727.825,54,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.825,727.825,54,21,0) ^.001^2^2^3120614^^^^ "^DD",727.825,727.825,54,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP, or SARRTP at "^DD",727.825,727.825,54,21,2,0) the time care is provided. "^DD",727.825,727.825,54,23,0) ^.001^5^5^3120614^^^^ "^DD",727.825,727.825,54,23,1,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.825,727.825,54,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.825,727.825,54,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.825,727.825,54,23,4,0) "^DD",727.825,727.825,54,23,5,0) Otherwise, the value is null. "^DD",727.825,727.825,54,"DT") 3120605 "^DD",727.825,727.825,55,0) DATE OF BIRTH^F^^1;14^K:$L(X)>8!($L(X)<8) X "^DD",727.825,727.825,55,3) Answer must be 8 characters in length. "^DD",727.825,727.825,55,21,0) ^.001^1^1^3120614^^^^ "^DD",727.825,727.825,55,21,1,0) Patient's date of birth. "^DD",727.825,727.825,55,23,0) ^.001^7^7^3120614^^ "^DD",727.825,727.825,55,23,1,0) Data source: "^DD",727.825,727.825,55,23,2,0) "^DD",727.825,727.825,55,23,3,0) A&SP CLINIC VISIT file (#509850.6); PATIENT NAME (#1) "^DD",727.825,727.825,55,23,4,0) then to PATIENT file (#2); DATE OF BIRTH field (#.03) "^DD",727.825,727.825,55,23,5,0) "^DD",727.825,727.825,55,23,6,0) Date of Birth is returned through the supported call DEM^VADPT. It is then "^DD",727.825,727.825,55,23,7,0) represented by an 8-character numeric string in the YYYYMMDD format. "^DD",727.825,727.825,55,"DT") 3120612 "^DD",727.825,727.825,56,0) ENROLLMENT CATEGORY^F^^1;15^K:$L(X)>1!($L(X)<1) X "^DD",727.825,727.825,56,3) Answer must be 1 character in length. "^DD",727.825,727.825,56,21,0) ^.001^1^1^3120614^^^^ "^DD",727.825,727.825,56,21,1,0) Patient's enrollment category. "^DD",727.825,727.825,56,23,0) ^.001^3^3^3120614^^ "^DD",727.825,727.825,56,23,1,0) ENROLLMENT CATEGORY is derived from the standard call $$CATEGORY^DGENA4 "^DD",727.825,727.825,56,23,2,0) using the patient's DFN and the CURRENT ENROLLMENT field (#27.01) of the "^DD",727.825,727.825,56,23,3,0) PATIENT file (#2). "^DD",727.825,727.825,56,"DT") 3000802 "^DD",727.825,727.825,57,0) ENROLLMENT STATUS^F^^1;16^K:$L(X)>2!($L(X)<1) X "^DD",727.825,727.825,57,3) Answer must be 1-2 characters in length. "^DD",727.825,727.825,57,21,0) ^.001^1^1^3120614^^^^ "^DD",727.825,727.825,57,21,1,0) Patient's enrollment status. "^DD",727.825,727.825,57,23,0) ^.001^7^7^3120614^^^ "^DD",727.825,727.825,57,23,1,0) ENROLLMENT STATUS is derived from the standard call $$STATUS^DGENA using "^DD",727.825,727.825,57,23,2,0) the patient's DFN and returns the ENROLLMENT STATUS field (#.04) of the "^DD",727.825,727.825,57,23,3,0) PATIENT ENROLLMENT file (#27.11). "^DD",727.825,727.825,57,23,4,0) "^DD",727.825,727.825,57,23,5,0) This field should be a pointer to the ENROLLMENT STATUS file (#27.15) "^DD",727.825,727.825,57,23,6,0) but due to FileMan limitations for data on this node, the field is being "^DD",727.825,727.825,57,23,7,0) left as a free text field. "^DD",727.825,727.825,57,"DT") 3020808 "^DD",727.825,727.825,61,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^1;20^Q "^DD",727.825,727.825,61,3) Enter observation patient status for this record. "^DD",727.825,727.825,61,21,0) ^.001^1^1^3120614^^^^ "^DD",727.825,727.825,61,21,1,0) Indicates if patient is considered to be an observation patient. "^DD",727.825,727.825,61,23,0) ^.001^12^12^3120614^^ "^DD",727.825,727.825,61,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.825,727.825,61,23,2,0) "^DD",727.825,727.825,61,23,3,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.825,727.825,61,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.825,727.825,61,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.825,727.825,61,23,6,0) file. "^DD",727.825,727.825,61,23,7,0) "^DD",727.825,727.825,61,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.825,727.825,61,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.825,727.825,61,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.825,727.825,61,23,11,0) "^DD",727.825,727.825,61,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.825,727.825,61,"DT") 3120606 "^DD",727.825,727.825,62,0) ENCOUNTER NUMBER^F^^1;21^K:$L(X)>18!($L(X)<1) X "^DD",727.825,727.825,62,3) Answer must be 1-18 characters in length. "^DD",727.825,727.825,62,21,0) ^.001^1^1^3120614^^^ "^DD",727.825,727.825,62,21,1,0) The unique number assigned for DSS. "^DD",727.825,727.825,62,23,0) ^.001^4^4^3120614^^ "^DD",727.825,727.825,62,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.825,727.825,62,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.825,727.825,62,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.825,727.825,62,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.825,727.825,62,"DT") 3010504 "^DD",727.825,727.825,63,0) AGENT ORANGE LOCATION^S^K:KOREAN DMZ;V:VIETNAM;O:OTHER;^1;22^Q "^DD",727.825,727.825,63,3) Enter where the patient was exposed to agent orange. "^DD",727.825,727.825,63,21,0) ^.001^1^1^3120614^^^^ "^DD",727.825,727.825,63,21,1,0) Indicates the location where the patient was exposed to Agent Orange. "^DD",727.825,727.825,63,23,0) ^.001^3^3^3120614^^ "^DD",727.825,727.825,63,23,1,0) The location is returned by a call to SVC^VADPT which gets its data from "^DD",727.825,727.825,63,23,2,0) the AGENT ORANGE EXPOSURE LOCATION field (#.3213) of the PATIENT file "^DD",727.825,727.825,63,23,3,0) (#2). "^DD",727.825,727.825,63,"DT") 3120612 "^DD",727.825,727.825,68,0) CNH/SH STATUS^S^YES:YES;NO:NO;^1;27^Q "^DD",727.825,727.825,68,3) Enter the CNH/SH status for this patient. "^DD",727.825,727.825,68,21,0) ^.001^2^2^3120612^^^ "^DD",727.825,727.825,68,21,1,0) This field is used to indicate whether a patient is currently in "^DD",727.825,727.825,68,21,2,0) a contract nursing home/state home. "^DD",727.825,727.825,68,23,0) ^^2^2^3120612^ "^DD",727.825,727.825,68,23,1,0) Using the CNHSTAT^ECXUTL4(DFN) call, the CNH status is returned based on "^DD",727.825,727.825,68,23,2,0) the CNH CURRENT field (#148) of the PATIENT file (#2). "^DD",727.825,727.825,68,"DT") 3120612 "^DD",727.825,727.825,69,0) PRODUCTION DIVISION CODE^F^^1;28^K:$L(X)>7!($L(X)<3) X "^DD",727.825,727.825,69,3) Answer must be 3-7 characters in length. "^DD",727.825,727.825,69,21,0) ^.001^1^1^3120612^^ "^DD",727.825,727.825,69,21,1,0) Identifies the division/facility where the work was performed. "^DD",727.825,727.825,69,23,0) ^.001^4^4^3120612^^^^ "^DD",727.825,727.825,69,23,1,0) Data comes from the DIVISION field (#60) of the A&SP CLINIC VISIT file "^DD",727.825,727.825,69,23,2,0) (#509850.6), which is a pointer to the MEDICAL CENTER DIVISION file "^DD",727.825,727.825,69,23,3,0) (#40.8). This value is then used to call the api GETDIV^ECXDEPT to "^DD",727.825,727.825,69,23,4,0) get the STATION NUMBER field (#99) from the INSTITUTION file (#4). "^DD",727.825,727.825,69,"DT") 3120612 "^DD",727.825,727.825,71,0) HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^1;30^Q "^DD",727.825,727.825,71,.1) Head and Neck Cancer Indicator "^DD",727.825,727.825,71,3) Enter the Head & Neck Cancer Indicator for the patient. "^DD",727.825,727.825,71,21,0) ^.001^1^1^3120614^^^ "^DD",727.825,727.825,71,21,1,0) Identifies whether patient has head and/or neck cancer. "^DD",727.825,727.825,71,23,0) ^.001^3^3^3120614^^ "^DD",727.825,727.825,71,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.825,727.825,71,23,2,0) (#4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "^DD",727.825,727.825,71,23,3,0) CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11). "^DD",727.825,727.825,71,"DT") 3020828 "^DD",727.825,727.825,73,0) RACE 1^F^^1;32^K:$L(X)>6!($L(X)<1) X "^DD",727.825,727.825,73,.1) Race 1 "^DD",727.825,727.825,73,3) Answer must be 1-6 characters in length. "^DD",727.825,727.825,73,21,0) ^.001^1^1^3120614^^^ "^DD",727.825,727.825,73,21,1,0) Self-reported by patient as recorded in VistA patient file. "^DD",727.825,727.825,73,23,0) ^.001^11^11^3120614^^ "^DD",727.825,727.825,73,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.825,727.825,73,23,2,0) (#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file "^DD",727.825,727.825,73,23,3,0) (#10) pointed to by the RACE INFORMATION field (#.01) of the "^DD",727.825,727.825,73,23,4,0) RACE INFORMATION subfile (#2.02) of the PATIENT file (#2). "^DD",727.825,727.825,73,23,5,0) "^DD",727.825,727.825,73,23,6,0) Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03) "^DD",727.825,727.825,73,23,7,0) where the METHOD OF COLLECTION field (#.02) set to 1 "^DD",727.825,727.825,73,23,8,0) (SELF-IDENTIFICATION), will be include in the RACE 1 field. Up to 6 race "^DD",727.825,727.825,73,23,9,0) entries can be included. If any of the RACE INFORMATION values returned is "^DD",727.825,727.825,73,23,10,0) "C" (DECLINED TO ANSWER), that will be the only value included in the "^DD",727.825,727.825,73,23,11,0) RACE1 field. "^DD",727.825,727.825,73,"DT") 3020828 "^DD",727.825,727.825,76,0) ENROLLMENT PRIORITY^F^^1;35^K:$L(X)>2!($L(X)<1) X "^DD",727.825,727.825,76,3) Answer must be 1-2 characters in length. "^DD",727.825,727.825,76,21,0) ^.001^2^2^3120614^^^ "^DD",727.825,727.825,76,21,1,0) This field contains the enrollment priority group and the enrollment "^DD",727.825,727.825,76,21,2,0) priority subgroup. "^DD",727.825,727.825,76,23,0) ^.001^20^20^3120614^^ "^DD",727.825,727.825,76,23,1,0) ENROLLMENT PRIORITY field contains the enrollment priority group and the "^DD",727.825,727.825,76,23,2,0) enrollment priority subgroup from the Patient Enrollment File (#27.11). "^DD",727.825,727.825,76,23,3,0) "^DD",727.825,727.825,76,23,4,0) ENROLLMENT PRIORITY Groups determined for a patient enrollment include: "^DD",727.825,727.825,76,23,5,0) "^DD",727.825,727.825,76,23,6,0) '1' FOR GROUP 1 "^DD",727.825,727.825,76,23,7,0) '2' FOR GROUP 2 "^DD",727.825,727.825,76,23,8,0) '3' FOR GROUP 3 "^DD",727.825,727.825,76,23,9,0) '4' FOR GROUP 4 "^DD",727.825,727.825,76,23,10,0) '5' FOR GROUP 5 "^DD",727.825,727.825,76,23,11,0) '6' FOR GROUP 6 "^DD",727.825,727.825,76,23,12,0) '7' FOR GROUP 7 "^DD",727.825,727.825,76,23,13,0) '8' FOR GROUP 8 "^DD",727.825,727.825,76,23,14,0) "^DD",727.825,727.825,76,23,15,0) ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include: "^DD",727.825,727.825,76,23,16,0) "^DD",727.825,727.825,76,23,17,0) 'a' FOR 1 "^DD",727.825,727.825,76,23,18,0) 'c' FOR 3 "^DD",727.825,727.825,76,23,19,0) 'e' FOR 5 "^DD",727.825,727.825,76,23,20,0) 'g' FOR 7 "^DD",727.825,727.825,76,"DT") 3040226 "^DD",727.825,727.825,77,0) USER ENROLLEE^S^U:USER ENROLLED;^1;36^Q "^DD",727.825,727.825,77,3) Enter patient's current enrollment status. "^DD",727.825,727.825,77,21,0) ^.001^2^2^3120614^^^^ "^DD",727.825,727.825,77,21,1,0) Indicates whether a Veteran has User Enrollee status for the current or "^DD",727.825,727.825,77,21,2,0) future fiscal year. "^DD",727.825,727.825,77,23,0) ^.001^5^5^3120614^^^ "^DD",727.825,727.825,77,23,1,0) User enrollee is determined by checking the Patient Enrollment (#27.11) "^DD",727.825,727.825,77,23,2,0) file. When a user has a current or future fiscal year in the VistA User "^DD",727.825,727.825,77,23,3,0) Enrollee Status (#.04) field the value is set to 'U' and Null if no date "^DD",727.825,727.825,77,23,4,0) or a past year's value is contained. Determined by the use of an API: "^DD",727.825,727.825,77,23,5,0) $$UESTAT^EASUSER where the Patient Identifier (DFN) is passed in. "^DD",727.825,727.825,77,"DT") 3120613 "^DD",727.825,727.825,78,0) PATIENT TYPE^S^AC:ACTIVE DUTY;AL:ALLIED VETERAN;CO:COLLATERAL;EM:EMPLOYEE;IN:INELIGIBLE;MI:MILITARY RETIREE;NO:NON-VETERAN (OTHER);NS:NSC VETERAN;SC:SC VETERAN;TR:TRICARE;^1;37^Q "^DD",727.825,727.825,78,3) Enter type of patient. "^DD",727.825,727.825,78,21,0) ^.001^2^2^3120614^^^ "^DD",727.825,727.825,78,21,1,0) Refers to the various types of patients which may be seen at a VA "^DD",727.825,727.825,78,21,2,0) facility. Every patient in the system must have a TYPE specified. "^DD",727.825,727.825,78,23,0) ^.001^5^5^3120614^^ "^DD",727.825,727.825,78,23,1,0) PATIENT TYPE is derived from a call to TYPE^ECXUTL5(DFN). Using the "^DD",727.825,727.825,78,23,2,0) patient's DFN, the NAME field (#.01) of the TYPE OF PATIENT file (#391) as "^DD",727.825,727.825,78,23,3,0) pointed to by the TYPE field (#391) of the PATIENT file (#2) is shortened "^DD",727.825,727.825,78,23,4,0) to the first two characters to determine the value stored in the PATIENT "^DD",727.825,727.825,78,23,5,0) TYPE field (#78). "^DD",727.825,727.825,78,"DT") 3040226 "^DD",727.825,727.825,79,0) CV STATUS ELIGIBILITY^S^Y:YES;E:ELIGIBILITY EXPIRED;^1;38^Q "^DD",727.825,727.825,79,3) Enter patient's combat veteran eligibility. "^DD",727.825,727.825,79,21,0) ^.001^4^4^3120614^^^^ "^DD",727.825,727.825,79,21,1,0) Records if Veteran service on active duty in a theater of combat "^DD",727.825,727.825,79,21,2,0) operations during a period of war after the Persian Gulf War or in combat "^DD",727.825,727.825,79,21,3,0) against a hostile force during a period of hostilities after November 11, "^DD",727.825,727.825,79,21,4,0) 1998. "^DD",727.825,727.825,79,23,0) ^.001^11^11^3120614^^ "^DD",727.825,727.825,79,23,1,0) CV STATUS ELIGIBILITY is determined by the use of API "^DD",727.825,727.825,79,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.825,727.825,79,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.825,727.825,79,23,4,0) pieces (i.e. 1^20010106^0) and the first piece is resolved as follows. "^DD",727.825,727.825,79,23,5,0) "^DD",727.825,727.825,79,23,6,0) 1 - veteran qualifies as a CV "^DD",727.825,727.825,79,23,7,0) 0 - veteran does not qualify as a CV "^DD",727.825,727.825,79,23,8,0) -1 - bad DFN "^DD",727.825,727.825,79,23,9,0) "^DD",727.825,727.825,79,23,10,0) Based on this result the field will be set to 'Y' for 'YES' or 'E' for "^DD",727.825,727.825,79,23,11,0) 'ELIGIBILITY EXPIRED' or 'NULL' for not eligible. "^DD",727.825,727.825,79,"DT") 3120613 "^DD",727.825,727.825,80,0) CV ELIGIBILITY END DATE^F^^2;1^K:$L(X)>8!($L(X)<1) X "^DD",727.825,727.825,80,3) Answer must be 1-8 characters in length. "^DD",727.825,727.825,80,21,0) ^.001^4^4^3120613^^ "^DD",727.825,727.825,80,21,1,0) Records the Combat Veteran eligibility expiration date of Veteran who "^DD",727.825,727.825,80,21,2,0) served on active duty in a theater of combat operations during a period "^DD",727.825,727.825,80,21,3,0) of war after the Persian Gulf War or in combat against a hostile force "^DD",727.825,727.825,80,21,4,0) during a period of hostilities after November 11, 1998. "^DD",727.825,727.825,80,23,0) ^^5^5^3120613^ "^DD",727.825,727.825,80,23,1,0) CV ELIGIBILITY END DATE is determined by the use of API "^DD",727.825,727.825,80,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.825,727.825,80,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.825,727.825,80,23,4,0) pieces (i.e. 1^20010106^0) the 2nd piece is the COMBAT VET END DATE in HL7 "^DD",727.825,727.825,80,23,5,0) format. "^DD",727.825,727.825,80,"DT") 3040226 "^DD",727.825,727.825,81,0) ENCOUNTER CV^S^Y:YES;^2;2^Q "^DD",727.825,727.825,81,3) Enter patient's combat veteran eligibility. "^DD",727.825,727.825,81,21,0) ^.001^4^4^3120613^^^ "^DD",727.825,727.825,81,21,1,0) Records if a Veteran served on active duty in a theater of combat "^DD",727.825,727.825,81,21,2,0) operations during a period of war after the Persian Gulf War or in combat "^DD",727.825,727.825,81,21,3,0) against a hostile force during a period of hostilities after November 11, "^DD",727.825,727.825,81,21,4,0) 1998. "^DD",727.825,727.825,81,23,0) ^.001^10^10^3120613^^ "^DD",727.825,727.825,81,23,1,0) ENCOUNTER CV is determined by the use of API $$CVEDT^DGCV(DFN,DATE) that "^DD",727.825,727.825,81,23,2,0) checks the COMBAT VET END DATE field (#.5295) from the PATIENT file (#2) "^DD",727.825,727.825,81,23,3,0) to determine CV Status. API returns three pieces (i.e. 1^20100106^0). The "^DD",727.825,727.825,81,23,4,0) third piece returns: "^DD",727.825,727.825,81,23,5,0) "^DD",727.825,727.825,81,23,6,0) 1 - vet was eligible on date specified "^DD",727.825,727.825,81,23,7,0) 0 - vet was not eligible on date specified "^DD",727.825,727.825,81,23,8,0) "^DD",727.825,727.825,81,23,9,0) Based on these returns, the value for this field shall be Y for Yes if "^DD",727.825,727.825,81,23,10,0) value is 1 or left blank if 0 to indicate ineligibility. "^DD",727.825,727.825,81,"DT") 3120613 "^DD",727.825,727.825,82,0) NATIONAL PATIENT RECORD FLAG^S^Y:YES;^2;3^Q "^DD",727.825,727.825,82,3) Indicate if patient is associated with a category 1 patient record flag. "^DD",727.825,727.825,82,21,0) ^.001^2^2^3120614^^^^ "^DD",727.825,727.825,82,21,1,0) This field records that the patient's record contains 1 or more Category "^DD",727.825,727.825,82,21,2,0) 1 (National) Patient Record Flags. "^DD",727.825,727.825,82,23,0) ^.001^7^7^3120614^^^ "^DD",727.825,727.825,82,23,1,0) The NATIONAL PATIENT RECORD FLAG field is set based on the results of the "^DD",727.825,727.825,82,23,2,0) $$GETACT^DGPFAPI(DFN,TARGET ARRAY) call. This call looks at the category "^DD",727.825,727.825,82,23,3,0) 1 national patient record flags as recorded in the PRF NATIONAL FLAG file "^DD",727.825,727.825,82,23,4,0) (#26.15). The resulting value of this call is the number of active "^DD",727.825,727.825,82,23,5,0) category I patient record flags assigned to this patient. This field is "^DD",727.825,727.825,82,23,6,0) set to Y (YES) if the result is greater than zero. A value of zero causes "^DD",727.825,727.825,82,23,7,0) this field to be left null. "^DD",727.825,727.825,82,"DT") 3120613 "^DD",727.825,727.825,84,0) AGENT ORANGE ENC INDICATOR^S^Y:YES;N:NO;^2;5^Q "^DD",727.825,727.825,84,3) Enter patient's agent orange exposure indicator. "^DD",727.825,727.825,84,21,0) ^.001^2^2^3120614^^^ "^DD",727.825,727.825,84,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.825,727.825,84,21,2,0) related to exposure to Agent Orange. "^DD",727.825,727.825,84,23,0) ^.001^6^6^3120614^^^^ "^DD",727.825,727.825,84,23,1,0) Using the PCE VISIT IEN field (#125) in the A&SP CLINIC VISIT file "^DD",727.825,727.825,84,23,2,0) (#509850.6) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.825,727.825,84,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the agent orange indicator "^DD",727.825,727.825,84,23,4,0) stored at the AGENT ORANGE EXPOSURE field (#80002) in the VISIT file "^DD",727.825,727.825,84,23,5,0) (#9000010). The value will be stored in the output array subscripted by "^DD",727.825,727.825,84,23,6,0) "AO". "^DD",727.825,727.825,84,"DT") 3120613 "^DD",727.825,727.825,85,0) ENCOUNTER SWAC^S^Y:YES;N:NO;^2;6^Q "^DD",727.825,727.825,85,3) Indicate if care is related to Southwest Asia Conditions status. "^DD",727.825,727.825,85,21,0) ^.001^3^3^3120613^^ "^DD",727.825,727.825,85,21,1,0) This field indicates whether treatment provided during this patient "^DD",727.825,727.825,85,21,2,0) encounter is related to exposure to Southwest Asia conditions while "^DD",727.825,727.825,85,21,3,0) serving in the Southwest Asia Theater of operations. "^DD",727.825,727.825,85,23,0) ^.001^6^6^3120613^^^ "^DD",727.825,727.825,85,23,1,0) Using the PCE VISIT IEN field (#125) in the A&SP CLINIC VISIT file "^DD",727.825,727.825,85,23,2,0) (#509850.6) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.825,727.825,85,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the Southwest Asia conditions "^DD",727.825,727.825,85,23,4,0) indicator stored at the SW ASIA CONDITIONS field (#80004) in the VISIT "^DD",727.825,727.825,85,23,5,0) file (#9000010). The value will be stored in the output array "^DD",727.825,727.825,85,23,6,0) subscripted by "PGE". "^DD",727.825,727.825,85,"DT") 3120613 "^DD",727.825,727.825,86,0) ENC HEAD/NECK CA^S^Y:YES;N:NO;^2;7^Q "^DD",727.825,727.825,86,3) Indicate if service provided is related to head and/or neck cancer. "^DD",727.825,727.825,86,21,0) ^.001^2^2^3120613^^ "^DD",727.825,727.825,86,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.825,727.825,86,21,2,0) related to head and/or neck cancer. "^DD",727.825,727.825,86,23,0) ^.001^6^6^3120613^^^ "^DD",727.825,727.825,86,23,1,0) Using the PCE VISIT IEN field (#125) in the A&SP CLINIC VISIT file "^DD",727.825,727.825,86,23,2,0) (#509850.6) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.825,727.825,86,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the head/neck cancer data "^DD",727.825,727.825,86,23,4,0) stored at the HEAD AND/OR NECK CANCER field (#80006) in the VISIT file "^DD",727.825,727.825,86,23,5,0) (#9000010). The value will be stored in the output array subscripted by "^DD",727.825,727.825,86,23,6,0) "HNC". "^DD",727.825,727.825,86,"DT") 3120613 "^DD",727.825,727.825,87,0) ENCOUNTER MST^S^Y:YES;N:NO;^2;8^Q "^DD",727.825,727.825,87,3) Indicate if treatment is related to military sexual trauma. "^DD",727.825,727.825,87,21,0) ^.001^2^2^3120613^^ "^DD",727.825,727.825,87,21,1,0) Indicates the appropriate response for military sexual trauma as related "^DD",727.825,727.825,87,21,2,0) to this patient's episode of care. "^DD",727.825,727.825,87,23,0) ^.001^6^6^3120613^^^ "^DD",727.825,727.825,87,23,1,0) Using the PCE VISIT IEN field (#125) in the A&SP CLINIC VISIT file "^DD",727.825,727.825,87,23,2,0) (#509850.6) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.825,727.825,87,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the military sexual trauma "^DD",727.825,727.825,87,23,4,0) stored at the MILITARY SEXUAL TRAUMA field (#80005) in the VISIT file "^DD",727.825,727.825,87,23,5,0) (#9000010). The value will be stored in the output array subscripted by "^DD",727.825,727.825,87,23,6,0) "MST". "^DD",727.825,727.825,87,"DT") 3120613 "^DD",727.825,727.825,88,0) RADIATION ENCOUNTER INDICATOR^S^Y:YES;N:NO;^2;9^Q "^DD",727.825,727.825,88,3) Indicate if treatment is related to exposure to ionizing radiation. "^DD",727.825,727.825,88,21,0) ^.001^2^2^3120613^^ "^DD",727.825,727.825,88,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.825,727.825,88,21,2,0) related to exposure to ionizing radiation. "^DD",727.825,727.825,88,23,0) ^.001^6^6^3120613^^^^ "^DD",727.825,727.825,88,23,1,0) Using the PCE VISIT IEN field (#125) in the A&SP CLINIC VISIT file "^DD",727.825,727.825,88,23,2,0) (#509850.6) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.825,727.825,88,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the ionizing radiation "^DD",727.825,727.825,88,23,4,0) exposure indicator stored at the IONIZING RADIATION EXPOSURE field "^DD",727.825,727.825,88,23,5,0) (#80003) in the VISIT file (#9000010). The value will be stored in the "^DD",727.825,727.825,88,23,6,0) output array subscripted by "IR". "^DD",727.825,727.825,88,"DT") 3120613 "^DD",727.825,727.825,89,0) NUTRITION DIAGNOSIS^F^^2;10^K:$L(X)>8!($L(X)<8) X "^DD",727.825,727.825,89,3) Answer must be 8 characters in length. "^DD",727.825,727.825,89,23,0) ^.001^1^1^3120613^^ "^DD",727.825,727.825,89,23,1,0) Currently NULL. "^DD",727.825,727.825,89,"DT") 3060619 "^DD",727.825,727.825,97,0) SHAD STATUS^S^Y:YES;N:NO;U:UNKNOWN;^2;18^Q "^DD",727.825,727.825,97,3) Enter SHAD Status. "^DD",727.825,727.825,97,21,0) ^.001^2^2^3120613^^^ "^DD",727.825,727.825,97,21,1,0) Indicates whether patient meets requirements for Shipboard Hazard and "^DD",727.825,727.825,97,21,2,0) Defense (SHAD). "^DD",727.825,727.825,97,23,0) ^.001^3^3^3120613^^ "^DD",727.825,727.825,97,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.825,727.825,97,23,2,0) in the QUASAR EXTRACT file (#727.825), Shipboard Hazard and Defense data "^DD",727.825,727.825,97,23,3,0) is derived from using DBIA #4462 GETSHAD^DGUTL3(DFN). "^DD",727.825,727.825,97,"DT") 3100216 "^DD",727.825,727.825,106,0) PRIMARY ICD-10 CODE^F^^2;27^K:$L(X)>8!($L(X)<1) X "^DD",727.825,727.825,106,3) Answer must be 1-8 characters in length. "^DD",727.825,727.825,106,21,0) ^.001^1^1^3120613^^^^ "^DD",727.825,727.825,106,21,1,0) This is the Primary ICD10 diagnosis code for this clinic visit. "^DD",727.825,727.825,106,23,0) ^^6^6^3120613^ "^DD",727.825,727.825,106,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.825,727.825,106,23,2,0) and stored in this field. "^DD",727.825,727.825,106,23,3,0) "^DD",727.825,727.825,106,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.825,727.825,106,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.825,727.825,106,23,6,0) information. "^DD",727.825,727.825,106,"DT") 3120304 "^DD",727.825,727.825,107,0) SECONDARY ICD-10 CODE #1^F^^2;28^K:$L(X)>8!($L(X)<1) X "^DD",727.825,727.825,107,3) Answer must be 1-8 characters in length. "^DD",727.825,727.825,107,21,0) ^.001^1^1^3120613^^^^ "^DD",727.825,727.825,107,21,1,0) This is the first secondary ICD10 code for this clinic visit. "^DD",727.825,727.825,107,23,0) ^^6^6^3120613^ "^DD",727.825,727.825,107,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.825,727.825,107,23,2,0) and stored in this field. "^DD",727.825,727.825,107,23,3,0) "^DD",727.825,727.825,107,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.825,727.825,107,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.825,727.825,107,23,6,0) information. "^DD",727.825,727.825,107,"DT") 3120304 "^DD",727.825,727.825,108,0) SECONDARY ICD-10 CODE #2^F^^2;29^K:$L(X)>8!($L(X)<1) X "^DD",727.825,727.825,108,3) Answer must be 1-8 characters in length. "^DD",727.825,727.825,108,21,0) ^.001^1^1^3120613^^^^ "^DD",727.825,727.825,108,21,1,0) This is the second secondary IDC10 code for this clinic visit. "^DD",727.825,727.825,108,23,0) ^^6^6^3120613^ "^DD",727.825,727.825,108,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.825,727.825,108,23,2,0) and stored in this field. "^DD",727.825,727.825,108,23,3,0) "^DD",727.825,727.825,108,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.825,727.825,108,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.825,727.825,108,23,6,0) information. "^DD",727.825,727.825,108,"DT") 3120304 "^DD",727.825,727.825,109,0) SECONDARY ICD-10 CODE #3^F^^2;30^K:$L(X)>8!($L(X)<1) X "^DD",727.825,727.825,109,3) Answer must be 1-8 characters in length. "^DD",727.825,727.825,109,21,0) ^.001^1^1^3120613^^^^ "^DD",727.825,727.825,109,21,1,0) This is the third secondary ICD10 code for this clinic visit. "^DD",727.825,727.825,109,23,0) ^^6^6^3120613^ "^DD",727.825,727.825,109,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.825,727.825,109,23,2,0) and stored in this field. "^DD",727.825,727.825,109,23,3,0) "^DD",727.825,727.825,109,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.825,727.825,109,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.825,727.825,109,23,6,0) information. "^DD",727.825,727.825,109,"DT") 3120304 "^DD",727.825,727.825,110,0) SECONDARY ICD-10 CODE #4^F^^3;1^K:$L(X)>8!($L(X)<1) X "^DD",727.825,727.825,110,3) Answer must be 1-8 characters in length. "^DD",727.825,727.825,110,21,0) ^.001^1^1^3120613^^^^ "^DD",727.825,727.825,110,21,1,0) This is the fourth secondary ICD10 code for this clinic visit. "^DD",727.825,727.825,110,23,0) ^^6^6^3120613^ "^DD",727.825,727.825,110,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.825,727.825,110,23,2,0) and stored in this field. "^DD",727.825,727.825,110,23,3,0) "^DD",727.825,727.825,110,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.825,727.825,110,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.825,727.825,110,23,6,0) information. "^DD",727.825,727.825,110,"DT") 3120304 "^DD",727.826,727.826,.01,0) SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X "^DD",727.826,727.826,.01,.1) Sequence Number "^DD",727.826,727.826,.01,1,0) ^.1^^0 "^DD",727.826,727.826,.01,3) Enter a Number between 1 and 999999999, 0 Decimal Digits. "^DD",727.826,727.826,.01,10) Software generated for each individual record in the extract. "^DD",727.826,727.826,.01,21,0) ^.001^1^1^3120613^^ "^DD",727.826,727.826,.01,21,1,0) The Record Number for this extract entry. "^DD",727.826,727.826,.01,23,0) ^.001^1^1^3120613^^^^ "^DD",727.826,727.826,.01,23,1,0) The Internal Entry Number (IEN) for this record. The entry is DINUMed. "^DD",727.826,727.826,.01,"DT") 2981215 "^DD",727.826,727.826,1,0) YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X "^DD",727.826,727.826,1,.1) Year Month "^DD",727.826,727.826,1,2) S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y) "^DD",727.826,727.826,1,2.1) S Y=$$ECXYMX^ECXUTL(Y) "^DD",727.826,727.826,1,3) Answer must be six characters in length. "^DD",727.826,727.826,1,10) Software generated for all records in the extracted year and month. "^DD",727.826,727.826,1,21,0) ^.001^2^2^3120613^^ "^DD",727.826,727.826,1,21,1,0) A 6-character string representing the year and month for which this "^DD",727.826,727.826,1,21,2,0) extract was performed. "^DD",727.826,727.826,1,23,0) ^.001^1^1^3120613^^^ "^DD",727.826,727.826,1,23,1,0) Format is YYYYMM. "^DD",727.826,727.826,1,"DT") 2980714 "^DD",727.826,727.826,2,0) EXTRACT NUMBER^P727'^ECX(727,^0;3^Q "^DD",727.826,727.826,2,.1) Extract Number "^DD",727.826,727.826,2,1,0) ^.1 "^DD",727.826,727.826,2,1,1,0) 727.826^AC "^DD",727.826,727.826,2,1,1,1) S ^ECX(727.826,"AC",$E(X,1,30),DA)="" "^DD",727.826,727.826,2,1,1,2) K ^ECX(727.826,"AC",$E(X,1,30),DA) "^DD",727.826,727.826,2,1,1,3) DO NOT DELETE! "^DD",727.826,727.826,2,1,1,"%D",0) ^^2^2^2980722^ "^DD",727.826,727.826,2,1,1,"%D",1,0) This cross reference is essential for purging and managing data in this "^DD",727.826,727.826,2,1,1,"%D",2,0) file. "^DD",727.826,727.826,2,1,1,"DT") 2980722 "^DD",727.826,727.826,2,3) Enter the extract number for this extract. "^DD",727.826,727.826,2,10) Software generated from the associated entry in the Extract Log file. "^DD",727.826,727.826,2,21,0) ^^2^2^3120620^ "^DD",727.826,727.826,2,21,1,0) The corresponding entry in the DSS EXTRACT LOG file (#727) for this "^DD",727.826,727.826,2,21,2,0) extract. "^DD",727.826,727.826,2,23,0) ^.001^2^2^3120620^^^^ "^DD",727.826,727.826,2,23,1,0) A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to "^DD",727.826,727.826,2,23,2,0) pick up the header for the mail message. "^DD",727.826,727.826,2,"DT") 2980722 "^DD",727.826,727.826,3,0) FACILITY^RF^^0;4^K:$L(X)>5!($L(X)<3) X "^DD",727.826,727.826,3,.1) Facility "^DD",727.826,727.826,3,3) Answer must be 3-7 characters in length. "^DD",727.826,727.826,3,10) "^DD",727.826,727.826,3,21,0) ^.001^1^1^3120613^^^^ "^DD",727.826,727.826,3,21,1,0) This is the facility/division where the extract was performed. "^DD",727.826,727.826,3,23,0) ^^7^7^3120613^ "^DD",727.826,727.826,3,23,1,0) Using the NAME field (#.01) from the DSS EXTRACTS file (#728), which "^DD",727.826,727.826,3,23,2,0) points to the INSTITUTION file (#4), the FACILITY field is derived from "^DD",727.826,727.826,3,23,3,0) the STATION NUMBER field (#99) of the INSTITUTION file (#4). "^DD",727.826,727.826,3,23,4,0) "^DD",727.826,727.826,3,23,5,0) This field should be 3 to 7 characters but due to FileMan limitations for "^DD",727.826,727.826,3,23,6,0) data on this node, the field will remain as a free text field of 3 to 5 "^DD",727.826,727.826,3,23,7,0) characters. "^DD",727.826,727.826,3,"DT") 3120613 "^DD",727.826,727.826,4,0) PATIENT NO. DFN^RP2'^DPT(^0;5^Q "^DD",727.826,727.826,4,.1) Patient No. DFN "^DD",727.826,727.826,4,3) Select the patient for this extract record. "^DD",727.826,727.826,4,10) PATIENT NAME (#.02) of the RECORD OF PROS APPLIANCE/REPAIR file (#660). "^DD",727.826,727.826,4,21,0) ^.001^1^1^3120619^^ "^DD",727.826,727.826,4,21,1,0) This is the patient to whom this extract record pertains. "^DD",727.826,727.826,4,23,0) ^^4^4^3120619^ "^DD",727.826,727.826,4,23,1,0) PATIENT NAME field (#.02) of the RECORD OF PROS APPLIANCE/REPAIR file "^DD",727.826,727.826,4,23,2,0) (#660). This in turns points to the PROSTHETICS PATIENT file (#665). "^DD",727.826,727.826,4,23,3,0) The NAME field (#.01) of that file is stored here. It is the IEN of the "^DD",727.826,727.826,4,23,4,0) patient in the PATIENT file (#2). "^DD",727.826,727.826,4,"DT") 2980714 "^DD",727.826,727.826,5,0) SSN^RFX^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X "^DD",727.826,727.826,5,.1) Social Security Number "^DD",727.826,727.826,5,3) Enter the Patient's Social Security Number. "^DD",727.826,727.826,5,10) Derived from the patient in the RECORD OF PROS APPLIANCE/REPAIR file (#660). "^DD",727.826,727.826,5,21,0) ^.001^1^1^3120613^^^ "^DD",727.826,727.826,5,21,1,0) The patient's Social Security Number. "^DD",727.826,727.826,5,23,0) ^^7^7^3120613^ "^DD",727.826,727.826,5,23,1,0) SSN is derived from the PATIENT NAME field (#.02) of the RECORD OF PROS "^DD",727.826,727.826,5,23,2,0) APPLIANCE/REPAIR file (#660). This in turn points to the NAME field "^DD",727.826,727.826,5,23,3,0) (#.01) of the PROSTHETICS PATIENT file (#665). This then points to the "^DD",727.826,727.826,5,23,4,0) PATIENT file (#2). The SSN field (#.09) is used to populate this field. "^DD",727.826,727.826,5,23,5,0) "^DD",727.826,727.826,5,23,6,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with "^DD",727.826,727.826,5,23,7,0) an SSN beginning with "00000" will not be included in the extract. "^DD",727.826,727.826,5,"DT") 2980714 "^DD",727.826,727.826,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.826,727.826,6,.1) Name "^DD",727.826,727.826,6,3) Enter the first four characters of the patient's last name. "^DD",727.826,727.826,6,10) "^DD",727.826,727.826,6,21,0) ^.001^1^1^3120613^^^^ "^DD",727.826,727.826,6,21,1,0) The first four characters of the patient's last name. "^DD",727.826,727.826,6,23,0) ^.001^6^6^3120613^^^^ "^DD",727.826,727.826,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.826,727.826,6,23,2,0) in the PROSTHETICS EXTRACT file (#727.826), NAME data is derived from the "^DD",727.826,727.826,6,23,3,0) NAME field (#.01) in the PATIENT file (#2). The first four characters of "^DD",727.826,727.826,6,23,4,0) the first "," piece are used, padded with trailing spaces if necessary. "^DD",727.826,727.826,6,23,5,0) "^DD",727.826,727.826,6,23,6,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.826,727.826,6,"DT") 3120608 "^DD",727.826,727.826,7,0) IN OUTPATIENT INDICATOR^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q "^DD",727.826,727.826,7,.1) IN Outpatient Indicator "^DD",727.826,727.826,7,3) Enter the patient's status for this extract entry. "^DD",727.826,727.826,7,10) "^DD",727.826,727.826,7,21,0) ^^2^2^3120608^ "^DD",727.826,727.826,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for this "^DD",727.826,727.826,7,21,2,0) extract. "^DD",727.826,727.826,7,23,0) ^^10^10^3120608^ "^DD",727.826,727.826,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.826,727.826,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.826,727.826,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.826,727.826,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.826,727.826,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.826,727.826,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.826,727.826,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.826,727.826,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.826,727.826,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.826,727.826,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.826,727.826,7,"DT") 3120608 "^DD",727.826,727.826,8,0) DATE OF SERVICE^RFO^^0;9^K:$L(X)>8!($L(X)<8)!'(X?8N) X "^DD",727.826,727.826,8,.1) Date of Service "^DD",727.826,727.826,8,1,0) ^.1 "^DD",727.826,727.826,8,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.826,727.826,8,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.826,727.826,8,3) Enter the delivery date of the patient's prosthetic appliance. "^DD",727.826,727.826,8,10) The DELIVERY DATE (#10) in the RECORD OF PROS APPLIANCE/REPAIR file (#660). "^DD",727.826,727.826,8,21,0) ^.001^2^2^3120613^^^ "^DD",727.826,727.826,8,21,1,0) Date on which the new or repaired prosthetic appliance was delivered and "^DD",727.826,727.826,8,21,2,0) accepted by the patient. "^DD",727.826,727.826,8,23,0) ^.001^3^3^3120613^^ "^DD",727.826,727.826,8,23,1,0) DATE OF SERVICE is derived from the DELIVERY DATE (#10) in the RECORD OF "^DD",727.826,727.826,8,23,2,0) PROS APPLIANCE/REPAIR file (#660). This field is always exactly 8 numeric "^DD",727.826,727.826,8,23,3,0) characters in length. The format is YYYYMMDD; for example, 19970923. "^DD",727.826,727.826,8,"DT") 2980722 "^DD",727.826,727.826,9,0) FEEDER LOCATION^RF^^0;10^K:$L(X)>9!($L(X)<6) X "^DD",727.826,727.826,9,.1) Feeder Location "^DD",727.826,727.826,9,3) Answer must be 6-9 characters in length. "^DD",727.826,727.826,9,10) Data in the RECORD OF PROS APPLIANCE/REPAIR file (#660). See Technical Description. "^DD",727.826,727.826,9,21,0) ^.001^1^1^3120613^^ "^DD",727.826,727.826,9,21,1,0) Location within a facility where the product is produced. "^DD",727.826,727.826,9,23,0) ^^46^46^3120613^ "^DD",727.826,727.826,9,23,1,0) If this is a Lab Transaction and the extract header and/or Prosthetic "^DD",727.826,727.826,9,23,2,0) Station is equal to the Receiving Station, the FEEDER LOCATION is "^DD",727.826,727.826,9,23,3,0) constructed as follows: "^DD",727.826,727.826,9,23,4,0) "^DD",727.826,727.826,9,23,5,0) 1) 3-digit station number of the Receiving Station, concatenated with "^DD",727.826,727.826,9,23,6,0) LAB. An example is XXXLAB, where XXX is the Receiving Station number, "^DD",727.826,727.826,9,23,7,0) or "^DD",727.826,727.826,9,23,8,0) "^DD",727.826,727.826,9,23,9,0) 2) 5-digit station number of the Receiving Station (includes the "^DD",727.826,727.826,9,23,10,0) 2-letter division suffix) concatenated with LAB. An example is "^DD",727.826,727.826,9,23,11,0) XXXXXLAB, where XXXXX is the Receiving Station number. "^DD",727.826,727.826,9,23,12,0) "^DD",727.826,727.826,9,23,13,0) If this is a Lab Transaction and the extract header and/or Prosthetic "^DD",727.826,727.826,9,23,14,0) Station is equal to the Requesting Station, the FEEDER LOCATION is "^DD",727.826,727.826,9,23,15,0) constructed as follows: "^DD",727.826,727.826,9,23,16,0) "^DD",727.826,727.826,9,23,17,0) 1) 3-digit station number of the Requesting Station, concatenated with "^DD",727.826,727.826,9,23,18,0) ORD. An example is XXXORD, where XXX is the Requesting Station number, "^DD",727.826,727.826,9,23,19,0) or "^DD",727.826,727.826,9,23,20,0) "^DD",727.826,727.826,9,23,21,0) 2) 5-digit station number of the Requesting Station (includes the "^DD",727.826,727.826,9,23,22,0) 2-letter division suffix) concatenated with ORD. An example is "^DD",727.826,727.826,9,23,23,0) XXXXXORD, where XXXXX is the Requesting Station number. "^DD",727.826,727.826,9,23,24,0) "^DD",727.826,727.826,9,23,25,0) If this is not a Lab Transaction, the FEEDER LOCATION is constructed as "^DD",727.826,727.826,9,23,26,0) follows: "^DD",727.826,727.826,9,23,27,0) "^DD",727.826,727.826,9,23,28,0) 1) 3-digit Station number concatenated with NONL. An example is XXXNONL, "^DD",727.826,727.826,9,23,29,0) where XXX is the Station number, or "^DD",727.826,727.826,9,23,30,0) "^DD",727.826,727.826,9,23,31,0) 2) 5-digit Station number (includes the 2-letter division suffix), "^DD",727.826,727.826,9,23,32,0) concatenated with NONL. An example is XXXXXNONL, where XXXXX is the "^DD",727.826,727.826,9,23,33,0) Station number. "^DD",727.826,727.826,9,23,34,0) "^DD",727.826,727.826,9,23,35,0) Data for the FEEDER LOCATION (FDR LOC) is derived from the RECORD OF PROS "^DD",727.826,727.826,9,23,36,0) APPLIANCE/REPAIR file (#660). Depending how the FEEDER LOCATION is "^DD",727.826,727.826,9,23,37,0) constructed, data is derived from the following fields in the RECORD OF "^DD",727.826,727.826,9,23,38,0) PROS APPLIANCE/REPAIR file (#660): "^DD",727.826,727.826,9,23,39,0) "^DD",727.826,727.826,9,23,40,0) 1) RECEIVING STATION (#70). RECEIVING STATION is a pointer to the "^DD",727.826,727.826,9,23,41,0) INSTITUTION file (#4). "^DD",727.826,727.826,9,23,42,0) "^DD",727.826,727.826,9,23,43,0) 2) REQUESTING STATION (#40). RECEIVING STATION is a pointer to the "^DD",727.826,727.826,9,23,44,0) INSTITUTION file (#4). "^DD",727.826,727.826,9,23,45,0) "^DD",727.826,727.826,9,23,46,0) 3) STATION (#8). STATION is a pointer to the INSTITUTION file (#4). "^DD",727.826,727.826,9,"DT") 3120613 "^DD",727.826,727.826,10,0) FEEDER KEY^RF^^0;11^K:$L(X)>20!($L(X)<7) X "^DD",727.826,727.826,10,.1) Feeder Key "^DD",727.826,727.826,10,3) Answer must be 7-20 characters in length. "^DD",727.826,727.826,10,10) Data in the RECORD OF PROS APPLIANCE/REPAIR file (#660). See Technical Description. "^DD",727.826,727.826,10,21,0) ^.001^1^1^3120613^^^ "^DD",727.826,727.826,10,21,1,0) Code that uniquely identifies a DSS product. "^DD",727.826,727.826,10,23,0) ^^52^52^3120613^ "^DD",727.826,727.826,10,23,1,0) FEEDER KEY is the concatenation of the following elements. They are "^DD",727.826,727.826,10,23,2,0) listed in the order they are to appear in the FEEDER KEY. "^DD",727.826,727.826,10,23,3,0) "^DD",727.826,727.826,10,23,4,0) 1) HCPCS Code - This is the 5-digit HCPCS Code in the patient's "^DD",727.826,727.826,10,23,5,0) prosthetic record. "^DD",727.826,727.826,10,23,6,0) "^DD",727.826,727.826,10,23,7,0) 2) Type of Transaction - This is the Type of Transaction code in the "^DD",727.826,727.826,10,23,8,0) patient's prosthetic record. "^DD",727.826,727.826,10,23,9,0) (a) If Type of Transaction in the patient's prosthetic record is "X" "^DD",727.826,727.826,10,23,10,0) (Repair), the Type of Transaction code in the FEEDER KEY is X. "^DD",727.826,727.826,10,23,11,0) (b) If the Type of Transaction in the patient's prosthetic record is "^DD",727.826,727.826,10,23,12,0) "I" (Initial Issue), "R" (Replace) or "S" (Spare), the Type of "^DD",727.826,727.826,10,23,13,0) Transaction code in the FEEDER KEY is N. "^DD",727.826,727.826,10,23,14,0) (c) If the Type of Transaction in the patient's prosthetic record is "^DD",727.826,727.826,10,23,15,0) "5" (Rental), the Type of Transaction code in the FEEDER KEY is R. "^DD",727.826,727.826,10,23,16,0) (d) Type of Transaction is considered the first suffix of the FEEDER "^DD",727.826,727.826,10,23,17,0) KEY. "^DD",727.826,727.826,10,23,18,0) 3) Source - This is the Source in the patient's prosthetic record. "^DD",727.826,727.826,10,23,19,0) (a) If Source in the patient's prosthetic record is VA, the Source code "^DD",727.826,727.826,10,23,20,0) in the FEEDER KEY is V (VA). "^DD",727.826,727.826,10,23,21,0) (b) If Source in the patient's prosthetic record is Commercial, the "^DD",727.826,727.826,10,23,22,0) Source code in the FEEDER KEY is C (Commercial). "^DD",727.826,727.826,10,23,23,0) (c) Source is considered the second suffix of the FEEDER KEY. "^DD",727.826,727.826,10,23,24,0) "^DD",727.826,727.826,10,23,25,0) 4) Station - If this is a Lab Transaction, the station is either the "^DD",727.826,727.826,10,23,26,0) Requesting or Receiving Station. "^DD",727.826,727.826,10,23,27,0) (a) 3-digit Receiving Station concatenated with REC if the FEEDER "^DD",727.826,727.826,10,23,28,0) LOCATION ends in ORD, or "^DD",727.826,727.826,10,23,29,0) (b) 5-digit Receiving Station (includes the 2-letter division suffix) "^DD",727.826,727.826,10,23,30,0) concatenated with REC if the FEEDER LOCATION ends in ORD, or "^DD",727.826,727.826,10,23,31,0) (c) 3-digit Requesting Station concatenated with REQ if the FEEDER "^DD",727.826,727.826,10,23,32,0) LOCATION ends in LAB, or "^DD",727.826,727.826,10,23,33,0) (d) 5-digit Requesting Station (includes the 2-letter division suffix) "^DD",727.826,727.826,10,23,34,0) concatenated with REQ if the FEEDER LOCATION ends in LAB. "^DD",727.826,727.826,10,23,35,0) (e) Station is considered the third suffix of the FEEDER KEY. "^DD",727.826,727.826,10,23,36,0) "^DD",727.826,727.826,10,23,37,0) 5) If this is a Non-Lab Transaction, there is no third suffix for the "^DD",727.826,727.826,10,23,38,0) FEEDER KEY. "^DD",727.826,727.826,10,23,39,0) Data for the FEEDER KEY is derived from the RECORD OF PROS "^DD",727.826,727.826,10,23,40,0) APPLIANCE/REPAIR file (#660). Depending how the FEEDER KEY is "^DD",727.826,727.826,10,23,41,0) constructed, the components for the FEEDER KEY are derived from the "^DD",727.826,727.826,10,23,42,0) following fields in the RECORD OF PROS APPLIANCE/REPAIR file (#660): "^DD",727.826,727.826,10,23,43,0) "^DD",727.826,727.826,10,23,44,0) 1) HCPCS (#4.1) - HCPCS is a pointer to the CPT CODE field (#.01) of the "^DD",727.826,727.826,10,23,45,0) CPT file (#81) "^DD",727.826,727.826,10,23,46,0) 2) TYPE OF TRANSACTION (#2) "^DD",727.826,727.826,10,23,47,0) 3) SOURCE (#12) "^DD",727.826,727.826,10,23,48,0) 4) RECEIVING STATION (#70). RECEIVING STATION is a pointer to the "^DD",727.826,727.826,10,23,49,0) INSTITUTION file (#4). "^DD",727.826,727.826,10,23,50,0) 5) REQUESTING STATION (#40). REQUESTING STATION is a pointer to the "^DD",727.826,727.826,10,23,51,0) INSTITUTION file (#4). "^DD",727.826,727.826,10,23,52,0) 6) STATION (#8). STATION is a pointer to the INSTITUTION file (#4). "^DD",727.826,727.826,10,"DT") 2981224 "^DD",727.826,727.826,11,0) QUANTITY^NJ4,0^^0;12^K:+X'=X!(X>1000)!(X<1)!(X?.E1"."1N.N) X "^DD",727.826,727.826,11,.1) Quantity "^DD",727.826,727.826,11,3) Type a number between 1 and 1000, 0 decimal digits. "^DD",727.826,727.826,11,10) QUANTITY is derived from the QTY (#5) in RECORD OF PROS APPLIANCE/REPAIR file (#660). "^DD",727.826,727.826,11,21,0) ^.001^2^2^3120613^^^ "^DD",727.826,727.826,11,21,1,0) The number of units issued or units repaired as indicated in the patient's "^DD",727.826,727.826,11,21,2,0) prosthetic record. "^DD",727.826,727.826,11,23,0) ^.001^3^3^3120613^^^^ "^DD",727.826,727.826,11,23,1,0) Derived from the QTY field (#5) in the RECORD OF PROS APPLIANCE/REPAIR "^DD",727.826,727.826,11,23,2,0) file (#660). If the quantity is not known, a default value of 1 will "^DD",727.826,727.826,11,23,3,0) be assigned to the extract record. "^DD",727.826,727.826,11,"DT") 3120618 "^DD",727.826,727.826,12,0) PRIMARY CARE TEAM^F^^0;13^K:$L(X)>4!($L(X)<1) X "^DD",727.826,727.826,12,.1) Primary Care Team "^DD",727.826,727.826,12,3) Answer must be 1-4 characters in length. "^DD",727.826,727.826,12,10) OUTPTTM^SDUTL3 returns the teams IEN from the Team file (404.51). "^DD",727.826,727.826,12,21,0) ^.001^2^2^3120613^^^ "^DD",727.826,727.826,12,21,1,0) The IEN of the primary care team assigned to this patient in the PCMM "^DD",727.826,727.826,12,21,2,0) module. "^DD",727.826,727.826,12,23,0) ^^9^9^3120613^ "^DD",727.826,727.826,12,23,1,0) Using the DATE OF SERVICE field (#8) and the patient pointer (DFN) stored "^DD",727.826,727.826,12,23,2,0) in the PATIENT NO. - DFN field (#4) in the PROSTHETICS EXTRACT file "^DD",727.826,727.826,12,23,3,0) (#727.826), a call is made to the Scheduling API, OUTPTTM^SDUTL3. The API "^DD",727.826,727.826,12,23,4,0) returns the team's internal entry number and name from the TEAM file "^DD",727.826,727.826,12,23,5,0) (#404.51). The IEN is stored in this field. "^DD",727.826,727.826,12,23,6,0) "^DD",727.826,727.826,12,23,7,0) This field should be a pointer to the TEAM file (#404.51) but due to "^DD",727.826,727.826,12,23,8,0) FileMan limitations for data on this node, the field will be left as a "^DD",727.826,727.826,12,23,9,0) free text field. "^DD",727.826,727.826,12,"DT") 2981116 "^DD",727.826,727.826,13,0) PRIMARY CARE PROVIDER^F^^0;14^K:$L(X)>11!($L(X)<2) X "^DD",727.826,727.826,13,.1) Primary Care Provider "^DD",727.826,727.826,13,3) Answer must be 2-11 characters in length. "^DD",727.826,727.826,13,10) "^DD",727.826,727.826,13,21,0) ^.001^2^2^3120614^^ "^DD",727.826,727.826,13,21,1,0) The primary care provider assigned to this patient through the Primary "^DD",727.826,727.826,13,21,2,0) Care Management Module (PCMM) application. "^DD",727.826,727.826,13,23,0) ^^8^8^3120614^ "^DD",727.826,727.826,13,23,1,0) Using the DATE OF SERVICE field (#8) and the PATIENT NO. - DFN field (#4) "^DD",727.826,727.826,13,23,2,0) in the PROSTHETICS EXTRACT file (#727.826), a call is made to the "^DD",727.826,727.826,13,23,3,0) Scheduling API, OUTPTPR^SDUTL3. The API returns the provider's internal "^DD",727.826,727.826,13,23,4,0) entry number and name from the NEW PERSON file (#200). "^DD",727.826,727.826,13,23,5,0) "^DD",727.826,727.826,13,23,6,0) A "2" is prefixed to the pointer value to indicate that the source file is "^DD",727.826,727.826,13,23,7,0) "200". For example, if the IEN of the provider in file #200 is 98765, the "^DD",727.826,727.826,13,23,8,0) value that will be stored is 298765. "^DD",727.826,727.826,13,"DT") 2981117 "^DD",727.826,727.826,14,0) PCE CPT/HCPCS CODE & MODIFIERS^RFO^^0;15^K:$L(X)>17!($L(X)<5) X "^DD",727.826,727.826,14,.1) "^DD",727.826,727.826,14,1,0) ^.1 "^DD",727.826,727.826,14,2) S Y(0)=Y S Y=$$CPTOUT^ECXUTL3(Y) "^DD",727.826,727.826,14,2.1) S Y=$$CPTOUT^ECXUTL3(Y) "^DD",727.826,727.826,14,3) Answer must be 5-17 characters in length. "^DD",727.826,727.826,14,10) Derived from the HCPCS field (4.1) in the RECORD OF PROS APPLIANCE/REPAIR file (#660). "^DD",727.826,727.826,14,21,0) ^.001^1^1^3120614^^ "^DD",727.826,727.826,14,21,1,0) HCPCS code for the item selected. "^DD",727.826,727.826,14,23,0) ^^6^6^3120614^ "^DD",727.826,727.826,14,23,1,0) PCE CPT/HCPCS CODE is derived from the HCPCS (#4.1) field in the RECORD "^DD",727.826,727.826,14,23,2,0) OF PROS APPLIANCE/REPAIR file (#660). HCPCS (#4.1) is a pointer to the "^DD",727.826,727.826,14,23,3,0) respective CPT CODE field (#.01) in the CPT file (#81). "^DD",727.826,727.826,14,23,4,0) "^DD",727.826,727.826,14,23,5,0) The source of CPT modifiers is the MODIFIER field (#.01) of the "^DD",727.826,727.826,14,23,6,0) CPT MODIFIER file (#81.3). "^DD",727.826,727.826,14,"DT") 3120614 "^DD",727.826,727.826,20,0) AGENT ORANGE STATUS^S^Y:YES;N:NO;U:UNKNOWN;^0;21^Q "^DD",727.826,727.826,20,.1) Agent Orange Status "^DD",727.826,727.826,20,3) Enter the Agent Orange Status for the patient. "^DD",727.826,727.826,20,10) AGENT ORANGE EXPOS. INDICATED field (#.32102) from the Patient file (#2) as derived from DFN. "^DD",727.826,727.826,20,21,0) ^.001^1^1^3120614^^ "^DD",727.826,727.826,20,21,1,0) Indicates whether patient was exposed to Agent Orange. "^DD",727.826,727.826,20,23,0) ^^6^6^3120614^ "^DD",727.826,727.826,20,23,1,0) This field is derived from the AGENT ORANGE EXPOS. INDICATED field "^DD",727.826,727.826,20,23,2,0) (#.32102) in the PATIENT file (#2) using the patient's DFN. The field "^DD",727.826,727.826,20,23,3,0) will have a NULL value if the PATIENT file (#2) record does not indicate a "^DD",727.826,727.826,20,23,4,0) status. "^DD",727.826,727.826,20,23,5,0) "^DD",727.826,727.826,20,23,6,0) The status indicator is returned by SVC^VADPT. "^DD",727.826,727.826,20,"DT") 3120614 "^DD",727.826,727.826,21,0) RADIATION EXPOSURE STATUS^S^Y:YES;N:NO;U:UNKNOWN;^0;22^Q "^DD",727.826,727.826,21,.1) Radiation Exposure Status "^DD",727.826,727.826,21,3) Enter the Radiation Status for the patient. "^DD",727.826,727.826,21,10) RADIATION EXPOSURE INDICATED field (#.32103) from the Patient file (#2) as derived from DFN. "^DD",727.826,727.826,21,21,0) ^.001^1^1^3120614^^ "^DD",727.826,727.826,21,21,1,0) Indicates if patient claims exposure to ionizing radiation. "^DD",727.826,727.826,21,23,0) ^^5^5^3120614^ "^DD",727.826,727.826,21,23,1,0) This field is derived from the RADIATION EXPOSURE INDICATED field (#.32103) "^DD",727.826,727.826,21,23,2,0) in the PATIENT file (#2) using the patient's DFN. This field will have "^DD",727.826,727.826,21,23,3,0) a NULL value if the PATIENT file (#2) record does not indicate a status. "^DD",727.826,727.826,21,23,4,0) "^DD",727.826,727.826,21,23,5,0) The status indicator is returned by SVC^VADPT. "^DD",727.826,727.826,21,"DT") 3120614 "^DD",727.826,727.826,22,0) SW ASIA CONDITIONS^S^Y:YES;N:NO;U:UNKNOWN;^0;23^Q "^DD",727.826,727.826,22,.1) SW Asia Conditions "^DD",727.826,727.826,22,3) Enter patient's Southwest Asia Indicator status. "^DD",727.826,727.826,22,10) SW ASIA CONDITIONS? field (#.322013) from the Patient file (#2) as derived from DFN. "^DD",727.826,727.826,22,21,0) ^.001^2^2^3120614^^ "^DD",727.826,727.826,22,21,1,0) This field is used to indicate if patient claims exposure to Southwest "^DD",727.826,727.826,22,21,2,0) Asia Conditions. "^DD",727.826,727.826,22,23,0) ^^3^3^3120614^ "^DD",727.826,727.826,22,23,1,0) This field is derived from the SOUTHWEST ASIA CONDITIONS? field "^DD",727.826,727.826,22,23,2,0) (#.322013) in the PATIENT File (#2) using the patient's DFN. The status "^DD",727.826,727.826,22,23,3,0) indicator is returned by SVC^VADPT which is called by PAT^ECXUTL3. "^DD",727.826,727.826,22,"DT") 3090527 "^DD",727.826,727.826,24,0) COST OF TRANSACTION^F^^0;25^K:$L(X)>6!($L(X)<1) X "^DD",727.826,727.826,24,.1) Cost of Transaction "^DD",727.826,727.826,24,3) Answer must be 1-6 characters in length. "^DD",727.826,727.826,24,10) TOTAL COST (#14) or TOTAL LAB COST (#48) from the RECORD OF PROS APPLIANCE/REPAIR file. "^DD",727.826,727.826,24,21,0) ^.001^1^1^3120614^^^^ "^DD",727.826,727.826,24,21,1,0) Cost to produce the prosthetic. "^DD",727.826,727.826,24,23,0) ^^41^41^3120614^ "^DD",727.826,727.826,24,23,1,0) COST OF TRANSACTION is the value found in the TOTAL COST field (#14) in "^DD",727.826,727.826,24,23,2,0) the RECORD OF PROS APPLIANCE/REPAIR file (#660) when the FORM REQUESTED ON "^DD",727.826,727.826,24,23,3,0) field (#11) in the RECORD OF PROS APPLIANCE/REPAIR file (#660) is one of "^DD",727.826,727.826,24,23,4,0) the following: "^DD",727.826,727.826,24,23,5,0) "^DD",727.826,727.826,24,23,6,0) 1) PSC, represented by 1. "^DD",727.826,727.826,24,23,7,0) 2) 2421, represented by 2. "^DD",727.826,727.826,24,23,8,0) 3) 2237, represented by 3. "^DD",727.826,727.826,24,23,9,0) 4) 2529-7, represented by 5. "^DD",727.826,727.826,24,23,10,0) 5) 2474, represented by 6. "^DD",727.826,727.826,24,23,11,0) 6) 2431, represented by 7. "^DD",727.826,727.826,24,23,12,0) 7) 2914, represented by 8. "^DD",727.826,727.826,24,23,13,0) 8) OTHER, represented by 9. "^DD",727.826,727.826,24,23,14,0) 9) 2520, represented by 10. "^DD",727.826,727.826,24,23,15,0) 10) VISA, represented by 1 "^DD",727.826,727.826,24,23,16,0) "^DD",727.826,727.826,24,23,17,0) COST OF TRANSACTION is the value found in TOTAL LAB COST field (#48) in "^DD",727.826,727.826,24,23,18,0) the RECORD OF PROS APPLIANCE/REPAIR file (#660) when the FORM REQUESTED ON "^DD",727.826,727.826,24,23,19,0) field (#11) in the RECORD OF PROS APPLIANCE/REPAIR file (#660) is the "^DD",727.826,727.826,24,23,20,0) following: "^DD",727.826,727.826,24,23,21,0) "^DD",727.826,727.826,24,23,22,0) 1) 2529-3, represented by 4. "^DD",727.826,727.826,24,23,23,0) "^DD",727.826,727.826,24,23,24,0) COST OF TRANSACTION has a value of zero when the FORM REQUESTED ON field "^DD",727.826,727.826,24,23,25,0) (#11) in the RECORD OF PROS APPLIANCE/REPAIR file (#660) is one of the "^DD",727.826,727.826,24,23,26,0) following, which designates a stock or inventory issue: "^DD",727.826,727.826,24,23,27,0) "^DD",727.826,727.826,24,23,28,0) 1) STOCK ISSUE, represented by 11. "^DD",727.826,727.826,24,23,29,0) 2) INVENTORY ISSUE, represented by 12. "^DD",727.826,727.826,24,23,30,0) "^DD",727.826,727.826,24,23,31,0) COST OF TRANSACTION is derived from the RECORD OF PROS APPLIANCE/REPAIR "^DD",727.826,727.826,24,23,32,0) file (#660). Depending on how the COST OF TRANSACTION is constructed, "^DD",727.826,727.826,24,23,33,0) data is derived from the following fields in the RECORD OF PROS "^DD",727.826,727.826,24,23,34,0) APPLIANCE/REPAIR file (#660): "^DD",727.826,727.826,24,23,35,0) "^DD",727.826,727.826,24,23,36,0) 1) TOTAL COST (#14) "^DD",727.826,727.826,24,23,37,0) 2) TOTAL LAB COST (#48) "^DD",727.826,727.826,24,23,38,0) 3) FORM REQUESTED ON (#11) "^DD",727.826,727.826,24,23,39,0) "^DD",727.826,727.826,24,23,40,0) This field should be a numeric field but due to FileMan limitations for "^DD",727.826,727.826,24,23,41,0) data on this node, it will remain a free text field. "^DD",727.826,727.826,24,"DT") 2981215 "^DD",727.826,727.826,25,0) LAB LABOR COST^F^^0;26^K:$L(X)>6!($L(X)<1) X "^DD",727.826,727.826,25,.1) Lab Labor Cost "^DD",727.826,727.826,25,3) Answer must be 1-6 characters in length. "^DD",727.826,727.826,25,10) TOTAL LABOR COST (#46) in the RECORD OF PROS APPLIANCE/REPAIR file. "^DD",727.826,727.826,25,21,0) ^.001^1^1^3120618^^^^ "^DD",727.826,727.826,25,21,1,0) The total cost of labor to perform the job. "^DD",727.826,727.826,25,23,0) ^^18^18^3120618^ "^DD",727.826,727.826,25,23,1,0) LAB LABOR COST is derived from the TOTAL LABOR COST field (#46) in the "^DD",727.826,727.826,25,23,2,0) RECORD OF PROS APPLIANCE/REPAIR file (#660). The following algorithm is "^DD",727.826,727.826,25,23,3,0) defined: "^DD",727.826,727.826,25,23,4,0) "^DD",727.826,727.826,25,23,5,0) a) If the patient's prosthetic record indicates a Lab Transaction, the "^DD",727.826,727.826,25,23,6,0) value of LAB LABOR COST is equal to the value found for TOTAL LABOR "^DD",727.826,727.826,25,23,7,0) COST field (#46). "^DD",727.826,727.826,25,23,8,0) "^DD",727.826,727.826,25,23,9,0) b) If the patient's prosthetic record is not a Lab Transaction, the value "^DD",727.826,727.826,25,23,10,0) of LAB LABOR COST is zero. "^DD",727.826,727.826,25,23,11,0) "^DD",727.826,727.826,25,23,12,0) c) If LAB LABOR COST is not known, and the patient's prosthetic record "^DD",727.826,727.826,25,23,13,0) indicates a Lab Transaction, a zero value is assigned to the extract "^DD",727.826,727.826,25,23,14,0) record. "^DD",727.826,727.826,25,23,15,0) "^DD",727.826,727.826,25,23,16,0) This field should be a numeric field with a lower bound of 0 and an "^DD",727.826,727.826,25,23,17,0) upper bound of 9999.99. However, due to the FileMan limitation for data "^DD",727.826,727.826,25,23,18,0) on this node, the field will remain a free text field. "^DD",727.826,727.826,25,"DT") 2981117 "^DD",727.826,727.826,26,0) LAB MATERIAL COST^F^^0;27^K:$L(X)>6!($L(X)<1) X "^DD",727.826,727.826,26,.1) Lab Material Cost "^DD",727.826,727.826,26,3) Answer must be 1-6 characters in length. "^DD",727.826,727.826,26,10) TOTAL MATERIAL COST (#47) in the RECORD OF PROS APPLIANCE/REPAIR file. "^DD",727.826,727.826,26,21,0) ^.001^1^1^3120618^^^^ "^DD",727.826,727.826,26,21,1,0) The cost of all materials required to perform the job. "^DD",727.826,727.826,26,23,0) ^^21^21^3120618^ "^DD",727.826,727.826,26,23,1,0) The LAB MATERIAL COST is derived from the RECORD OF PROS APPLIANCE/REPAIR "^DD",727.826,727.826,26,23,2,0) file (#660) according to the following algorithm: "^DD",727.826,727.826,26,23,3,0) "^DD",727.826,727.826,26,23,4,0) a) If the patient's prosthetic record indicates a Lab Transaction, the "^DD",727.826,727.826,26,23,5,0) value of LAB MATERIAL COST is equal to the value found in the TOTAL "^DD",727.826,727.826,26,23,6,0) MATERIAL COST field (#47). "^DD",727.826,727.826,26,23,7,0) "^DD",727.826,727.826,26,23,8,0) b) If the patient's prosthetic record is not a Lab Transaction, the value "^DD",727.826,727.826,26,23,9,0) of LAB MATERIAL COST is zero. "^DD",727.826,727.826,26,23,10,0) "^DD",727.826,727.826,26,23,11,0) c) If LAB MATERIAL COST is not known, and the patient's prosthetic record "^DD",727.826,727.826,26,23,12,0) indicates a Lab Transaction, a zero value is assigned to the extract "^DD",727.826,727.826,26,23,13,0) record. "^DD",727.826,727.826,26,23,14,0) "^DD",727.826,727.826,26,23,15,0) d) LAB MATERIAL COST shall allow for values which are reported in dollars "^DD",727.826,727.826,26,23,16,0) and cents. The actual value shall be extracted, including the decimal "^DD",727.826,727.826,26,23,17,0) point. "^DD",727.826,727.826,26,23,18,0) "^DD",727.826,727.826,26,23,19,0) This field should be a numeric field with a lower bound of 0 and an upper "^DD",727.826,727.826,26,23,20,0) bound of 9999.99. However, due to the FileMan limitation for data on this "^DD",727.826,727.826,26,23,21,0) node, the field will remain a free text field. "^DD",727.826,727.826,26,"DT") 2981117 "^DD",727.826,727.826,27,0) BILLING STATUS^S^1:SC/OP (Service Connected Outpatient);2:SC/IP (Service Connected Inpatient);3:NSC/IP (Non Service Connected Inpatient);4:NSC/OP (Non Service Connected Outpatient);5:Other (Patient Category unknown);^0;28^Q "^DD",727.826,727.826,27,.1) Billing Status "^DD",727.826,727.826,27,3) Enter the Prosthetic Patient Category for utilization. "^DD",727.826,727.826,27,10) BILLING STATUS is derived from PATIENT CATEGORY in the RECORD OF PROS APPLIANCE/REPAIR file (#660) "^DD",727.826,727.826,27,21,0) ^.001^1^1^3120614^^ "^DD",727.826,727.826,27,21,1,0) Patient's billing status. "^DD",727.826,727.826,27,23,0) ^.001^3^3^3120614^^^^ "^DD",727.826,727.826,27,23,1,0) BILLING STATUS is derived from the PATIENT CATEGORY field (#62) in the "^DD",727.826,727.826,27,23,2,0) RECORD OF PROS APPLIANCE/REPAIR file (#660) for the prosthetic device "^DD",727.826,727.826,27,23,3,0) record extracted. "^DD",727.826,727.826,27,"DT") 2980715 "^DD",727.826,727.826,28,0) VET/NON VET^S^Y:Patient is a veteran;N:Patient is not a veteran;^0;29^Q "^DD",727.826,727.826,28,.1) Vet/Non Vet "^DD",727.826,727.826,28,3) Indicate if patient is a veteran. "^DD",727.826,727.826,28,10) VET/NON VET is derived from the VETERAN (Y/N) field in the Patient file using DFN. "^DD",727.826,727.826,28,21,0) ^.001^1^1^3120614^^^ "^DD",727.826,727.826,28,21,1,0) Patient's veteran status. "^DD",727.826,727.826,28,23,0) ^.001^3^3^3120614^^ "^DD",727.826,727.826,28,23,1,0) VET/NON VET is pulled from the VETERAN (Y/N) field (#1901) in the PATIENT "^DD",727.826,727.826,28,23,2,0) file (#2). If the veteran's status is not known, a NULL value will be "^DD",727.826,727.826,28,23,3,0) assigned to the VET/NON VET field. "^DD",727.826,727.826,28,"DT") 2980715 "^DD",727.826,727.826,29,0) TYPE OF TRANSACTION^S^I:Initial issue;R:Replacement;S:Spare;X:Repair;5:Rental;^0;30^Q "^DD",727.826,727.826,29,.1) Type of Transaction "^DD",727.826,727.826,29,3) Enter the transaction type for this prosthetic item. "^DD",727.826,727.826,29,10) TYPE OF TRANSACTION field (#2) in the RECORD OF PROS APPLIANCE/REPAIR file (#660). "^DD",727.826,727.826,29,21,0) ^.001^1^1^3120614^^ "^DD",727.826,727.826,29,21,1,0) The code that best describes the prosthetic transaction. "^DD",727.826,727.826,29,23,0) ^^3^3^3120614^ "^DD",727.826,727.826,29,23,1,0) The TYPE OF TRANSACTION is derived from the TYPE OF TRANSACTION field (#2) "^DD",727.826,727.826,29,23,2,0) in the RECORD OF PROS APPLIANCE/REPAIR file (#660). If the TYPE OF "^DD",727.826,727.826,29,23,3,0) TRANSACTION is not known, NULL is assigned to the field. "^DD",727.826,727.826,29,"DT") 3071108 "^DD",727.826,727.826,30,0) REQUESTING STATION^F^^0;31^K:$L(X)>5!($L(X)<3) X "^DD",727.826,727.826,30,.1) Requesting Station "^DD",727.826,727.826,30,3) Answer must be 3-7 characters in length. "^DD",727.826,727.826,30,10) STATION NUMBER (#99) in the INSTITUTION file pointed to by REQESTING STATION in file #660. "^DD",727.826,727.826,30,21,0) ^.001^1^1^3120615^^^^ "^DD",727.826,727.826,30,21,1,0) The facility that initiates the request for a Lab prosthetic. "^DD",727.826,727.826,30,23,0) ^^7^7^3120615^ "^DD",727.826,727.826,30,23,1,0) REQUESTING STATION is derived from the STATION NUMBER field (#99) in the "^DD",727.826,727.826,30,23,2,0) INSTITUTION file (#4) as pointed to by the REQUESTING STATION field (#40) "^DD",727.826,727.826,30,23,3,0) in the RECORD OF PROS APPLIANCE/REPAIR (#660). "^DD",727.826,727.826,30,23,4,0) "^DD",727.826,727.826,30,23,5,0) This field should have an upper limit of 7 characters but due to the "^DD",727.826,727.826,30,23,6,0) FileMan limitation for data on this node, the field will retain its upper "^DD",727.826,727.826,30,23,7,0) limit of 5. "^DD",727.826,727.826,30,"DT") 2981117 "^DD",727.826,727.826,31,0) RECEIVING STATION^F^^0;32^K:$L(X)>5!($L(X)<3) X "^DD",727.826,727.826,31,.1) Receiving Station "^DD",727.826,727.826,31,3) Answer must be 3-7 characters in length. "^DD",727.826,727.826,31,10) STATION NUMBER (#99) in the INSTITUTION file pointed to by RECEIVING STATION in file #660. "^DD",727.826,727.826,31,21,0) ^.001^2^2^3120615^^ "^DD",727.826,727.826,31,21,1,0) The Lab facility that fills the Lab request and provides the prosthetic to "^DD",727.826,727.826,31,21,2,0) the requesting station. "^DD",727.826,727.826,31,23,0) ^^7^7^3120615^ "^DD",727.826,727.826,31,23,1,0) RECEIVING STATION is derived from the STATION NUMBER field (#99) in the "^DD",727.826,727.826,31,23,2,0) INSTITUTION file (#4) as pointed to by the RECEIVING STATION (#70) field "^DD",727.826,727.826,31,23,3,0) in the RECORD OF PROS APPLIANCE/REPAIR (#660). "^DD",727.826,727.826,31,23,4,0) "^DD",727.826,727.826,31,23,5,0) This field should have an upper limit of 7 characters, however due to the "^DD",727.826,727.826,31,23,6,0) FileMan limitation for data on this node, the field will retain its upper "^DD",727.826,727.826,31,23,7,0) limit of 5 characters. "^DD",727.826,727.826,31,"DT") 2981117 "^DD",727.826,727.826,33,0) ZIP CODE^F^^1;1^K:$L(X)>10!($L(X)<5) X "^DD",727.826,727.826,33,.1) ZIP Code "^DD",727.826,727.826,33,3) Answer must be 5-10 characters in length. "^DD",727.826,727.826,33,10) ZIP+4 (.1112) in the Patient file (#2) as referenced by DFN. "^DD",727.826,727.826,33,21,0) ^^2^2^3120615^ "^DD",727.826,727.826,33,21,1,0) The ZIP code for where the patient resides. The 5-character ZIP code is "^DD",727.826,727.826,33,21,2,0) provided if ZIP+4 is not available. "^DD",727.826,727.826,33,23,0) ^^4^4^3120615^ "^DD",727.826,727.826,33,23,1,0) The patient's ZIP code with optional 4-digit extension as found in the "^DD",727.826,727.826,33,23,2,0) ZIP+4 field (#.1112) of the patient's record in the PATIENT file (#2). "^DD",727.826,727.826,33,23,3,0) While the ZIP+4 field in file 2 is a max of 9 characters, it does put the "^DD",727.826,727.826,33,23,4,0) "-" in if the ZIP code is a +4 type. "^DD",727.826,727.826,33,"DT") 2980715 "^DD",727.826,727.826,34,0) DATE OF BIRTH^FO^^1;2^K:$L(X)>8!($L(X)<8) X "^DD",727.826,727.826,34,.1) Date of Birth "^DD",727.826,727.826,34,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.826,727.826,34,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.826,727.826,34,3) Answer must be 8 characters in length. "^DD",727.826,727.826,34,10) DATE OF BIRTH (#.03) in the Patient file. "^DD",727.826,727.826,34,21,0) ^.001^1^1^3120615^^^^ "^DD",727.826,727.826,34,21,1,0) Patient's date of birth. "^DD",727.826,727.826,34,23,0) ^^6^6^3120615^ "^DD",727.826,727.826,34,23,1,0) Data source: "^DD",727.826,727.826,34,23,2,0) "^DD",727.826,727.826,34,23,3,0) PATIENT file (#2); DATE OF BIRTH field (#.03) "^DD",727.826,727.826,34,23,4,0) "^DD",727.826,727.826,34,23,5,0) DATE OF BIRTH is returned through the supported call DEM^VADPT. It is then "^DD",727.826,727.826,34,23,6,0) represented by an 8-character numeric string in the YYYYMMDD format. "^DD",727.826,727.826,34,"DT") 2980715 "^DD",727.826,727.826,35,0) SEX^S^M:MALE;F:FEMALE;^1;3^Q "^DD",727.826,727.826,35,.1) "^DD",727.826,727.826,35,3) Enter the sex of the patient. "^DD",727.826,727.826,35,10) SEX (.02) in the Patient file (#2) as referenced by DFN. "^DD",727.826,727.826,35,21,0) ^.001^1^1^3120615^^^ "^DD",727.826,727.826,35,21,1,0) Patient's gender. "^DD",727.826,727.826,35,23,0) ^.001^5^5^3120615^^ "^DD",727.826,727.826,35,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4), "^DD",727.826,727.826,35,23,2,0) this data element is derived from the SEX field (#.02) in the PATIENT "^DD",727.826,727.826,35,23,3,0) file (#2). "^DD",727.826,727.826,35,23,4,0) "^DD",727.826,727.826,35,23,5,0) The gender is returned by DEM^VADPT. "^DD",727.826,727.826,35,"DT") 2990505 "^DD",727.826,727.826,38,0) MASTER PATIENT INDEX^F^^1;6^K:$L(X)>10!($L(X)<1) X "^DD",727.826,727.826,38,.1) Master Patient Index "^DD",727.826,727.826,38,3) Enter the Master Patient Index for the prosthetics patient. "^DD",727.826,727.826,38,10) "^DD",727.826,727.826,38,21,0) ^.001^1^1^3120615^^^ "^DD",727.826,727.826,38,21,1,0) Unique national VA patient identifier. "^DD",727.826,727.826,38,23,0) ^.001^3^3^3120615^^ "^DD",727.826,727.826,38,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.826,727.826,38,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.826,727.826,38,23,3,0) PATIENT file (#2). "^DD",727.826,727.826,38,"DT") 2980715 "^DD",727.826,727.826,39,0) DSS PRODUCT DEPARTMENT^F^^1;7^K:$L(X)>10!($L(X)<1) X "^DD",727.826,727.826,39,.1) "^DD",727.826,727.826,39,3) Answer must be 1-10 characters in length. "^DD",727.826,727.826,39,10) "^DD",727.826,727.826,39,21,0) ^.001^2^2^3120615^^^ "^DD",727.826,727.826,39,21,1,0) The nationally defined DSS Intermediate Department Number designated to "^DD",727.826,727.826,39,21,2,0) the patient care product being provided. "^DD",727.826,727.826,39,23,0) ^^1^1^3120615^ "^DD",727.826,727.826,39,23,1,0) For the Prosthetics extract, the DSS PRODUCT DEPARTMENT field is null. "^DD",727.826,727.826,39,"DT") 3040302 "^DD",727.826,727.826,40,0) PC PROVIDER PERSON CLASS^F^^1;8^K:$L(X)>7!($L(X)<7) X "^DD",727.826,727.826,40,3) Answer must be 7 characters in length. "^DD",727.826,727.826,40,21,0) ^.001^2^2^3120615^^ "^DD",727.826,727.826,40,21,1,0) The VA Code of the Person Class of the Primary Care Provider as of the "^DD",727.826,727.826,40,21,2,0) date of this extract record. "^DD",727.826,727.826,40,23,0) ^^4^4^3120615^ "^DD",727.826,727.826,40,23,1,0) Active Person Class is determined by the supported call "^DD",727.826,727.826,40,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.826,727.826,40,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.826,727.826,40,23,4,0) returned value string. "^DD",727.826,727.826,40,"DT") 2981026 "^DD",727.826,727.826,42,0) POW STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;10^Q "^DD",727.826,727.826,42,3) Enter the patient's POW status. "^DD",727.826,727.826,42,21,0) ^.001^1^1^3120615^^^ "^DD",727.826,727.826,42,21,1,0) Indicates if patient was confined as a Prisoner of War. "^DD",727.826,727.826,42,23,0) ^.001^5^5^3120615^^ "^DD",727.826,727.826,42,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.826,727.826,42,23,2,0) in the PROSTHETICS EXTRACT file (#727.826), POW data is derived from the "^DD",727.826,727.826,42,23,3,0) POW STATUS INDICATED? field (#.525) in the PATIENT file (#2). "^DD",727.826,727.826,42,23,4,0) "^DD",727.826,727.826,42,23,5,0) The status indicator is returned by SVC^VADPT. "^DD",727.826,727.826,42,"DT") 2990505 "^DD",727.826,727.826,45,0) SHARING AGREEMENT INSURANCE^P36'^DIC(36,^1;13^Q "^DD",727.826,727.826,45,3) Enter the primary insurance company for a patient with a sharing agreement. "^DD",727.826,727.826,45,21,0) ^.001^2^2^3120615^^^ "^DD",727.826,727.826,45,21,1,0) Indicates the first insurer for patients who participate in sharing "^DD",727.826,727.826,45,21,2,0) agreements. "^DD",727.826,727.826,45,23,0) ^^4^4^3120615^ "^DD",727.826,727.826,45,23,1,0) Data will be taken from the INSURANCE TYPE sub-field (#.01) of the "^DD",727.826,727.826,45,23,2,0) INSURANCE TYPE field (#.3121), sub-file #2.312, of the PATIENT file "^DD",727.826,727.826,45,23,3,0) (#2). Only the first insurance company found in the multiple field is "^DD",727.826,727.826,45,23,4,0) used. "^DD",727.826,727.826,45,"DT") 3120615 "^DD",727.826,727.826,46,0) MST STATUS^S^Y:Yes, screened reports MST;N:Screened, does not report MST;D:Screened, declines to answer;U:Unknown, not screened;^1;14^Q "^DD",727.826,727.826,46,3) Enter patient's MST status. "^DD",727.826,727.826,46,21,0) ^.001^2^2^3120615^^ "^DD",727.826,727.826,46,21,1,0) Indicates the Military Sexual Trauma (MST) status of a patient on the date "^DD",727.826,727.826,46,21,2,0) of the encounter. "^DD",727.826,727.826,46,23,0) ^^6^6^3120615^ "^DD",727.826,727.826,46,23,1,0) The MST HISTORY file (#29.11) holds data regarding military sexual "^DD",727.826,727.826,46,23,2,0) trauma claims and effective dates. The patients MST status is stored "^DD",727.826,727.826,46,23,3,0) in the MST STATUS field (#3). A call will be made to "^DD",727.826,727.826,46,23,4,0) $$GETSTAT^DGMSTAPI(DFN,DGDATE) using the DFN in the PATIENT NO. DFN "^DD",727.826,727.826,46,23,5,0) field (#4) and the date in the DAY field (#8) of the PROSTHETICS EXTRACT "^DD",727.826,727.826,46,23,6,0) file (#727.826). "^DD",727.826,727.826,46,"DT") 3120615 "^DD",727.826,727.826,50,0) ASSOCIATE PC PROVIDER^F^^1;18^K:$L(X)>11!($L(X)<2) X "^DD",727.826,727.826,50,3) Answer must be 2-11 characters in length. "^DD",727.826,727.826,50,21,0) ^.001^2^2^3120617^^^^ "^DD",727.826,727.826,50,21,1,0) The Associate Primary Care Provider assigned to this patient through the "^DD",727.826,727.826,50,21,2,0) Primary Care Management Module (PCMM) application. "^DD",727.826,727.826,50,23,0) ^^10^10^3120617^ "^DD",727.826,727.826,50,23,1,0) Derived by a call to the Scheduling API, OUTPTAP^SDUTL3. The API returns "^DD",727.826,727.826,50,23,2,0) the associate provider's internal entry number and name from the NEW "^DD",727.826,727.826,50,23,3,0) PERSON file (#200). The ASSOCIATE PC PROVIDER is the value of a "2" "^DD",727.826,727.826,50,23,4,0) prefixed to the pointer value to indicate that the source file is "200". "^DD",727.826,727.826,50,23,5,0) For example, if the IEN of the provider in file #200 is 98765, the value "^DD",727.826,727.826,50,23,6,0) that will be stored is 298765. "^DD",727.826,727.826,50,23,7,0) "^DD",727.826,727.826,50,23,8,0) The PATIENT NAME field (#.02) and the DELIVERY DATE field (#10) of "^DD",727.826,727.826,50,23,9,0) the RECORD OF PROS APPLIANCE/REPAIR file (#660) are used to determine the "^DD",727.826,727.826,50,23,10,0) patient's associate provider at the time of the admission. "^DD",727.826,727.826,50,"DT") 2990505 "^DD",727.826,727.826,51,0) ASSOC. PC PROV. PERSON CLASS^F^^1;19^K:$L(X)>7!($L(X)<7) X "^DD",727.826,727.826,51,3) Answer must be 7 characters in length. "^DD",727.826,727.826,51,21,0) ^^2^2^3120617^ "^DD",727.826,727.826,51,21,1,0) VA Code of the Person Class of the patient's Associate Primary Care "^DD",727.826,727.826,51,21,2,0) Provider. "^DD",727.826,727.826,51,23,0) ^^4^4^3120617^ "^DD",727.826,727.826,51,23,1,0) Active Person Class is determined by the supported call "^DD",727.826,727.826,51,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.826,727.826,51,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.826,727.826,51,23,4,0) returned value string. "^DD",727.826,727.826,51,"DT") 2990505 "^DD",727.826,727.826,53,0) DOM,PRRTP AND SAARTP INDICATOR^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CET/TR;^1;21^Q "^DD",727.826,727.826,53,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.826,727.826,53,21,0) ^.001^2^2^3120608^^^^ "^DD",727.826,727.826,53,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP or SARRTP at "^DD",727.826,727.826,53,21,2,0) the time care is provided. "^DD",727.826,727.826,53,23,0) ^.001^5^5^3120608^^^ "^DD",727.826,727.826,53,23,1,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.826,727.826,53,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.826,727.826,53,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.826,727.826,53,23,4,0) "^DD",727.826,727.826,53,23,5,0) Otherwise, the value is null. "^DD",727.826,727.826,53,"DT") 3120608 "^DD",727.826,727.826,54,0) ENROLLMENT CATEGORY^F^^1;22^K:$L(X)>1!($L(X)<1) X "^DD",727.826,727.826,54,3) Answer must be 1 character in length. "^DD",727.826,727.826,54,21,0) ^.001^1^1^3120617^^^ "^DD",727.826,727.826,54,21,1,0) Patient's enrollment category. "^DD",727.826,727.826,54,23,0) ^^3^3^3120617^ "^DD",727.826,727.826,54,23,1,0) ENROLLMENT CATEGORY is derived from the standard call $$CATEGORY^DGENA4 "^DD",727.826,727.826,54,23,2,0) using the patient's DFN and the CURRENT ENROLLMENT field (#27.01) of the "^DD",727.826,727.826,54,23,3,0) PATIENT file (#2). "^DD",727.826,727.826,54,"DT") 3000801 "^DD",727.826,727.826,55,0) ENROLLMENT STATUS^P27.15'^DGEN(27.15,^1;23^Q "^DD",727.826,727.826,55,3) Enter patient's enrollment status. "^DD",727.826,727.826,55,21,0) ^.001^1^1^3120617^^^ "^DD",727.826,727.826,55,21,1,0) Patient's enrollment status. "^DD",727.826,727.826,55,23,0) ^^3^3^3120617^ "^DD",727.826,727.826,55,23,1,0) ENROLLMENT STATUS is derived from the standard call $$STATUS^DGENA using "^DD",727.826,727.826,55,23,2,0) the patient's DFN and returns the ENROLLMENT STATUS field (#.04) of the "^DD",727.826,727.826,55,23,3,0) PATIENT ENROLLMENT file (#27.11). "^DD",727.826,727.826,55,"DT") 3120617 "^DD",727.826,727.826,58,0) PERIOD OF SERVICE^F^^1;26^K:$L(X)>1!($L(X)<1) X "^DD",727.826,727.826,58,3) Answer must be 1 character in length. "^DD",727.826,727.826,58,21,0) ^.001^2^2^3120617^^^ "^DD",727.826,727.826,58,21,1,0) The period of service that best classifies the patient based on "^DD",727.826,727.826,58,21,2,0) eligibility code. "^DD",727.826,727.826,58,23,0) ^.001^10^10^3120617^^ "^DD",727.826,727.826,58,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.826,727.826,58,23,2,0) in the PROSTHETICS EXTRACT file (#727.826), PERIOD OF SERVICE data is "^DD",727.826,727.826,58,23,3,0) derived from the PERIOD OF SERVICE field (#.323) in the PATIENT file "^DD",727.826,727.826,58,23,4,0) (#2). This field is a pointer to the PERIOD OF SERVICE file (#21). Using "^DD",727.826,727.826,58,23,5,0) the period of service pointer, the data is derived from the CODE field "^DD",727.826,727.826,58,23,6,0) (#.03) in the PERIOD OF SERVICE file (#21). This code is a single alpha "^DD",727.826,727.826,58,23,7,0) numeric character. "^DD",727.826,727.826,58,23,8,0) "^DD",727.826,727.826,58,23,9,0) The veteran's period of service indicator is returned by "^DD",727.826,727.826,58,23,10,0) ELIG^VADPT. "^DD",727.826,727.826,58,"DT") 3000801 "^DD",727.826,727.826,59,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^1;27^Q "^DD",727.826,727.826,59,3) Enter observation patient status for this record. "^DD",727.826,727.826,59,21,0) ^.001^1^1^3120608^^^^ "^DD",727.826,727.826,59,21,1,0) Indicates if patient is considered to be an observation patient. "^DD",727.826,727.826,59,23,0) ^.001^12^12^3120608^^ "^DD",727.826,727.826,59,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.826,727.826,59,23,2,0) "^DD",727.826,727.826,59,23,3,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.826,727.826,59,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.826,727.826,59,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.826,727.826,59,23,6,0) file. "^DD",727.826,727.826,59,23,7,0) "^DD",727.826,727.826,59,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.826,727.826,59,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.826,727.826,59,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.826,727.826,59,23,11,0) "^DD",727.826,727.826,59,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.826,727.826,59,"DT") 3120608 "^DD",727.826,727.826,60,0) ENCOUNTER NUMBER^F^^1;28^K:$L(X)>18!($L(X)<1) X "^DD",727.826,727.826,60,3) Answer must be 1-18 characters in length. "^DD",727.826,727.826,60,21,0) ^.001^1^1^3120608^^^ "^DD",727.826,727.826,60,21,1,0) The unique number assigned for DSS. "^DD",727.826,727.826,60,23,0) ^^4^4^3120608^ "^DD",727.826,727.826,60,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.826,727.826,60,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.826,727.826,60,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.826,727.826,60,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.826,727.826,60,"DT") 3010509 "^DD",727.826,727.826,61,0) AGENT ORANGE LOCATION^F^^1;29^K:$L(X)>2!($L(X)<2) X "^DD",727.826,727.826,61,3) Answer must be 2 characters in length. "^DD",727.826,727.826,61,21,0) ^.001^1^1^3120617^^^ "^DD",727.826,727.826,61,21,1,0) Indicates the location where the patient was exposed to Agent Orange. "^DD",727.826,727.826,61,23,0) ^^3^3^3120617^ "^DD",727.826,727.826,61,23,1,0) The location is returned by a call to SVC^VADPT which gets its data from "^DD",727.826,727.826,61,23,2,0) the AGENT ORANGE EXPOSURE LOCATION field (#.3213) of the PATIENT file "^DD",727.826,727.826,61,23,3,0) (#2). "^DD",727.826,727.826,61,"DT") 3010509 "^DD",727.826,727.826,62,0) CNH/SH STATUS^S^YES:YES;NO:NO;^1;30^Q "^DD",727.826,727.826,62,3) Enter the CNH/SH status for this patient. "^DD",727.826,727.826,62,21,0) ^^2^2^3120617^ "^DD",727.826,727.826,62,21,1,0) This field is used to indicate whether a patient is currently in a "^DD",727.826,727.826,62,21,2,0) contract nursing home/state home. "^DD",727.826,727.826,62,23,0) ^^2^2^3120617^ "^DD",727.826,727.826,62,23,1,0) Using the CNHSTAT^ECXUTL4(DFN) call, the CNH status is returned based on "^DD",727.826,727.826,62,23,2,0) the CNH CURRENT field (#148) of the PATIENT file (#2). "^DD",727.826,727.826,62,"DT") 3120617 "^DD",727.826,727.826,63,0) PRODUCTION DIVISION CODE^F^^1;31^K:$L(X)>7!($L(X)<3) X "^DD",727.826,727.826,63,3) Answer must be 3-7 characters in length. "^DD",727.826,727.826,63,21,0) ^.001^1^1^3120617^^ "^DD",727.826,727.826,63,21,1,0) Identifies the division/facility where the work was performed. "^DD",727.826,727.826,63,23,0) ^^3^3^3120617^ "^DD",727.826,727.826,63,23,1,0) The STATION field (#8) of the RECORD OF PROS APPLIANCE/REPAIR file (#660) "^DD",727.826,727.826,63,23,2,0) is used to call the api RADDIV^ECXDEPT to get the STATION NUMBER field "^DD",727.826,727.826,63,23,3,0) (#99) from the INSTITUTION file (#4). "^DD",727.826,727.826,63,"DT") 3120617 "^DD",727.826,727.826,64,0) HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^1;32^Q "^DD",727.826,727.826,64,.1) Head and Neck Cancer Indicator "^DD",727.826,727.826,64,3) Enter the Head & Neck Cancer Indicator for the patient. "^DD",727.826,727.826,64,21,0) ^.001^1^1^3120617^^ "^DD",727.826,727.826,64,21,1,0) Indicates whether patient has head and/or neck cancer. "^DD",727.826,727.826,64,23,0) ^^3^3^3120617^ "^DD",727.826,727.826,64,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.826,727.826,64,23,2,0) (#4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "^DD",727.826,727.826,64,23,3,0) CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11). "^DD",727.826,727.826,64,"DT") 3020829 "^DD",727.826,727.826,66,0) RACE 1^F^^1;34^K:$L(X)>6!($L(X)<1) X "^DD",727.826,727.826,66,.1) Race 1 "^DD",727.826,727.826,66,3) Answer must be 1-6 characters in length. "^DD",727.826,727.826,66,21,0) ^.001^1^1^3120617^^ "^DD",727.826,727.826,66,21,1,0) Self-reported by patient as recorded in VistA patient file. "^DD",727.826,727.826,66,23,0) ^^11^11^3120617^ "^DD",727.826,727.826,66,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.826,727.826,66,23,2,0) (#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file "^DD",727.826,727.826,66,23,3,0) (#10) pointed to by the RACE INFORMATION field (#.01) of the RACE "^DD",727.826,727.826,66,23,4,0) INFORMATION subfile (#2.02) of the PATIENT file (#2). "^DD",727.826,727.826,66,23,5,0) "^DD",727.826,727.826,66,23,6,0) Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03) "^DD",727.826,727.826,66,23,7,0) where the METHOD OF COLLECTION field (#.02) is set to 1 "^DD",727.826,727.826,66,23,8,0) (SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race "^DD",727.826,727.826,66,23,9,0) entries can be included. If any of the RACE INFORMATION values returned is "^DD",727.826,727.826,66,23,10,0) "C" (DECLINED TO ANSWER), that will be the only value included in the "^DD",727.826,727.826,66,23,11,0) RACE1 field. "^DD",727.826,727.826,66,"DT") 3020829 "^DD",727.826,727.826,67,0) DSS IP #^NJ7,0^^1;35^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X "^DD",727.826,727.826,67,3) Type a Number between 1 and 9999999, 0 Decimal Digits. "^DD",727.826,727.826,67,21,0) ^.001^2^2^3120617^^^^ "^DD",727.826,727.826,67,21,1,0) The nationally defined DSS Intermediate Product Number designated to the "^DD",727.826,727.826,67,21,2,0) patient care product. "^DD",727.826,727.826,67,23,0) ^^1^1^3120617^ "^DD",727.826,727.826,67,23,1,0) For the Prosthetics extract, the DSS IP# field is null. "^DD",727.826,727.826,67,"DT") 3031113 "^DD",727.826,727.826,68,0) ENROLLMENT PRIORITY^F^^1;36^K:$L(X)>2!($L(X)<1) X "^DD",727.826,727.826,68,3) Answer must be 1-2 characters in length. "^DD",727.826,727.826,68,21,0) ^.001^2^2^3120617^^ "^DD",727.826,727.826,68,21,1,0) This field contains the enrollment priority group and the "^DD",727.826,727.826,68,21,2,0) enrollment priority subgroup. "^DD",727.826,727.826,68,23,0) ^^20^20^3120617^ "^DD",727.826,727.826,68,23,1,0) ENROLLMENT PRIORITY field contains the enrollment priority group and the "^DD",727.826,727.826,68,23,2,0) enrollment priority subgroup from the PATIENT ENROLLMENT File (#27.11). "^DD",727.826,727.826,68,23,3,0) "^DD",727.826,727.826,68,23,4,0) ENROLLMENT PRIORITY Groups determined for a patient enrollment include: "^DD",727.826,727.826,68,23,5,0) "^DD",727.826,727.826,68,23,6,0) '1' FOR GROUP 1 "^DD",727.826,727.826,68,23,7,0) '2' FOR GROUP 2 "^DD",727.826,727.826,68,23,8,0) '3' FOR GROUP 3 "^DD",727.826,727.826,68,23,9,0) '4' FOR GROUP 4 "^DD",727.826,727.826,68,23,10,0) '5' FOR GROUP 5 "^DD",727.826,727.826,68,23,11,0) '6' FOR GROUP 6 "^DD",727.826,727.826,68,23,12,0) '7' FOR GROUP 7 "^DD",727.826,727.826,68,23,13,0) '8' FOR GROUP 8 "^DD",727.826,727.826,68,23,14,0) "^DD",727.826,727.826,68,23,15,0) ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include: "^DD",727.826,727.826,68,23,16,0) "^DD",727.826,727.826,68,23,17,0) 'a' FOR 1 "^DD",727.826,727.826,68,23,18,0) 'c' FOR 3 "^DD",727.826,727.826,68,23,19,0) 'e' FOR 5 "^DD",727.826,727.826,68,23,20,0) 'g' FOR 7 "^DD",727.826,727.826,68,"DT") 3040301 "^DD",727.826,727.826,69,0) USER ENROLLEE^S^U:USER ENROLLED;^1;37^Q "^DD",727.826,727.826,69,3) Enter patient's current enrollment status. "^DD",727.826,727.826,69,21,0) ^.001^2^2^3120617^^^^ "^DD",727.826,727.826,69,21,1,0) Indicates whether a Veteran has User Enrollee status for the current or "^DD",727.826,727.826,69,21,2,0) future fiscal year. "^DD",727.826,727.826,69,23,0) ^^5^5^3120617^ "^DD",727.826,727.826,69,23,1,0) User enrollee is determined by checking the PATIENT ENROLLMENT "^DD",727.826,727.826,69,23,2,0) file (#27.11). When a user has a current or future fiscal year in the "^DD",727.826,727.826,69,23,3,0) VistA User Enrollee Status (#.04) field the value is set to 'U' and Null "^DD",727.826,727.826,69,23,4,0) if no date or a past year's value is contained. Determined by the use of "^DD",727.826,727.826,69,23,5,0) an API: $$UESTAT^EASUSER where the Patient Identifier (DFN) is passed in. "^DD",727.826,727.826,69,"DT") 3120617 "^DD",727.826,727.826,70,0) PATIENT TYPE^S^AC:ACTIVE DUTY;AL:ALLIED VETERAN;CO:COLLATERAL;EM:EMPLOYEE;IN:INELIGIBLE;MI:MILITARY RETIREE;NO:NON-VETERAN (OTHER);NS:NSC VETERAN;SC:SC VETERAN;TR:TRICARE;^1;38^Q "^DD",727.826,727.826,70,3) Enter type of patient. "^DD",727.826,727.826,70,21,0) ^.001^2^2^3120617^^ "^DD",727.826,727.826,70,21,1,0) Refers to the various types of patient which may be seen at a VA facility. "^DD",727.826,727.826,70,21,2,0) Every patient in the system must have a TYPE specified. "^DD",727.826,727.826,70,23,0) ^^5^5^3120617^ "^DD",727.826,727.826,70,23,1,0) PATIENT TYPE is derived from a call to TYPE^ECXUTL5(DFN). Using the "^DD",727.826,727.826,70,23,2,0) patient's DFN, the NAME field (#.01) of the TYPE OF PATIENT file (#391) as "^DD",727.826,727.826,70,23,3,0) pointed to by the TYPE field (#391) of the PATIENT file (#2) is shortened "^DD",727.826,727.826,70,23,4,0) to the first two characters to determine the value stored in the PATIENT "^DD",727.826,727.826,70,23,5,0) TYPE field (#78). "^DD",727.826,727.826,70,"DT") 3040301 "^DD",727.826,727.826,71,0) CV STATUS ELIGIBILITY^S^Y:YES;E:ELIGIBILITY EXPIRED;^1;39^Q "^DD",727.826,727.826,71,3) Enter patient's combat veteran eligibility. "^DD",727.826,727.826,71,21,0) ^.001^3^3^3120618^^ "^DD",727.826,727.826,71,21,1,0) Records if veteran served on active duty in a theater of combat operations "^DD",727.826,727.826,71,21,2,0) during a period of war after the Persian Gulf War or in combat against a "^DD",727.826,727.826,71,21,3,0) hostile force during a period of hostilities after November 11, 1998. "^DD",727.826,727.826,71,23,0) ^^11^11^3120618^ "^DD",727.826,727.826,71,23,1,0) CV STATUS ELIGIBILITY is determined by the use of API "^DD",727.826,727.826,71,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.826,727.826,71,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.826,727.826,71,23,4,0) pieces (i.e. 1^20010106^0) and the first piece is resolved as follows. "^DD",727.826,727.826,71,23,5,0) "^DD",727.826,727.826,71,23,6,0) 1 - veteran qualifies as a CV "^DD",727.826,727.826,71,23,7,0) 0 - veteran does not qualify as a CV "^DD",727.826,727.826,71,23,8,0) -1 - bad DFN "^DD",727.826,727.826,71,23,9,0) "^DD",727.826,727.826,71,23,10,0) Based on this result the field will be set to 'Y' for 'YES' or 'E' for "^DD",727.826,727.826,71,23,11,0) 'ELIGIBILITY EXPIRED' or 'NULL' for not eligible. "^DD",727.826,727.826,71,"DT") 3120618 "^DD",727.826,727.826,72,0) CV ELIGIBILITY END DATE^F^^1;40^K:$L(X)>8!($L(X)<8) X "^DD",727.826,727.826,72,3) Answer must be 8 characters in length. "^DD",727.826,727.826,72,21,0) ^.001^4^4^3120618^^ "^DD",727.826,727.826,72,21,1,0) Records the Combat Veteran eligibility expiration date of veteran who "^DD",727.826,727.826,72,21,2,0) served on active duty in a theater of combat operations during a period "^DD",727.826,727.826,72,21,3,0) of war after the Persian Gulf War or in combat against a hostile force "^DD",727.826,727.826,72,21,4,0) during a period of hostilities after November 11, 1998. "^DD",727.826,727.826,72,23,0) ^^5^5^3120618^ "^DD",727.826,727.826,72,23,1,0) CV ELIGIBILITY END DATE is determined by the use of API "^DD",727.826,727.826,72,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.826,727.826,72,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.826,727.826,72,23,4,0) pieces (i.e. 1^20010106^0) the 2nd piece is the COMBAT VET END DATE in "^DD",727.826,727.826,72,23,5,0) HL7 format. "^DD",727.826,727.826,72,"DT") 3120618 "^DD",727.826,727.826,73,0) ENCOUNTER CV^S^Y:YES;^1;41^Q "^DD",727.826,727.826,73,3) Enter patient's combat veteran eligibility. "^DD",727.826,727.826,73,21,0) ^.001^4^4^3120618^^ "^DD",727.826,727.826,73,21,1,0) Records is veteran served on active duty in a theater of combat "^DD",727.826,727.826,73,21,2,0) operations during a period of war after the Persian Gulf War or in combat "^DD",727.826,727.826,73,21,3,0) against a hostile force during a period of hostilities after November 11, "^DD",727.826,727.826,73,21,4,0) 1998. "^DD",727.826,727.826,73,23,0) ^^10^10^3120618^ "^DD",727.826,727.826,73,23,1,0) ENCOUNTER CV is determined by the use of API $$CVEDT^DGCV(DFN,DATE) that "^DD",727.826,727.826,73,23,2,0) checks the COMBAT VET END DATE field (#.5295) from the PATIENT file #(2) "^DD",727.826,727.826,73,23,3,0) to determine CV Status. API returns three pieces (i.e. 1^20100106^0). The "^DD",727.826,727.826,73,23,4,0) third piece returns: "^DD",727.826,727.826,73,23,5,0) "^DD",727.826,727.826,73,23,6,0) 1 - vet was eligible on date specified "^DD",727.826,727.826,73,23,7,0) 0 - vet was not eligible on date specified "^DD",727.826,727.826,73,23,8,0) "^DD",727.826,727.826,73,23,9,0) Based on these returns, the value for this field shall be Y for Yes if "^DD",727.826,727.826,73,23,10,0) value is 1 or left blank if 0 to indicate ineligibility. "^DD",727.826,727.826,73,"DT") 3120618 "^DD",727.826,727.826,74,0) NATIONAL PATIENT RECORD FLAG^S^Y:YES;^1;42^Q "^DD",727.826,727.826,74,3) Indicate if patient is associated with a category 1 patient record flag. "^DD",727.826,727.826,74,21,0) ^^2^2^3120618^ "^DD",727.826,727.826,74,21,1,0) This field records whether the patient's record contains 1 or more "^DD",727.826,727.826,74,21,2,0) active category 1 (National) Patient Record Flags. "^DD",727.826,727.826,74,23,0) ^^7^7^3120618^ "^DD",727.826,727.826,74,23,1,0) The NATIONAL PATIENT RECORD FLAG field is set based on the results of the "^DD",727.826,727.826,74,23,2,0) $$GETACT^DGPFAPI(DFN,TARGET ARRAY) call. This call looks at the category "^DD",727.826,727.826,74,23,3,0) 1 national patient record flags as recorded in the PRF NATIONAL FLAG file "^DD",727.826,727.826,74,23,4,0) (#26.15). The resulting value of this call is the number of active "^DD",727.826,727.826,74,23,5,0) category I patient record flags assigned to this patient. This field is "^DD",727.826,727.826,74,23,6,0) set to Y (YES) if the result is greater than zero. A value of zero causes "^DD",727.826,727.826,74,23,7,0) this field to be left null. "^DD",727.826,727.826,74,"DT") 3120618 "^DD",727.826,727.826,76,0) AGENT ORANGE ENC INDICATOR^S^Y:YES;N:NO;^1;44^Q "^DD",727.826,727.826,76,3) Enter patient's agent orange exposure indicator. "^DD",727.826,727.826,76,21,0) ^.001^2^2^3120618^^^ "^DD",727.826,727.826,76,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.826,727.826,76,21,2,0) related to exposure to Agent Orange. "^DD",727.826,727.826,76,23,0) ^.001^5^5^3120618^^^^ "^DD",727.826,727.826,76,23,1,0) Using the PCE field (#8.12) in the RECORD OF PROS APPLIANCE/REPAIR file "^DD",727.826,727.826,76,23,2,0) (#660) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.826,727.826,76,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the agent orange indicator "^DD",727.826,727.826,76,23,4,0) stored at the AGENT ORANGE EXPOSURE field (#80002) in the VISIT file "^DD",727.826,727.826,76,23,5,0) (#9000010). The value will be stored in the output array subscripted "AO". "^DD",727.826,727.826,76,"DT") 3120618 "^DD",727.826,727.826,77,0) ENCOUNTER SWAC^S^Y:YES;N:NO;^1;45^Q "^DD",727.826,727.826,77,3) Indicate if care is related to Southwest Asia Conditions status. "^DD",727.826,727.826,77,21,0) ^.001^3^3^3120618^^ "^DD",727.826,727.826,77,21,1,0) This field indicates whether treatment provided during this patient "^DD",727.826,727.826,77,21,2,0) encounter is related to exposure to Southwest Asia conditions while "^DD",727.826,727.826,77,21,3,0) serving in the Southwest Asia Theater of operations. "^DD",727.826,727.826,77,23,0) ^.001^6^6^3120618^^^ "^DD",727.826,727.826,77,23,1,0) Using the PCE field (#8.12) in the RECORD OF PROS APPLIANCE/REPAIR file "^DD",727.826,727.826,77,23,2,0) (#660) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.826,727.826,77,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the Southwest Asia conditions "^DD",727.826,727.826,77,23,4,0) indicator stored at the SW ASIA CONDITIONS field (#80004) in the VISIT "^DD",727.826,727.826,77,23,5,0) file (#9000010). The value will be stored in the output array subscripted "^DD",727.826,727.826,77,23,6,0) "PGE". "^DD",727.826,727.826,77,"DT") 3120618 "^DD",727.826,727.826,78,0) ENC HEAD/NECK CA^S^Y:YES;N:NO;^1;46^Q "^DD",727.826,727.826,78,3) Indicate if service provided is related to head and/or neck cancer. "^DD",727.826,727.826,78,21,0) ^.001^2^2^3120618^^ "^DD",727.826,727.826,78,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.826,727.826,78,21,2,0) related to head and/or neck cancer. "^DD",727.826,727.826,78,23,0) ^.001^6^6^3120618^^^ "^DD",727.826,727.826,78,23,1,0) Using the PCE field (#8.12) in the RECORD OF PROS APPLIANCE/REPAIR file "^DD",727.826,727.826,78,23,2,0) (#660) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.826,727.826,78,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the head/neck cancer data "^DD",727.826,727.826,78,23,4,0) stored at the HEAD AND/OR NECK CANCER field (#80006) in the VISIT file "^DD",727.826,727.826,78,23,5,0) (#9000010). The value will be stored in the output array subscripted by "^DD",727.826,727.826,78,23,6,0) "HNC". "^DD",727.826,727.826,78,"DT") 3120618 "^DD",727.826,727.826,79,0) ENCOUNTER MST^S^Y:YES;N:NO;^1;47^Q "^DD",727.826,727.826,79,3) Indicate if treatment is related to military sexual trauma. "^DD",727.826,727.826,79,21,0) ^.001^2^2^3120618^^ "^DD",727.826,727.826,79,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.826,727.826,79,21,2,0) related to military sexual trauma. "^DD",727.826,727.826,79,23,0) ^.001^6^6^3120618^^^ "^DD",727.826,727.826,79,23,1,0) Using the PCE field (#8.12) in the RECORD OF PROS APPLIANCE/REPAIR file "^DD",727.826,727.826,79,23,2,0) (#660) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.826,727.826,79,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the military sexual trauma "^DD",727.826,727.826,79,23,4,0) data stored at the MILITARY SEXUAL TRAUMA field (#80005) in the VISIT file "^DD",727.826,727.826,79,23,5,0) (#9000010). The value will be stored in the output array subscripted by "^DD",727.826,727.826,79,23,6,0) "MST". "^DD",727.826,727.826,79,"DT") 3120618 "^DD",727.826,727.826,80,0) RADIATION ENCOUNTER INDICATOR^S^Y:YES;N:NO;^1;48^Q "^DD",727.826,727.826,80,3) Indicate if treatment is related to exposure to ionizing radiation. "^DD",727.826,727.826,80,21,0) ^.001^2^2^3120618^^ "^DD",727.826,727.826,80,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.826,727.826,80,21,2,0) related to ionizing radiation. "^DD",727.826,727.826,80,23,0) ^.001^6^6^3120618^^^ "^DD",727.826,727.826,80,23,1,0) Using the PCE field (#8.12) in the RECORD OF PROS APPLIANCE/REPAIR file "^DD",727.826,727.826,80,23,2,0) (#660) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.826,727.826,80,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the ionizing radiation "^DD",727.826,727.826,80,23,4,0) exposure indicator stored at the IONIZING RADIATION EXPOSURE field "^DD",727.826,727.826,80,23,5,0) (#80003) in the VISIT file (#9000010). The value will be stored in the "^DD",727.826,727.826,80,23,6,0) output array subscripted by "IR". "^DD",727.826,727.826,80,"DT") 3120618 "^DD",727.826,727.826,81,0) OEF/OIF^F^^2;1^K:$L(X)>9!($L(X)<3) X "^DD",727.826,727.826,81,3) Answer must be 3-9 characters in length. "^DD",727.826,727.826,81,21,0) ^.001^3^3^3120618^^ "^DD",727.826,727.826,81,21,1,0) The Military Operation in which the patient was in combat during the "^DD",727.826,727.826,81,21,2,0) specified time period. This field reflects the OEF or OIF where this "^DD",727.826,727.826,81,21,3,0) patient was in combat. "^DD",727.826,727.826,81,23,0) ^^13^13^3120618^ "^DD",727.826,727.826,81,23,1,0) The Military Operation in which the patient was in combat during the "^DD",727.826,727.826,81,23,2,0) specified time period. This field is a length of nine characters and "^DD",727.826,727.826,81,23,3,0) reflects the OEF or OIF where this patient was in combat. The value of "^DD",727.826,727.826,81,23,4,0) this field is derived from the LOCATION OF SERVICE field (#.01) in the "^DD",727.826,727.826,81,23,5,0) SERVICE [OEF OR OIF] multiple field (#.3215) located in the "^DD",727.826,727.826,81,23,6,0) PATIENT File (#2). DSS will capture once, each location where the "^DD",727.826,727.826,81,23,7,0) veteran served. In order to accommodate multiple locations, the values "^DD",727.826,727.826,81,23,8,0) for this field are concatenated into this 9-character field. Possible "^DD",727.826,727.826,81,23,9,0) field values are one or more combinations of the following: "^DD",727.826,727.826,81,23,10,0) "^DD",727.826,727.826,81,23,11,0) OEF = Operation Enduring Freedom "^DD",727.826,727.826,81,23,12,0) OIF = Operation Iraqi Freedom "^DD",727.826,727.826,81,23,13,0) UNK = Unknown OEF/OIF "^DD",727.826,727.826,81,"DT") 3120618 "^DD",727.826,727.826,82,0) OEF/OIF RETURN DATE^F^^2;2^K:$L(X)>8!($L(X)<8) X "^DD",727.826,727.826,82,3) Answer must be 8 characters in length. "^DD",727.826,727.826,82,21,0) ^.001^2^2^3120619^^^ "^DD",727.826,727.826,82,21,1,0) The date the patient left the OEF/OIF area, if known. Otherwise, it is "^DD",727.826,727.826,82,21,2,0) the end date of military pay for this OEF/OIF deployment. "^DD",727.826,727.826,82,23,0) ^.001^6^6^3120619^^ "^DD",727.826,727.826,82,23,1,0) The date the patient left the OEF/OIF area, if known. Otherwise, it is "^DD",727.826,727.826,82,23,2,0) the end date of military pay for this OEF/OIF deployment. This date field "^DD",727.826,727.826,82,23,3,0) has a format equal to YYYYMMDD. The value of this field is derived from "^DD",727.826,727.826,82,23,4,0) the OEF/OIF TO DATE field (#.03) of the SERVICE [OEF OR OIF] multiple "^DD",727.826,727.826,82,23,5,0) field (#.3215) located in the PATIENT file (#2). In cases of multiple "^DD",727.826,727.826,82,23,6,0) OEF/OIF tours, this field contains only the most recent return date. "^DD",727.826,727.826,82,"DT") 3120618 "^DD",727.826,727.826,83,0) NPPD CODE^F^^2;3^K:$L(X)>6!($L(X)<2) X "^DD",727.826,727.826,83,3) Answer must be 2-6 characters in length. "^DD",727.826,727.826,83,21,0) ^.001^2^2^3120618^^ "^DD",727.826,727.826,83,21,1,0) The National Prosthetics Product Database (NPPD) report line number to "^DD",727.826,727.826,83,21,2,0) which the HCPCS are assigned. "^DD",727.826,727.826,83,23,0) ^^6^6^3120618^ "^DD",727.826,727.826,83,23,1,0) The value is derived from the PROSTHETIC HCPCS File (#661.1), field (#5) "^DD",727.826,727.826,83,23,2,0) NPPD REPAIR CODE, if the record is a repair record. The value is derived "^DD",727.826,727.826,83,23,3,0) from the PROSTHETIC HCPCS File (#661.1), field (#6) NPPD NEW CODE, if the "^DD",727.826,727.826,83,23,4,0) record is for a new issue. Note: The PROSTHETICS (PRO) EXTRACT File "^DD",727.826,727.826,83,23,5,0) (#727.826) already stores whether the record is for repair or a new issue "^DD",727.826,727.826,83,23,6,0) in the TYPE OF TRANSACTION field (#29). "^DD",727.826,727.826,83,"DT") 3120618 "^DD",727.826,727.826,84,0) NPPD ENTRY DATE^F^^2;4^K:$L(X)>8!($L(X)<8) X "^DD",727.826,727.826,84,3) Answer must be 8 characters in length. "^DD",727.826,727.826,84,21,0) ^.001^1^1^3120618^^^ "^DD",727.826,727.826,84,21,1,0) The date the entry was first made in the VistA Prosthetics Package. "^DD",727.826,727.826,84,23,0) ^^2^2^3120618^ "^DD",727.826,727.826,84,23,1,0) Format is YYYYMMDD. The date value is retrieved from the RECORD OF PROS "^DD",727.826,727.826,84,23,2,0) APPLIANCE/REPAIR file (#660), field (#.01) ENTRY DATE. "^DD",727.826,727.826,84,"DT") 3120618 "^DD",727.826,727.826,87,0) COUNTRY CODE^F^^2;7^K:$L(X)>3!($L(X)<1) X "^DD",727.826,727.826,87,3) The code for the country. Answer must be 1-3 characters in length. "^DD",727.826,727.826,87,21,0) ^^1^1^3120618^ "^DD",727.826,727.826,87,21,1,0) The code for the country associated with the address. "^DD",727.826,727.826,87,23,0) ^^2^2^3120618^ "^DD",727.826,727.826,87,23,1,0) The three-character alpha identifying code is copied from the CODE (#.01) "^DD",727.826,727.826,87,23,2,0) field of the COUNTRY CODE (#779.004) file. "^DD",727.826,727.826,87,"DT") 3090609 "^DD",727.826,727.826,88,0) SHAD STATUS^S^Y:YES;N:NO;U:UNKNOWN;^2;8^Q "^DD",727.826,727.826,88,3) Enter SHAD Status. "^DD",727.826,727.826,88,21,0) ^.001^2^2^3120618^^ "^DD",727.826,727.826,88,21,1,0) Indicates whether patient meets requirements for Shipboard Hazard and "^DD",727.826,727.826,88,21,2,0) Defense (SHAD). "^DD",727.826,727.826,88,23,0) ^^3^3^3120618^ "^DD",727.826,727.826,88,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.826,727.826,88,23,2,0) in the PROSTHETICS EXTRACT file (#727.826), Shipboard Hazard and Defense "^DD",727.826,727.826,88,23,3,0) data is derived from using DBIA #4462 GETSHAD^DGUTL3(DFN). "^DD",727.826,727.826,88,"DT") 3100212 "^DD",727.826,727.826,92,0) PRIMARY ICD-10 CODE^F^^2;12^K:$L(X)>8!($L(X)<1) X "^DD",727.826,727.826,92,3) Answer must be 1-8 characters in length. "^DD",727.826,727.826,92,21,0) ^.001^1^1^3120618^^ "^DD",727.826,727.826,92,21,1,0) This is the Primary ICD10 code for this clinic visit. "^DD",727.826,727.826,92,23,0) ^^6^6^3120618^ "^DD",727.826,727.826,92,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.826,727.826,92,23,2,0) and stored in this field. "^DD",727.826,727.826,92,23,3,0) "^DD",727.826,727.826,92,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.826,727.826,92,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.826,727.826,92,23,6,0) information. "^DD",727.826,727.826,92,"DT") 3120304 "^DD",727.826,727.826,93,0) SECONDARY ICD-10 CODE #1^F^^2;13^K:$L(X)>8!($L(X)<1) X "^DD",727.826,727.826,93,3) Answer must be 1-8 characters in length. "^DD",727.826,727.826,93,21,0) ^.001^1^1^3120618^^ "^DD",727.826,727.826,93,21,1,0) This is the first secondary ICD10 code for this clinic visit. "^DD",727.826,727.826,93,23,0) ^^6^6^3120618^ "^DD",727.826,727.826,93,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.826,727.826,93,23,2,0) and stored in this field. "^DD",727.826,727.826,93,23,3,0) "^DD",727.826,727.826,93,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.826,727.826,93,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.826,727.826,93,23,6,0) information. "^DD",727.826,727.826,93,"DT") 3120304 "^DD",727.826,727.826,94,0) SECONDARY ICD-10 CODE #2^F^^2;14^K:$L(X)>8!($L(X)<1) X "^DD",727.826,727.826,94,3) Answer must be 1-8 characters in length. "^DD",727.826,727.826,94,21,0) ^.001^1^1^3120618^^ "^DD",727.826,727.826,94,21,1,0) This is the second secondary ICD10 code for this clinic visit. "^DD",727.826,727.826,94,23,0) ^^6^6^3120618^ "^DD",727.826,727.826,94,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.826,727.826,94,23,2,0) and stored in this field. "^DD",727.826,727.826,94,23,3,0) "^DD",727.826,727.826,94,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.826,727.826,94,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.826,727.826,94,23,6,0) information. "^DD",727.826,727.826,94,"DT") 3120304 "^DD",727.826,727.826,95,0) SECONDARY ICD-10 CODE #3^F^^2;15^K:$L(X)>8!($L(X)<1) X "^DD",727.826,727.826,95,3) Answer must be 1-8 characters in length. "^DD",727.826,727.826,95,21,0) ^.001^1^1^3120618^^ "^DD",727.826,727.826,95,21,1,0) This is the third secondary ICD10 code for this clinic visit. "^DD",727.826,727.826,95,23,0) ^^6^6^3120618^ "^DD",727.826,727.826,95,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.826,727.826,95,23,2,0) and stored in this field. "^DD",727.826,727.826,95,23,3,0) "^DD",727.826,727.826,95,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.826,727.826,95,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.826,727.826,95,23,6,0) information. "^DD",727.826,727.826,95,"DT") 3120304 "^DD",727.826,727.826,96,0) SECONDARY ICD-10 CODE #4^F^^2;16^K:$L(X)>8!($L(X)<1) X "^DD",727.826,727.826,96,3) Answer must be 1-8 characters in length. "^DD",727.826,727.826,96,21,0) ^.001^1^1^3120618^^ "^DD",727.826,727.826,96,21,1,0) This is the fourth secondary ICD10 code for this clinic visit. "^DD",727.826,727.826,96,23,0) ^^6^6^3120618^ "^DD",727.826,727.826,96,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.826,727.826,96,23,2,0) and stored in this field. "^DD",727.826,727.826,96,23,3,0) "^DD",727.826,727.826,96,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.826,727.826,96,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.826,727.826,96,23,6,0) information. "^DD",727.826,727.826,96,"DT") 3120304 "^DD",727.827,727.827,.01,0) SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X "^DD",727.827,727.827,.01,.1) Sequence Number "^DD",727.827,727.827,.01,1,0) ^.1^^0 "^DD",727.827,727.827,.01,3) Enter a Number between 1 and 999999999, 0 Decimal Digits. "^DD",727.827,727.827,.01,10) Software generated for each individual record in the extract. "^DD",727.827,727.827,.01,21,0) ^^1^1^3111109^ "^DD",727.827,727.827,.01,21,1,0) The Record Number for this extract entry. "^DD",727.827,727.827,.01,23,0) ^.001^1^1^3111109^^^^ "^DD",727.827,727.827,.01,23,1,0) The Internal Entry Number (IEN) for this record. The entry is DINUMed. "^DD",727.827,727.827,.01,"DT") 2981215 "^DD",727.827,727.827,1,0) YEAR MONTH^RFO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X "^DD",727.827,727.827,1,2) S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y) "^DD",727.827,727.827,1,2.1) S Y=$$ECXYMX^ECXUTL(Y) "^DD",727.827,727.827,1,3) Answer must be 6 characters in length. "^DD",727.827,727.827,1,21,0) ^.001^2^2^3120620^^ "^DD",727.827,727.827,1,21,1,0) A six character string representing the year and the month for which this "^DD",727.827,727.827,1,21,2,0) extract was performed. "^DD",727.827,727.827,1,23,0) ^.001^1^1^3120620^^ "^DD",727.827,727.827,1,23,1,0) Format is YYYYMM. "^DD",727.827,727.827,1,"DT") 3040211 "^DD",727.827,727.827,2,0) EXTRACT NUMBER^RP727'^ECX(727,^0;3^Q "^DD",727.827,727.827,2,1,0) ^.1 "^DD",727.827,727.827,2,1,1,0) 727.827^AC "^DD",727.827,727.827,2,1,1,1) S ^ECX(727.827,"AC",$E(X,1,30),DA)="" "^DD",727.827,727.827,2,1,1,2) K ^ECX(727.827,"AC",$E(X,1,30),DA) "^DD",727.827,727.827,2,1,1,"DT") 3000509 "^DD",727.827,727.827,2,3) Enter the extract number for this extract. "^DD",727.827,727.827,2,21,0) ^.001^2^2^3120620^^ "^DD",727.827,727.827,2,21,1,0) The corresponding entry in the DSS EXTRACT LOG file (#727) for this "^DD",727.827,727.827,2,21,2,0) extract. "^DD",727.827,727.827,2,23,0) ^.001^2^2^3120620^^ "^DD",727.827,727.827,2,23,1,0) A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to "^DD",727.827,727.827,2,23,2,0) pick up the header for the mail message. "^DD",727.827,727.827,2,"DT") 3000509 "^DD",727.827,727.827,3,0) FACILITY^P40.8'^DG(40.8,^0;4^Q "^DD",727.827,727.827,3,3) Enter the medical center division associated with this visit. "^DD",727.827,727.827,3,21,0) ^.001^1^1^3120620^^^^ "^DD",727.827,727.827,3,21,1,0) This is the medical center division where the extract was performed. "^DD",727.827,727.827,3,23,0) ^.001^3^3^3120620^^^^ "^DD",727.827,727.827,3,23,1,0) An indicator of the division where this event happened. It is derived "^DD",727.827,727.827,3,23,2,0) from the DIVISION field (#3.5) of the HOSPITAL LOCATION file (#44) which "^DD",727.827,727.827,3,23,3,0) points to the MEDICAL CENTER DIVISION file (#40.8). "^DD",727.827,727.827,3,"DT") 3120608 "^DD",727.827,727.827,4,0) PATIENT NO. - DFN^RP2'^DPT(^0;5^Q "^DD",727.827,727.827,4,3) Enter the name of the patient for this extract record. "^DD",727.827,727.827,4,21,0) ^^1^1^3120620^ "^DD",727.827,727.827,4,21,1,0) This is the patient to whom this extract record pertains. "^DD",727.827,727.827,4,23,0) ^^3^3^3120620^ "^DD",727.827,727.827,4,23,1,0) The PATIENT field (#.02) of the OUTPATIENT ENCOUNTER file (#409.68) is "^DD",727.827,727.827,4,23,2,0) used to populate this field. It is the IEN of the patient in the PATIENT "^DD",727.827,727.827,4,23,3,0) file (#2). "^DD",727.827,727.827,4,"DT") 3000509 "^DD",727.827,727.827,5,0) SSN^F^^0;6^K:$L(X)>10!($L(X)<9) X "^DD",727.827,727.827,5,3) Answer must be 9-10 characters in length. "^DD",727.827,727.827,5,21,0) ^.001^1^1^3120620^^^^ "^DD",727.827,727.827,5,21,1,0) The patient's social security number. "^DD",727.827,727.827,5,23,0) ^.001^6^6^3120620^^^ "^DD",727.827,727.827,5,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.827,727.827,5,23,2,0) (#4) in the CLINIC EXTRACT file (#727.827), SSN data is derived from "^DD",727.827,727.827,5,23,3,0) the SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2). "^DD",727.827,727.827,5,23,4,0) "^DD",727.827,727.827,5,23,5,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with "^DD",727.827,727.827,5,23,6,0) an SSN beginning with "00000" will not be included in the extract. "^DD",727.827,727.827,5,"DT") 3000509 "^DD",727.827,727.827,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.827,727.827,6,3) Answer must be 4 characters in length. "^DD",727.827,727.827,6,21,0) ^.001^1^1^3120620^^^^ "^DD",727.827,727.827,6,21,1,0) The first four characters of the patient's last name. "^DD",727.827,727.827,6,23,0) ^.001^6^6^3120620^^^^ "^DD",727.827,727.827,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.827,727.827,6,23,2,0) in the CLINIC EXTRACT file (#727.827), NAME data is derived from the "^DD",727.827,727.827,6,23,3,0) NAME field (#.01) in the PATIENT file (#2). The first four characters of "^DD",727.827,727.827,6,23,4,0) the first "," piece are used, padded with trailing spaces if necessary. "^DD",727.827,727.827,6,23,5,0) "^DD",727.827,727.827,6,23,6,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.827,727.827,6,"DT") 3000509 "^DD",727.827,727.827,7,0) IN/OUT PATIENT INDICATOR^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q "^DD",727.827,727.827,7,3) Enter the patient's status for this extract entry. "^DD",727.827,727.827,7,21,0) ^^2^2^3120608^ "^DD",727.827,727.827,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for this "^DD",727.827,727.827,7,21,2,0) extract. "^DD",727.827,727.827,7,23,0) ^.001^10^10^3120608^^ "^DD",727.827,727.827,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.827,727.827,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.827,727.827,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.827,727.827,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.827,727.827,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.827,727.827,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.827,727.827,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.827,727.827,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.827,727.827,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.827,727.827,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.827,727.827,7,"DT") 3120608 "^DD",727.827,727.827,8,0) DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X "^DD",727.827,727.827,8,.1) Day "^DD",727.827,727.827,8,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.827,727.827,8,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.827,727.827,8,3) Answer must be 8 characters in length. "^DD",727.827,727.827,8,21,0) ^.001^1^1^3120620^^^^ "^DD",727.827,727.827,8,21,1,0) Date on which the clinic visit occurred. "^DD",727.827,727.827,8,23,0) ^.001^8^8^3120620^^ "^DD",727.827,727.827,8,23,1,0) Data source: "^DD",727.827,727.827,8,23,2,0) "^DD",727.827,727.827,8,23,3,0) OUTPATIENT ENCOUNTER file (#409.68); DATE field (#.01) "^DD",727.827,727.827,8,23,4,0) "^DD",727.827,727.827,8,23,5,0) This field is always exactly 8 numeric characters in length. The format "^DD",727.827,727.827,8,23,6,0) is YYYYMMDD; for example, 19970923. If the date cannot be determined, "^DD",727.827,727.827,8,23,7,0) then a default is used. The default date value is the value of the YEAR "^DD",727.827,727.827,8,23,8,0) MONTH field (#1) concatenated with "01" for the day (DD) portion. "^DD",727.827,727.827,8,"DT") 3000509 "^DD",727.827,727.827,9,0) FEEDER KEY^F^^0;10^K:$L(X)>14!($L(X)<14) X "^DD",727.827,727.827,9,3) Answer must be 14 characters in length. "^DD",727.827,727.827,9,21,0) ^.001^1^1^3120620^^^^ "^DD",727.827,727.827,9,21,1,0) Code that uniquely identifies a DSS product. "^DD",727.827,727.827,9,23,0) ^^11^11^3120620^ "^DD",727.827,727.827,9,23,1,0) 14-character code in the form of SSSCCCTTTPPPPN. The transmission style "^DD",727.827,727.827,9,23,2,0) chosen for the clinic determines these characters. The form is as "^DD",727.827,727.827,9,23,3,0) follows: "^DD",727.827,727.827,9,23,4,0) "^DD",727.827,727.827,9,23,5,0) SSS - stop code "^DD",727.827,727.827,9,23,6,0) CCC - credit stop code or alternate stop codes "^DD",727.827,727.827,9,23,7,0) TTT - length of appointment, in minutes "^DD",727.827,727.827,9,23,8,0) PPPP - national standard 4 character code for the clinic "^DD",727.827,727.827,9,23,9,0) N - no show flag. "^DD",727.827,727.827,9,23,10,0) "^DD",727.827,727.827,9,23,11,0) Information is based on the clinic associated with the visit. "^DD",727.827,727.827,9,"DT") 3000509 "^DD",727.827,727.827,10,0) OVERBOOKED INDICATOR^S^O:OVERBOOKED;^0;11^Q "^DD",727.827,727.827,10,3) Indicate if this was an overbooked appointment. "^DD",727.827,727.827,10,21,0) ^.001^1^1^3120620^^^^ "^DD",727.827,727.827,10,21,1,0) Indicates if this was an overbook appointment for this visit. "^DD",727.827,727.827,10,23,0) ^.001^7^7^3120620^^ "^DD",727.827,727.827,10,23,1,0) Data source: "^DD",727.827,727.827,10,23,2,0) "^DD",727.827,727.827,10,23,3,0) OVERBOOK field (#9) of the PATIENT multiple (#2) of the APPOINTMENT "^DD",727.827,727.827,10,23,4,0) multiple (#1900) of the HOSPITAL LOCATION file (#44). "^DD",727.827,727.827,10,23,5,0) "^DD",727.827,727.827,10,23,6,0) Was this appointment an overbook, or scheduled over the maximum number of "^DD",727.827,727.827,10,23,7,0) appointments allowed for that day/slot. "^DD",727.827,727.827,10,"DT") 3000927 "^DD",727.827,727.827,11,0) CLINIC NAME^P44'^SC(^0;12^Q "^DD",727.827,727.827,11,3) Select the clinic associated with the visit. "^DD",727.827,727.827,11,21,0) ^.001^1^1^3120620^^^^ "^DD",727.827,727.827,11,21,1,0) The specific clinic associated with the patient encounter. "^DD",727.827,727.827,11,23,0) ^^4^4^3120620^ "^DD",727.827,727.827,11,23,1,0) For encounters, the clinic comes from the LOCATION field (#.04) of the "^DD",727.827,727.827,11,23,2,0) OUTPATIENT ENCOUNTER file (#409.68). For no-shows, the clinic, as "^DD",727.827,727.827,11,23,3,0) identified by the TYPE field (#2) of the HOSPITAL LOCATION file (#44) is "^DD",727.827,727.827,11,23,4,0) used. "^DD",727.827,727.827,11,"DT") 3000509 "^DD",727.827,727.827,12,0) TREATING SPECIALITY^F^^0;13^K:$L(X)>2!($L(X)<1) X "^DD",727.827,727.827,12,3) Answer must be 1-2 characters in length. "^DD",727.827,727.827,12,21,0) ^.001^2^2^3120620^^^^ "^DD",727.827,727.827,12,21,1,0) The PTF CODE of the treating specialty associated with this extract "^DD",727.827,727.827,12,21,2,0) record. "^DD",727.827,727.827,12,23,0) ^.001^3^3^3120620^^^ "^DD",727.827,727.827,12,23,1,0) Data source: "^DD",727.827,727.827,12,23,2,0) "^DD",727.827,727.827,12,23,3,0) SPECIALTY file (#42.4); PTF CODE field (#7). "^DD",727.827,727.827,12,"DT") 3120620 "^DD",727.827,727.827,13,0) TIME^F^^0;14^K:$L(X)>6!($L(X)<6) X "^DD",727.827,727.827,13,3) Answer must be 6 characters in length. "^DD",727.827,727.827,13,21,0) ^.001^1^1^3120719^^^ "^DD",727.827,727.827,13,21,1,0) Time for this clinic visit (6-digit military time). "^DD",727.827,727.827,13,23,0) ^^6^6^3120719^ "^DD",727.827,727.827,13,23,1,0) Time is extracted from the date information pulled from either the "^DD",727.827,727.827,13,23,2,0) DATE field (#.01) in the OUTPATIENT ENCOUNTER file (#409.68) or from the "^DD",727.827,727.827,13,23,3,0) clinic date/time returned from a call to $$SDAPI^SDAMA301. "^DD",727.827,727.827,13,23,4,0) "^DD",727.827,727.827,13,23,5,0) This field is always exactly 6 numeric characters in length; if time "^DD",727.827,727.827,13,23,6,0) cannot be determined, then "000300" is used as default. "^DD",727.827,727.827,13,"DT") 3000509 "^DD",727.827,727.827,14,0) PRIMARY CARE TEAM^P404.51'^SCTM(404.51,^0;15^Q "^DD",727.827,727.827,14,3) Enter the primary care team assigned to this patient at the time of the visit. "^DD",727.827,727.827,14,21,0) ^.001^1^1^3120620^^ "^DD",727.827,727.827,14,21,1,0) The primary care team assigned to this patient in the PCMM module. "^DD",727.827,727.827,14,23,0) ^.001^6^6^3120620^^ "^DD",727.827,727.827,14,23,1,0) Using the APPOINTMENT DATE/TIME field (#.01) of the APPOINTMENT multiple "^DD",727.827,727.827,14,23,2,0) (#1900) of the HOSPITAL LOCATION file (#44) and the patient pointer (DFN) "^DD",727.827,727.827,14,23,3,0) stored in the PATIENT field (#2) of the APPOINTMENT multiple (#1900) of "^DD",727.827,727.827,14,23,4,0) the HOSPITAL LOCATION file (#44), a call is made to the Scheduling API, "^DD",727.827,727.827,14,23,5,0) OUTPTTM^SDUTL3. The API returns the team's internal entry number and name "^DD",727.827,727.827,14,23,6,0) from the TEAM file (#404.51). The IEN is stored in this field. "^DD",727.827,727.827,14,"DT") 3120620 "^DD",727.827,727.827,15,0) PRIMARY CARE PROVIDER^F^^0;16^K:$L(X)>11!($L(X)<2) X "^DD",727.827,727.827,15,3) Answer must be 2-11 characters in length. "^DD",727.827,727.827,15,21,0) ^.001^2^2^3120620^^^ "^DD",727.827,727.827,15,21,1,0) The primary care provider assigned to this patient through the PCMM "^DD",727.827,727.827,15,21,2,0) module. "^DD",727.827,727.827,15,23,0) ^^9^9^3120620^ "^DD",727.827,727.827,15,23,1,0) Using the DATE field (#.01) from the OUTPATIENT ENCOUNTER file (#409.68) "^DD",727.827,727.827,15,23,2,0) and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.827,727.827,15,23,3,0) in the CLINIC EXTRACT file (#727.827), a call is made to the Scheduling "^DD",727.827,727.827,15,23,4,0) API, OUTPTPR^SDUTL3. The API returns the provider's internal entry number "^DD",727.827,727.827,15,23,5,0) and name from the NEW PERSON file (#200). "^DD",727.827,727.827,15,23,6,0) "^DD",727.827,727.827,15,23,7,0) A "2" is prefixed to the pointer value to indicate that the source file is "^DD",727.827,727.827,15,23,8,0) "200". For example, if the IEN of the provider in file #200 is 98765, the "^DD",727.827,727.827,15,23,9,0) value that will be stored is 298765. "^DD",727.827,727.827,15,"DT") 3000509 "^DD",727.827,727.827,16,0) PRIMARY CARE PRV PERSON CLASS^F^^0;17^K:$L(X)>7!($L(X)<7) X "^DD",727.827,727.827,16,3) Answer must be 7 characters in length. "^DD",727.827,727.827,16,21,0) ^.001^2^2^3120620^^^^ "^DD",727.827,727.827,16,21,1,0) The VA code of the Person Class of the Primary Care Provider as of the "^DD",727.827,727.827,16,21,2,0) date of this extract record. "^DD",727.827,727.827,16,23,0) ^^4^4^3120620^ "^DD",727.827,727.827,16,23,1,0) Active Person Class is determined by the supported call "^DD",727.827,727.827,16,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.827,727.827,16,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.827,727.827,16,23,4,0) returned value string. "^DD",727.827,727.827,16,"DT") 3000509 "^DD",727.827,727.827,17,0) PROVIDER^F^^0;18^K:$L(X)>11!($L(X)<2) X "^DD",727.827,727.827,17,3) Answer must be 2-11 characters in length. "^DD",727.827,727.827,17,21,0) ^.001^1^1^3120620^^^^ "^DD",727.827,727.827,17,21,1,0) The provider associated with the patient encounter. "^DD",727.827,727.827,17,23,0) ^^5^5^3120620^ "^DD",727.827,727.827,17,23,1,0) The provider is returned by ENCEVENT^PXAPI. "^DD",727.827,727.827,17,23,2,0) "^DD",727.827,727.827,17,23,3,0) The PROVIDER is the value of a "2" prefixed to the pointer value to "^DD",727.827,727.827,17,23,4,0) indicate that the source file is "200". For example, if the IEN of the "^DD",727.827,727.827,17,23,5,0) provider in file #200 is 98765, the value that will be stored is 298765. "^DD",727.827,727.827,17,"DT") 3000509 "^DD",727.827,727.827,18,0) PROVIDER PERSON CLASS^F^^0;19^K:$L(X)>7!($L(X)<7) X "^DD",727.827,727.827,18,3) Answer must be 7 characters in length. "^DD",727.827,727.827,18,21,0) ^.001^1^1^3120620^^^^ "^DD",727.827,727.827,18,21,1,0) The VA Code of the Person Class of the Provider for this record. "^DD",727.827,727.827,18,23,0) ^^4^4^3120620^ "^DD",727.827,727.827,18,23,1,0) Active Person Class is determined by the supported call "^DD",727.827,727.827,18,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.827,727.827,18,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.827,727.827,18,23,4,0) returned value string. "^DD",727.827,727.827,18,"DT") 3000509 "^DD",727.827,727.827,19,0) CPT CODE QTY & MODIFIERS #1^F^^0;20^K:$L(X)>17!($L(X)<1) X "^DD",727.827,727.827,19,3) Answer must be 1-17 characters in length. "^DD",727.827,727.827,19,21,0) ^.001^3^3^3120124^^ "^DD",727.827,727.827,19,21,1,0) The first 5-character CPT Code for the procedure performed, the Quantity, "^DD",727.827,727.827,19,21,2,0) or how many times the unique code appears in the record, and up to 5 "^DD",727.827,727.827,19,21,3,0) two-character CPT modifiers. "^DD",727.827,727.827,19,23,0) ^^1^1^3120124^ "^DD",727.827,727.827,19,23,1,0) Returned by calling ENCEVENT^PXAPI. "^DD",727.827,727.827,19,"DT") 3001103 "^DD",727.827,727.827,20,0) CPT CODE QTY & MODIFIERS #2^F^^0;21^K:$L(X)>17!($L(X)<1) X "^DD",727.827,727.827,20,3) Answer must be 1-17 characters in length. "^DD",727.827,727.827,20,21,0) ^.001^3^3^3120124^^ "^DD",727.827,727.827,20,21,1,0) The second 5-character CPT Code for the procedure performed, the Quantity, "^DD",727.827,727.827,20,21,2,0) or how many times the unique code appears in the record, and up to 5 "^DD",727.827,727.827,20,21,3,0) two-character CPT modifiers. "^DD",727.827,727.827,20,23,0) ^^1^1^3120124^ "^DD",727.827,727.827,20,23,1,0) Returned by calling ENCEVENT^PXAPI. "^DD",727.827,727.827,20,"DT") 3001103 "^DD",727.827,727.827,21,0) CPT CODE QTY & MODIFIERS #3^F^^0;22^K:$L(X)>17!($L(X)<1) X "^DD",727.827,727.827,21,3) Answer must be 1-17 characters in length. "^DD",727.827,727.827,21,21,0) ^.001^3^3^3120124^^ "^DD",727.827,727.827,21,21,1,0) The third 5-character CPT Code for the procedure performed, the Quantity, "^DD",727.827,727.827,21,21,2,0) or how many times the unique code appears in the record, and up to 5 "^DD",727.827,727.827,21,21,3,0) two-character CPT modifiers. "^DD",727.827,727.827,21,23,0) ^^1^1^3120124^ "^DD",727.827,727.827,21,23,1,0) Returned by calling ENCEVENT^PXAPI. "^DD",727.827,727.827,21,"DT") 3001103 "^DD",727.827,727.827,22,0) CPT CODE QTY & MODIFIERS #4^F^^0;23^K:$L(X)>17!($L(X)<1) X "^DD",727.827,727.827,22,3) Answer must be 1-17 characters in length. "^DD",727.827,727.827,22,21,0) ^.001^3^3^3120124^^ "^DD",727.827,727.827,22,21,1,0) The fourth 5-character CPT Code for the procedure performed, the Quantity, "^DD",727.827,727.827,22,21,2,0) or how many times the unique code appears in the record, and up to 5 "^DD",727.827,727.827,22,21,3,0) two-character CPT modifiers. "^DD",727.827,727.827,22,23,0) ^^1^1^3120124^ "^DD",727.827,727.827,22,23,1,0) Returned by calling ENCEVENT^PXAPI. "^DD",727.827,727.827,22,"DT") 3001103 "^DD",727.827,727.827,23,0) CPT CODE QTY AND MODIFERS #5^F^^0;24^K:$L(X)>17!($L(X)<1) X "^DD",727.827,727.827,23,3) Answer must be 1-17 characters in length. "^DD",727.827,727.827,23,21,0) ^.001^3^3^3120124^^ "^DD",727.827,727.827,23,21,1,0) The fifth 5-character CPT Code for the procedure performed, the Quantity, "^DD",727.827,727.827,23,21,2,0) or how many times the unique code appears in the record, and up to 5 "^DD",727.827,727.827,23,21,3,0) two-character CPT modifiers. "^DD",727.827,727.827,23,23,0) ^^1^1^3120124^ "^DD",727.827,727.827,23,23,1,0) Returned by calling ENCEVENT^PXAPI. "^DD",727.827,727.827,23,"DT") 3001103 "^DD",727.827,727.827,24,0) CPT CODE QTY AND MODIFIERS #6^F^^1;1^K:$L(X)>17!($L(X)<1) X "^DD",727.827,727.827,24,3) Answer must be 1-17 characters in length. "^DD",727.827,727.827,24,21,0) ^.001^3^3^3120620^^^ "^DD",727.827,727.827,24,21,1,0) The sixth 5-character CPT Code for the procedure performed, the Quantity, "^DD",727.827,727.827,24,21,2,0) or how many times the unique code appears in the record, and up to 5 "^DD",727.827,727.827,24,21,3,0) two-character CPT modifiers. "^DD",727.827,727.827,24,23,0) ^.001^1^1^3120620^^ "^DD",727.827,727.827,24,23,1,0) Returned by calling ENCEVENT^PXAPI. "^DD",727.827,727.827,24,"DT") 3001103 "^DD",727.827,727.827,25,0) CPT CODE QTY AND MODIFERS #7^F^^1;2^K:$L(X)>17!($L(X)<1) X "^DD",727.827,727.827,25,3) Answer must be 1-17 characters in length. "^DD",727.827,727.827,25,21,0) ^.001^3^3^3120124^^ "^DD",727.827,727.827,25,21,1,0) The seventh 5-character CPT Code for the procedure performed, the "^DD",727.827,727.827,25,21,2,0) Quantity, or how many times the unique code appears in the record, and up "^DD",727.827,727.827,25,21,3,0) to 5 two-character CPT modifiers. "^DD",727.827,727.827,25,23,0) ^^1^1^3120124^ "^DD",727.827,727.827,25,23,1,0) Returned by calling ENCEVENT^PXAPI. "^DD",727.827,727.827,25,"DT") 3001103 "^DD",727.827,727.827,26,0) CPT CODE QTY AND MODIFIERS #8^F^^1;3^K:$L(X)>17!($L(X)<1) X "^DD",727.827,727.827,26,3) Answer must be 1-17 characters in length. "^DD",727.827,727.827,26,21,0) ^.001^3^3^3120124^^ "^DD",727.827,727.827,26,21,1,0) The eighth 5-character CPT Code for the procedure performed, the Quantity, "^DD",727.827,727.827,26,21,2,0) or how many times the unique code appears in the record, and up to 5 "^DD",727.827,727.827,26,21,3,0) two-character CPT modifiers. "^DD",727.827,727.827,26,23,0) ^^1^1^3120124^ "^DD",727.827,727.827,26,23,1,0) Returned by calling ENCEVENT^PXAPI. "^DD",727.827,727.827,26,"DT") 3001103 "^DD",727.827,727.827,27,0) PRIMARY ICD9 CODE^F^^1;4^K:$L(X)>7!($L(X)<1) X "^DD",727.827,727.827,27,3) Answer must be 1-7 characters in length. "^DD",727.827,727.827,27,21,0) ^.001^1^1^3120620^^^ "^DD",727.827,727.827,27,21,1,0) The Primary ICD-9 code for this clinic visit. "^DD",727.827,727.827,27,23,0) ^.001^1^1^3120620^^ "^DD",727.827,727.827,27,23,1,0) Returned by calling ENCEVENT^PXAPI. "^DD",727.827,727.827,27,"DT") 3000509 "^DD",727.827,727.827,28,0) SECONDARY ICD9 1^F^^1;5^K:$L(X)>7!($L(X)<1) X "^DD",727.827,727.827,28,3) Answer must be 1-7 characters in length. "^DD",727.827,727.827,28,21,0) ^.001^1^1^3120124^^ "^DD",727.827,727.827,28,21,1,0) Secondary ICD9 code #1 for this clinic visit. "^DD",727.827,727.827,28,23,0) ^^1^1^3120124^ "^DD",727.827,727.827,28,23,1,0) Returned by calling ENCEVENT^PXAPI. "^DD",727.827,727.827,28,"DT") 3000509 "^DD",727.827,727.827,29,0) SECONDARY ICD9 2^F^^1;6^K:$L(X)>7!($L(X)<1) X "^DD",727.827,727.827,29,3) Answer must be 1-7 characters in length. "^DD",727.827,727.827,29,21,0) ^.001^1^1^3120124^^^ "^DD",727.827,727.827,29,21,1,0) Secondary ICD9 code #2 for this clinic visit. "^DD",727.827,727.827,29,23,0) ^.001^1^1^3120124^^ "^DD",727.827,727.827,29,23,1,0) Returned by calling ENCEVENT^PXAPI. "^DD",727.827,727.827,29,"DT") 3000509 "^DD",727.827,727.827,30,0) SECONDARY ICD9 3^F^^1;7^K:$L(X)>7!($L(X)<1) X "^DD",727.827,727.827,30,3) Answer must be 1-7 characters in length. "^DD",727.827,727.827,30,21,0) ^.001^1^1^3120124^^ "^DD",727.827,727.827,30,21,1,0) Secondary ICD9 code #3 for this clinic visit. "^DD",727.827,727.827,30,23,0) ^^1^1^3120124^ "^DD",727.827,727.827,30,23,1,0) Returned by calling ENCEVENT^PXAPI. "^DD",727.827,727.827,30,"DT") 3000509 "^DD",727.827,727.827,31,0) SECONDARY ICD9 4^F^^1;8^K:$L(X)>7!($L(X)<1) X "^DD",727.827,727.827,31,3) Answer must be 1-7 characters in length. "^DD",727.827,727.827,31,21,0) ^.001^1^1^3120124^^ "^DD",727.827,727.827,31,21,1,0) Secondary ICD9 code #4 for this clinic visit. "^DD",727.827,727.827,31,23,0) ^^1^1^3120124^ "^DD",727.827,727.827,31,23,1,0) Returned by calling ENCEVENT^PXAPI. "^DD",727.827,727.827,31,"DT") 3000509 "^DD",727.827,727.827,32,0) DATE OF BIRTH^F^^1;9^K:$L(X)>8!($L(X)<8) X "^DD",727.827,727.827,32,3) Answer must be 8 characters in length. "^DD",727.827,727.827,32,21,0) ^.001^1^1^3120620^^^^ "^DD",727.827,727.827,32,21,1,0) Patient's date of birth. "^DD",727.827,727.827,32,23,0) ^^8^8^3120620^ "^DD",727.827,727.827,32,23,1,0) Data source: "^DD",727.827,727.827,32,23,2,0) "^DD",727.827,727.827,32,23,3,0) OUTPATIENT ENCOUNTER file (#409.68); PATIENT field (#.02) then to PATIENT "^DD",727.827,727.827,32,23,4,0) file (#2); DATE OF BIRTH field (#.03) "^DD",727.827,727.827,32,23,5,0) "^DD",727.827,727.827,32,23,6,0) Date of Birth is returned through the supported call DEM^VADPT. It is then "^DD",727.827,727.827,32,23,7,0) represented by an 8-character numeric string in the YYYYMMDD format. "^DD",727.827,727.827,32,23,8,0) Format is YYYYMMDD. "^DD",727.827,727.827,32,"DT") 3120620 "^DD",727.827,727.827,33,0) ELIGIBILITY^F^^1;10^K:$L(X)>3!($L(X)<2) X "^DD",727.827,727.827,33,3) Answer must be 2-3 characters in length. "^DD",727.827,727.827,33,21,0) ^.001^1^1^3120719^^^ "^DD",727.827,727.827,33,21,1,0) Appropriate eligibility code based on veteran or non-veteran status. "^DD",727.827,727.827,33,23,0) ^.001^10^10^3120719^^ "^DD",727.827,727.827,33,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.827,727.827,33,23,2,0) (#4), ELIGIBILITY data is derived from the PRIMARY ELIGIBILITY CODE field "^DD",727.827,727.827,33,23,3,0) (#.361) in the PATIENT file (#2). PRIMARY ELIGIBILITY CODE is a pointer to "^DD",727.827,727.827,33,23,4,0) the ELIGIBILITY CODE file (#8). The data is derived from the MAS "^DD",727.827,727.827,33,23,5,0) ELIGIBILITY CODE field (#8) in the ELIGIBILITY CODE file (#8) which in "^DD",727.827,727.827,33,23,6,0) turn is a pointer to the MAS ELIGIBILITY CODE file (#8.1). "^DD",727.827,727.827,33,23,7,0) "^DD",727.827,727.827,33,23,8,0) The pointer value to file #8.1 is converted by ELIG^ECXUTL3 to the "^DD",727.827,727.827,33,23,9,0) corresponding eligibility code used by NPCD. This code is composed of two "^DD",727.827,727.827,33,23,10,0) or three numeric characters. "^DD",727.827,727.827,33,"DT") 3120719 "^DD",727.827,727.827,34,0) VETERAN^S^N:NO;Y:YES;^1;11^Q "^DD",727.827,727.827,34,3) Select the appropriate veteran status for this patient. "^DD",727.827,727.827,34,21,0) ^.001^1^1^3120620^^^ "^DD",727.827,727.827,34,21,1,0) Patient's veteran status. "^DD",727.827,727.827,34,23,0) ^.001^4^4^3120620^^ "^DD",727.827,727.827,34,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.827,727.827,34,23,2,0) in the CLINIC EXTRACT file (#727.827), VETERAN data is derived from the "^DD",727.827,727.827,34,23,3,0) VETERAN (Y/N)? field (1901) in the PATIENT file (#2). Veteran is returned "^DD",727.827,727.827,34,23,4,0) by the supported call ELIG^VADPT. "^DD",727.827,727.827,34,"DT") 3000509 "^DD",727.827,727.827,35,0) RACE^F^^1;12^K:$L(X)>1!($L(X)<1) X "^DD",727.827,727.827,35,3) Answer must be 1 character in length. "^DD",727.827,727.827,35,21,0) ^.001^1^1^3120725^^^ "^DD",727.827,727.827,35,21,1,0) Race abbreviation for this patient. "^DD",727.827,727.827,35,23,0) ^.001^3^3^3120725^^ "^DD",727.827,727.827,35,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.827,727.827,35,23,2,0) (#4), RACE data is copied from the ABBREVIATION field (#2) of the RACE file "^DD",727.827,727.827,35,23,3,0) (#10) entry pointed to by the RACE field (#.06) in the PATIENT file (#2). "^DD",727.827,727.827,35,"DT") 3000509 "^DD",727.827,727.827,36,0) POW STATUS^S^N:NO;Y:YES;U:UNKNOWN;^1;13^Q "^DD",727.827,727.827,36,3) Enter the patient's POW status. "^DD",727.827,727.827,36,21,0) ^.001^1^1^3120620^^^^ "^DD",727.827,727.827,36,21,1,0) Indicates if patient was confined as a Prisoner of War. "^DD",727.827,727.827,36,23,0) ^.001^5^5^3120620^^^ "^DD",727.827,727.827,36,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.827,727.827,36,23,2,0) in the CLINIC EXTRACT file (#727.827), POW data is derived from the POW "^DD",727.827,727.827,36,23,3,0) STATUS INDICATED? field (#.525) in the PATIENT file (#2). "^DD",727.827,727.827,36,23,4,0) "^DD",727.827,727.827,36,23,5,0) The POW Status is returned by SVC^VADPT. "^DD",727.827,727.827,36,"DT") 3120620 "^DD",727.827,727.827,37,0) POW LOCATION^F^^1;14^K:$L(X)>1!($L(X)<1) X "^DD",727.827,727.827,37,3) Answer must be 1 character in length. "^DD",727.827,727.827,37,21,0) ^.001^1^1^3120620^^^^ "^DD",727.827,727.827,37,21,1,0) If POW Status is indicated, this is the POW confinement location/period. "^DD",727.827,727.827,37,23,0) ^^7^7^3120620^ "^DD",727.827,727.827,37,23,1,0) PATIENT file (#2); POW CONFINEMENT LOCATION field (#.526). This is a "^DD",727.827,727.827,37,23,2,0) pointer value to the POW PERIOD file (#22). The location indicator is "^DD",727.827,727.827,37,23,3,0) returned by SVC^VADPT. "^DD",727.827,727.827,37,23,4,0) "^DD",727.827,727.827,37,23,5,0) This field should be a pointer to the POW PERIOD file (#22) but due to the "^DD",727.827,727.827,37,23,6,0) FileMan limitation for data on this subscript, it will remain a free text "^DD",727.827,727.827,37,23,7,0) field. "^DD",727.827,727.827,37,"DT") 3000509 "^DD",727.827,727.827,38,0) RADIATION STATUS^S^N:NO;Y:YES;U:UNKNOWN;^1;15^Q "^DD",727.827,727.827,38,3) Enter the Radiation Status for this patient. "^DD",727.827,727.827,38,21,0) ^.001^1^1^3120620^^^^ "^DD",727.827,727.827,38,21,1,0) Indicates if patient claims exposure to ionizing radiation. "^DD",727.827,727.827,38,23,0) ^.001^5^5^3120620^^^ "^DD",727.827,727.827,38,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.827,727.827,38,23,2,0) in the ADMISSION EXTRACT file (#727.802), RADIATION data is derived from "^DD",727.827,727.827,38,23,3,0) the RADIATION EXPOSURE INDICATED? field (#.32103) in the PATIENT file (#2). "^DD",727.827,727.827,38,23,4,0) "^DD",727.827,727.827,38,23,5,0) The status indicator is returned by SVC^VADPT. "^DD",727.827,727.827,38,"DT") 3120620 "^DD",727.827,727.827,39,0) RADIATION ENCOUNTER INDICATOR^S^N:NO;Y:YES;^1;16^Q "^DD",727.827,727.827,39,3) Indicate if treatment is related to exposure to ionizing radiation. "^DD",727.827,727.827,39,21,0) ^.001^2^2^3120620^^^^ "^DD",727.827,727.827,39,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.827,727.827,39,21,2,0) related to exposure to ionizing radiation. "^DD",727.827,727.827,39,23,0) ^.001^6^6^3120620^^ "^DD",727.827,727.827,39,23,1,0) Using the VISIT FILE ENTRY field (#.05) in the OUTPATIENT ENCOUNTER file "^DD",727.827,727.827,39,23,2,0) (#409.68) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.827,727.827,39,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the ionizing radiation exposure "^DD",727.827,727.827,39,23,4,0) indicator stored at the IONIZING RADIATION EXPOSURE field (#80003) in the "^DD",727.827,727.827,39,23,5,0) VISIT file (#9000010). The value will be stored in the output array "^DD",727.827,727.827,39,23,6,0) subscripted by "IR". "^DD",727.827,727.827,39,"DT") 3000509 "^DD",727.827,727.827,40,0) AGENT ORANGE STATUS^S^N:NO;Y:YES;U:UNKNOWN;^1;17^Q "^DD",727.827,727.827,40,3) Enter the Agent Orange status for this patient. "^DD",727.827,727.827,40,21,0) ^.001^1^1^3120620^^^^ "^DD",727.827,727.827,40,21,1,0) Indicates whether patient was exposed to Agent Orange. "^DD",727.827,727.827,40,23,0) ^^6^6^3120620^ "^DD",727.827,727.827,40,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.827,727.827,40,23,2,0) in the CLINIC EXTRACT file (#727.827), AGENT ORANGE data is derived from "^DD",727.827,727.827,40,23,3,0) the AGENT ORANGE EXPOS. INDICATED? field (#.32102) in the PATIENT file "^DD",727.827,727.827,40,23,4,0) (#2). "^DD",727.827,727.827,40,23,5,0) "^DD",727.827,727.827,40,23,6,0) The status indicator is returned by SVC^VADPT. "^DD",727.827,727.827,40,"DT") 3120620 "^DD",727.827,727.827,41,0) AGENT ORANGE ENC INDICATOR^S^N:NO;Y:YES;^1;18^Q "^DD",727.827,727.827,41,3) Enter patient's agent orange exposure indicator. "^DD",727.827,727.827,41,21,0) ^.001^2^2^3120620^^^^ "^DD",727.827,727.827,41,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.827,727.827,41,21,2,0) related to exposure to Agent Orange. "^DD",727.827,727.827,41,23,0) ^.001^6^6^3120620^^^ "^DD",727.827,727.827,41,23,1,0) Using the VISIT FILE ENTRY field (#.05) in the OUTPATIENT ENCOUNTER file "^DD",727.827,727.827,41,23,2,0) (#409.68) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.827,727.827,41,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the agent orange indicator "^DD",727.827,727.827,41,23,4,0) stored at the AGENT ORANGE EXPOSURE field (#80002) in the VISIT file "^DD",727.827,727.827,41,23,5,0) (#9000010). The value will be stored in the output array subscripted by "^DD",727.827,727.827,41,23,6,0) "AO". "^DD",727.827,727.827,41,"DT") 3000509 "^DD",727.827,727.827,42,0) MASTER PATIENT INDEX^F^^1;19^K:$L(X)>10!($L(X)<10) X "^DD",727.827,727.827,42,3) Answer must be 10 characters in length. "^DD",727.827,727.827,42,21,0) ^.001^1^1^3120124^^^ "^DD",727.827,727.827,42,21,1,0) Unique national VA patient identifier "^DD",727.827,727.827,42,23,0) ^^3^3^3120124^ "^DD",727.827,727.827,42,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.827,727.827,42,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.827,727.827,42,23,3,0) Patient file (#2). "^DD",727.827,727.827,42,"DT") 3000509 "^DD",727.827,727.827,44,0) SEX^S^M:MALE;F:FEMALE;^1;21^Q "^DD",727.827,727.827,44,3) Enter the patient's sex. "^DD",727.827,727.827,44,21,0) ^.001^1^1^3120621^^^^ "^DD",727.827,727.827,44,21,1,0) Patient's gender. "^DD",727.827,727.827,44,23,0) ^.001^5^5^3120621^^^ "^DD",727.827,727.827,44,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.827,727.827,44,23,2,0) in the CLINIC EXTRACT file (#727.827), this data is derived from the SEX "^DD",727.827,727.827,44,23,3,0) field (.02) in the PATIENT file (#2). "^DD",727.827,727.827,44,23,4,0) "^DD",727.827,727.827,44,23,5,0) The gender is returned by DEM^VADPT. "^DD",727.827,727.827,44,"DT") 3000509 "^DD",727.827,727.827,45,0) ZIP+4^F^^1;22^K:$L(X)>10!($L(X)<5) X "^DD",727.827,727.827,45,3) Answer must be 5-10 characters in length. "^DD",727.827,727.827,45,21,0) ^.001^2^2^3120620^^ "^DD",727.827,727.827,45,21,1,0) The ZIP code for where the patient resides. The 5-character ZIP code is "^DD",727.827,727.827,45,21,2,0) provided if ZIP+4 is not available. "^DD",727.827,727.827,45,23,0) ^.001^4^4^3120620^^ "^DD",727.827,727.827,45,23,1,0) The patient's ZIP code with optional 4-digit extension as found in the "^DD",727.827,727.827,45,23,2,0) ZIP+4 field (#.1112) of the patient's record in the PATIENT file (#2). "^DD",727.827,727.827,45,23,3,0) While the ZIP+4 field in file 2 is a max of 9 characters, it does put the "^DD",727.827,727.827,45,23,4,0) "-" in if the ZIP code is a +4 type. "^DD",727.827,727.827,45,"DT") 3000509 "^DD",727.827,727.827,48,0) ENCOUNTER ELIGIBILITY^NJ3,0^^1;25^K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X "^DD",727.827,727.827,48,3) Type a number between 0 and 999, 0 decimal digits. "^DD",727.827,727.827,48,21,0) ^.001^2^2^3120621^^ "^DD",727.827,727.827,48,21,1,0) Eligibility code for the encounter based on the purpose of the encounter "^DD",727.827,727.827,48,21,2,0) and the patient's eligibility. "^DD",727.827,727.827,48,23,0) ^^4^4^3120621^ "^DD",727.827,727.827,48,23,1,0) Using the MAS ELIGIBILITY CODE field (#8) of the ELIGIBILITY CODE file "^DD",727.827,727.827,48,23,2,0) (#8) as pointed to by the ELIGIBILITY OF ENCOUNTER field (#.13) of the "^DD",727.827,727.827,48,23,3,0) OUTPATIENT ENCOUNTER file (#409.68) a call is made to ELIG^ECXUTL3 which "^DD",727.827,727.827,48,23,4,0) then returns a numeric code that's stored in this field. "^DD",727.827,727.827,48,"DT") 3120621 "^DD",727.827,727.827,49,0) MST STATUS^S^N:NO;Y:YES;U:UNKNOWN;D:DENIED;^1;26^Q "^DD",727.827,727.827,49,3) Enter the patient's MST Status. "^DD",727.827,727.827,49,21,0) ^.001^2^2^3120621^^^ "^DD",727.827,727.827,49,21,1,0) Military Sexual Trauma (MST) status of a patient on the date of the "^DD",727.827,727.827,49,21,2,0) encounter. "^DD",727.827,727.827,49,23,0) ^^5^5^3120621^ "^DD",727.827,727.827,49,23,1,0) The MST HISTORY file (#29.11) holds data regarding military sexual trauma "^DD",727.827,727.827,49,23,2,0) claims and effective dates. The patient's MST status is stored in the MST "^DD",727.827,727.827,49,23,3,0) STATUS field (#3). A call will be made to $$GETSTAT^DGMSTAPI(DFN,DGDATE) "^DD",727.827,727.827,49,23,4,0) using the DFN in the PATIENT NO. DFN field (#4) and the date in the DAY "^DD",727.827,727.827,49,23,5,0) field (#8). "^DD",727.827,727.827,49,"DT") 3000509 "^DD",727.827,727.827,50,0) MST ENCOUNTER INDICATOR^S^N:NO;Y:YES;^1;27^Q "^DD",727.827,727.827,50,3) Was encounter related to MST? "^DD",727.827,727.827,50,21,0) ^^1^1^3120620^ "^DD",727.827,727.827,50,21,1,0) Indicates if treatment is related to Military Sexual Trauma. "^DD",727.827,727.827,50,23,0) ^.001^6^6^3120620^^ "^DD",727.827,727.827,50,23,1,0) Using the VISIT FILE ENTRY field (#.05) in the OUTPATIENT ENCOUNTER file "^DD",727.827,727.827,50,23,2,0) (#409.68) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.827,727.827,50,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the military sexual trauma data "^DD",727.827,727.827,50,23,4,0) stored at the MILITARY SEXUAL TRAUMA field (#80005) in the VISIT file "^DD",727.827,727.827,50,23,5,0) (#9000010). The value will be stored in the output array subscripted by "^DD",727.827,727.827,50,23,6,0) "MST". "^DD",727.827,727.827,50,"DT") 3000509 "^DD",727.827,727.827,51,0) SHARING AGREEMENT PAYOR^F^^1;28^K:$L(X)>1!($L(X)<1) X "^DD",727.827,727.827,51,3) Answer must be 1 character in length. "^DD",727.827,727.827,51,21,0) ^.001^1^1^3120621^^^^ "^DD",727.827,727.827,51,21,1,0) An indicator used for patients participating in sharing agreements. "^DD",727.827,727.827,51,23,0) ^.001^1^1^3120621^^^ "^DD",727.827,727.827,51,23,1,0) Currently, this value is passing a null. "^DD",727.827,727.827,51,"DT") 3000509 "^DD",727.827,727.827,52,0) SHARING AGREEMENT INSURANCE CO^F^^1;29^K:$L(X)>11!($L(X)<1) X "^DD",727.827,727.827,52,3) Answer must be 1-11 characters in length. "^DD",727.827,727.827,52,21,0) ^.001^2^2^3120124^^ "^DD",727.827,727.827,52,21,1,0) Indicates the first insurer for patients who participate in sharing "^DD",727.827,727.827,52,21,2,0) agreements. "^DD",727.827,727.827,52,23,0) ^^1^1^3120124^ "^DD",727.827,727.827,52,23,1,0) Currently, this value is passing a null. "^DD",727.827,727.827,52,"DT") 3000509 "^DD",727.827,727.827,53,0) ENROLLMENT LOCATION^F^^1;30^K:$L(X)>7!($L(X)<3) X "^DD",727.827,727.827,53,3) Answer must be 3-7 characters in length. "^DD",727.827,727.827,53,21,0) ^.001^2^2^3120621^^^ "^DD",727.827,727.827,53,21,1,0) The facility that the patient chooses to designate as his preferred "^DD",727.827,727.827,53,21,2,0) location for care. "^DD",727.827,727.827,53,23,0) ^^5^5^3120621^ "^DD",727.827,727.827,53,23,1,0) The PREFERRED FACILITY field (#27.02) of the PATIENT file (#2) is defined "^DD",727.827,727.827,53,23,2,0) as the facility that the patient chooses to designate as his preferred "^DD",727.827,727.827,53,23,3,0) location for care. The PREFERRED FACILITY field (#27.02) is a pointer to "^DD",727.827,727.827,53,23,4,0) the INSTITUTION file (#4). From file #4, the value in the STATION NUMBER "^DD",727.827,727.827,53,23,5,0) field (#99) is used. "^DD",727.827,727.827,53,"DT") 3120621 "^DD",727.827,727.827,54,0) STATE CODE^F^^1;31^K:$L(X)>2!($L(X)<2) X "^DD",727.827,727.827,54,3) Answer must be 2 characters in length. "^DD",727.827,727.827,54,21,0) ^.001^1^1^3120621^^^^ "^DD",727.827,727.827,54,21,1,0) The state in which the patient resides. "^DD",727.827,727.827,54,23,0) ^.001^5^5^3120621^^ "^DD",727.827,727.827,54,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.827,727.827,54,23,2,0) in the CLINIC EXTRACT file (#727.827), STATE CODE data is derived from the "^DD",727.827,727.827,54,23,3,0) STATE field (#.115) in the PATIENT file (#2) which points to the STATE "^DD",727.827,727.827,54,23,4,0) file (#5). For the STATE file entry, data transmitted is the two character "^DD",727.827,727.827,54,23,5,0) VA STATE CODE, field (#2). "^DD",727.827,727.827,54,"DT") 3000509 "^DD",727.827,727.827,55,0) COUNTY CODE^F^^1;32^K:$L(X)>3!($L(X)<3) X "^DD",727.827,727.827,55,3) Answer must be 3 characters in length. "^DD",727.827,727.827,55,21,0) ^.001^1^1^3120621^^^^ "^DD",727.827,727.827,55,21,1,0) County in which the patient resides. "^DD",727.827,727.827,55,23,0) ^.001^5^5^3120621^^ "^DD",727.827,727.827,55,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.827,727.827,55,23,2,0) in the CLINIC EXTRACT file (#727.827), data is taken from the COUNTY field "^DD",727.827,727.827,55,23,3,0) (#.117) in the PATIENT file (#2), which points to a subfile record in the "^DD",727.827,727.827,55,23,4,0) COUNTY multiple field (#3) of the STATE file (#5). The three character VA "^DD",727.827,727.827,55,23,5,0) COUNTY CODE field (#2) within the COUNTY multiple field (#3) is used. "^DD",727.827,727.827,55,"DT") 3000509 "^DD",727.827,727.827,56,0) ASSOCIATE PC PROVIDER^F^^1;33^K:$L(X)>11!($L(X)<1) X "^DD",727.827,727.827,56,3) Answer must be 1-11 characters in length. "^DD",727.827,727.827,56,21,0) ^.001^2^2^3120621^^^ "^DD",727.827,727.827,56,21,1,0) The associate primary care provider assigned to this patient through the "^DD",727.827,727.827,56,21,2,0) PCMM module. "^DD",727.827,727.827,56,23,0) ^^10^10^3120621^ "^DD",727.827,727.827,56,23,1,0) Derived by a call to the Scheduling API, OUTPTAP^SDUTL3. The API returns "^DD",727.827,727.827,56,23,2,0) the associate provider's internal entry number and name from the NEW "^DD",727.827,727.827,56,23,3,0) PERSON file (#200). The ASSOCIATE PC PROVIDER is the value of a "2" "^DD",727.827,727.827,56,23,4,0) prefixed to the pointer value to indicate that the source file is "200". "^DD",727.827,727.827,56,23,5,0) For example, if the IEN of the provider in file #200 is 98765, the value "^DD",727.827,727.827,56,23,6,0) that will be stored is 298765. "^DD",727.827,727.827,56,23,7,0) "^DD",727.827,727.827,56,23,8,0) The PATIENT NO. - DFN (#4) field and the DAY field (#8) are used to "^DD",727.827,727.827,56,23,9,0) determine the patient's associate provider at the time the prescription is "^DD",727.827,727.827,56,23,10,0) filled. "^DD",727.827,727.827,56,"DT") 3000509 "^DD",727.827,727.827,57,0) ASSOCIATE PC PROV PERSON CLASS^F^^1;34^K:$L(X)>7!($L(X)<7) X "^DD",727.827,727.827,57,3) Answer must be 7 characters in length. "^DD",727.827,727.827,57,21,0) ^.001^2^2^3120621^^^ "^DD",727.827,727.827,57,21,1,0) The VA code of the Person Class of the Associate Primary Care Provider as "^DD",727.827,727.827,57,21,2,0) of the date of this extract record. "^DD",727.827,727.827,57,23,0) ^^4^4^3120621^ "^DD",727.827,727.827,57,23,1,0) Active Person Class is determined by the supported call "^DD",727.827,727.827,57,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.827,727.827,57,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.827,727.827,57,23,4,0) returned value string. "^DD",727.827,727.827,57,"DT") 3120621 "^DD",727.827,727.827,59,0) DOM,PRRTP AND SAARTP INDICATOR^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CET/TR;^1;36^Q "^DD",727.827,727.827,59,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.827,727.827,59,21,0) ^.001^2^2^3120606^^^^ "^DD",727.827,727.827,59,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP, or SARRTP "^DD",727.827,727.827,59,21,2,0) at the time care is provided. "^DD",727.827,727.827,59,23,0) ^.001^5^5^3120606^^^ "^DD",727.827,727.827,59,23,1,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.827,727.827,59,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.827,727.827,59,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.827,727.827,59,23,4,0) "^DD",727.827,727.827,59,23,5,0) Otherwise, the value is null. "^DD",727.827,727.827,59,"DT") 3120606 "^DD",727.827,727.827,60,0) ENROLLMENT CATEGORY^F^^1;37^K:$L(X)>1!($L(X)<1) X "^DD",727.827,727.827,60,3) Answer must be 1 character in length. "^DD",727.827,727.827,60,21,0) ^.001^1^1^3120621^^^^ "^DD",727.827,727.827,60,21,1,0) Patient's enrollment category. "^DD",727.827,727.827,60,23,0) ^^2^2^3120621^ "^DD",727.827,727.827,60,23,1,0) ENROLLMENT CATEGORY is derived from the standard call $$CATEGORY^DGENA4 "^DD",727.827,727.827,60,23,2,0) using the patient's DFN and the ENROLLMENT STATUS (#61) field. "^DD",727.827,727.827,60,"DT") 3000509 "^DD",727.827,727.827,61,0) ENROLLMENT STATUS^P27.15'^DGEN(27.15,^2;1^Q "^DD",727.827,727.827,61,3) Enter patient's enrollment status. "^DD",727.827,727.827,61,21,0) ^.001^1^1^3120621^^^^ "^DD",727.827,727.827,61,21,1,0) Patient's enrollment status. "^DD",727.827,727.827,61,23,0) ^^3^3^3120621^ "^DD",727.827,727.827,61,23,1,0) ENROLLMENT STATUS is derived from the standard call $$STATUS^DGENA using "^DD",727.827,727.827,61,23,2,0) the patient's DFN and returns the ENROLLMENT STATUS field (#.04) of the "^DD",727.827,727.827,61,23,3,0) PATIENT ENROLLMENT file (#27.11). "^DD",727.827,727.827,61,"DT") 3120621 "^DD",727.827,727.827,62,0) SHAD STATUS^S^Y:YES;N:NO;U:UNKNOWN;^2;2^Q "^DD",727.827,727.827,62,3) Enter SHAD Status. "^DD",727.827,727.827,62,21,0) ^.001^2^2^3120621^^ "^DD",727.827,727.827,62,21,1,0) Indicates whether patient meets requirements for Shipboard Hazard and "^DD",727.827,727.827,62,21,2,0) Defense (SHAD). "^DD",727.827,727.827,62,23,0) ^.001^3^3^3120621^^^^ "^DD",727.827,727.827,62,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.827,727.827,62,23,2,0) in the CLINIC EXTRACT file (#727.827), Shipboard Hazard and Defense data "^DD",727.827,727.827,62,23,3,0) is derived from using DBIA #4462 GETSHAD^DGUTL3(DFN). "^DD",727.827,727.827,62,"DT") 3100211 "^DD",727.827,727.827,64,0) PERIOD OF SERVICE^F^^2;4^K:$L(X)>1!($L(X)<1) X "^DD",727.827,727.827,64,3) Answer must be 1 character in length. "^DD",727.827,727.827,64,21,0) ^.001^2^2^3120621^^^^ "^DD",727.827,727.827,64,21,1,0) The period of service which best classifies this patient based on "^DD",727.827,727.827,64,21,2,0) eligibility code. "^DD",727.827,727.827,64,23,0) ^.001^9^9^3120621^^ "^DD",727.827,727.827,64,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.827,727.827,64,23,2,0) in the CLINIC EXTRACT file (#727.827), PERIOD OF SERVICE data is derived "^DD",727.827,727.827,64,23,3,0) from the PERIOD OF SERVICE field (#.323) in the PATIENT file (#2). This "^DD",727.827,727.827,64,23,4,0) field is a pointer to the PERIOD OF SERVICE file (#21). Using the period "^DD",727.827,727.827,64,23,5,0) of service pointer, the data is derived from the CODE field (#.03) in the "^DD",727.827,727.827,64,23,6,0) PERIOD OF SERVICE file (#21). This code is a single alpha numeric "^DD",727.827,727.827,64,23,7,0) character. "^DD",727.827,727.827,64,23,8,0) "^DD",727.827,727.827,64,23,9,0) The veteran's period of service indicator is returned by ELIG^VADPT. "^DD",727.827,727.827,64,"DT") 3000509 "^DD",727.827,727.827,65,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^2;5^Q "^DD",727.827,727.827,65,3) Enter observation patient status for this record. "^DD",727.827,727.827,65,21,0) ^.001^1^1^3120621^^^^ "^DD",727.827,727.827,65,21,1,0) Indicates if patient is considered to be an observation patient. "^DD",727.827,727.827,65,23,0) ^^12^12^3120621^ "^DD",727.827,727.827,65,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.827,727.827,65,23,2,0) "^DD",727.827,727.827,65,23,3,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.827,727.827,65,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.827,727.827,65,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.827,727.827,65,23,6,0) file. "^DD",727.827,727.827,65,23,7,0) "^DD",727.827,727.827,65,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.827,727.827,65,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.827,727.827,65,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.827,727.827,65,23,11,0) "^DD",727.827,727.827,65,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.827,727.827,65,"DT") 3120606 "^DD",727.827,727.827,66,0) ENCOUNTER NUMBER^F^^2;6^K:$L(X)>18!($L(X)<1) X "^DD",727.827,727.827,66,3) Answer must be 1-18 characters in length. "^DD",727.827,727.827,66,21,0) ^.001^1^1^3120621^^^^ "^DD",727.827,727.827,66,21,1,0) The unique number assigned for DSS. "^DD",727.827,727.827,66,23,0) ^.001^4^4^3120621^^ "^DD",727.827,727.827,66,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.827,727.827,66,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.827,727.827,66,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.827,727.827,66,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.827,727.827,66,"DT") 3010503 "^DD",727.827,727.827,67,0) AGENT ORANGE LOCATION^S^K:KOREAN DMZ;V:VIETNAM;O:OTHER;^2;7^Q "^DD",727.827,727.827,67,3) Enter where the patient was exposed to agent orange. "^DD",727.827,727.827,67,21,0) ^.001^1^1^3120621^^^ "^DD",727.827,727.827,67,21,1,0) Indicates the location where the patient was exposed to Agent Orange. "^DD",727.827,727.827,67,23,0) ^^3^3^3120621^ "^DD",727.827,727.827,67,23,1,0) The location is returned by a call to SVC^VADPT which gets its data from "^DD",727.827,727.827,67,23,2,0) the AGENT ORANGE EXPOSURE LOCATION field (#.3213) of the PATIENT file "^DD",727.827,727.827,67,23,3,0) (#2). "^DD",727.827,727.827,67,"DT") 3120621 "^DD",727.827,727.827,68,0) PRODUCTION DIVISION CODE^F^^2;8^K:$L(X)>7!($L(X)<3) X "^DD",727.827,727.827,68,3) Answer must be 3-7 characters in length. "^DD",727.827,727.827,68,21,0) ^.001^1^1^3120621^^ "^DD",727.827,727.827,68,21,1,0) Identifies the division/facility where the work was performed. "^DD",727.827,727.827,68,23,0) ^.001^4^4^3120621^^^ "^DD",727.827,727.827,68,23,1,0) Data comes from the DIVISION field (#3.5) of the HOSPITAL LOCATION "^DD",727.827,727.827,68,23,2,0) file (#44), which is a pointer to the MEDICAL CENTER DIVISION file "^DD",727.827,727.827,68,23,3,0) (#40.8). This value is then used to call the API GETDIV^ECXDEPT to "^DD",727.827,727.827,68,23,4,0) get the STATION NUMBER field (#99) from the INSTITUTION file (#4). "^DD",727.827,727.827,68,"DT") 3120621 "^DD",727.827,727.827,71,0) MEANS TEST^S^A:CATEGORY A;B:CATEGORY B;C:CATEGORY C;P:PENDING ADJUDICATION;R:REQUIRES MEANS TEST;N:MEANS TEST NOT REQUIRED;E:EXEMPT;I:INCOMPLETE;L:NO LONGER APPLICABLE;M:NON-EXEMPT;^2;11^Q "^DD",727.827,727.827,71,.1) Means Test "^DD",727.827,727.827,71,3) Select the appropriate means test category. "^DD",727.827,727.827,71,21,0) ^.001^1^1^3120130^^^^ "^DD",727.827,727.827,71,21,1,0) The current means test category for this patient. "^DD",727.827,727.827,71,23,0) ^^8^8^3120130^ "^DD",727.827,727.827,71,23,1,0) Using the patient pointer (DFN) stored in the "^DD",727.827,727.827,71,23,2,0) PATIENT NO. - DFN field (#4), MEANS TEST data is derived from the CURRENT "^DD",727.827,727.827,71,23,3,0) MEANS TEST STATUS field (#.14) in the PATIENT file (#2). "^DD",727.827,727.827,71,23,4,0) This field is a pointer to the MEANS TEST STATUS file (#408.32). Using "^DD",727.827,727.827,71,23,5,0) the means test pointer, the data is derived from the CODE field (#.02) in "^DD",727.827,727.827,71,23,6,0) the MEANS TEST STATUS file (#408.32). "^DD",727.827,727.827,71,23,7,0) "^DD",727.827,727.827,71,23,8,0) The status indicator is returned by ELIG^VADPT. "^DD",727.827,727.827,71,"DT") 3021009 "^DD",727.827,727.827,72,0) HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^2;12^Q "^DD",727.827,727.827,72,.1) Head and Neck Cancer Indicator "^DD",727.827,727.827,72,3) Enter the Head & Neck Cancer Indicator for the patient. "^DD",727.827,727.827,72,21,0) ^.001^1^1^3120621^^ "^DD",727.827,727.827,72,21,1,0) Identifies whether patient has head and/or neck cancer. "^DD",727.827,727.827,72,23,0) ^.001^3^3^3120621^^^ "^DD",727.827,727.827,72,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.827,727.827,72,23,2,0) (#4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "^DD",727.827,727.827,72,23,3,0) CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11). "^DD",727.827,727.827,72,"DT") 3020828 "^DD",727.827,727.827,74,0) RACE 1^F^^2;14^K:$L(X)>6!($L(X)<1) X "^DD",727.827,727.827,74,.1) Race 1 "^DD",727.827,727.827,74,3) Answer must be 1-6 characters in length. "^DD",727.827,727.827,74,21,0) ^.001^1^1^3120621^^ "^DD",727.827,727.827,74,21,1,0) Self-reported by patient as recorded in VistA patient file. "^DD",727.827,727.827,74,23,0) ^^11^11^3120621^ "^DD",727.827,727.827,74,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.827,727.827,74,23,2,0) (#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file "^DD",727.827,727.827,74,23,3,0) (#10) pointed to by the RACE INFORMATION field (#.01) of the "^DD",727.827,727.827,74,23,4,0) RACE INFORMATION subfile (#2.02) of the PATIENT file (#2). "^DD",727.827,727.827,74,23,5,0) "^DD",727.827,727.827,74,23,6,0) Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03) "^DD",727.827,727.827,74,23,7,0) where the METHOD OF COLLECTION field (#.02) is set to 1 "^DD",727.827,727.827,74,23,8,0) (SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race "^DD",727.827,727.827,74,23,9,0) entries can be included. If any of the RACE INFORMATION values returned is "^DD",727.827,727.827,74,23,10,0) "C" (DECLINED TO ANSWER), that will be the only value included in the "^DD",727.827,727.827,74,23,11,0) RACE1 field. "^DD",727.827,727.827,74,"DT") 3020828 "^DD",727.827,727.827,75,0) CBOC STATUS INDICATOR^S^Y:YES;^2;15^Q "^DD",727.827,727.827,75,.1) CBOC Status Indicator "^DD",727.827,727.827,75,3) Indicate if the patient was seen at a Community Based Outpatient Clinic (CBOC). "^DD",727.827,727.827,75,21,0) ^.001^2^2^3120621^^^ "^DD",727.827,727.827,75,21,1,0) Indicates if the patient was seen at a Community Based Outpatient Clinic "^DD",727.827,727.827,75,21,2,0) (CBOC). "^DD",727.827,727.827,75,23,0) ^^4^4^3120621^ "^DD",727.827,727.827,75,23,1,0) CBOC STATUS is set to yes if the NAME field (#.01) of the FACILITY TYPE "^DD",727.827,727.827,75,23,2,0) file (#4.1) as pointed to by the FACILITY TYPE field (#13) of the "^DD",727.827,727.827,75,23,3,0) INSTITUTION file as pointed to by the INSTITUTION FILE POINTER field "^DD",727.827,727.827,75,23,4,0) (#.07) of the MEDICAL CENTER DIVISION file (#40.8) is equal to CBOC. "^DD",727.827,727.827,75,"DT") 3120621 "^DD",727.827,727.827,76,0) DSS IP #^NJ7,0^^2;16^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X "^DD",727.827,727.827,76,3) Type a Number between 1 and 9999999, 0 Decimal Digits. "^DD",727.827,727.827,76,21,0) ^.001^2^2^3120621^^^^ "^DD",727.827,727.827,76,21,1,0) The nationally defined DSS Intermediate Product Number designated to "^DD",727.827,727.827,76,21,2,0) the patient care product being provided. "^DD",727.827,727.827,76,23,0) ^^1^1^3120621^ "^DD",727.827,727.827,76,23,1,0) For the Clinic extract, the DSS IP# field is null. "^DD",727.827,727.827,76,"DT") 3031113 "^DD",727.827,727.827,77,0) ENROLLMENT PRIORITY^F^^2;17^K:$L(X)>2!($L(X)<1) X "^DD",727.827,727.827,77,3) Answer must be 1-2 characters in length. "^DD",727.827,727.827,77,21,0) ^^2^2^3111116^ "^DD",727.827,727.827,77,21,1,0) This field contains the enrollment priority group and the enrollment "^DD",727.827,727.827,77,21,2,0) priority subgroup. "^DD",727.827,727.827,77,23,0) ^.001^20^20^3111116^^ "^DD",727.827,727.827,77,23,1,0) ENROLLMENT PRIORITY field contains the enrollment priority group and the "^DD",727.827,727.827,77,23,2,0) enrollment priority subgroup from the Patient Enrollment File #27.11. "^DD",727.827,727.827,77,23,3,0) "^DD",727.827,727.827,77,23,4,0) ENROLLMENT PRIORITY Groups determined for a patient enrollment include: "^DD",727.827,727.827,77,23,5,0) "^DD",727.827,727.827,77,23,6,0) '1' FOR GROUP 1 "^DD",727.827,727.827,77,23,7,0) '2' FOR GROUP 2 "^DD",727.827,727.827,77,23,8,0) '3' FOR GROUP 3 "^DD",727.827,727.827,77,23,9,0) '4' FOR GROUP 4 "^DD",727.827,727.827,77,23,10,0) '5' FOR GROUP 5 "^DD",727.827,727.827,77,23,11,0) '6' FOR GROUP 6 "^DD",727.827,727.827,77,23,12,0) '7' FOR GROUP 7 "^DD",727.827,727.827,77,23,13,0) '8' FOR GROUP 8 "^DD",727.827,727.827,77,23,14,0) "^DD",727.827,727.827,77,23,15,0) ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include: "^DD",727.827,727.827,77,23,16,0) "^DD",727.827,727.827,77,23,17,0) 'a' FOR 1 "^DD",727.827,727.827,77,23,18,0) 'c' FOR 3 "^DD",727.827,727.827,77,23,19,0) 'e' FOR 5 "^DD",727.827,727.827,77,23,20,0) 'g' FOR 7 "^DD",727.827,727.827,77,"DT") 3040226 "^DD",727.827,727.827,78,0) USER ENROLLEE^S^U:USER ENROLLED;^2;18^Q "^DD",727.827,727.827,78,3) Enter patient's current enrollment status. "^DD",727.827,727.827,78,21,0) ^.001^2^2^3120621^^^^ "^DD",727.827,727.827,78,21,1,0) Indicates whether a Veteran has User Enrollee status for the current or "^DD",727.827,727.827,78,21,2,0) future fiscal year. "^DD",727.827,727.827,78,23,0) ^^5^5^3120621^ "^DD",727.827,727.827,78,23,1,0) User enrollee is determined by checking the PATIENT ENROLLMENT file "^DD",727.827,727.827,78,23,2,0) (#27.11). When a user has a current or future fiscal year in the VistA "^DD",727.827,727.827,78,23,3,0) User Enrollee Status (#.04) field the value is set to 'U' and Null if no "^DD",727.827,727.827,78,23,4,0) date or a past year's value is contained. Determined by the use of an API: "^DD",727.827,727.827,78,23,5,0) $$UESTAT^EASUSER where the Patient Identifier (DFN) is passed in. "^DD",727.827,727.827,78,"DT") 3120621 "^DD",727.827,727.827,79,0) PATIENT TYPE^S^AC:ACTIVE DUTY;AL:ALLIED VETERAN;CO:COLLATERAL;EM:EMPLOYEE;IN:INELIGIBLE;MI:MILITARY RETIREE;NO:NON-VETERAN (OTHER);NS:NSC VETERAN;SC:SC VETERAN;TR:TRICARE;^2;19^Q "^DD",727.827,727.827,79,3) Enter type of patient. "^DD",727.827,727.827,79,21,0) ^.001^2^2^3120621^^ "^DD",727.827,727.827,79,21,1,0) Refers to the various types of patient which may be seen at a VA facility. "^DD",727.827,727.827,79,21,2,0) Every patient in the system must have a TYPE specified. "^DD",727.827,727.827,79,23,0) ^^5^5^3120621^ "^DD",727.827,727.827,79,23,1,0) PATIENT TYPE is derived from a call to TYPE^ECXUTL5(DFN). Using the "^DD",727.827,727.827,79,23,2,0) patient's DFN, the NAME field (#.01) of the TYPE OF PATIENT file (#391) as "^DD",727.827,727.827,79,23,3,0) pointed to by the TYPE field (#391) of the PATIENT file (#2) is shortened "^DD",727.827,727.827,79,23,4,0) to the first two characters to determine the value stored in the PATIENT "^DD",727.827,727.827,79,23,5,0) TYPE field (#79). "^DD",727.827,727.827,79,"DT") 3040226 "^DD",727.827,727.827,80,0) CV STATUS ELIGIBILITY^S^Y:YES;E:ELIGIBILITY EXPIRED;^2;20^Q "^DD",727.827,727.827,80,3) Enter patient's combat veteran eligibility. "^DD",727.827,727.827,80,21,0) ^.001^4^4^3120621^^ "^DD",727.827,727.827,80,21,1,0) Records if veteran served on active duty in a theater of combat "^DD",727.827,727.827,80,21,2,0) operations during a period of war after the Persian Gulf War or in combat "^DD",727.827,727.827,80,21,3,0) against a hostile force during a period of hostilities after November 11, "^DD",727.827,727.827,80,21,4,0) 1998. "^DD",727.827,727.827,80,23,0) ^^11^11^3120621^ "^DD",727.827,727.827,80,23,1,0) CV STATUS ELIGIBILITY is determined by the use of API "^DD",727.827,727.827,80,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.827,727.827,80,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.827,727.827,80,23,4,0) pieces (i.e. 1^20010106^0) and the first piece is resolved as follows. "^DD",727.827,727.827,80,23,5,0) "^DD",727.827,727.827,80,23,6,0) 1 - veteran qualifies as a CV "^DD",727.827,727.827,80,23,7,0) 0 - veteran does not qualify as a CV "^DD",727.827,727.827,80,23,8,0) -1 - bad DFN "^DD",727.827,727.827,80,23,9,0) "^DD",727.827,727.827,80,23,10,0) Based on this result the field will be set to 'Y' for 'YES' or 'E' for "^DD",727.827,727.827,80,23,11,0) 'ELIGIBILITY EXPIRED' or 'NULL' for not eligible. "^DD",727.827,727.827,80,"DT") 3120621 "^DD",727.827,727.827,81,0) CV ELIGIBILITY END DATE^F^^2;21^K:$L(X)>8!($L(X)<8) X "^DD",727.827,727.827,81,3) Answer must be 8 characters in length. "^DD",727.827,727.827,81,21,0) ^.001^4^4^3120621^^ "^DD",727.827,727.827,81,21,1,0) Records the Combat Veteran eligibility expiration date of veteran who "^DD",727.827,727.827,81,21,2,0) served on active duty in a theater of combat operations during a period of "^DD",727.827,727.827,81,21,3,0) war after the Persian Gulf War or in combat against a hostile force during "^DD",727.827,727.827,81,21,4,0) a period of hostilities after November 11, 1998. "^DD",727.827,727.827,81,23,0) ^^5^5^3120621^ "^DD",727.827,727.827,81,23,1,0) CV ELIGIBILITY END DATE is determined by the use of API "^DD",727.827,727.827,81,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.827,727.827,81,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.827,727.827,81,23,4,0) pieces (i.e. 1^20010106^0) the 2nd piece is the COMBAT VET END DATE in HL7 "^DD",727.827,727.827,81,23,5,0) format. "^DD",727.827,727.827,81,"DT") 3120621 "^DD",727.827,727.827,82,0) ENCOUNTER CV^S^Y:YES;^2;22^Q "^DD",727.827,727.827,82,3) Enter patient's combat veteran eligibility. "^DD",727.827,727.827,82,21,0) ^^4^4^3120621^ "^DD",727.827,727.827,82,21,1,0) Records if a veteran served on active duty in a theater of combat "^DD",727.827,727.827,82,21,2,0) operations during a period of war after the Persian Gulf War or in combat "^DD",727.827,727.827,82,21,3,0) against a hostile force during a period of hostilities after November 11, "^DD",727.827,727.827,82,21,4,0) 1998. "^DD",727.827,727.827,82,23,0) ^^10^10^3120621^ "^DD",727.827,727.827,82,23,1,0) ENCOUNTER CV is determined by the use of API $$CVEDT^DGCV(DFN,DATE) that "^DD",727.827,727.827,82,23,2,0) checks the COMBAT VET END DATE field (#.5295) from the PATIENT file (#2) "^DD",727.827,727.827,82,23,3,0) to determine CV Status. API returns three pieces (i.e. 1^20100106^0). The "^DD",727.827,727.827,82,23,4,0) third piece returns: "^DD",727.827,727.827,82,23,5,0) "^DD",727.827,727.827,82,23,6,0) 1 - vet was eligible on date specified "^DD",727.827,727.827,82,23,7,0) 0 - vet was not eligible on date specified "^DD",727.827,727.827,82,23,8,0) "^DD",727.827,727.827,82,23,9,0) Based on these returns, the value for this field shall be Y for Yes if "^DD",727.827,727.827,82,23,10,0) value is 1 or left blank if 0 to indicate ineligibility. "^DD",727.827,727.827,82,"DT") 3120621 "^DD",727.827,727.827,83,0) NATIONAL PATIENT RECORD FLAG^S^Y:YES;^2;23^Q "^DD",727.827,727.827,83,3) Indicate if patient is associated with a category 1 patient record flag. "^DD",727.827,727.827,83,21,0) ^^2^2^3120621^ "^DD",727.827,727.827,83,21,1,0) This field records whether the patient's record contains 1 or more active "^DD",727.827,727.827,83,21,2,0) category 1 (National) Patient Record Flags. "^DD",727.827,727.827,83,23,0) ^^7^7^3120621^ "^DD",727.827,727.827,83,23,1,0) The NATIONAL PATIENT RECORD FLAG field is set based on the results of the "^DD",727.827,727.827,83,23,2,0) $$GETACT^DGPFAPI(DFN,TARGET ARRAY) call. This call looks at the category "^DD",727.827,727.827,83,23,3,0) 1 national patient record flags as recorded in the PRF NATIONAL FLAG file "^DD",727.827,727.827,83,23,4,0) (#26.15). The resulting value of this call is the number of active "^DD",727.827,727.827,83,23,5,0) category I patient record flags assigned to this patient. This field is "^DD",727.827,727.827,83,23,6,0) set to Y (YES) if the result is greater than zero. A value of zero causes "^DD",727.827,727.827,83,23,7,0) this field to be left null. "^DD",727.827,727.827,83,"DT") 3120621 "^DD",727.827,727.827,84,0) SW ASIA CONDITIONS^S^Y:YES;N:NO;U:UNKNOWN;^2;24^Q "^DD",727.827,727.827,84,3) Enter patient's Southwest Asia Indicator status. "^DD",727.827,727.827,84,21,0) ^.001^2^2^3120621^^ "^DD",727.827,727.827,84,21,1,0) This field is used to indicate if patient claims exposure to Southwest "^DD",727.827,727.827,84,21,2,0) Asia Conditions. "^DD",727.827,727.827,84,23,0) ^^3^3^3120621^ "^DD",727.827,727.827,84,23,1,0) This field is derived from the SOUTHWEST ASIA CONDITIONS? field (#.322013) "^DD",727.827,727.827,84,23,2,0) in the PATIENT File (#2) using the patient's DFN. The status indicator is "^DD",727.827,727.827,84,23,3,0) returned by SVC^VADPT which is called by PAT^ECXUTL3. "^DD",727.827,727.827,84,"DT") 3090527 "^DD",727.827,727.827,87,0) ENC HEAD/NECK CA^S^Y:YES;N:NO;^2;27^Q "^DD",727.827,727.827,87,3) Indicate if service provided is related to head and/or neck cancer. "^DD",727.827,727.827,87,21,0) ^^2^2^3120621^ "^DD",727.827,727.827,87,21,1,0) Indicates whether service provided during this patient encounter is "^DD",727.827,727.827,87,21,2,0) related to head/neck Cancer. "^DD",727.827,727.827,87,23,0) ^.001^6^6^3120621^^^ "^DD",727.827,727.827,87,23,1,0) Using the VISIT FILE ENTRY field (#.05) in the OUTPATIENT ENCOUNTER file "^DD",727.827,727.827,87,23,2,0) (#409.68) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.827,727.827,87,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the head/neck cancer data "^DD",727.827,727.827,87,23,4,0) stored at the HEAD AND/OR NECK CANCER field (#80006) in the VISIT file "^DD",727.827,727.827,87,23,5,0) (#9000010). The value will be stored in the output array subscripted by "^DD",727.827,727.827,87,23,6,0) "HNC". "^DD",727.827,727.827,87,"DT") 3120621 "^DD",727.827,727.827,93,0) COUNTRY CODE^F^^3;1^K:$L(X)>3!($L(X)<1) X "^DD",727.827,727.827,93,3) The code for the country. Answer must be 1-3 characters in length. "^DD",727.827,727.827,93,21,0) ^^1^1^3120621^ "^DD",727.827,727.827,93,21,1,0) The code for the country associated with the address. "^DD",727.827,727.827,93,23,0) ^.001^2^2^3120621^^^ "^DD",727.827,727.827,93,23,1,0) The three-character alpha identifying code is copied from the CODE (#.01) "^DD",727.827,727.827,93,23,2,0) field of the COUNTRY CODE (#779.004) file. "^DD",727.827,727.827,93,"DT") 3090609 "^DD",727.827,727.827,94,0) ENCOUNTER SHAD^S^Y:YES;N:NO;^3;2^Q "^DD",727.827,727.827,94,3) Encounter related to treatment for PROJ 112/SHAD condition. "^DD",727.827,727.827,94,21,0) ^^2^2^3120621^ "^DD",727.827,727.827,94,21,1,0) Indicates if treatment provided during the patient's encounter is related "^DD",727.827,727.827,94,21,2,0) to the Shipboard Hazard And Defense (SHAD) condition. "^DD",727.827,727.827,94,23,0) ^.001^6^6^3120621^^ "^DD",727.827,727.827,94,23,1,0) Using the VISIT FILE ENTRY field (#.05) in the OUTPATIENT ENCOUNTER file "^DD",727.827,727.827,94,23,2,0) (#409.68) a call is made to API VISIT^ECXSCX1 which in turn calls "^DD",727.827,727.827,94,23,3,0) ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the Shipboard Hazard and "^DD",727.827,727.827,94,23,4,0) Defense conditions indicator stored at the PROJ 112/SHAD field (#80008) in "^DD",727.827,727.827,94,23,5,0) the VISIT file (#9000010). The value will be stored in the output array "^DD",727.827,727.827,94,23,6,0) subscripted by "SHAD". "^DD",727.827,727.827,94,"DT") 3100901 "^DD",727.827,727.827,111,0) ED DISPOSITION CODE^S^A:ADMIT;D:DECEASED;E:ERROR;L:LEFT;R:REFERRED;T:TRANSFERRED;U:UNKNOWN;N:NONE;^3;19^Q "^DD",727.827,727.827,111,3) Enter the disposition code for the emergency room visit. "^DD",727.827,727.827,111,21,0) ^.001^1^1^3120718^^^^ "^DD",727.827,727.827,111,21,1,0) Disposition code associated with the patient's emergency room visit. "^DD",727.827,727.827,111,23,0) ^.001^7^7^3120718^^ "^DD",727.827,727.827,111,23,1,0) The emergency room disposition is derived by calling $$EDIS^ECXUTL, which "^DD",727.827,727.827,111,23,2,0) uses the VISIT field (#.12) of the ED LOG file (#230) to determine if the "^DD",727.827,727.827,111,23,3,0) patient was seen in the emergency department (based on stop code) as part "^DD",727.827,727.827,111,23,4,0) of their visit. If the patient was seen in the emergency department then "^DD",727.827,727.827,111,23,5,0) the NAME field (#.01) of the TRACKING CODE file (#233.1) as pointed to by "^DD",727.827,727.827,111,23,6,0) the DISPOSITION field (#1.2) of the ED LOG file (#230) is used to identify "^DD",727.827,727.827,111,23,7,0) the disposition code. "^DD",727.827,727.827,111,"DT") 3120302 "^DD",727.827,727.827,112,0) PRIMARY ICD-10 CODE^F^^3;20^K:$L(X)>8!($L(X)<1) X "^DD",727.827,727.827,112,3) Answer must be 1-8 characters in length. "^DD",727.827,727.827,112,21,0) ^.001^1^1^3120621^^ "^DD",727.827,727.827,112,21,1,0) This is the Primary ICD10 code for this clinic visit. "^DD",727.827,727.827,112,23,0) ^^6^6^3120621^ "^DD",727.827,727.827,112,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.827,727.827,112,23,2,0) and stored in this field. "^DD",727.827,727.827,112,23,3,0) "^DD",727.827,727.827,112,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.827,727.827,112,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.827,727.827,112,23,6,0) information. "^DD",727.827,727.827,112,"DT") 3120304 "^DD",727.827,727.827,113,0) SECONDARY ICD-10 CODE #1^F^^3;21^K:$L(X)>8!($L(X)<1) X "^DD",727.827,727.827,113,3) Answer must be 1-8 characters in length. "^DD",727.827,727.827,113,21,0) ^.001^1^1^3120621^^^^ "^DD",727.827,727.827,113,21,1,0) This is the first Secondary ICD-10 code for this clinic visit. "^DD",727.827,727.827,113,23,0) ^^6^6^3120621^ "^DD",727.827,727.827,113,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.827,727.827,113,23,2,0) and stored in this field. "^DD",727.827,727.827,113,23,3,0) "^DD",727.827,727.827,113,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.827,727.827,113,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.827,727.827,113,23,6,0) information. "^DD",727.827,727.827,113,"DT") 3120304 "^DD",727.827,727.827,114,0) SECONDARY ICD-10 CODE #2^F^^3;22^K:$L(X)>8!($L(X)<1) X "^DD",727.827,727.827,114,3) Answer must be 1-8 characters in length. "^DD",727.827,727.827,114,21,0) ^.001^1^1^3120621^^^ "^DD",727.827,727.827,114,21,1,0) This is the second secondary ICD-10 code for this clinic visit. "^DD",727.827,727.827,114,23,0) ^^6^6^3120621^ "^DD",727.827,727.827,114,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.827,727.827,114,23,2,0) and stored in this field. "^DD",727.827,727.827,114,23,3,0) "^DD",727.827,727.827,114,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.827,727.827,114,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.827,727.827,114,23,6,0) information. "^DD",727.827,727.827,114,"DT") 3120304 "^DD",727.827,727.827,115,0) SECONDARY ICD-10 CODE #3^F^^3;23^K:$L(X)>8!($L(X)<1) X "^DD",727.827,727.827,115,3) Answer must be 1-8 characters in length. "^DD",727.827,727.827,115,21,0) ^.001^1^1^3120621^^^ "^DD",727.827,727.827,115,21,1,0) This is the third secondary ICD-10 code for this clinic visit. "^DD",727.827,727.827,115,23,0) ^^6^6^3120621^ "^DD",727.827,727.827,115,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.827,727.827,115,23,2,0) and stored in this field. "^DD",727.827,727.827,115,23,3,0) "^DD",727.827,727.827,115,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.827,727.827,115,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.827,727.827,115,23,6,0) information. "^DD",727.827,727.827,115,"DT") 3120304 "^DD",727.827,727.827,116,0) SECONDARY ICD-10 CODE #4^F^^3;24^K:$L(X)>8!($L(X)<1) X "^DD",727.827,727.827,116,3) Answer must be 1-8 characters in length. "^DD",727.827,727.827,116,21,0) ^.001^1^1^3120621^^^ "^DD",727.827,727.827,116,21,1,0) This is the fourth secondary ICD-10 code for this clinic visit. "^DD",727.827,727.827,116,23,0) ^^6^6^3120621^ "^DD",727.827,727.827,116,23,1,0) Once available, the ICD10 data will be retrieved from the supported API "^DD",727.827,727.827,116,23,2,0) and stored in this field. "^DD",727.827,727.827,116,23,3,0) "^DD",727.827,727.827,116,23,4,0) This field is added in anticipation of the release of ICD10 and the file "^DD",727.827,727.827,116,23,5,0) will be updated at the time the software is updated to retrieve the ICD10 "^DD",727.827,727.827,116,23,6,0) information. "^DD",727.827,727.827,116,"DT") 3120304 "^DD",727.829,727.829,.01,0) SEQUENCE NUMBER^NJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X "^DD",727.829,727.829,.01,1,0) ^.1 "^DD",727.829,727.829,.01,1,1,0) 727.829^B "^DD",727.829,727.829,.01,1,1,1) S ^ECX(727.829,"B",$E(X,1,30),DA)="" "^DD",727.829,727.829,.01,1,1,2) K ^ECX(727.829,"B",$E(X,1,30),DA) "^DD",727.829,727.829,.01,3) Enter a Number between 1 and 999999999, 0 Decimal Digits. "^DD",727.829,727.829,.01,21,0) ^.001^1^1^3120614^^^^ "^DD",727.829,727.829,.01,21,1,0) The record number for this extract entry. "^DD",727.829,727.829,.01,23,0) ^.001^1^1^3120614^^^^ "^DD",727.829,727.829,.01,23,1,0) The internal entry number (IEN) for this record. This entry is DINUMed. "^DD",727.829,727.829,.01,"DT") 3120612 "^DD",727.829,727.829,1,0) YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X "^DD",727.829,727.829,1,.1) Year/Month "^DD",727.829,727.829,1,2) S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y) "^DD",727.829,727.829,1,2.1) S Y=$$ECXYMX^ECXUTL(Y) "^DD",727.829,727.829,1,3) Answer must be 6 characters in length. "^DD",727.829,727.829,1,21,0) ^.001^2^2^3120612^^^^ "^DD",727.829,727.829,1,21,1,0) A six character numeric string representing the year and the month "^DD",727.829,727.829,1,21,2,0) for which this extract was performed. "^DD",727.829,727.829,1,23,0) ^^1^1^3120612^ "^DD",727.829,727.829,1,23,1,0) Format is YYYYMM. "^DD",727.829,727.829,1,"DT") 3050301 "^DD",727.829,727.829,3,0) FACILITY^F^^0;4^K:$L(X)>7!($L(X)<3) X "^DD",727.829,727.829,3,.1) Facility "^DD",727.829,727.829,3,3) Answer must be 3-7 characters in length. "^DD",727.829,727.829,3,21,0) ^.001^1^1^3120613^^^^ "^DD",727.829,727.829,3,21,1,0) This is the facility/division where the extract was performed. "^DD",727.829,727.829,3,23,0) ^^6^6^3120613^ "^DD",727.829,727.829,3,23,1,0) For Vista records: It is derived using the NAME field (#.01) pointer from "^DD",727.829,727.829,3,23,2,0) the DSS EXTRACTS file (#728), FACILITY is derived from the STATION NUMBER "^DD",727.829,727.829,3,23,3,0) field (#99) for that pointer number in the INSTITUTION file (#4). "^DD",727.829,727.829,3,23,4,0) "^DD",727.829,727.829,3,23,5,0) For VBECS Records: The value is derived from the ORDERING LOCATION field "^DD",727.829,727.829,3,23,6,0) (#2) of the VBECS DSS EXTRACT file (#6002.03). "^DD",727.829,727.829,3,"DT") 3120613 "^DD",727.829,727.829,5,0) SSN^F^^0;6^K:$L(X)>10!($L(X)<9) X "^DD",727.829,727.829,5,3) Answer must be 9-10 characters in length. "^DD",727.829,727.829,5,21,0) ^.001^1^1^3120613^^^^ "^DD",727.829,727.829,5,21,1,0) The patient's social security number. "^DD",727.829,727.829,5,23,0) ^^6^6^3120613^ "^DD",727.829,727.829,5,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.829,727.829,5,23,2,0) in the BLOOD BANK EXTRACT file (#727.829), SSN data is derived from the "^DD",727.829,727.829,5,23,3,0) SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2). "^DD",727.829,727.829,5,23,4,0) "^DD",727.829,727.829,5,23,5,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with an "^DD",727.829,727.829,5,23,6,0) SSN beginning with "00000" will not be included in the extract. "^DD",727.829,727.829,5,"DT") 3041202 "^DD",727.829,727.829,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.829,727.829,6,3) Your answer must be 4 characters in length. "^DD",727.829,727.829,6,21,0) ^.001^1^1^3120613^^^^ "^DD",727.829,727.829,6,21,1,0) The first four characters of the patient's last name. "^DD",727.829,727.829,6,23,0) ^.001^6^6^3120613^^^^ "^DD",727.829,727.829,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.829,727.829,6,23,2,0) in the BLOOD BANK EXTRACT file (#727.829), NAME data is derived from the "^DD",727.829,727.829,6,23,3,0) NAME field (#.01) in the PATIENT file (#2). The first four characters of "^DD",727.829,727.829,6,23,4,0) the first "," piece are used, padded with trailing spaces if necessary. "^DD",727.829,727.829,6,23,5,0) "^DD",727.829,727.829,6,23,6,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.829,727.829,6,"DT") 3041202 "^DD",727.829,727.829,7,0) IN/OUT PATIENT INDICATOR^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q "^DD",727.829,727.829,7,3) Enter the patient's status for this extract entry. "^DD",727.829,727.829,7,21,0) ^^2^2^3120608^ "^DD",727.829,727.829,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for this "^DD",727.829,727.829,7,21,2,0) extract. "^DD",727.829,727.829,7,23,0) ^^10^10^3120608^ "^DD",727.829,727.829,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.829,727.829,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.829,727.829,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.829,727.829,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.829,727.829,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.829,727.829,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.829,727.829,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.829,727.829,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.829,727.829,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.829,727.829,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.829,727.829,7,"DT") 3120608 "^DD",727.829,727.829,8,0) ENCOUNTER NUMBER^F^^0;9^K:$L(X)>18!($L(X)<1) X "^DD",727.829,727.829,8,.1) Encounter Number "^DD",727.829,727.829,8,3) Answer must be 1-18 characters in length. "^DD",727.829,727.829,8,21,0) ^.001^1^1^3120613^^^ "^DD",727.829,727.829,8,21,1,0) The unique number assigned for DSS. "^DD",727.829,727.829,8,23,0) ^.001^4^4^3120613^^ "^DD",727.829,727.829,8,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.829,727.829,8,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.829,727.829,8,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.829,727.829,8,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.829,727.829,8,"DT") 3041202 "^DD",727.829,727.829,12,0) COMPONENT ABBREVIATION^F^^0;13^K:$L(X)>4!($L(X)<1) X "^DD",727.829,727.829,12,.1) Component Abbreviation "^DD",727.829,727.829,12,3) Answer must be 1-4 characters in length. "^DD",727.829,727.829,12,21,0) ^.001^1^1^3120613^^^^ "^DD",727.829,727.829,12,21,1,0) Abbreviation of the blood component. "^DD",727.829,727.829,12,23,0) ^^3^3^3120613^ "^DD",727.829,727.829,12,23,1,0) Use COMPONENT field (#.02) of the TRANSFUSION RECORD sub-file (#63.017) to "^DD",727.829,727.829,12,23,2,0) obtain COMPONENT ABBREVIATION field (#.02) of the BLOOD PRODUCT file "^DD",727.829,727.829,12,23,3,0) (#66). "^DD",727.829,727.829,12,"DT") 3041202 "^DD",727.829,727.829,13,0) NUMBER OF UNITS^NJ2,0^^0;14^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X "^DD",727.829,727.829,13,.1) Number Of Units "^DD",727.829,727.829,13,3) Enter a number between 1 and 99, 0 decimal digits. "^DD",727.829,727.829,13,21,0) ^.001^1^1^3120613^^^ "^DD",727.829,727.829,13,21,1,0) Number of pooled units transfused. "^DD",727.829,727.829,13,23,0) ^^3^3^3120613^ "^DD",727.829,727.829,13,23,1,0) Data is derived from the UNITS POOLED field (#.07) of the TRANSFUSION "^DD",727.829,727.829,13,23,2,0) RECORD multiple (#63.017) of the LAB DATA file (#63). If units is blank "^DD",727.829,727.829,13,23,3,0) use default of 1. "^DD",727.829,727.829,13,"DT") 3120613 "^DD",727.829,727.829,17,0) FEEDER LOCATION^F^^0;18^K:$L(X)>9!($L(X)<1) X "^DD",727.829,727.829,17,3) Answer must be 1-9 characters in length. "^DD",727.829,727.829,17,21,0) ^.001^2^2^3120614^^ "^DD",727.829,727.829,17,21,1,0) The Location of the Blood Bank, where the blood is stored and where the "^DD",727.829,727.829,17,21,2,0) Blood Bank technologist performed the (Blood Bank) tests. "^DD",727.829,727.829,17,23,0) ^.001^3^3^3120614^^ "^DD",727.829,727.829,17,23,1,0) Feeder Location is the letters "BB" concatenated with the PRODUCTION "^DD",727.829,727.829,17,23,2,0) DIVISION CODE field (#27) of the BLOOD BANK EXTRACT file (#727.829). The "^DD",727.829,727.829,17,23,3,0) PRODUCTION DIVISION CODE is obtained by calling $$RADDIV^ECXDEPT. "^DD",727.829,727.829,17,"DT") 3041202 "^DD",727.829,727.829,18,0) DSS PRODUCT DEPARTMENT^F^^0;19^K:$L(X)>10!($L(X)<1) X "^DD",727.829,727.829,18,3) Answer must be 1-10 characters in length. "^DD",727.829,727.829,18,21,0) ^.001^2^2^3120613^^^^ "^DD",727.829,727.829,18,21,1,0) The nationally defined DSS Intermediate Department Number designated to "^DD",727.829,727.829,18,21,2,0) the patient care product being provided. "^DD",727.829,727.829,18,23,0) ^.001^1^1^3120613^^^ "^DD",727.829,727.829,18,23,1,0) Currently passing NULL. "^DD",727.829,727.829,18,"DT") 3041202 "^DD",727.829,727.829,19,0) DSS IP #^F^^0;20^K:$L(X)>7!($L(X)<1) X "^DD",727.829,727.829,19,3) Answer must be 1-7 characters in length. "^DD",727.829,727.829,19,21,0) ^.001^2^2^3120614^^^ "^DD",727.829,727.829,19,21,1,0) The nationally defined DSS Intermediate Department Number designated to "^DD",727.829,727.829,19,21,2,0) the patient care product being provided. "^DD",727.829,727.829,19,23,0) ^.001^1^1^3120614^^ "^DD",727.829,727.829,19,23,1,0) Currently passing NULL. "^DD",727.829,727.829,19,"DT") 3041202 "^DD",727.829,727.829,20,0) ORDERING PROVIDER^F^^0;21^K:$L(X)>11!($L(X)<1) X "^DD",727.829,727.829,20,3) Answer must be 1-11 characters in length. "^DD",727.829,727.829,20,21,0) ^.001^1^1^3120613^^^ "^DD",727.829,727.829,20,21,1,0) Provider for the patient transfused. "^DD",727.829,727.829,20,23,0) ^^7^7^3120613^ "^DD",727.829,727.829,20,23,1,0) This is the IEN of the NEW PERSON file (#200) entry and it indicates the "^DD",727.829,727.829,20,23,2,0) provider that ordered the blood transfusion. This field is extracted from "^DD",727.829,727.829,20,23,3,0) the PHYSICIAN field (#6.2) located in the BLOOD INVENTORY file (#65). "^DD",727.829,727.829,20,23,4,0) "^DD",727.829,727.829,20,23,5,0) The ORDERING PROVIDER is the value of a "2" prefixed to the pointer value "^DD",727.829,727.829,20,23,6,0) to indicate that the source file is "200". For example, if the IEN of the "^DD",727.829,727.829,20,23,7,0) provider in file #200 is 98765, the value that will be stored is 298765. "^DD",727.829,727.829,20,"DT") 3050426 "^DD",727.829,727.829,21,0) ORDERING PROVIDER PERSON CLASS^F^^0;22^K:$L(X)>7!($L(X)<7) X "^DD",727.829,727.829,21,3) Answer must be 7 characters in length. "^DD",727.829,727.829,21,21,0) ^.001^2^2^3120613^^^ "^DD",727.829,727.829,21,21,1,0) The VA Code of the Person Class of the Ordering Provider as of the date "^DD",727.829,727.829,21,21,2,0) of this extract record. "^DD",727.829,727.829,21,23,0) ^^4^4^3120613^ "^DD",727.829,727.829,21,23,1,0) Active Person Class is determined by the supported call "^DD",727.829,727.829,21,23,2,0) $$GET^XUA4A72(ECXPHY,ECD), where ECXPHY is the IEN from file #200 and ECD "^DD",727.829,727.829,21,23,3,0) is the date of the event. The VA CODE is determined by the 7th piece of "^DD",727.829,727.829,21,23,4,0) the returned value string. "^DD",727.829,727.829,21,"DT") 3050426 "^DD",727.829,727.829,23,0) UNIT MODIFIED^S^Y:YES;N:NO;^0;24^Q "^DD",727.829,727.829,23,3) Indicate if the unit of blood was modified. "^DD",727.829,727.829,23,21,0) ^.001^1^1^3120613^^ "^DD",727.829,727.829,23,21,1,0) Indicates if unit of blood was modified. "^DD",727.829,727.829,23,23,0) ^^2^2^3120613^ "^DD",727.829,727.829,23,23,1,0) The value for this field is determined from the UNIT MODIFICATION field "^DD",727.829,727.829,23,23,2,0) (#24) of the BLOOD BANK EXTRACT file (727.829). "^DD",727.829,727.829,23,"DT") 3060515 "^DD",727.829,727.829,24,0) UNIT MODIFICATION^F^^0;25^K:$L(X)>6!($L(X)<1) X "^DD",727.829,727.829,24,3) Answer must be 1-6 characters in length. "^DD",727.829,727.829,24,21,0) ^.001^1^1^3120613^^^ "^DD",727.829,727.829,24,21,1,0) Type of unit modification performed. "^DD",727.829,727.829,24,23,0) ^^14^14^3120613^ "^DD",727.829,727.829,24,23,1,0) This field is a combination of values retrieved from the MODIFICATION "^DD",727.829,727.829,24,23,2,0) CRITERIA field (#.06) and the MODIFY TO field (#3) of the BLOOD PRODUCT "^DD",727.829,727.829,24,23,3,0) file (#66). The value has a maximum length of six characters and can "^DD",727.829,727.829,24,23,4,0) consist of: "^DD",727.829,727.829,24,23,5,0) "^DD",727.829,727.829,24,23,6,0) D = DIVIDED "^DD",727.829,727.829,24,23,7,0) P = POOLED "^DD",727.829,727.829,24,23,8,0) W = WASHED "^DD",727.829,727.829,24,23,9,0) F = FROZEN "^DD",727.829,727.829,24,23,10,0) L = LEUKOCYTE POOR "^DD",727.829,727.829,24,23,11,0) R = REJUVENATED "^DD",727.829,727.829,24,23,12,0) G = DEGLYCEROLIZED "^DD",727.829,727.829,24,23,13,0) I = IRRADIATED "^DD",727.829,727.829,24,23,14,0) S = SEPARATED "^DD",727.829,727.829,24,"DT") 3060630 "^DD",727.829,727.829,25,0) REQUESTING PROVIDER^F^^0;26^K:$L(X)>11!($L(X)<1) X "^DD",727.829,727.829,25,3) Answer must be 1-11 characters in length. "^DD",727.829,727.829,25,21,0) ^.001^1^1^3120613^^^^ "^DD",727.829,727.829,25,21,1,0) This is the provider who requested the transfusion. "^DD",727.829,727.829,25,23,0) ^.001^7^7^3120613^^ "^DD",727.829,727.829,25,23,1,0) Data is derived from the ORDERING PROVIDER field (#5) of the VBECS DSS "^DD",727.829,727.829,25,23,2,0) EXTRACT file (#6002.03) "^DD",727.829,727.829,25,23,3,0) "^DD",727.829,727.829,25,23,4,0) REQUESTING PROVIDER is the value of a "2" prefixed to the pointer value "^DD",727.829,727.829,25,23,5,0) from the NEW PERSON file (#200) to indicate that the source file is "200". "^DD",727.829,727.829,25,23,6,0) For example, if the IEN of the provider in file #200 is 98765, the value "^DD",727.829,727.829,25,23,7,0) that will be stored is 298765. "^DD",727.829,727.829,25,"DT") 3060509 "^DD",727.829,727.829,26,0) REQUESTING PROVIDER PC^F^^0;27^K:$L(X)>7!($L(X)<7) X "^DD",727.829,727.829,26,3) Answer must be 7 characters in length. "^DD",727.829,727.829,26,21,0) ^.001^2^2^3120613^^ "^DD",727.829,727.829,26,21,1,0) The field holds the VA Code associated with the active Person Class "^DD",727.829,727.829,26,21,2,0) of the Requesting Provider. "^DD",727.829,727.829,26,23,0) ^^4^4^3120613^ "^DD",727.829,727.829,26,23,1,0) Active Person Class is determined by the supported call "^DD",727.829,727.829,26,23,2,0) $$GET^XUA4A72(ECXPHY,ECD), where ECXPHY is the IEN from file #200 and ECD "^DD",727.829,727.829,26,23,3,0) is the date of the event. The VA CODE is determined by the 7th piece of "^DD",727.829,727.829,26,23,4,0) the returned value string. "^DD",727.829,727.829,26,"DT") 3060829 "^DD",727.829,727.829,27,0) PRODUCTION DIVISION CODE^F^^0;28^K:$L(X)>7!($L(X)<3) X "^DD",727.829,727.829,27,3) Answer must be 3-7 characters in length. "^DD",727.829,727.829,27,21,0) ^.001^1^1^3120618^^^ "^DD",727.829,727.829,27,21,1,0) Identifies the division/facility where the work was performed. "^DD",727.829,727.829,27,23,0) ^^7^7^3120618^ "^DD",727.829,727.829,27,23,1,0) VistA Records: Data comes from the DIV field (#26) of the ACCESSION NUMBER "^DD",727.829,727.829,27,23,2,0) multiple field (#1) of the DATE multiple field (#2) in the ACCESSION file "^DD",727.829,727.829,27,23,3,0) (#68). The API RADDIV^ECXDEPT is used to get the STATION NUMBER field "^DD",727.829,727.829,27,23,4,0) (#99) from the INSTITUTION file (#4). "^DD",727.829,727.829,27,23,5,0) "^DD",727.829,727.829,27,23,6,0) VBECS Records: Data comes from the TRANSFUSION LOCATION field (#3) of the "^DD",727.829,727.829,27,23,7,0) VBECS DSS EXTRACT file (#6002.03). "^DD",727.829,727.829,27,"DT") 3120618 "^DD",727.832,727.832,.01,0) SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X "^DD",727.832,727.832,.01,1,0) ^.1 "^DD",727.832,727.832,.01,1,1,0) 727.832^B "^DD",727.832,727.832,.01,1,1,1) S ^ECX(727.832,"B",$E(X,1,30),DA)="" "^DD",727.832,727.832,.01,1,1,2) K ^ECX(727.832,"B",$E(X,1,30),DA) "^DD",727.832,727.832,.01,3) Type a Number between 1 and 999999999, 0 Decimal Digits. "^DD",727.832,727.832,.01,21,0) ^.001^1^1^3120615^^^ "^DD",727.832,727.832,.01,21,1,0) The record number for this extract entry. "^DD",727.832,727.832,.01,23,0) ^.001^1^1^3120615^^^^ "^DD",727.832,727.832,.01,23,1,0) The Internal Entry Number (IEN) for this record. The entry is DINUMed. "^DD",727.832,727.832,.01,"DT") 3120620 "^DD",727.832,727.832,3,0) FACILITY^F^^0;4^K:$L(X)>7!($L(X)<3) X "^DD",727.832,727.832,3,3) Answer must be 3-7 characters in length. "^DD",727.832,727.832,3,21,0) ^^1^1^3120619^ "^DD",727.832,727.832,3,21,1,0) This is the facility/division where the extract was performed. "^DD",727.832,727.832,3,23,0) ^^4^4^3120619^ "^DD",727.832,727.832,3,23,1,0) Derived from the NAME field (#.01) of the DSS EXTRACTS file (#728), which "^DD",727.832,727.832,3,23,2,0) points to the INSTITUTION file (#4). "^DD",727.832,727.832,3,23,3,0) "^DD",727.832,727.832,3,23,4,0) This is a copy of the STATION NUMBER field (#99). "^DD",727.832,727.832,3,"DT") 3120619 "^DD",727.832,727.832,5,0) SSN^F^^0;6^K:$L(X)>10!($L(X)<9) X "^DD",727.832,727.832,5,3) Your answer must be 9-10 characters in length. "^DD",727.832,727.832,5,21,0) ^.001^1^1^3120619^^^^ "^DD",727.832,727.832,5,21,1,0) The patient's social security number. "^DD",727.832,727.832,5,23,0) ^^6^6^3120619^ "^DD",727.832,727.832,5,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.832,727.832,5,23,2,0) in the NUTRITION EXTRACT file (#727.832), SSN data is derived from the "^DD",727.832,727.832,5,23,3,0) SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2). "^DD",727.832,727.832,5,23,4,0) "^DD",727.832,727.832,5,23,5,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with an "^DD",727.832,727.832,5,23,6,0) SSN beginning with "00000" will not be included in the extract. "^DD",727.832,727.832,5,"DT") 3060308 "^DD",727.832,727.832,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.832,727.832,6,3) Your answer must be 4 characters in length. "^DD",727.832,727.832,6,21,0) ^.001^1^1^3120619^^^^ "^DD",727.832,727.832,6,21,1,0) The first four characters of the patient's last name. "^DD",727.832,727.832,6,23,0) ^^6^6^3120619^ "^DD",727.832,727.832,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.832,727.832,6,23,2,0) in the NUTRITION EXTRACT file (#727.832), NAME data is derived from the "^DD",727.832,727.832,6,23,3,0) NAME field (#.01) in the PATIENT file (#2). The first four characters of "^DD",727.832,727.832,6,23,4,0) the first "," piece are used, padded with trailing spaces if necessary. "^DD",727.832,727.832,6,23,5,0) "^DD",727.832,727.832,6,23,6,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.832,727.832,6,"DT") 3060308 "^DD",727.832,727.832,7,0) IN/OUT PATIENT INDICATOR^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q "^DD",727.832,727.832,7,3) Enter the patient's status for this extract entry. "^DD",727.832,727.832,7,21,0) ^.001^2^2^3120608^^^^ "^DD",727.832,727.832,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for this "^DD",727.832,727.832,7,21,2,0) extract entry. "^DD",727.832,727.832,7,23,0) ^^10^10^3120608^ "^DD",727.832,727.832,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.832,727.832,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.832,727.832,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.832,727.832,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.832,727.832,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.832,727.832,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.832,727.832,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.832,727.832,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.832,727.832,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.832,727.832,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.832,727.832,7,"DT") 3120608 "^DD",727.832,727.832,8,0) DAY^F^^0;9^K:$L(X)>8!($L(X)<8) X "^DD",727.832,727.832,8,3) Answer must be 8 characters in length. "^DD",727.832,727.832,8,21,0) ^.001^1^1^3120613^^ "^DD",727.832,727.832,8,21,1,0) Date on which the service was provided. "^DD",727.832,727.832,8,23,0) ^.001^4^4^3120613^^^^ "^DD",727.832,727.832,8,23,1,0) This field is always exactly 8 numeric characters in length. The format "^DD",727.832,727.832,8,23,2,0) is YYYYMMDD; for example, 19970923. If the date cannot be determined, "^DD",727.832,727.832,8,23,3,0) then a default is used. The default date value is the value of the YEAR "^DD",727.832,727.832,8,23,4,0) MONTH field (#1) concatenated with "01" for the day (DD) portion. "^DD",727.832,727.832,8,"DT") 3060308 "^DD",727.832,727.832,11,0) ORDERING PROVIDER^F^^0;12^K:$L(X)>11!($L(X)<2) X "^DD",727.832,727.832,11,3) Answer must be 2-11 characters in length. "^DD",727.832,727.832,11,21,0) ^.001^1^1^3120619^^^ "^DD",727.832,727.832,11,21,1,0) Provider ordering the patient feeding. "^DD",727.832,727.832,11,23,0) ^^11^11^3120619^ "^DD",727.832,727.832,11,23,1,0) Inpatient standing orders, Outpatient tube feedings, Outpatient special "^DD",727.832,727.832,11,23,2,0) meals and Outpatient guest meals have no ordering provider. "^DD",727.832,727.832,11,23,3,0) "^DD",727.832,727.832,11,23,4,0) Inpatient diets, inpatient supplemental feedings, inpatient tube "^DD",727.832,727.832,11,23,5,0) feedings and outpatient recurring meals use the CURRENT AGENT/PROVIDER "^DD",727.832,727.832,11,23,6,0) field (#1) of the ORDER file (#100) which is a pointer to the NEW PERSON "^DD",727.832,727.832,11,23,7,0) file (#200). "^DD",727.832,727.832,11,23,8,0) "^DD",727.832,727.832,11,23,9,0) The ORDERING PROVIDER is the value of a "2" prefixed to the pointer value "^DD",727.832,727.832,11,23,10,0) to indicate that the source file is "200". For example, if the IEN of the "^DD",727.832,727.832,11,23,11,0) provider in file #200 is 98765, the value that will be stored is 298765. "^DD",727.832,727.832,11,"DT") 3060504 "^DD",727.832,727.832,12,0) ORDERING PROVIDER PERSON CLASS^F^^0;13^K:$L(X)>7!($L(X)<7) X "^DD",727.832,727.832,12,3) Answer must be 7 characters in length. "^DD",727.832,727.832,12,21,0) ^.001^2^2^3120613^^ "^DD",727.832,727.832,12,21,1,0) VA Code of the Person Class of the patient's Ordering Provider as of the "^DD",727.832,727.832,12,21,2,0) date of this extract record. "^DD",727.832,727.832,12,23,0) ^^4^4^3120613^ "^DD",727.832,727.832,12,23,1,0) Active Person Class is determined by the supported call "^DD",727.832,727.832,12,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.832,727.832,12,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.832,727.832,12,23,4,0) returned value string. "^DD",727.832,727.832,12,"DT") 3060504 "^DD",727.832,727.832,13,0) PRIMARY CARE PROVIDER^F^^0;14^K:$L(X)>11!($L(X)<2) X "^DD",727.832,727.832,13,3) Answer must be 2-11 characters in length. "^DD",727.832,727.832,13,21,0) ^.001^2^2^3120614^^^ "^DD",727.832,727.832,13,21,1,0) The primary care provider assigned to this patient through the Primary "^DD",727.832,727.832,13,21,2,0) Care Management Module (PCMM) application. "^DD",727.832,727.832,13,23,0) ^^9^9^3120614^ "^DD",727.832,727.832,13,23,1,0) Using the patient's DFN and the date of service a call is made to the "^DD",727.832,727.832,13,23,2,0) Scheduling API OUTPTPR^SDUTL3 API to retrieve the primary care team "^DD",727.832,727.832,13,23,3,0) provider. The API returns the provider's internal entry number and "^DD",727.832,727.832,13,23,4,0) name from the NEW PERSON file (#200). "^DD",727.832,727.832,13,23,5,0) "^DD",727.832,727.832,13,23,6,0) The PRIMARY CARE PROVIDER is the value of a "2" prefixed to the pointer "^DD",727.832,727.832,13,23,7,0) value to indicate that the source file is "200". For example, if the IEN "^DD",727.832,727.832,13,23,8,0) of the provider in file #200 is 98765, the value that will be stored is "^DD",727.832,727.832,13,23,9,0) 298765. "^DD",727.832,727.832,13,"DT") 3060504 "^DD",727.832,727.832,14,0) PRIMARY CARE PRV PERSON CLASS^F^^0;15^K:$L(X)>7!($L(X)<7) X "^DD",727.832,727.832,14,3) Answer must be 7 characters in length. "^DD",727.832,727.832,14,21,0) ^.001^2^2^3120614^^ "^DD",727.832,727.832,14,21,1,0) VA Code of the Person Class of the Primary Care Provider as of the date "^DD",727.832,727.832,14,21,2,0) of this extract record. "^DD",727.832,727.832,14,23,0) ^^4^4^3120614^ "^DD",727.832,727.832,14,23,1,0) Active Person Class is determined by the supported call "^DD",727.832,727.832,14,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.832,727.832,14,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.832,727.832,14,23,4,0) returned value string. "^DD",727.832,727.832,14,"DT") 3060504 "^DD",727.832,727.832,15,0) PRIMARY CARE TEAM^P404.51'^SCTM(404.51,^0;16^Q "^DD",727.832,727.832,15,3) Enter the primary care team assigned to this patient. "^DD",727.832,727.832,15,21,0) ^.001^1^1^3120619^^ "^DD",727.832,727.832,15,21,1,0) The primary care team assigned to this patient in the PCMM module. "^DD",727.832,727.832,15,23,0) ^.001^5^5^3120619^^ "^DD",727.832,727.832,15,23,1,0) Using the DAY field (#8) and the patient pointer (DFN) stored in the "^DD",727.832,727.832,15,23,2,0) PATIENT NO. - DFN field (#4) in the NUTRITION EXTRACT file (#727.832), a "^DD",727.832,727.832,15,23,3,0) call is made to the Scheduling API, OUTPTTM^SDUTL3. The API returns the "^DD",727.832,727.832,15,23,4,0) team's internal entry number and name from the TEAM file (#404.51). The "^DD",727.832,727.832,15,23,5,0) IEN is stored in this field. "^DD",727.832,727.832,15,"DT") 3120614 "^DD",727.832,727.832,16,0) MASTER PATIENT INDEX^F^^0;17^K:$L(X)>10!($L(X)<10) X "^DD",727.832,727.832,16,3) Answer must be 10 characters in length. "^DD",727.832,727.832,16,21,0) ^.001^1^1^3120619^^ "^DD",727.832,727.832,16,21,1,0) Unique national VA patient identifier. "^DD",727.832,727.832,16,23,0) ^.001^3^3^3120619^^ "^DD",727.832,727.832,16,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.832,727.832,16,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.832,727.832,16,23,3,0) Patient file (#2). "^DD",727.832,727.832,16,"DT") 3060504 "^DD",727.832,727.832,17,0) DATE OF BIRTH^F^^0;18^K:$L(X)>8!($L(X)<8) X "^DD",727.832,727.832,17,3) Answer must be 8 characters in length. "^DD",727.832,727.832,17,21,0) ^.001^1^1^3120619^^^^ "^DD",727.832,727.832,17,21,1,0) Patient's date of birth. "^DD",727.832,727.832,17,23,0) ^^7^7^3120619^ "^DD",727.832,727.832,17,23,1,0) Data source: "^DD",727.832,727.832,17,23,2,0) "^DD",727.832,727.832,17,23,3,0) NUTRITION PERSON file (#115); PATIENT (#14) "^DD",727.832,727.832,17,23,4,0) then to PATIENT file (#2); DATE OF BIRTH field (#.03) "^DD",727.832,727.832,17,23,5,0) "^DD",727.832,727.832,17,23,6,0) Date of Birth is returned through the supported call DEM^VADPT. It is then "^DD",727.832,727.832,17,23,7,0) represented by an 8-character numeric string in the YYYYMMDD format. "^DD",727.832,727.832,17,"DT") 3120619 "^DD",727.832,727.832,18,0) SEX^S^M:MALE;F:FEMALE;^0;19^Q "^DD",727.832,727.832,18,3) Enter the gender of the patient. "^DD",727.832,727.832,18,21,0) ^.001^1^1^3120614^^^ "^DD",727.832,727.832,18,21,1,0) Patient's gender. "^DD",727.832,727.832,18,23,0) ^^4^4^3120614^ "^DD",727.832,727.832,18,23,1,0) Data is taken from the SEX field (#.02) of the patient's record in the "^DD",727.832,727.832,18,23,2,0) PATIENT file (#2). "^DD",727.832,727.832,18,23,3,0) "^DD",727.832,727.832,18,23,4,0) The gender is returned by DEM^VADPT. "^DD",727.832,727.832,18,"DT") 3060504 "^DD",727.832,727.832,19,0) RACE 1^F^^0;20^K:$L(X)>6!($L(X)<1) X "^DD",727.832,727.832,19,3) Answer must be 1-6 characters in length. "^DD",727.832,727.832,19,21,0) ^.001^1^1^3120614^^ "^DD",727.832,727.832,19,21,1,0) Self-reported by patient as recorded in VistA patient file. "^DD",727.832,727.832,19,23,0) ^^11^11^3120614^ "^DD",727.832,727.832,19,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.832,727.832,19,23,2,0) (#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file "^DD",727.832,727.832,19,23,3,0) (#10) pointed to by the RACE INFORMATION field (#.01) of the RACE "^DD",727.832,727.832,19,23,4,0) INFORMATION subfile (#2.02) of the PATIENT file (#2). "^DD",727.832,727.832,19,23,5,0) "^DD",727.832,727.832,19,23,6,0) Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03) "^DD",727.832,727.832,19,23,7,0) where the METHOD OF COLLECTION field (#.02) set to 1 "^DD",727.832,727.832,19,23,8,0) (SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race "^DD",727.832,727.832,19,23,9,0) entries can be included. If any of the RACE INFORMATION values returned is "^DD",727.832,727.832,19,23,10,0) "C" (DECLINED TO ANSWER), that will be the only value included in the "^DD",727.832,727.832,19,23,11,0) RACE1 field. "^DD",727.832,727.832,19,"DT") 3060504 "^DD",727.832,727.832,20,0) ETHNICITY^S^D:DECLINED TO ANSWER;H:HISPANIC OR LATINO;N:NOT HISPANIC OR LATINO;U:UNKNOWN BY PATIENT;^0;21^Q "^DD",727.832,727.832,20,3) Enter the patient's ethnicity information. "^DD",727.832,727.832,20,21,0) ^.001^1^1^3120615^^ "^DD",727.832,727.832,20,21,1,0) The patient's PTF ethnicity code. "^DD",727.832,727.832,20,23,0) ^.001^8^8^3120615^^^^ "^DD",727.832,727.832,20,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.832,727.832,20,23,2,0) (#4), ETHNICITY is derived from the PTF VALUE field (#5) of the ETHNICITY "^DD",727.832,727.832,20,23,3,0) file (#10.2) pointed to by the ETHNICITY INFORMATION field (#.01) of the "^DD",727.832,727.832,20,23,4,0) ETHNICITY INFORMATION subfile (#2.06) of the PATIENT file (#2). "^DD",727.832,727.832,20,23,5,0) "^DD",727.832,727.832,20,23,6,0) The above will occur only if the METHOD OF COLLECTION field (#.02) of the "^DD",727.832,727.832,20,23,7,0) ETHNICITY INFORMATION subfile (#2.06) is set to 1 (SELF-IDENTIFICATION), "^DD",727.832,727.832,20,23,8,0) otherwise ETHNICITY with be set to null. "^DD",727.832,727.832,20,"DT") 3120615 "^DD",727.832,727.832,21,0) VETERAN^S^N:NO;Y:YES;^0;22^Q "^DD",727.832,727.832,21,3) Select the appropriate veteran status for this patient. "^DD",727.832,727.832,21,21,0) ^.001^1^1^3120619^^^ "^DD",727.832,727.832,21,21,1,0) Patient's veteran status. "^DD",727.832,727.832,21,23,0) ^.001^3^3^3120619^^ "^DD",727.832,727.832,21,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.832,727.832,21,23,2,0) in the NUTRITION EXTRACT file (#727.832), VETERAN data is derived from the "^DD",727.832,727.832,21,23,3,0) VETERAN (Y/N)? field (#1901) in the PATIENT file (#2). "^DD",727.832,727.832,21,"DT") 3060504 "^DD",727.832,727.832,22,0) ENROLLMENT STATUS^P27.15'^DGEN(27.15,^0;23^Q "^DD",727.832,727.832,22,3) Select the patient's enrollment status. "^DD",727.832,727.832,22,21,0) ^.001^1^1^3120614^^ "^DD",727.832,727.832,22,21,1,0) Patient's enrollment status. "^DD",727.832,727.832,22,23,0) ^^3^3^3120614^ "^DD",727.832,727.832,22,23,1,0) ENROLLMENT STATUS is derived from the standard call $$STATUS^DGENA using "^DD",727.832,727.832,22,23,2,0) the patient's DFN and returns the ENROLLMENT STATUS field (#.04) of the "^DD",727.832,727.832,22,23,3,0) PATIENT ENROLLMENT file (#27.11). "^DD",727.832,727.832,22,"DT") 3120614 "^DD",727.832,727.832,24,0) ENROLLMENT CATEGORY^F^^0;25^K:$L(X)>1!($L(X)<1) X "^DD",727.832,727.832,24,3) Answer must be 1 character in length. "^DD",727.832,727.832,24,21,0) ^.001^1^1^3120614^^ "^DD",727.832,727.832,24,21,1,0) Patient's enrollment category. "^DD",727.832,727.832,24,23,0) ^^3^3^3120614^ "^DD",727.832,727.832,24,23,1,0) ENROLLMENT CATEGORY is derived from the standard call $$CATEGORY^DGENA4 "^DD",727.832,727.832,24,23,2,0) using the patient's DFN and the CURRENT ENROLLMENT field (#27.01) of the "^DD",727.832,727.832,24,23,3,0) PATIENT file (#2). "^DD",727.832,727.832,24,"DT") 3060504 "^DD",727.832,727.832,25,0) ENROLLMENT PRIORITY^F^^0;26^K:$L(X)>2!($L(X)<1) X "^DD",727.832,727.832,25,3) Answer must be 1-2 characters in length. "^DD",727.832,727.832,25,21,0) ^.001^2^2^3120614^^ "^DD",727.832,727.832,25,21,1,0) This field contains the enrollment priority group and the enrollment "^DD",727.832,727.832,25,21,2,0) priority subgroup. "^DD",727.832,727.832,25,23,0) ^.001^20^20^3120614^^^ "^DD",727.832,727.832,25,23,1,0) ENROLLMENT PRIORITY field contains the enrollment priority group and the "^DD",727.832,727.832,25,23,2,0) enrollment priority subgroup from the Patient Enrollment file (#27.11). "^DD",727.832,727.832,25,23,3,0) "^DD",727.832,727.832,25,23,4,0) ENROLLMENT PRIORITY Groups determined for a patient enrollment include: "^DD",727.832,727.832,25,23,5,0) "^DD",727.832,727.832,25,23,6,0) '1' FOR GROUP 1 "^DD",727.832,727.832,25,23,7,0) '2' FOR GROUP 2 "^DD",727.832,727.832,25,23,8,0) '3' FOR GROUP 3 "^DD",727.832,727.832,25,23,9,0) '4' FOR GROUP 4 "^DD",727.832,727.832,25,23,10,0) '5' FOR GROUP 5 "^DD",727.832,727.832,25,23,11,0) '6' FOR GROUP 6 "^DD",727.832,727.832,25,23,12,0) '7' FOR GROUP 7 "^DD",727.832,727.832,25,23,13,0) '8' FOR GROUP 8 "^DD",727.832,727.832,25,23,14,0) "^DD",727.832,727.832,25,23,15,0) ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include: "^DD",727.832,727.832,25,23,16,0) "^DD",727.832,727.832,25,23,17,0) 'a' FOR 1 "^DD",727.832,727.832,25,23,18,0) 'c' FOR 3 "^DD",727.832,727.832,25,23,19,0) 'e' FOR 5 "^DD",727.832,727.832,25,23,20,0) 'g' FOR 7 "^DD",727.832,727.832,25,"DT") 3060504 "^DD",727.832,727.832,28,0) AGENT ORANGE STATUS^S^N:NO;Y:YES;U:UNKNOWN;^0;29^Q "^DD",727.832,727.832,28,3) Enter the Agent Orange Status for the patient. "^DD",727.832,727.832,28,21,0) ^.001^1^1^3120614^^ "^DD",727.832,727.832,28,21,1,0) Indicates whether patient was exposed to Agent Orange. "^DD",727.832,727.832,28,23,0) ^^6^6^3120614^ "^DD",727.832,727.832,28,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.832,727.832,28,23,2,0) in the NUTRITION EXTRACT file (#727.832), AGENT ORANGE data is derived "^DD",727.832,727.832,28,23,3,0) from the AGENT ORANGE EXPOS. INDICATED? field (.#32102) in the PATIENT "^DD",727.832,727.832,28,23,4,0) file (#2). "^DD",727.832,727.832,28,23,5,0) "^DD",727.832,727.832,28,23,6,0) The status indicator is returned by SVC^VADPT. "^DD",727.832,727.832,28,"DT") 3060504 "^DD",727.832,727.832,29,0) AGENT ORANGE LOCATION^S^K:KOREAN DMZ;V:VIETNAM;O:OTHER;^0;30^Q "^DD",727.832,727.832,29,3) Enter where the patient was exposed to agent orange. "^DD",727.832,727.832,29,21,0) ^.001^1^1^3120614^^^^ "^DD",727.832,727.832,29,21,1,0) Indicates the location where the patient was exposed to Agent Orange. "^DD",727.832,727.832,29,23,0) ^^3^3^3120614^ "^DD",727.832,727.832,29,23,1,0) The location is returned by a call to SVC^VADPT which gets its data from "^DD",727.832,727.832,29,23,2,0) the AGENT ORANGE EXPOSURE LOCATION field (#.3213) of the PATIENT file "^DD",727.832,727.832,29,23,3,0) (#2). "^DD",727.832,727.832,29,"DT") 3120614 "^DD",727.832,727.832,30,0) RADIATION STATUS^S^Y:YES;N:NO;U:UNKNOWN;^0;31^Q "^DD",727.832,727.832,30,3) Select the appropriate radiation status for this patient. "^DD",727.832,727.832,30,21,0) ^.001^1^1^3120619^^^^ "^DD",727.832,727.832,30,21,1,0) Indicates if patient claims exposure to ionizing radiation. "^DD",727.832,727.832,30,23,0) ^^6^6^3120619^ "^DD",727.832,727.832,30,23,1,0) Using the patient pointer (DFN) stored in the PATIENT field (#14) in "^DD",727.832,727.832,30,23,2,0) the NUTRITION PERSON file (#115). RADIATION data is derived from the "^DD",727.832,727.832,30,23,3,0) RADIATION EXPOSURE INDICATED? field (#.32103) in the PATIENT file (#2). "^DD",727.832,727.832,30,23,4,0) "^DD",727.832,727.832,30,23,5,0) The status indicator is returned by SVC^VADPT which is called by "^DD",727.832,727.832,30,23,6,0) routine PAT^ECXUTL3. "^DD",727.832,727.832,30,"DT") 3120614 "^DD",727.832,727.832,31,0) SW ASIA CONDITIONS^S^Y:YES;N:NO;U:UNKNOWN;^0;32^Q "^DD",727.832,727.832,31,3) Enter patient's Southwest Asia Indicator status. "^DD",727.832,727.832,31,21,0) ^.001^2^2^3120620^^ "^DD",727.832,727.832,31,21,1,0) This field is used to indicate if patient claims exposure to Southwest "^DD",727.832,727.832,31,21,2,0) Asia Conditions. "^DD",727.832,727.832,31,23,0) ^.001^3^3^3120620^^ "^DD",727.832,727.832,31,23,1,0) This field is derived from the SOUTHWEST ASIA CONDITIONS? field "^DD",727.832,727.832,31,23,2,0) (#.322013) in the Patient File (#2) using the patient's DFN. The status "^DD",727.832,727.832,31,23,3,0) indicator is returned by SVC^VADPT which is called by PAT^ECXUTL3. "^DD",727.832,727.832,31,"DT") 3090527 "^DD",727.832,727.832,32,0) MST STATUS^S^N:No, Screened does not report MST;Y:Yes, Screened reports MST;U:Unknown, not screened;D:Screened Declines to answer;^0;33^Q "^DD",727.832,727.832,32,3) Enter patient's MST status. "^DD",727.832,727.832,32,21,0) ^.001^2^2^3120619^^^^ "^DD",727.832,727.832,32,21,1,0) Indicates the Military Sexual Trauma (MST) status of a patient on the date "^DD",727.832,727.832,32,21,2,0) of the encounter. "^DD",727.832,727.832,32,23,0) ^^5^5^3120619^ "^DD",727.832,727.832,32,23,1,0) The MST HISTORY file (#29.11) holds data regarding military sexual trauma "^DD",727.832,727.832,32,23,2,0) claims and effective dates. The patient's MST status is stored in the MST "^DD",727.832,727.832,32,23,3,0) STATUS field (#3). A call will be made to $$GETSTAT^DGMSTAPI(DFN,DGDATE) "^DD",727.832,727.832,32,23,4,0) using the DFN from the PATIENT field (#14) in the NUTRITION PERSON file "^DD",727.832,727.832,32,23,5,0) (#114) and the DAY field (#8) of the NUTRITION EXTRACT file (#727.832). "^DD",727.832,727.832,32,"DT") 3120614 "^DD",727.832,727.832,33,0) HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^0;34^Q "^DD",727.832,727.832,33,3) Enter the Head & Neck Cancer Indicator for the patient. "^DD",727.832,727.832,33,21,0) ^.001^1^1^3120614^^ "^DD",727.832,727.832,33,21,1,0) Identifies whether patient has head and/or neck cancer. "^DD",727.832,727.832,33,23,0) ^^3^3^3120614^ "^DD",727.832,727.832,33,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.832,727.832,33,23,2,0) (#4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK CA DX "^DD",727.832,727.832,33,23,3,0) field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11). "^DD",727.832,727.832,33,"DT") 3060504 "^DD",727.832,727.832,35,0) POW LOCATION^P22'^DIC(22,^0;36^Q "^DD",727.832,727.832,35,3) Enter the Patient's POW confinement location. "^DD",727.832,727.832,35,21,0) ^.001^1^1^3120614^^ "^DD",727.832,727.832,35,21,1,0) If POW Status is indicated, this is the POW confinement location. "^DD",727.832,727.832,35,23,0) ^.001^4^4^3120614^^^ "^DD",727.832,727.832,35,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.832,727.832,35,23,2,0) (#4), a call is made to SVC^VADPT which returns the POW CONFINEMENT "^DD",727.832,727.832,35,23,3,0) LOCATION field (#.526) from the PATIENT file (#2) This is a pointer value "^DD",727.832,727.832,35,23,4,0) to the POW PERIOD file (#22). "^DD",727.832,727.832,35,"DT") 3120614 "^DD",727.832,727.832,37,0) MEANS TEST^S^A:CATEGORY A;B:CATEGORY B;C:CATEGORY C;P:PENDING ADJUDICATION;R:REQUIRES MEANS TEST;N:MEANS TEST NOT REQUIRED;E:EXEMPT;I:INCOMPLETE;L:NO LONGER APPLICABLE;M:NON-EXEMPT;^0;38^Q "^DD",727.832,727.832,37,3) Select the appropriate means test category. "^DD",727.832,727.832,37,21,0) ^.001^1^1^3120614^^ "^DD",727.832,727.832,37,21,1,0) The current means test category for this patient. "^DD",727.832,727.832,37,23,0) ^.001^8^8^3120614^^^ "^DD",727.832,727.832,37,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.832,727.832,37,23,2,0) (#4) in the NUTRITION EXTRACT FILE (#727.832), MEANS TEST data is derived "^DD",727.832,727.832,37,23,3,0) from the CURRENT MEANS TEST STATUS field (#.14) in the PATIENT file "^DD",727.832,727.832,37,23,4,0) (#2). This field is a pointer to the MEANS TEST STATUS file (#408.32). "^DD",727.832,727.832,37,23,5,0) Using the means test pointer, the data is derived from the CODE field "^DD",727.832,727.832,37,23,6,0) (#.02) in the MEANS TEST STATUS file (#408.32). "^DD",727.832,727.832,37,23,7,0) "^DD",727.832,727.832,37,23,8,0) The status indicator is returned by ELIG^VADPT. "^DD",727.832,727.832,37,"DT") 3060504 "^DD",727.832,727.832,40,0) ZIP+4^F^^1;1^K:$L(X)>10!($L(X)<5) X "^DD",727.832,727.832,40,3) Answer must be 5-10 characters in length. "^DD",727.832,727.832,40,21,0) ^^2^2^3120619^ "^DD",727.832,727.832,40,21,1,0) The ZIP code for where the patient resides. The 5-character ZIP code is "^DD",727.832,727.832,40,21,2,0) provided if ZIP+4 is not available. "^DD",727.832,727.832,40,23,0) ^^4^4^3120619^ "^DD",727.832,727.832,40,23,1,0) The patient's ZIP code with optional 4-digit extension as found in the "^DD",727.832,727.832,40,23,2,0) ZIP+4 field (#.1112) of the patient's record in the PATIENT file (#2). "^DD",727.832,727.832,40,23,3,0) While the ZIP+4 field in file 2 is a max of 9 characters, it does put the "^DD",727.832,727.832,40,23,4,0) "-" in if the ZIP code is a +4 type. "^DD",727.832,727.832,40,"DT") 3060504 "^DD",727.832,727.832,41,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^1;2^Q "^DD",727.832,727.832,41,3) Enter observation patient status for this record. "^DD",727.832,727.832,41,21,0) ^.001^1^1^3120614^^^^ "^DD",727.832,727.832,41,21,1,0) Indicates if patient is considered to be an observation patient. "^DD",727.832,727.832,41,23,0) ^.001^12^12^3120614^^^^ "^DD",727.832,727.832,41,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.832,727.832,41,23,2,0) "^DD",727.832,727.832,41,23,3,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.832,727.832,41,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.832,727.832,41,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.832,727.832,41,23,6,0) file. "^DD",727.832,727.832,41,23,7,0) "^DD",727.832,727.832,41,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.832,727.832,41,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.832,727.832,41,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.832,727.832,41,23,11,0) "^DD",727.832,727.832,41,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.832,727.832,41,"DT") 3120608 "^DD",727.832,727.832,42,0) RRTP, PRRTP, SAARTP INDICATOR^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CET/TR;^1;3^Q "^DD",727.832,727.832,42,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.832,727.832,42,21,0) ^.001^2^2^3120614^^^^ "^DD",727.832,727.832,42,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP, or SARRTP "^DD",727.832,727.832,42,21,2,0) at the time care is provided. "^DD",727.832,727.832,42,23,0) ^.001^5^5^3120614^^^ "^DD",727.832,727.832,42,23,1,0) If the patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.832,727.832,42,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.832,727.832,42,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.832,727.832,42,23,4,0) "^DD",727.832,727.832,42,23,5,0) Otherwise, the value is null. "^DD",727.832,727.832,42,"DT") 3120614 "^DD",727.832,727.832,43,0) ENCOUNTER NUMBER^F^^1;4^K:$L(X)>18!($L(X)<1) X "^DD",727.832,727.832,43,3) Answer must be 1-18 characters in length. "^DD",727.832,727.832,43,21,0) ^.001^1^1^3120614^^^^ "^DD",727.832,727.832,43,21,1,0) The unique number assigned for DSS. "^DD",727.832,727.832,43,23,0) ^.001^4^4^3120614^^ "^DD",727.832,727.832,43,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.832,727.832,43,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.832,727.832,43,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.832,727.832,43,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.832,727.832,43,"DT") 3060504 "^DD",727.832,727.832,45,0) FOOD PRODUCTION DIVISION^F^^1;6^K:$L(X)>7!($L(X)<3) X "^DD",727.832,727.832,45,3) Answer must be 3-7 characters in length. "^DD",727.832,727.832,45,21,0) ^.001^1^1^3120620^^^^ "^DD",727.832,727.832,45,21,1,0) Station number where the kitchen is located. "^DD",727.832,727.832,45,23,0) ^.001^5^5^3120620^^ "^DD",727.832,727.832,45,23,1,0) The data is derived by calling $$NUTLOC^ECXUTL6 to retrieve the ASSIGNED "^DD",727.832,727.832,45,23,2,0) DIVISION field (#1) from the DSS NUTRITION DIVISION WORKSHEET file "^DD",727.832,727.832,45,23,3,0) (#728.46) based on the FOOD PRODUCTION FACILITY field (#48) of the "^DD",727.832,727.832,45,23,4,0) NUTRITION EXTRACT file (#727.832). It is a copy of the STATION NUMBER "^DD",727.832,727.832,45,23,5,0) field (#99) in the INSTITUTION file (#4). "^DD",727.832,727.832,45,"DT") 3120619 "^DD",727.832,727.832,46,0) DELIVERY DIVISION^F^^1;7^K:$L(X)>7!($L(X)<3) X "^DD",727.832,727.832,46,3) Answer must be 3-7 characters in length. "^DD",727.832,727.832,46,21,0) ^.001^1^1^3120620^^^^ "^DD",727.832,727.832,46,21,1,0) Station number where the meal was delivered. "^DD",727.832,727.832,46,23,0) ^.001^6^6^3120620^^ "^DD",727.832,727.832,46,23,1,0) The data is derived by calling $$NUTLOC^ECXUTL6 to retrieve the ASSIGNED "^DD",727.832,727.832,46,23,2,0) DIVISION field (#1) from the DSS NUTRITION DIVISION WORKSHEET file "^DD",727.832,727.832,46,23,3,0) (#728.46) based on the delivery location of the feeding or meal. "^DD",727.832,727.832,46,23,4,0) "^DD",727.832,727.832,46,23,5,0) It is a copy of the STATION NUMBER field (#99) in the INSTITUTION file "^DD",727.832,727.832,46,23,6,0) (#4). "^DD",727.832,727.832,46,"DT") 3120619 "^DD",727.832,727.832,49,0) DELIVERY LOCATION TYPE^S^T:TRAY;C:CAFETERIA;D:DINING ROOM;^1;10^Q "^DD",727.832,727.832,49,3) Select the appropriate delivery location. "^DD",727.832,727.832,49,21,0) ^.001^2^2^3120619^^^ "^DD",727.832,727.832,49,21,1,0) Delivery point for product associated with the specific diet that was "^DD",727.832,727.832,49,21,2,0) delivered on the selected date. "^DD",727.832,727.832,49,23,0) ^.001^3^3^3120619^^ "^DD",727.832,727.832,49,23,1,0) Use NUTRITION PATIENT file (#115) ADMISSION field (#1), DIET field (#3), "^DD",727.832,727.832,49,23,2,0) TYPE OF SERVICE field (#7). It is associated with the specific diet that "^DD",727.832,727.832,49,23,3,0) was delivered on the date in the DAY field (#8). "^DD",727.832,727.832,49,"DT") 3120619 "^DD",727.832,727.832,50,0) DELIVERY FEEDER LOCATION^F^^1;11^K:$L(X)>10!($L(X)<1) X "^DD",727.832,727.832,50,3) Answer must be 1-10 characters in length. "^DD",727.832,727.832,50,21,0) ^.001^1^1^3120619^^ "^DD",727.832,727.832,50,21,1,0) DSS identifier indicating patient location where product was delivered. "^DD",727.832,727.832,50,23,0) ^^24^24^3120619^ "^DD",727.832,727.832,50,23,1,0) The patient location where the product was delivered depends upon the "^DD",727.832,727.832,50,23,2,0) value in the DELIVERY LOCATION TYPE field (#49) of the NUTRITION EXTRACT "^DD",727.832,727.832,50,23,3,0) file (#727.832). "^DD",727.832,727.832,50,23,4,0) "^DD",727.832,727.832,50,23,5,0) A call is made to $$NUTLOC^ECXUTL6 and using the DELIVERY LOCATION TYPE "^DD",727.832,727.832,50,23,6,0) field (#49) the DELIVERY FEEDER LOCATION field is set based on the "^DD",727.832,727.832,50,23,7,0) delivery type and the patient's inpatient/outpatient status. "^DD",727.832,727.832,50,23,8,0) "^DD",727.832,727.832,50,23,9,0) If the DELIVERY LOCATION TYPE is set to "C" then this field is set to the "^DD",727.832,727.832,50,23,10,0) first 10 characters of the CAFETERIA SERVICE POINT field (#4) in the "^DD",727.832,727.832,50,23,11,0) NUTRITION LOCATION file (#119.6). "^DD",727.832,727.832,50,23,12,0) "^DD",727.832,727.832,50,23,13,0) If the DELIVERY LOCATION TYPE = "T" or "D" and the patient is an "^DD",727.832,727.832,50,23,14,0) inpatient, then the patient's current ward is used to populate this "^DD",727.832,727.832,50,23,15,0) field. "^DD",727.832,727.832,50,23,16,0) "^DD",727.832,727.832,50,23,17,0) If the DELIVERY LOCATION TYPE = "T" or "D" and the patient is an "^DD",727.832,727.832,50,23,18,0) outpatient, then the clinic location is used to populate this field. "^DD",727.832,727.832,50,23,19,0) "^DD",727.832,727.832,50,23,20,0) If the DELIVERY LOCATION TYPE is null and the service is a supplemental "^DD",727.832,727.832,50,23,21,0) feeding, tube feeding, or standing order then this field will be set to "^DD",727.832,727.832,50,23,22,0) either the value in the TRAY SERVICE POINT field (#3) or the CAFETERIA "^DD",727.832,727.832,50,23,23,0) SERVICE POINT field (#4) of the NUTRITION LOCATION file (#119.6) for the "^DD",727.832,727.832,50,23,24,0) ward the patient is on. "^DD",727.832,727.832,50,"DT") 3120615 "^DD",727.832,727.832,51,0) QUANTITY^NJ4,0^^1;12^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X "^DD",727.832,727.832,51,3) Type a number between 1 and 9999, 0 decimal digits. "^DD",727.832,727.832,51,21,0) ^.001^1^1^3120620^^^^ "^DD",727.832,727.832,51,21,1,0) Product quantity. "^DD",727.832,727.832,51,23,0) ^.001^12^12^3120620^^ "^DD",727.832,727.832,51,23,1,0) The QUANTITY field is based on the type of diet and any additional diet "^DD",727.832,727.832,51,23,2,0) orders assigned to a patient. "^DD",727.832,727.832,51,23,3,0) "^DD",727.832,727.832,51,23,4,0) A call is made to DATA^FHDSSAPI(ECSD,ECED), where ECSD is the start date "^DD",727.832,727.832,51,23,5,0) of the extract and ECED is the end date of the extract. For each "^DD",727.832,727.832,51,23,6,0) patient, all diet orders are identified and recorded, along with "^DD",727.832,727.832,51,23,7,0) information specific to each order. Included in the information returned "^DD",727.832,727.832,51,23,8,0) is the quantity associated with each type of order. The QUANTITY field "^DD",727.832,727.832,51,23,9,0) will be set based on the quantity assigned to the specific diet "^DD",727.832,727.832,51,23,10,0) component. For example, all regular diets have a quantity of 1 while a "^DD",727.832,727.832,51,23,11,0) tube feeding order will have a value indicating the number of milliliters "^DD",727.832,727.832,51,23,12,0) of nutrition given. "^DD",727.832,727.832,51,"DT") 3120620 "^DD",727.832,727.832,52,0) CBOC STATUS^S^Y:YES;^1;13^Q "^DD",727.832,727.832,52,3) Indicate if the patient was seen at a Community Based Outpatient Clinic (CBOC). "^DD",727.832,727.832,52,21,0) ^.001^2^2^3120620^^^^ "^DD",727.832,727.832,52,21,1,0) Indicates if the patient was seen at a Community Based Outpatient Clinic "^DD",727.832,727.832,52,21,2,0) (CBOC). "^DD",727.832,727.832,52,23,0) ^^4^4^3120620^ "^DD",727.832,727.832,52,23,1,0) CBOC STATUS is set to yes if the NAME field (#.01) of the "^DD",727.832,727.832,52,23,2,0) FACILITY TYPE file (#4.1) as pointed to by the FACILITY TYPE field (#13) "^DD",727.832,727.832,52,23,3,0) of the INSTITUTION file as pointed to by the INSTITUTION FILE POINTER "^DD",727.832,727.832,52,23,4,0) field (#.07) of the MEDICAL CENTER DIVISION file (#40.8) is equal to CBOC. "^DD",727.832,727.832,52,"DT") 3120615 "^DD",727.832,727.832,53,0) USER ENROLLEE^S^U:USER ENROLLED;^1;14^Q "^DD",727.832,727.832,53,3) Enter patient's current enrollment status. "^DD",727.832,727.832,53,21,0) ^.001^2^2^3120619^^^^ "^DD",727.832,727.832,53,21,1,0) Indicates whether a veteran has user enrollee status for the current or "^DD",727.832,727.832,53,21,2,0) future fiscal year. "^DD",727.832,727.832,53,23,0) ^^5^5^3120619^ "^DD",727.832,727.832,53,23,1,0) User enrollee is determined by checking the PATIENT ENROLLMENT (#27.11) "^DD",727.832,727.832,53,23,2,0) file. When a user has a current or future fiscal year in the VistA User "^DD",727.832,727.832,53,23,3,0) Enrollee Status (#.04) field the value is set to 'U' and Null if no date "^DD",727.832,727.832,53,23,4,0) or a past year's value is contained. Determined by the use of an API: "^DD",727.832,727.832,53,23,5,0) $$UESTAT^EASUSER where the Patient Identifier (DFN) is passed in. "^DD",727.832,727.832,53,"DT") 3120614 "^DD",727.832,727.832,54,0) PATIENT TYPE^S^AC:ACTIVE DUTY;AL:ALLIED VETERAN;CO:COLLATERAL;EM:EMPLOYEE;IN:INELIGIBLE;MI:MILITARY RETIREE;NO:NON-VETERAN (OTHER);NS:NSC VETERAN;SC:SC VETERAN;TR:TRICARE;^1;15^Q "^DD",727.832,727.832,54,3) Enter type of patient. "^DD",727.832,727.832,54,21,0) ^^2^2^3120614^ "^DD",727.832,727.832,54,21,1,0) Refers to the various types of patient which may be seen at a VA facility. "^DD",727.832,727.832,54,21,2,0) Every patient in the system must have a TYPE specified. "^DD",727.832,727.832,54,23,0) ^^5^5^3120614^ "^DD",727.832,727.832,54,23,1,0) PATIENT TYPE is derived from a call to TYPE^ECXUTL5(DFN). Using the "^DD",727.832,727.832,54,23,2,0) patient's DFN, the NAME field (#.01) of the TYPE OF PATIENT file (#391) as "^DD",727.832,727.832,54,23,3,0) pointed to by the TYPE field (#391) of the PATIENT file (#2) is shortened "^DD",727.832,727.832,54,23,4,0) to the first two characters to determine the value stored in the PATIENT "^DD",727.832,727.832,54,23,5,0) TYPE field (#78). "^DD",727.832,727.832,54,"DT") 3120614 "^DD",727.832,727.832,55,0) CV STATUS ELIGIBILITY^S^Y:YES;E:ELIGIBILITY EXPIRED;^1;16^Q "^DD",727.832,727.832,55,3) Enter patient's combat veteran eligibility. "^DD",727.832,727.832,55,21,0) ^.001^4^4^3120619^^^^ "^DD",727.832,727.832,55,21,1,0) Records if veteran served on active duty in a theater of combat "^DD",727.832,727.832,55,21,2,0) operations during a period of war after the Persian Gulf War or in combat "^DD",727.832,727.832,55,21,3,0) against a hostile force during a period of hostilities after November 11, "^DD",727.832,727.832,55,21,4,0) 1998. "^DD",727.832,727.832,55,23,0) ^^11^11^3120619^ "^DD",727.832,727.832,55,23,1,0) CV STATUS ELIGIBILITY is determined by the use of API "^DD",727.832,727.832,55,23,2,0) $$CVEDT^DGCV(DFN,DATE) that checks the COMBAT VET END DATE field (#.5295) "^DD",727.832,727.832,55,23,3,0) from the PATIENT file (#2) to determine CV Status. API returns three "^DD",727.832,727.832,55,23,4,0) pieces (i.e. 1^20010106^0) and the first piece is resolved as follows. "^DD",727.832,727.832,55,23,5,0) "^DD",727.832,727.832,55,23,6,0) 1 - veteran qualifies as a CV "^DD",727.832,727.832,55,23,7,0) 0 - veteran does not qualify as a CV "^DD",727.832,727.832,55,23,8,0) -1 - bad DFN "^DD",727.832,727.832,55,23,9,0) "^DD",727.832,727.832,55,23,10,0) Based on this result the field will be set to 'Y' for 'YES' or 'E' for "^DD",727.832,727.832,55,23,11,0) 'ELIGIBILITY EXPIRED' or 'NULL' for not eligible. "^DD",727.832,727.832,55,"DT") 3120614 "^DD",727.832,727.832,56,0) NATIONAL PATIENT RECORD FLAG^S^Y:YES;^1;17^Q "^DD",727.832,727.832,56,3) Indicate if patient is associated with a category 1 patient record flag. "^DD",727.832,727.832,56,21,0) ^.001^2^2^3120614^^^ "^DD",727.832,727.832,56,21,1,0) This field records that the patient's record contains 1 or more Category "^DD",727.832,727.832,56,21,2,0) 1 (National) Patient Record Flags. "^DD",727.832,727.832,56,23,0) ^.001^7^7^3120614^^ "^DD",727.832,727.832,56,23,1,0) The NATIONAL PATIENT RECORD FLAG field is set based on the results of the "^DD",727.832,727.832,56,23,2,0) $$GETACT^DGPFAPI(DFN,TARGET ARRAY) call. This call looks at the category "^DD",727.832,727.832,56,23,3,0) 1 national patient record flags as recorded in the PRF NATIONAL FLAG file "^DD",727.832,727.832,56,23,4,0) (#26.15). The resulting value of this call is the number of active "^DD",727.832,727.832,56,23,5,0) category I patient record flags assigned to this patient. This field is "^DD",727.832,727.832,56,23,6,0) set to Y (YES) if the result is greater than zero. A value of zero causes "^DD",727.832,727.832,56,23,7,0) this field to be left null. "^DD",727.832,727.832,56,"DT") 3120614 "^DD",727.832,727.832,57,0) ERI^S^K:HURRICANE KATRINA;^1;18^Q "^DD",727.832,727.832,57,3) Was the patient in a FEMA-designated impacted ZIP code area? "^DD",727.832,727.832,57,21,0) ^^2^2^3120619^ "^DD",727.832,727.832,57,21,1,0) This field identifies patients from impacted ZIP code areas designated by "^DD",727.832,727.832,57,21,2,0) the Federal Emergency Management Agency (FEMA). "^DD",727.832,727.832,57,23,0) ^^2^2^3120619^ "^DD",727.832,727.832,57,23,1,0) This field is extracted from the EMERGENCY RESPONSE INDICATOR field "^DD",727.832,727.832,57,23,2,0) (#.181) located in the PATIENT file (#2). "^DD",727.832,727.832,57,"DT") 3120614 "^DD",727.832,727.832,60,0) OEF/OIF RETURN DATE^F^^1;21^K:$L(X)>8!($L(X)<8) X "^DD",727.832,727.832,60,3) Answer must be 8 characters in length. "^DD",727.832,727.832,60,21,0) ^.001^2^2^3120619^^^^ "^DD",727.832,727.832,60,21,1,0) The date the patient left the OEF/OIF area, if known. Otherwise, it is "^DD",727.832,727.832,60,21,2,0) the end date of military pay for this OEF/OIF deployment. "^DD",727.832,727.832,60,23,0) ^^5^5^3120619^ "^DD",727.832,727.832,60,23,1,0) This date field has a format equal to YYYYMMDD. The value of this field "^DD",727.832,727.832,60,23,2,0) is derived from the OEF/OIF TO DATE field (#.03) of the SERVICE [OEF OR "^DD",727.832,727.832,60,23,3,0) OIF] multiple field (#.3215) located in the PATIENT file (#2). In cases "^DD",727.832,727.832,60,23,4,0) of multiple OEF/OIF tours, this field contains only the most recent return "^DD",727.832,727.832,60,23,5,0) date. "^DD",727.832,727.832,60,"DT") 3120619 "^DD",727.832,727.832,61,0) TF UNITS^S^ML:ML;GM:GM;^1;22^Q "^DD",727.832,727.832,61,3) Enter the unit of measurement used for the tube feeding. "^DD",727.832,727.832,61,21,0) ^.001^1^1^3120620^^^^ "^DD",727.832,727.832,61,21,1,0) Indicates the unit of measurement used for the tube feeding. "^DD",727.832,727.832,61,23,0) ^^4^4^3120620^ "^DD",727.832,727.832,61,23,1,0) For tube feeding orders, this field is based on the QUANTITY field (#2) of "^DD",727.832,727.832,61,23,2,0) the TF PRODUCT multiple (#3) of the TUBEFEEDING multiple (#40) of the "^DD",727.832,727.832,61,23,3,0) ADMISSION multiple (#1) of the NUTRITION PERSON file (#115). The unit is "^DD",727.832,727.832,61,23,4,0) stripped from the quantity field and stored here. "^DD",727.832,727.832,61,"DT") 3120620 "^DD",727.832,727.832,64,0) COUNTRY CODE^F^^1;25^K:$L(X)>3!($L(X)<1) X "^DD",727.832,727.832,64,3) The code for the country. Answer must be 1-3 characters in length. "^DD",727.832,727.832,64,21,0) ^.001^1^1^3120619^^ "^DD",727.832,727.832,64,21,1,0) This is the code for the country associated with the address. "^DD",727.832,727.832,64,23,0) ^.001^2^2^3120619^^^ "^DD",727.832,727.832,64,23,1,0) The three-character alpha identifying code is copied from the CODE (#.01) "^DD",727.832,727.832,64,23,2,0) field of the COUNTRY CODE (#779.004) file. "^DD",727.832,727.832,64,"DT") 3090609 "^DD",727.832,727.832,65,0) SHAD STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;26^Q "^DD",727.832,727.832,65,3) Enter SHAD Status. "^DD",727.832,727.832,65,21,0) ^.001^2^2^3120619^^^ "^DD",727.832,727.832,65,21,1,0) Indicates whether patient meets requirements for Shipboard Hazard and "^DD",727.832,727.832,65,21,2,0) Defense (SHAD) status. "^DD",727.832,727.832,65,23,0) ^.001^3^3^3120619^^^^ "^DD",727.832,727.832,65,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.832,727.832,65,23,2,0) in the NUTRITION EXTRACT file (#727.832), Shipboard Hazard and Defense "^DD",727.832,727.832,65,23,3,0) data is derived from using DBIA #4462 GETSHAD^DGUTL3(DFN). "^DD",727.832,727.832,65,"DT") 3100212 "^DD",727.833,727.833,0) FIELD^^80^81 "^DD",727.833,727.833,0,"DDA") N "^DD",727.833,727.833,0,"DT") 3120717 "^DD",727.833,727.833,0,"IX","AC",727.833,2) "^DD",727.833,727.833,0,"IX","B",727.833,.01) "^DD",727.833,727.833,0,"NM","BCMA EXTRACT") "^DD",727.833,727.833,0,"VRPK") ECX "^DD",727.833,727.833,.01,0) SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X "^DD",727.833,727.833,.01,.1) Sequence Number "^DD",727.833,727.833,.01,1,0) ^.1 "^DD",727.833,727.833,.01,1,1,0) 727.833^B "^DD",727.833,727.833,.01,1,1,1) S ^ECX(727.833,"B",$E(X,1,30),DA)="" "^DD",727.833,727.833,.01,1,1,2) K ^ECX(727.833,"B",$E(X,1,30),DA) "^DD",727.833,727.833,.01,3) Type a number between 1 and 999999999, 0 decimal digits. "^DD",727.833,727.833,.01,21,0) ^^1^1^3100308^ "^DD",727.833,727.833,.01,21,1,0) The record number for this extract entry. "^DD",727.833,727.833,.01,23,0) ^^1^1^3100308^ "^DD",727.833,727.833,.01,23,1,0) The internal entry number (IEN) for this record. This entry is DINUMed. "^DD",727.833,727.833,.01,"DT") 3100308 "^DD",727.833,727.833,1,0) YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X "^DD",727.833,727.833,1,2) S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y) "^DD",727.833,727.833,1,2.1) S Y=$$ECXYMX^ECXUTL(Y) "^DD",727.833,727.833,1,3) Answer must be 6 characters in length. "^DD",727.833,727.833,1,21,0) ^.001^2^2^3120612^^^^ "^DD",727.833,727.833,1,21,1,0) A six character string representing the year and the month for which this "^DD",727.833,727.833,1,21,2,0) extract was performed. "^DD",727.833,727.833,1,23,0) ^.001^1^1^3120612^^^ "^DD",727.833,727.833,1,23,1,0) Format is YYYYMM. "^DD",727.833,727.833,1,"DT") 3101025 "^DD",727.833,727.833,2,0) EXTRACT NUMBER^P727'^ECX(727,^0;3^Q "^DD",727.833,727.833,2,.1) Extract Number "^DD",727.833,727.833,2,1,0) ^.1 "^DD",727.833,727.833,2,1,1,0) 727.833^AC "^DD",727.833,727.833,2,1,1,1) S ^ECX(727.833,"AC",$E(X,1,30),DA)="" "^DD",727.833,727.833,2,1,1,2) K ^ECX(727.833,"AC",$E(X,1,30),DA) "^DD",727.833,727.833,2,1,1,3) DO NOT DELETE. "^DD",727.833,727.833,2,1,1,"%D",0) ^^2^2^3100308^ "^DD",727.833,727.833,2,1,1,"%D",1,0) This cross reference is essential for managing and purging data in this "^DD",727.833,727.833,2,1,1,"%D",2,0) file. "^DD",727.833,727.833,2,1,1,"DT") 3100308 "^DD",727.833,727.833,2,3) Enter the extract number for this entry. "^DD",727.833,727.833,2,21,0) ^^2^2^3101025^ "^DD",727.833,727.833,2,21,1,0) The corresponding entry in the DSS EXTRACT LOG (#727) file for this "^DD",727.833,727.833,2,21,2,0) extract. "^DD",727.833,727.833,2,23,0) ^^2^2^3101025^ "^DD",727.833,727.833,2,23,1,0) A pointer to the DSS EXTRACT LOG (#727) file. The primary purpose is to "^DD",727.833,727.833,2,23,2,0) pick up the header for the mail message. "^DD",727.833,727.833,2,"DT") 3101025 "^DD",727.833,727.833,3,0) FACILITY^F^^0;4^K:$L(X)>7!($L(X)<3) X "^DD",727.833,727.833,3,.1) Facility "^DD",727.833,727.833,3,3) Enter the station number where this extract was performed. "^DD",727.833,727.833,3,21,0) ^.001^1^1^3120612^^^^ "^DD",727.833,727.833,3,21,1,0) This is the facility/division where the extract was performed. "^DD",727.833,727.833,3,23,0) ^.001^4^4^3120612^^^^ "^DD",727.833,727.833,3,23,1,0) An indicator of the division where this event happened. Using the NAME "^DD",727.833,727.833,3,23,2,0) field (#.01) pointer from the DSS EXTRACTS file (#728), FACILITY is "^DD",727.833,727.833,3,23,3,0) derived from the STATION NUMBER field (#99) for that pointer number in "^DD",727.833,727.833,3,23,4,0) the INSTITUTION file (#4). "^DD",727.833,727.833,3,"DT") 3120612 "^DD",727.833,727.833,4,0) PATIENT NO. - DFN^P2'^DPT(^0;5^Q "^DD",727.833,727.833,4,.1) Patient No. - DFN "^DD",727.833,727.833,4,3) Enter the patient for this extract record. "^DD",727.833,727.833,4,21,0) ^.001^1^1^3100309^^ "^DD",727.833,727.833,4,21,1,0) An identifying number for the patient at the local site. "^DD",727.833,727.833,4,23,0) ^^3^3^3101024^ "^DD",727.833,727.833,4,23,1,0) Derived from the PATIENT (#.01) field in the BCMA MEDICATION LOG "^DD",727.833,727.833,4,23,2,0) (#53.79) file. PATIENT NO. - DFN is a pointer to the NAME (#.01) field of "^DD",727.833,727.833,4,23,3,0) the PATIENT (#2) file. This data represents the patient DFN. "^DD",727.833,727.833,4,"DT") 3101115 "^DD",727.833,727.833,5,0) SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1"P") X "^DD",727.833,727.833,5,.1) Social Security Number "^DD",727.833,727.833,5,3) Answer must be 9-10 characters in length. "^DD",727.833,727.833,5,21,0) ^.001^1^1^3111229^^^^ "^DD",727.833,727.833,5,21,1,0) This is the patient's social security number. "^DD",727.833,727.833,5,23,0) ^.001^6^6^3111229^^ "^DD",727.833,727.833,5,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN (#4) field "^DD",727.833,727.833,5,23,2,0) in this file, SSN data is derived from the SOCIAL SECURITY NUMBER (#.09) "^DD",727.833,727.833,5,23,3,0) field in the PATIENT (#2) file. "^DD",727.833,727.833,5,23,4,0) "^DD",727.833,727.833,5,23,5,0) "Test" patient status is determined in PAT^ECXUTL3. Any patient with an "^DD",727.833,727.833,5,23,6,0) SSN beginning with "00000" will not be included in the extract. "^DD",727.833,727.833,5,"DT") 3101110 "^DD",727.833,727.833,6,0) NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X "^DD",727.833,727.833,6,.1) Name "^DD",727.833,727.833,6,3) Answer must be 4 characters in length. "^DD",727.833,727.833,6,21,0) ^.001^1^1^3120612^^^^ "^DD",727.833,727.833,6,21,1,0) The first four characters of the patient's last name. "^DD",727.833,727.833,6,23,0) ^^6^6^3120612^ "^DD",727.833,727.833,6,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN (#4) field "^DD",727.833,727.833,6,23,2,0) in the BCMA EXTRACT file (#727.833), NAME data is derived from the NAME "^DD",727.833,727.833,6,23,3,0) field (#.01) in the PATIENT (#2) file. The first four characters of the "^DD",727.833,727.833,6,23,4,0) first "," piece are used, padded with trailing spaces if necessary. "^DD",727.833,727.833,6,23,5,0) "^DD",727.833,727.833,6,23,6,0) The name value is returned by the supported call DEM^VADPT. "^DD",727.833,727.833,6,"DT") 3101116 "^DD",727.833,727.833,7,0) IN OUT PATIENT INDICATOR^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q "^DD",727.833,727.833,7,.1) In Out Patient Indicator "^DD",727.833,727.833,7,3) Enter the patient's status for this extract entry. "^DD",727.833,727.833,7,21,0) ^.001^2^2^3120612^^^^ "^DD",727.833,727.833,7,21,1,0) Indicates whether the patient was an inpatient or an outpatient for this "^DD",727.833,727.833,7,21,2,0) extract entry. "^DD",727.833,727.833,7,23,0) ^.001^10^10^3120612^^^^ "^DD",727.833,727.833,7,23,1,0) To determine the value of this field a call is made to $$PATDEM^ECXUTL2. "^DD",727.833,727.833,7,23,2,0) Within this call, $$INP^ECXUTL2 is called to determine "^DD",727.833,727.833,7,23,3,0) inpatient/outpatient status. If the patient is an outpatient, processing "^DD",727.833,727.833,7,23,4,0) stops and the field is set to O. If the patient is an inpatient then "^DD",727.833,727.833,7,23,5,0) $$INOUTP^ECXUTL4 is called to look at the treating specialty. If the "^DD",727.833,727.833,7,23,6,0) patient's treating specialty exists in the DSS TREATING SPECIALTY "^DD",727.833,727.833,7,23,7,0) TRANSLATION (#727.831) file then the value of the INPAT/OUTPAT CODE field "^DD",727.833,727.833,7,23,8,0) (#5) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file is used. "^DD",727.833,727.833,7,23,9,0) If the treating specialty is not found in the DSS TREATING SPECIALTY "^DD",727.833,727.833,7,23,10,0) TRANSLATION (#727.831) file then the indicator is set to I. "^DD",727.833,727.833,7,"DT") 3101108 "^DD",727.833,727.833,8,0) DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X "^DD",727.833,727.833,8,.1) Day "^DD",727.833,727.833,8,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.833,727.833,8,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.833,727.833,8,3) Answer must be 8 characters in length. "^DD",727.833,727.833,8,21,0) ^.001^1^1^3120612^^^^ "^DD",727.833,727.833,8,21,1,0) Date on which the patient was administered medication. "^DD",727.833,727.833,8,23,0) ^^4^4^3120612^ "^DD",727.833,727.833,8,23,1,0) This field is always exactly 8 numeric characters in length. Taken from "^DD",727.833,727.833,8,23,2,0) the ACTION DATE/TIME (#.06) field of the BCMA MEDICATION LOG (#53.79) "^DD",727.833,727.833,8,23,3,0) file. It is parsed so that only the date portion is stored in YYYYMMDD "^DD",727.833,727.833,8,23,4,0) format, for example 19970201. "^DD",727.833,727.833,8,"DT") 3101119 "^DD",727.833,727.833,9,0) DATE OF BIRTH^FO^^0;10^K:$L(X)>8!($L(X)<8) X "^DD",727.833,727.833,9,2) S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.833,727.833,9,2.1) S Y=$$ECXDATEX^ECXUTL(Y) "^DD",727.833,727.833,9,3) Answer must be 8 characters in length. "^DD",727.833,727.833,9,21,0) ^.001^1^1^3120612^^^^ "^DD",727.833,727.833,9,21,1,0) The patient's date of birth. "^DD",727.833,727.833,9,23,0) ^^6^6^3120612^ "^DD",727.833,727.833,9,23,1,0) Data source: "^DD",727.833,727.833,9,23,2,0) "^DD",727.833,727.833,9,23,3,0) PATIENT file (#2); DATE OF BIRTH field (#.03) "^DD",727.833,727.833,9,23,4,0) "^DD",727.833,727.833,9,23,5,0) Date of Birth is returned through the supported call DEM^VADPT. It is then "^DD",727.833,727.833,9,23,6,0) represented by an 8-character numeric string in the YYYYMMDD format. "^DD",727.833,727.833,9,"DT") 3101123 "^DD",727.833,727.833,10,0) SEX^S^M:MALE;F:FEMALE;^0;11^Q "^DD",727.833,727.833,10,3) Enter the gender of the patient. "^DD",727.833,727.833,10,21,0) ^.001^1^1^3120612^^^^ "^DD",727.833,727.833,10,21,1,0) Patient's gender "^DD",727.833,727.833,10,23,0) ^.001^4^4^3120612^^^^ "^DD",727.833,727.833,10,23,1,0) Data is taken from the SEX field (#.02) of the patient's record in the "^DD",727.833,727.833,10,23,2,0) PATIENT file (#2). "^DD",727.833,727.833,10,23,3,0) "^DD",727.833,727.833,10,23,4,0) The gender is returned by DEM^VADPT. "^DD",727.833,727.833,10,"DT") 3101115 "^DD",727.833,727.833,11,0) STATE^F^^0;12^K:$L(X)>2!($L(X)<2) X "^DD",727.833,727.833,11,3) Answer must be 2 characters in length. "^DD",727.833,727.833,11,21,0) ^.001^1^1^3120612^^ "^DD",727.833,727.833,11,21,1,0) The state in which the patient resides. "^DD",727.833,727.833,11,23,0) ^.001^4^4^3120612^^^ "^DD",727.833,727.833,11,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN (#4) field "^DD",727.833,727.833,11,23,2,0) in this file, STATE data is derived from the STATE (#.115) field in the "^DD",727.833,727.833,11,23,3,0) PATIENT (#2) file which points to the STATE (#5) file. For the STATE file "^DD",727.833,727.833,11,23,4,0) entry, data transmitted is the two character VA STATE CODE, (#2) field. "^DD",727.833,727.833,11,"DT") 3101109 "^DD",727.833,727.833,12,0) COUNTY^F^^0;13^K:$L(X)>3!($L(X)<3) X "^DD",727.833,727.833,12,3) Answer must be 3 characters in length. "^DD",727.833,727.833,12,21,0) ^^1^1^3101108^ "^DD",727.833,727.833,12,21,1,0) This is the County in which the Patient resides. "^DD",727.833,727.833,12,23,0) ^^5^5^3101108^ "^DD",727.833,727.833,12,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN (#4) field "^DD",727.833,727.833,12,23,2,0) in this file, data is taken from the COUNTY (#.117) field in the PATIENT "^DD",727.833,727.833,12,23,3,0) (#2) file, which points to a subfile record in the COUNTY (#3) multiple "^DD",727.833,727.833,12,23,4,0) field of the STATE (#5) file. The three character VA COUNTY CODE (#2) "^DD",727.833,727.833,12,23,5,0) field within the COUNTY (#3) multiple field is used. "^DD",727.833,727.833,12,"DT") 3101108 "^DD",727.833,727.833,13,0) ZIP +4^F^^0;14^K:$L(X)>10!($L(X)<5) X "^DD",727.833,727.833,13,.1) Zip Code "^DD",727.833,727.833,13,3) Answer must be 5-10 characters in length. "^DD",727.833,727.833,13,21,0) ^.001^2^2^3120614^^ "^DD",727.833,727.833,13,21,1,0) The ZIP code for where the patient resides. The 5-character ZIP code is "^DD",727.833,727.833,13,21,2,0) provided if ZIP+4 is not available. "^DD",727.833,727.833,13,23,0) ^.001^4^4^3120614^^^ "^DD",727.833,727.833,13,23,1,0) The patient's ZIP code with optional 4-digit extension as found in "^DD",727.833,727.833,13,23,2,0) the ZIP+4 field (#.1112) of the patient's record in the PATIENT "^DD",727.833,727.833,13,23,3,0) file (#2). While the ZIP+4 field in file 2 is a max of 9 characters, it "^DD",727.833,727.833,13,23,4,0) does put the "-" in if the ZIP code is a +4 type. "^DD",727.833,727.833,13,"DT") 3101102 "^DD",727.833,727.833,14,0) COUNTRY CODE^F^^0;15^K:$L(X)>3!($L(X)<1) X "^DD",727.833,727.833,14,.1) Country Code "^DD",727.833,727.833,14,3) The code for the country. Answer must be 1-3 characters in length. "^DD",727.833,727.833,14,21,0) ^.001^1^1^3120612^^^ "^DD",727.833,727.833,14,21,1,0) This is the code for the country associated with the address. "^DD",727.833,727.833,14,23,0) ^^2^2^3120612^ "^DD",727.833,727.833,14,23,1,0) The three-character alpha identifying code is copied from the CODE (#.01) "^DD",727.833,727.833,14,23,2,0) field of the COUNTRY (#779.004) file. "^DD",727.833,727.833,14,"DT") 3101115 "^DD",727.833,727.833,15,0) WARD^P44'^SC(^0;16^Q "^DD",727.833,727.833,15,3) Enter the ward location for this patient. "^DD",727.833,727.833,15,21,0) ^.001^1^1^3120612^^^^ "^DD",727.833,727.833,15,21,1,0) Current ward where the patient is located. "^DD",727.833,727.833,15,23,0) ^^6^6^3120612^ "^DD",727.833,727.833,15,23,1,0) This field is initialized to a null, indicating an outpatient status. "^DD",727.833,727.833,15,23,2,0) A call to IN5^VADPT using the patient IEN and the event date (DAY (#8) "^DD",727.833,727.833,15,23,3,0) field in FM format) is made. If data is returned identifying an inpatient "^DD",727.833,727.833,15,23,4,0) episode, the value of VAIP(5), ward location, is used to get the HOSPITAL "^DD",727.833,727.833,15,23,5,0) LOCATION FILE POINTER (#44) field in the WARD LOCATION (#42) file which is "^DD",727.833,727.833,15,23,6,0) a pointer to the HOSPITAL LOCATION (#44) file. "^DD",727.833,727.833,15,"DT") 3101118 "^DD",727.833,727.833,16,0) TREATING SPECIALTY^F^^0;17^K:$L(X)>2!($L(X)<1) X "^DD",727.833,727.833,16,3) Answer must be 1-2 characters in length. "^DD",727.833,727.833,16,21,0) ^.001^1^1^3101109^^^ "^DD",727.833,727.833,16,21,1,0) The PTF CODE of the treating specialty associated with this extract record. "^DD",727.833,727.833,16,23,0) ^^8^8^3101118^ "^DD",727.833,727.833,16,23,1,0) This field is initialized to a null, indicating an outpatient status. "^DD",727.833,727.833,16,23,2,0) A call to IN5^VADPT using the patient IEN and the event date (DAY (#8) "^DD",727.833,727.833,16,23,3,0) field in FM format) is made. If data returns a patient movement number "^DD",727.833,727.833,16,23,4,0) (indicating inpatient status), then the value of VAIP(8), which is the "^DD",727.833,727.833,16,23,5,0) pointer to the FACILITY TREATING SPECIALTY (#45.7) file, is used to get "^DD",727.833,727.833,16,23,6,0) the SPECIALTY (#1) field which points to the SPECIALTY (#42.4) file. Then, "^DD",727.833,727.833,16,23,7,0) the PTF Code (#7) field of the SPECIALTY (#42.4) file is obtained and "^DD",727.833,727.833,16,23,8,0) stored instead of the IEN of the specialty. "^DD",727.833,727.833,16,"DT") 3101118 "^DD",727.833,727.833,17,0) PROVIDER^F^^0;18^K:$L(X)>11!($L(X)<2) X "^DD",727.833,727.833,17,3) Answer must be 2-11 characters in length. "^DD",727.833,727.833,17,21,0) ^.001^1^1^3120717^^^^ "^DD",727.833,727.833,17,21,1,0) The provider assigned to this patient through the PCMM module. "^DD",727.833,727.833,17,23,0) ^.001^9^9^3120717^^ "^DD",727.833,727.833,17,23,1,0) Derived by calling API EN^PSJBCMA1. Using the ORDER REFERENCE NUMBER "^DD",727.833,727.833,17,23,2,0) (#26) field from this file. Provider will be returned in the 1st piece of "^DD",727.833,727.833,17,23,3,0) the returning ^TMP(PTMP,$J,1) global. It is extracted from the PHARMACY "^DD",727.833,727.833,17,23,4,0) PATIENT (#55) file by either the PROVIDER (#1) field of the UNIT DOSE "^DD",727.833,727.833,17,23,5,0) (#62) multiple or the PROVIDER (#.06) field of the IV (#100) multiple. "^DD",727.833,727.833,17,23,6,0) "^DD",727.833,727.833,17,23,7,0) A "2" is prefixed to the pointer value to indicate that the source file is "^DD",727.833,727.833,17,23,8,0) "200". For example, if the IEN of the provider in file #200 is 98765, the "^DD",727.833,727.833,17,23,9,0) value that will be stored is 298765. "^DD",727.833,727.833,17,"DT") 3120717 "^DD",727.833,727.833,18,0) PROVIDER PERSON CLASS^F^^0;19^K:$L(X)>7!($L(X)<7) X "^DD",727.833,727.833,18,3) Answer must be 7 characters in length. "^DD",727.833,727.833,18,21,0) ^.001^2^2^3120612^^ "^DD",727.833,727.833,18,21,1,0) The VA Code of the Person Class of the Provider associated with this "^DD",727.833,727.833,18,21,2,0) record. "^DD",727.833,727.833,18,23,0) ^^4^4^3120612^ "^DD",727.833,727.833,18,23,1,0) Active Person Class is determined by the supported call "^DD",727.833,727.833,18,23,2,0) $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file #200 and DATE is "^DD",727.833,727.833,18,23,3,0) the date of the event. The VA CODE is determined by the 7th piece of the "^DD",727.833,727.833,18,23,4,0) returned value string. "^DD",727.833,727.833,18,"DT") 3100816 "^DD",727.833,727.833,19,0) PROVIDER NPI^F^^0;20^K:$L(X)>10!($L(X)<1) X "^DD",727.833,727.833,19,3) Answer must be 1-10 characters in length. "^DD",727.833,727.833,19,21,0) ^^2^2^3101108^ "^DD",727.833,727.833,19,21,1,0) A standard unique life-long identifier of the individuals providing "^DD",727.833,727.833,19,21,2,0) health care services. "^DD",727.833,727.833,19,23,0) ^^2^2^3101108^ "^DD",727.833,727.833,19,23,1,0) The qualified identifier shall be retrieved via the supporting Kernel "^DD",727.833,727.833,19,23,2,0) API:$$NPI^XUSNPI. "^DD",727.833,727.833,19,"DT") 3101108 "^DD",727.833,727.833,20,0) PRIMARY CARE PROVIDER^F^^0;21^K:$L(X)>11!($L(X)<11) X "^DD",727.833,727.833,20,3) The answer must be 11 characters in length. "^DD",727.833,727.833,20,21,0) ^.001^2^2^3120612^^^ "^DD",727.833,727.833,20,21,1,0) The primary care provider assigned to this patient through the PCMM "^DD",727.833,727.833,20,21,2,0) module. "^DD",727.833,727.833,20,23,0) ^^8^8^3120612^ "^DD",727.833,727.833,20,23,1,0) Using the DATE/TIME field (#4) and the DFN field (#1) in the IV EXTRACT "^DD",727.833,727.833,20,23,2,0) DATA file (#728.113) a call is made to the Scheduling API, OUTPTPR^SDUTL3. "^DD",727.833,727.833,20,23,3,0) The API returns the provider's internal entry number and name from the NEW "^DD",727.833,727.833,20,23,4,0) PERSON file (#200). "^DD",727.833,727.833,20,23,5,0) "^DD",727.833,727.833,20,23,6,0) A "2" is prefixed to the pointer value to indicate that the source file is "^DD",727.833,727.833,20,23,7,0) "200". For example, if the IEN of the provider in file #200 is 98765, the "^DD",727.833,727.833,20,23,8,0) value that will be stored is 298765. "^DD",727.833,727.833,20,"DT") 3101118 "^DD",727.833,727.833,21,0) PRIMARY CARE PROVIDER PC^F^^0;22^K:$L(X)>7!($L(X)<7) X "^DD",727.833,727.833,21,3) Answer must be 7 characters in length. "^DD",727.833,727.833,21,21,0) ^.001^2^2^3100825^^^ "^DD",727.833,727.833,21,21,1,0) The VA Code of the Person Class of the Primary Care Provider "^DD",727.833,727.833,21,21,2,0) associated with this record. "^DD",727.833,727.833,21,23,0) ^.001^4^4^3100825^^ "^DD",727.833,727.833,21,23,1,0) The field will hold the VA Code associated with the active Person Class "^DD",727.833,727.833,21,23,2,0) of the patient's Primary Care Provider as of the date of this extract "^DD",727.833,727.833,21,23,3,0) record. "^DD",727.833,727.833,21,23,4,0) The VA Code is always of the form "V"_six numeric digits; exactly 7 in length. "^DD",727.833,727.833,21,"DT") 3100825 "^DD",727.833,727.833,22,0) PRIMARY CARE PROVIDER NPI^F^^0;23^K:$L(X)>10!($L(X)<1) X "^DD",727.833,727.833,22,3) Answer must be 1-10 characters in length. "^DD",727.833,727.833,22,21,0) ^^1^1^3101108^ "^DD",727.833,727.833,22,21,1,0) A standard unique life-long identifier of the primary care provider. "^DD",727.833,727.833,22,23,0) ^^2^2^3101108^ "^DD",727.833,727.833,22,23,1,0) The qualified identifier is retrieved via the supporting Kernel API: "^DD",727.833,727.833,22,23,2,0) $$NPI^XUSNPI "^DD",727.833,727.833,22,"DT") 3101108 "^DD",727.833,727.833,23,0) PRIMARY CARE TEAM^P404.51'^SCTM(404.51,^0;24^Q "^DD",727.833,727.833,23,3) Select the patient's primary care team. "^DD",727.833,727.833,23,21,0) ^^1^1^3101108^ "^DD",727.833,727.833,23,21,1,0) The primary care team assigned to this patient. "^DD",727.833,727.833,23,23,0) ^^5^5^3101118^ "^DD",727.833,727.833,23,23,1,0) Using the DAY (#8) field (in FM format) and the patient pointer "^DD",727.833,727.833,23,23,2,0) (DFN) stored in the PATIENT NO. - DFN (#4) field in this file, a call is "^DD",727.833,727.833,23,23,3,0) made to the Scheduling API, OUTPTTM^SDUTL3. The API returns the team's "^DD",727.833,727.833,23,23,4,0) internal entry number and name from the TEAM (#404.51) file. Only the "^DD",727.833,727.833,23,23,5,0) pointer to the TEAM (#404.51) file is transmitted. "^DD",727.833,727.833,23,"DT") 3101118 "^DD",727.833,727.833,24,0) ORDERING STOP CODE^F^^0;25^K:$L(X)>3!($L(X)<3) X "^DD",727.833,727.833,24,3) Answer must be 3 characters in length. "^DD",727.833,727.833,24,21,0) ^^1^1^3101006^ "^DD",727.833,727.833,24,21,1,0) The field contains the stop code with the order. "^DD",727.833,727.833,24,23,0) ^^16^16^3101006^ "^DD",727.833,727.833,24,23,1,0) For outpatients the stop code is the primary stop code for the clinic "^DD",727.833,727.833,24,23,2,0) (first 3 characters of the DSS Identifier field of this extract). If none "^DD",727.833,727.833,24,23,3,0) exists, the value is set to null. "^DD",727.833,727.833,24,23,4,0) "^DD",727.833,727.833,24,23,5,0) For observation patients the stop code is translated using the following "^DD",727.833,727.833,24,23,6,0) table. "^DD",727.833,727.833,24,23,7,0) "^DD",727.833,727.833,24,23,8,0) Treating Specialty Observation Stop Code "^DD",727.833,727.833,24,23,9,0) 18 293 "^DD",727.833,727.833,24,23,10,0) 23 295 "^DD",727.833,727.833,24,23,11,0) 24 290 "^DD",727.833,727.833,24,23,12,0) 36 296 "^DD",727.833,727.833,24,23,13,0) 41 294 "^DD",727.833,727.833,24,23,14,0) 65 291 "^DD",727.833,727.833,24,23,15,0) 94 292 "^DD",727.833,727.833,24,23,16,0) 1J 297 "^DD",727.833,727.833,24,"DT") 3101006 "^DD",727.833,727.833,25,0) PLACE ORDER NUMBER^P53.79'^PSB(53.79,^1;1^Q "^DD",727.833,727.833,25,3) Please select the patient's Place Order Number. "^DD",727.833,727.833,25,21,0) ^^2^2^3101118^ "^DD",727.833,727.833,25,21,1,0) This is the order number of the Patient's Barcode Medication "^DD",727.833,727.833,25,21,2,0) Administration record. "^DD",727.833,727.833,25,23,0) ^^3^3^3101118^ "^DD",727.833,727.833,25,23,1,0) This is the IEN of the BCMA MEDICATION LOG (#53.79) file. Derived from "^DD",727.833,727.833,25,23,2,0) using the 'AADT' cross reference of the BCMA MEDICATION LOG (#53.79) "^DD",727.833,727.833,25,23,3,0) file, based on the start and end dates of the extract. "^DD",727.833,727.833,25,"DT") 3101118 "^DD",727.833,727.833,26,0) ORDER REFERENCE NUMBER^F^^1;2^K:$L(X)>15!($L(X)<1) X "^DD",727.833,727.833,26,3) Answer must be 1-15 characters in length. "^DD",727.833,727.833,26,21,0) ^.001^2^2^3101115^^^ "^DD",727.833,727.833,26,21,1,0) Contains the IEN to the actual order in the PHARMACY PATIENT (#55) "^DD",727.833,727.833,26,21,2,0) followed by a U for Unit Dose or V for IV. "^DD",727.833,727.833,26,23,0) ^^3^3^3101115^ "^DD",727.833,727.833,26,23,1,0) This field is derived by using the ORDER REFERENCE NUMBER (#.11) field "^DD",727.833,727.833,26,23,2,0) of the BCMA MEDICATION LOG (#53.79) file, as pointed to by the PLACE "^DD",727.833,727.833,26,23,3,0) ORDER NUMBER (#25) field of this file. "^DD",727.833,727.833,26,"DT") 3101108 "^DD",727.833,727.833,27,0) ROUTE^P51.2'^PS(51.2,^1;3^Q "^DD",727.833,727.833,27,3) Select the medication route. "^DD",727.833,727.833,27,21,0) ^.001^2^2^3101108^^^^ "^DD",727.833,727.833,27,21,1,0) This is the route of administration for Unit Dose or IV medication for a "^DD",727.833,727.833,27,21,2,0) patient. "^DD",727.833,727.833,27,23,0) ^.001^3^3^3101108^^^^ "^DD",727.833,727.833,27,23,1,0) This field is extracted from the PARMACY PATIENT (#55) "^DD",727.833,727.833,27,23,2,0) File by either the MED ROUTE (#3) field of its Unit Dose (#62) multiple. "^DD",727.833,727.833,27,23,3,0) Or, the MED ROUTE (#132) field of its IV (#100) multiple. "^DD",727.833,727.833,27,"DT") 3101108 "^DD",727.833,727.833,28,0) TIME^F^^1;4^K:$L(X)>6!($L(X)<6) X "^DD",727.833,727.833,28,3) Answer must be 6 characters in length. "^DD",727.833,727.833,28,21,0) ^.001^1^1^3120418^^ "^DD",727.833,727.833,28,21,1,0) This field contains the actual time the medication was administered. "^DD",727.833,727.833,28,23,0) ^^4^4^3120418^ "^DD",727.833,727.833,28,23,1,0) This field is taken from the ACTION DATE/TIME (#.06) field from the BCMA "^DD",727.833,727.833,28,23,2,0) MEDICATION LOG (#53.79) file. It is parsed so that only the time portion "^DD",727.833,727.833,28,23,3,0) of the field is stored in HHMMSS format. The date portion is stored in "^DD",727.833,727.833,28,23,4,0) the DAY (#8) field of this file. "^DD",727.833,727.833,28,"DT") 3120418 "^DD",727.833,727.833,29,0) COMPONENT CODE^V^^1;5^Q "^DD",727.833,727.833,29,3) Please select the patient's component code. "^DD",727.833,727.833,29,21,0) ^.001^2^2^3120418^^ "^DD",727.833,727.833,29,21,1,0) The COMPONENT CODE contains either the dispensed drug, IV additive or "^DD",727.833,727.833,29,21,2,0) IV solution that was administered for this patient. "^DD",727.833,727.833,29,23,0) ^^11^11^3120418^ "^DD",727.833,727.833,29,23,1,0) This is a variable pointer field used to identify either the DRUG (#50), "^DD",727.833,727.833,29,23,2,0) IV ADDITIVES (#52.6), or the IV SOLUTIONS (#52.7) files. "^DD",727.833,727.833,29,23,3,0) "^DD",727.833,727.833,29,23,4,0) Enter one of the following: "^DD",727.833,727.833,29,23,5,0) "^DD",727.833,727.833,29,23,6,0) A.EntryName to select a IV ADDITIVES (#52.6) file. "^DD",727.833,727.833,29,23,7,0) D.EntryName to select a DRUG (#50) file. "^DD",727.833,727.833,29,23,8,0) S.EntryName to select a IV SOLUTIONS (#52.7) file. "^DD",727.833,727.833,29,23,9,0) "^DD",727.833,727.833,29,23,10,0) The COMPONENT TYPE (#34) field will contain the variable pointer letter "^DD",727.833,727.833,29,23,11,0) (A=IV ADDITIVES, D=DRUG, S=IV SOLUTIONS) from this field. "^DD",727.833,727.833,29,"DT") 3120418 "^DD",727.833,727.833,29,"V",0) ^.12P "^DD",727.833,727.833,30,0) COMPONENT DOSE ORDERED^F^^1;6^K:$L(X)>50!($L(X)<1) X "^DD",727.833,727.833,30,3) Answer must be 1-50 characters in length. "^DD",727.833,727.833,30,21,0) ^.001^3^3^3120418^^ "^DD",727.833,727.833,30,21,1,0) COMPONENT DOSE ORDERED contains either the dispensed drug, IV additive, "^DD",727.833,727.833,30,21,2,0) or IV solution dose ordered, to which, this medication was administered "^DD",727.833,727.833,30,21,3,0) for this patient. "^DD",727.833,727.833,30,23,0) ^^2^2^3120418^ "^DD",727.833,727.833,30,23,1,0) Its value is free text derived from the DOSE ORDERED (#.02) field of the "^DD",727.833,727.833,30,23,2,0) subfile #.5, #.6, #.7 multiples of the BCMA MEDICATION LOG (#53.79) file. "^DD",727.833,727.833,30,"DT") 3120418 "^DD",727.833,727.833,31,0) COMPONENT DOSE GIVEN^F^^1;7^K:$L(X)>50!($L(X)<1) X "^DD",727.833,727.833,31,3) Answer must be 1-50 characters in length. "^DD",727.833,727.833,31,21,0) ^.001^3^3^3120418^^ "^DD",727.833,727.833,31,21,1,0) The COMPONENT DOSE GIVEN contains either the dispensed drug, IV additive, "^DD",727.833,727.833,31,21,2,0) or IV solutions dose given, to which, this medication was administered "^DD",727.833,727.833,31,21,3,0) for this patient. "^DD",727.833,727.833,31,23,0) ^^3^3^3120418^ "^DD",727.833,727.833,31,23,1,0) This field's value is free text derived from the DOSE GIVEN (#.03) field "^DD",727.833,727.833,31,23,2,0) of the subfile #.5, #.6, #.7 multiples of the BCMA MEDICATION LOG "^DD",727.833,727.833,31,23,3,0) (#53.79) file. "^DD",727.833,727.833,31,"DT") 3120418 "^DD",727.833,727.833,32,0) COMPONENT UNITS^F^^1;8^K:$L(X)>40!($L(X)<1) X "^DD",727.833,727.833,32,3) Answer must be 1-40 characters in length. "^DD",727.833,727.833,32,21,0) ^.001^3^3^3120418^^ "^DD",727.833,727.833,32,21,1,0) The Component Units contains either the dispensed drug, IV additive, "^DD",727.833,727.833,32,21,2,0) or IV solutions unit of administration, to which this medication was "^DD",727.833,727.833,32,21,3,0) administered for this patient. "^DD",727.833,727.833,32,23,0) ^^3^3^3120418^ "^DD",727.833,727.833,32,23,1,0) The Component Units value is free text derived from the Unit of "^DD",727.833,727.833,32,23,2,0) Administration (#.04) field of the subfile #.5,#.6,#.7 multiples of the "^DD",727.833,727.833,32,23,3,0) BCMA Medication Log (#53.79) File. "^DD",727.833,727.833,32,"DT") 3120418 "^DD",727.833,727.833,33,0) COMPONENT TYPE^S^D:Dispensed Drug;A:Additives;S:Solutions;^1;9^Q "^DD",727.833,727.833,33,3) What kind of dose was ordered? "^DD",727.833,727.833,33,21,0) ^.001^2^2^3120418^^ "^DD",727.833,727.833,33,21,1,0) The Component Type is determined by the value destination of the Component "^DD",727.833,727.833,33,21,2,0) Code. "^DD",727.833,727.833,33,23,0) ^^4^4^3120418^ "^DD",727.833,727.833,33,23,1,0) This field is derived based on the COMPONENT CODE (#30) field of this "^DD",727.833,727.833,33,23,2,0) file. If the component code is from the DRUG (#50) file, it will be "D", "^DD",727.833,727.833,33,23,3,0) if it's from the IV ADDITIVES (#52.6) file it will be "A", and if it is "^DD",727.833,727.833,33,23,4,0) from IV SOLUTIONS (#52.7) file it will be "S". "^DD",727.833,727.833,33,"DT") 3120418 "^DD",727.833,727.833,34,0) ACTION STATUS^S^G:GIVEN;H:HELD;R:REFUSED;N:NOT GIVEN;RM:REMOVED;I:INFUSING;S:STOPPED;C:COMPLETED;M:MISSING DOSE;^1;10^Q "^DD",727.833,727.833,34,3) What is the medication administration status? "^DD",727.833,727.833,34,21,0) ^.001^1^1^3120418^^ "^DD",727.833,727.833,34,21,1,0) This is the status of the medication administration. "^DD",727.833,727.833,34,23,0) ^^2^2^3120418^ "^DD",727.833,727.833,34,23,1,0) This field is derived from the ACTION STATUS (#.09) field of the BCMA "^DD",727.833,727.833,34,23,2,0) MEDICATION LOG (#53.79) file. "^DD",727.833,727.833,34,"DT") 3120418 "^DD",727.833,727.833,35,0) ADMINISTRATION MEDICATION^P50.7'^PS(50.7,^1;11^Q "^DD",727.833,727.833,35,3) Select the proper medication. "^DD",727.833,727.833,35,21,0) ^.001^1^1^3120418^^ "^DD",727.833,727.833,35,21,1,0) Administration Medication is the medication entered for the order. "^DD",727.833,727.833,35,23,0) ^^2^2^3120418^ "^DD",727.833,727.833,35,23,1,0) This field is derived from the ADMINISTRATION MEDICATION (#.08) field of "^DD",727.833,727.833,35,23,2,0) the BCMA MEDICATION LOG (#53.79) File. "^DD",727.833,727.833,35,"DT") 3120418 "^DD",727.833,727.833,36,0) SCHEDULED ADMINISTRATION DATE^F^^1;12^K:$L(X)>8!($L(X)<8) X "^DD",727.833,727.833,36,3) Answer must be 8 characters in length. "^DD",727.833,727.833,36,21,0) ^.001^2^2^3120418^^ "^DD",727.833,727.833,36,21,1,0) If a continuous order this field will contain the actual administration "^DD",727.833,727.833,36,21,2,0) date the medication was ordered for. "^DD",727.833,727.833,36,23,0) ^^3^3^3120418^ "^DD",727.833,727.833,36,23,1,0) Derived from the SCHEDULED ADMINISTRATION TIME (#.13) field of the BCMA "^DD",727.833,727.833,36,23,2,0) Medication Log (#53.79) File. It is parsed so that only the date portion "^DD",727.833,727.833,36,23,3,0) is stored in format YYYYMMDD. "^DD",727.833,727.833,36,"DT") 3120418 "^DD",727.833,727.833,37,0) SCHEDULED ADMINISTRATION TIME^F^^2;1^K:$L(X)>6!($L(X)<6) X "^DD",727.833,727.833,37,3) Answer must be 6 characters in length. "^DD",727.833,727.833,37,21,0) ^^2^2^3120418^ "^DD",727.833,727.833,37,21,1,0) If a continuous order this field will contain the actual administration "^DD",727.833,727.833,37,21,2,0) time the medication was ordered for. "^DD",727.833,727.833,37,23,0) ^^3^3^3120418^ "^DD",727.833,727.833,37,23,1,0) The time is derived from the time value of the SCHEDULED ADMINISTRATION "^DD",727.833,727.833,37,23,2,0) TIME (#.13) field of the BCMA MEDICATION LOG (#53.79) File. It is parsed "^DD",727.833,727.833,37,23,3,0) so that only the time portion is returned in format HHMMSS. "^DD",727.833,727.833,37,"DT") 3120418 "^DD",727.833,727.833,38,0) ORDER SCHEDULE^S^C:CONTINUOUS;P:PRN;O:ONE-TIME;OC:ON-CALL;^2;2^Q "^DD",727.833,727.833,38,3) Choose an order schedule. "^DD",727.833,727.833,38,21,0) ^^1^1^3120418^ "^DD",727.833,727.833,38,21,1,0) This is the schedule type of the order. "^DD",727.833,727.833,38,23,0) ^^2^2^3120418^ "^DD",727.833,727.833,38,23,1,0) Derived from the SCHEDULE ORDER (#.12) field of the BCMA MEDICATION "^DD",727.833,727.833,38,23,2,0) LOG (#53.79) File. "^DD",727.833,727.833,38,"DT") 3120418 "^DD",727.833,727.833,39,0) IV UNIQUE ID^F^^2;3^K:$L(X)>30!($L(X)<3) X "^DD",727.833,727.833,39,3) Answer must be 3-30 characters in length. "^DD",727.833,727.833,39,21,0) ^.001^2^2^3120418^^ "^DD",727.833,727.833,39,21,1,0) This is the unique ID number of an IV bag, which is generated from "^DD",727.833,727.833,39,21,2,0) Inpatient Medications. "^DD",727.833,727.833,39,23,0) ^.001^2^2^3120418^^ "^DD",727.833,727.833,39,23,1,0) Derived from the IV UNIQUE ID (#.26) field of the BCMA MEDICATION LOG "^DD",727.833,727.833,39,23,2,0) (#53.79) File. "^DD",727.833,727.833,39,"DT") 3120418 "^DD",727.833,727.833,40,0) INFUSION RATE^F^^2;4^K:$L(X)>47!($L(X)<1) X "^DD",727.833,727.833,40,3) Answer must be 1-47 characters in length. "^DD",727.833,727.833,40,21,0) ^^2^2^3120418^ "^DD",727.833,727.833,40,21,1,0) This is the infusion rate for an IV bag, which is passed by Inpatient "^DD",727.833,727.833,40,21,2,0) Medications. "^DD",727.833,727.833,40,23,0) ^^2^2^3120418^ "^DD",727.833,727.833,40,23,1,0) The infusion rate is derived from the INFUSION RATE (#.35) field of the "^DD",727.833,727.833,40,23,2,0) BCMA MEDICATION LOG (#53.79) File. "^DD",727.833,727.833,40,"DT") 3120418 "^DD",727.833,727.833,41,0) PRODUCTION DIVISION CODE^F^^2;5^K:$L(X)>7!($L(X)<3) X "^DD",727.833,727.833,41,3) Answer must be 3-7 characters in length. "^DD",727.833,727.833,41,21,0) ^^1^1^3120418^ "^DD",727.833,727.833,41,21,1,0) This is the facility of the ward where the patient received medication. "^DD",727.833,727.833,41,23,0) ^^4^4^3120418^ "^DD",727.833,727.833,41,23,1,0) Derived by getting the PATIENT DIVISION (#.03) field from the BCMA "^DD",727.833,727.833,41,23,2,0) MEDICATION LOG (#53.79) File, which is a pointer to the INSTITUTION (#4) "^DD",727.833,727.833,41,23,3,0) file. The value is then used to call the API RADDIV^ECXDEPT to get the "^DD",727.833,727.833,41,23,4,0) STATION NUMBER (#99) field from the INSTITUTION (#4) file. "^DD",727.833,727.833,41,"DT") 3120418 "^DD",727.833,727.833,42,0) DRUG IEN^P50'^PSDRUG(^2;6^Q "^DD",727.833,727.833,42,3) Select the drug administered to the patient. "^DD",727.833,727.833,42,21,0) ^.001^1^1^3120612^^ "^DD",727.833,727.833,42,21,1,0) This is the drug administered to the patient. "^DD",727.833,727.833,42,23,0) ^.001^4^4^3120612^^ "^DD",727.833,727.833,42,23,1,0) This field is derived from the COMPONENT CODE (#30) field of this file. "^DD",727.833,727.833,42,23,2,0) If it's a dispensed drug, it is a copy of the pointer to the DRUG (#50) "^DD",727.833,727.833,42,23,3,0) file. Otherwise, it's a copy of the GENERIC DRUG (#1) field from either "^DD",727.833,727.833,42,23,4,0) the IV ADDITIVES (#52.6) or the IV SOLUTIONS (#52.7) file. "^DD",727.833,727.833,42,"DT") 3120418 "^DD",727.833,727.833,43,0) NDC^F^^2;7^K:$L(X)>20!($L(X)<5) X "^DD",727.833,727.833,43,3) Answer must be 5-20 characters in length. "^DD",727.833,727.833,43,21,0) ^.001^1^1^3120418^^ "^DD",727.833,727.833,43,21,1,0) This is the National Drug Code for the drug/supply item in this order. "^DD",727.833,727.833,43,23,0) ^^17^17^3120418^ "^DD",727.833,727.833,43,23,1,0) For sites running a version of Inpatient Medications prior to V. 4.5: "^DD",727.833,727.833,43,23,2,0) Derived from the NDC (#31) field in the DRUG (#50) file for the drug "^DD",727.833,727.833,43,23,3,0) identified by the GENERIC DRUG (#1) field in either the IV ADDITIVES "^DD",727.833,727.833,43,23,4,0) (#52.6) file for additives or the IV SOLUTIONS (#52.7) file for "^DD",727.833,727.833,43,23,5,0) solutions. "^DD",727.833,727.833,43,23,6,0) "^DD",727.833,727.833,43,23,7,0) Using the "AC" cross reference on the IV STATS (#50.8) file and a "^DD",727.833,727.833,43,23,8,0) ^TMP( array built from the "AC" cross reference, GENERIC DRUG is "^DD",727.833,727.833,43,23,9,0) derived from the following: "^DD",727.833,727.833,43,23,10,0) the IV DRUG (#.01) field, "^DD",727.833,727.833,43,23,11,0) the TYPE (#6) field, and "^DD",727.833,727.833,43,23,12,0) the IEN of the additive or solution for the IV DRUG within the IV DRUG "^DD",727.833,727.833,43,23,13,0) multiple (#2) field of the DATE multiple (2#) field of the IV STATS "^DD",727.833,727.833,43,23,14,0) (#50. ) file. "^DD",727.833,727.833,43,23,15,0) "^DD",727.833,727.833,43,23,16,0) For sites running Inpatient Medications V. 4.5 or higher: "^DD",727.833,727.833,43,23,17,0) Derived from the NDC (#31) field in the DRUG (#50) file. "^DD",727.833,727.833,43,"DT") 3120418 "^DD",727.833,727.833,44,0) INVESTIGATIONAL (DEA)^S^I:Investigational;^2;8^Q "^DD",727.833,727.833,44,3) The answer must be 1 character in length. "^DD",727.833,727.833,44,21,0) ^.001^2^2^3120612^^ "^DD",727.833,727.833,44,21,1,0) This field indicates whether the DEA has labeled the drug as "^DD",727.833,727.833,44,21,2,0) investigational. "^DD",727.833,727.833,44,23,0) ^^3^3^3120418^ "^DD",727.833,727.833,44,23,1,0) This field is derived by checking the DEA, SPECIAL HDLG (#3) field of the "^DD",727.833,727.833,44,23,2,0) DRUG (#50) file. If that field contains the letter 'I', this field is set "^DD",727.833,727.833,44,23,3,0) to 'I', otherwise it is NULL. "^DD",727.833,727.833,44,"DT") 3120418 "^DD",727.833,727.833,45,0) VA DRUG CLASSIFICATION^F^^2;9^K:$L(X)>5!($L(X)<1) X "^DD",727.833,727.833,45,3) Answer must be 1-5 characters in length. "^DD",727.833,727.833,45,21,0) ^.001^1^1^3120427^^ "^DD",727.833,727.833,45,21,1,0) This is the VA Drug Classification for the item in this order. "^DD",727.833,727.833,45,23,0) ^^2^2^3120427^ "^DD",727.833,727.833,45,23,1,0) This field is derived from the VA CLASSIFICATION (#2) field of the DRUG "^DD",727.833,727.833,45,23,2,0) (#50) file. "^DD",727.833,727.833,45,"DT") 3120427 "^DD",727.833,727.833,46,0) MASTER PATIENT INDEX^F^^2;10^K:$L(X)>10!($L(X)<1) X "^DD",727.833,727.833,46,3) Answer must be 1-10 characters in length. "^DD",727.833,727.833,46,21,0) ^.001^1^1^3120612^^^ "^DD",727.833,727.833,46,21,1,0) Unique national VA patient identifier. "^DD",727.833,727.833,46,23,0) ^^3^3^3120612^ "^DD",727.833,727.833,46,23,1,0) Derived by calling API, $$GETICN^MPI001 (Supported DBIA #2701), that "^DD",727.833,727.833,46,23,2,0) returns the Integration Control Number (ICN) for the given patient in the "^DD",727.833,727.833,46,23,3,0) PATIENT file (#2). "^DD",727.833,727.833,46,"DT") 3120427 "^DD",727.833,727.833,47,0) DOM, PRRTP & SAARTP INDICATOR^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CWT/TR;^2;11^Q "^DD",727.833,727.833,47,3) Enter the indicator associated with the treating specialty assigned to this record. "^DD",727.833,727.833,47,21,0) ^.001^2^2^3120608^^^ "^DD",727.833,727.833,47,21,1,0) Indicates if the patient is admitted to either a RRTP, PRRTP, or SARRTP "^DD",727.833,727.833,47,21,2,0) at the time care is provided. "^DD",727.833,727.833,47,23,0) ^.001^5^5^3120608^^ "^DD",727.833,727.833,47,23,1,0) If the patient's treating specialty exist in the DSS TREATING SPECIALTY "^DD",727.833,727.833,47,23,2,0) TRANSLATION (#727.831) file, data is derived from the DOM/PRRTP/SARRTP "^DD",727.833,727.833,47,23,3,0) CODE field (#2) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) file. "^DD",727.833,727.833,47,23,4,0) "^DD",727.833,727.833,47,23,5,0) Otherwise, the value is null. "^DD",727.833,727.833,47,"DT") 3120427 "^DD",727.833,727.833,48,0) OBSERVATION PATIENT INDICATOR^S^NO:NO;YES:YES;^2;12^Q "^DD",727.833,727.833,48,3) Enter observation patient status for this record. "^DD",727.833,727.833,48,21,0) ^.001^1^1^3120612^^^ "^DD",727.833,727.833,48,21,1,0) Indicates if a patient is considered to be an observation patient. "^DD",727.833,727.833,48,23,0) ^^12^12^3120612^ "^DD",727.833,727.833,48,23,1,0) Data (YES, NO) is retrieved from API call $$OBSPAT^ECXUTL4: "^DD",727.833,727.833,48,23,2,0) "^DD",727.833,727.833,48,23,3,0) If the patient's treating specialty exist in the DSS TREATING SPECIALTY "^DD",727.833,727.833,48,23,4,0) TRANSLATION (#727.831) file, data is derived from the OBSERVATION PAT "^DD",727.833,727.833,48,23,5,0) INDICATOR field (#4) of the DSS TREATING SPECIALTY TRANSLATION (#727.831) "^DD",727.833,727.833,48,23,6,0) file. "^DD",727.833,727.833,48,23,7,0) "^DD",727.833,727.833,48,23,8,0) If patient is outpatient and treating specialty not in file, AND Feeder "^DD",727.833,727.833,48,23,9,0) Key (CLI) or DSS ID (MTL,IVP,ECQ,QSR,NOS,SUR) is 290-297, Observation "^DD",727.833,727.833,48,23,10,0) Patient Ind=YES. Else, Observation Patient Ind=NO. "^DD",727.833,727.833,48,23,11,0) "^DD",727.833,727.833,48,23,12,0) Otherwise, Observation Patient Ind=NO. "^DD",727.833,727.833,48,"DT") 3120612 "^DD",727.833,727.833,49,0) ENCOUNTER NUMBER^F^^2;13^K:$L(X)>18!($L(X)<1) X "^DD",727.833,727.833,49,3) Answer must be 1-18 characters in length. "^DD",727.833,727.833,49,21,0) ^.001^1^1^3120612^^^ "^DD",727.833,727.833,49,21,1,0) The unique number assigned for DSS. "^DD",727.833,727.833,49,23,0) ^.001^4^4^3120612^^^ "^DD",727.833,727.833,49,23,1,0) This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call "^DD",727.833,727.833,49,23,2,0) the inpatient/outpatient status, SSN, admit/visit date, treating "^DD",727.833,727.833,49,23,3,0) specialty, observation patient indicator, and DSS Identifier or feeder key "^DD",727.833,727.833,49,23,4,0) values of the record are used to create a unique encounter number. "^DD",727.833,727.833,49,"DT") 3120612 "^DD",727.833,727.833,50,0) MEANS TEST^F^^2;14^K:$L(X)>1!($L(X)<1) X "^DD",727.833,727.833,50,3) Enter the means test code for this patient. "^DD",727.833,727.833,50,21,0) ^.001^1^1^3120612^^^^ "^DD",727.833,727.833,50,21,1,0) The current means test category for this patient. "^DD",727.833,727.833,50,23,0) ^.001^8^8^3120612^^^^ "^DD",727.833,727.833,50,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN (#4) field "^DD",727.833,727.833,50,23,2,0) in the BCMA EXTRACT file (#727.833), MEANS TEST data is derived from "^DD",727.833,727.833,50,23,3,0) the CURRENT MEANS TEST STATUS (#.14) field in the PATIENT (#2) file. This "^DD",727.833,727.833,50,23,4,0) field is a pointer to the MEANS TEST STATUS (#408.32) file. Using the "^DD",727.833,727.833,50,23,5,0) means test pointer, the data is derived from the CODE (#.02) field in the "^DD",727.833,727.833,50,23,6,0) MEANS TEST STATUS (#408.32) file. "^DD",727.833,727.833,50,23,7,0) "^DD",727.833,727.833,50,23,8,0) The means test code is returned by ELIG^VADPT. "^DD",727.833,727.833,50,"DT") 3120612 "^DD",727.833,727.833,51,0) ELIGIBILITY^F^^2;15^K:$L(X)>3!($L(X)<2) X "^DD",727.833,727.833,51,3) Answer must be 2-3 characters in length. "^DD",727.833,727.833,51,21,0) ^^2^2^3120427^ "^DD",727.833,727.833,51,21,1,0) A two or three digit numeric code indicating the Patient's Primary "^DD",727.833,727.833,51,21,2,0) Eligibility. "^DD",727.833,727.833,51,23,0) ^^10^10^3120427^ "^DD",727.833,727.833,51,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.833,727.833,51,23,2,0) (#4), ELIGIBILITY data is derived from the PRIMARY ELIGIBILITY CODE field "^DD",727.833,727.833,51,23,3,0) (#.361) in the PATIENT file (#2). PRIMARY ELIGIBILITY CODE is a pointer to "^DD",727.833,727.833,51,23,4,0) the ELIGIBILITY CODE file (#8). The data is derived from the MAS "^DD",727.833,727.833,51,23,5,0) ELIGIBILITY CODE field (#8) in the ELIGIBILITY CODE file (#8) which in "^DD",727.833,727.833,51,23,6,0) turn is a pointer to the MAS ELIGIBILITY CODE file (#8.1). "^DD",727.833,727.833,51,23,7,0) "^DD",727.833,727.833,51,23,8,0) The pointer value to file #8.1 is converted by ELIG^ECXUTL3 to the "^DD",727.833,727.833,51,23,9,0) corresponding eligibility code used by NPCD. This code is composed of "^DD",727.833,727.833,51,23,10,0) two or three numeric characters. "^DD",727.833,727.833,51,"DT") 3120427 "^DD",727.833,727.833,52,0) ENROLLMENT LOCATION^F^^2;16^K:$L(X)>7!($L(X)<3) X "^DD",727.833,727.833,52,3) Enter the station number of the preferred facility for care. "^DD",727.833,727.833,52,21,0) ^.001^2^2^3120612^^^^ "^DD",727.833,727.833,52,21,1,0) The facility that the patient chooses to designate as his preferred "^DD",727.833,727.833,52,21,2,0) location for care. "^DD",727.833,727.833,52,23,0) ^.001^5^5^3120612^^ "^DD",727.833,727.833,52,23,1,0) The PREFERRED FACILITY (#27.02) field of the PATIENT (#2) file "^DD",727.833,727.833,52,23,2,0) is defined as the facility that the patient chooses to designate "^DD",727.833,727.833,52,23,3,0) as his preferred location for care. The PREFERRED FACILITY (#27.02) "^DD",727.833,727.833,52,23,4,0) field is a pointer to the INSTITUTION (#4) file. From that file, "^DD",727.833,727.833,52,23,5,0) the value in the STATION NUMBER (#99) field is used. "^DD",727.833,727.833,52,"DT") 3120612 "^DD",727.833,727.833,53,0) ENROLLMENT CATEGORY^S^E:ENROLLED;N:NOT ENROLLED;P:IN PROCESS;^2;17^Q "^DD",727.833,727.833,53,3) What is the patient's enrollment status? "^DD",727.833,727.833,53,21,0) ^^1^1^3120427^ "^DD",727.833,727.833,53,21,1,0) Patient's enrollment category. "^DD",727.833,727.833,53,23,0) ^^2^2^3120427^ "^DD",727.833,727.833,53,23,1,0) ENROLLMENT CATEGORY is derived from the standard call $$CATEGORY^DGENA4 "^DD",727.833,727.833,53,23,2,0) using the INPUT patient DFN and the ENROLLMENT STATUS (#55) field. "^DD",727.833,727.833,53,"DT") 3120427 "^DD",727.833,727.833,54,0) ENROLLMENT STATUS^P27.15'^DGEN(27.15,^2;18^Q "^DD",727.833,727.833,54,3) Select the patient's enrollment status. "^DD",727.833,727.833,54,21,0) ^^1^1^3120427^ "^DD",727.833,727.833,54,21,1,0) Patient's enrollment status. "^DD",727.833,727.833,54,23,0) ^^2^2^3120427^ "^DD",727.833,727.833,54,23,1,0) ENROLLMENT STATUS is derived from the PATIENT ENROLLMENT file (#27.11) "^DD",727.833,727.833,54,23,2,0) ENROLLMENT STATUS field (#.04). "^DD",727.833,727.833,54,"DT") 3120427 "^DD",727.833,727.833,55,0) ENROLLMENT PRIORITY^F^^2;19^K:$L(X)>2!($L(X)<1) X "^DD",727.833,727.833,55,3) Answer must be 1-2 characters in length. "^DD",727.833,727.833,55,21,0) ^^2^2^3120427^ "^DD",727.833,727.833,55,21,1,0) This field contains the enrollment priority group and the enrollment "^DD",727.833,727.833,55,21,2,0) priority subgroup. "^DD",727.833,727.833,55,23,0) ^^22^22^3120427^ "^DD",727.833,727.833,55,23,1,0) ENROLLMENT PRIORITY field contains the enrollment priority group "^DD",727.833,727.833,55,23,2,0) (#.07) field and the enrollment priority subgroup (#.12) field from "^DD",727.833,727.833,55,23,3,0) the Patient Enrollment File #27.11. "^DD",727.833,727.833,55,23,4,0) "^DD",727.833,727.833,55,23,5,0) ENROLLMENT PRIORITY Groups determined for a patient enrollment include: "^DD",727.833,727.833,55,23,6,0) "^DD",727.833,727.833,55,23,7,0) '1' FOR GROUP 1 "^DD",727.833,727.833,55,23,8,0) '2' FOR GROUP 2 "^DD",727.833,727.833,55,23,9,0) '3' FOR GROUP 3 "^DD",727.833,727.833,55,23,10,0) '4' FOR GROUP 4 "^DD",727.833,727.833,55,23,11,0) '5' FOR GROUP 5 "^DD",727.833,727.833,55,23,12,0) '6' FOR GROUP 6 "^DD",727.833,727.833,55,23,13,0) '7' FOR GROUP 7 "^DD",727.833,727.833,55,23,14,0) '8' FOR GROUP 8 "^DD",727.833,727.833,55,23,15,0) "^DD",727.833,727.833,55,23,16,0) ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include: "^DD",727.833,727.833,55,23,17,0) "^DD",727.833,727.833,55,23,18,0) 'a' FOR 1 "^DD",727.833,727.833,55,23,19,0) 'c' FOR 3 "^DD",727.833,727.833,55,23,20,0) 'e' FOR 5 "^DD",727.833,727.833,55,23,21,0) 'g' FOR 7 "^DD",727.833,727.833,55,23,22,0) < "^DD",727.833,727.833,55,"DT") 3120427 "^DD",727.833,727.833,56,0) USER ENROLLEE^S^U:USER ENROLLEE;^2;20^Q "^DD",727.833,727.833,56,3) Enter patient's current enrollment status. "^DD",727.833,727.833,56,21,0) ^.001^2^2^3120612^^^^ "^DD",727.833,727.833,56,21,1,0) Indicates whether a Veteran has User Enrollee status for the current or "^DD",727.833,727.833,56,21,2,0) future fiscal year. "^DD",727.833,727.833,56,23,0) ^.001^5^5^3120612^^^^ "^DD",727.833,727.833,56,23,1,0) User enrollee is determined by checking the Patient Enrollment (#27.11) "^DD",727.833,727.833,56,23,2,0) file. When a user has a current or future fiscal year in the VistA User "^DD",727.833,727.833,56,23,3,0) Enrollee Status (#.04) field the value is set to 'U' and Null if no date "^DD",727.833,727.833,56,23,4,0) or a past year's value is contained. Determined by the use of an API: "^DD",727.833,727.833,56,23,5,0) $$UESTAT^EASUSER where the Patient Identifier (DFN) is passed in. "^DD",727.833,727.833,56,"DT") 3120427 "^DD",727.833,727.833,57,0) ETHNICITY^F^^2;21^K:$L(X)>6!($L(X)<1) X "^DD",727.833,727.833,57,3) Answer must be 1-6 characters in length. "^DD",727.833,727.833,57,21,0) ^.001^1^1^3120612^^ "^DD",727.833,727.833,57,21,1,0) The patient's PTF Ethnicity code. "^DD",727.833,727.833,57,23,0) ^.001^9^9^3120612^^ "^DD",727.833,727.833,57,23,1,0) Using the patient pointer (DFN) ETHNICITY is derived from the PTF VALUE "^DD",727.833,727.833,57,23,2,0) (#5) field of the ETHNICITY (#10.2) file pointed to by the ETHNICITY "^DD",727.833,727.833,57,23,3,0) INFORMATION (#.01) field of the ETHNICITY INFORMATION (#2.06) subfile of "^DD",727.833,727.833,57,23,4,0) the PATIENT (#2) file. The PTF VALUE (#5) field is just 1 character, this "^DD",727.833,727.833,57,23,5,0) field holds up to 6 self-identified ethnicities. "^DD",727.833,727.833,57,23,6,0) "^DD",727.833,727.833,57,23,7,0) The above will occur only if the METHOD OF COLLECTION (#.02) field of the "^DD",727.833,727.833,57,23,8,0) ETHNICITY INFORMATION (#2.06) subfile is set to 1 (SELF-IDENTIFICATION), "^DD",727.833,727.833,57,23,9,0) otherwise ETHNICITY with be set to null. "^DD",727.833,727.833,57,"DT") 3120427 "^DD",727.833,727.833,58,0) RACE 1^F^^2;22^K:$L(X)>6!($L(X)<1) X "^DD",727.833,727.833,58,3) Answer must be 1-6 characters in length. "^DD",727.833,727.833,58,21,0) ^.001^1^1^3120612^^^ "^DD",727.833,727.833,58,21,1,0) Self-reported by patient as recorded in VistA patient file. "^DD",727.833,727.833,58,23,0) ^^11^11^3120612^ "^DD",727.833,727.833,58,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "^DD",727.833,727.833,58,23,2,0) (#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file "^DD",727.833,727.833,58,23,3,0) (#10) pointed to by the RACE INFORMATION field (#.01) of the RACE "^DD",727.833,727.833,58,23,4,0) INFORMATION subfile (#2.02) of the PATIENT file (#2). "^DD",727.833,727.833,58,23,5,0) "^DD",727.833,727.833,58,23,6,0) Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03) "^DD",727.833,727.833,58,23,7,0) where the METHOD OF COLLECTION field (#.02) is set to 1 "^DD",727.833,727.833,58,23,8,0) (SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race "^DD",727.833,727.833,58,23,9,0) entries can be included. If any of the RACE INFORMATION values returned is "^DD",727.833,727.833,58,23,10,0) "C" (DECLINED TO ANSWER), that will be the only value included in the "^DD",727.833,727.833,58,23,11,0) RACE1 field. "^DD",727.833,727.833,58,"DT") 3120427 "^DD",727.833,727.833,59,0) VETERAN^S^Y:VETERAN;N:NOT VETERAN;^2;23^Q "^DD",727.833,727.833,59,3) Is the patient a veteran? "^DD",727.833,727.833,59,21,0) ^.001^1^1^3120612^^ "^DD",727.833,727.833,59,21,1,0) Patient's Veteran status. "^DD",727.833,727.833,59,23,0) ^^3^3^3120612^ "^DD",727.833,727.833,59,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.833,727.833,59,23,2,0) in the BCMA EXTRACT file (#727.833), VETERAN data is derived from the "^DD",727.833,727.833,59,23,3,0) VETERAN (Y/N)? field (#1901) in the PATIENT file (#2). "^DD",727.833,727.833,59,"DT") 3120427 "^DD",727.833,727.833,60,0) PERIOD OF SERVICE^F^^2;24^K:$L(X)>1!($L(X)<1) X "^DD",727.833,727.833,60,3) Answer must be 1 character in length. "^DD",727.833,727.833,60,21,0) ^.001^2^2^3120612^^^^ "^DD",727.833,727.833,60,21,1,0) The period of service, which best classifies this patient based on "^DD",727.833,727.833,60,21,2,0) eligibility code. "^DD",727.833,727.833,60,23,0) ^^6^6^3120612^ "^DD",727.833,727.833,60,23,1,0) This field is derived by pulling the PERIOD OF SERVICE (#.323) field from "^DD",727.833,727.833,60,23,2,0) the PATIENT (#2) file. The PERIOD OF SERVICE (#.323) field is a pointer "^DD",727.833,727.833,60,23,3,0) to the PERIOD OF SERVICE (#21) file. This field is derived from the CODE "^DD",727.833,727.833,60,23,4,0) (#.03) field of that file. "^DD",727.833,727.833,60,23,5,0) "^DD",727.833,727.833,60,23,6,0) The veteran's period of service indicator is returned by ELIG^VADPT. "^DD",727.833,727.833,60,"DT") 3120427 "^DD",727.833,727.833,61,0) POW STATUS^S^Y:YES;N:NO;U:UNKNOWN;^2;25^Q "^DD",727.833,727.833,61,3) Enter the patient's POW status. "^DD",727.833,727.833,61,21,0) ^.001^1^1^3120612^^^^ "^DD",727.833,727.833,61,21,1,0) Indicates if patient was confined as a Prisoner of War. "^DD",727.833,727.833,61,23,0) ^^5^5^3120612^ "^DD",727.833,727.833,61,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.833,727.833,61,23,2,0) in the BCMA EXTRACT file (#727.833), POW data is derived from the POW "^DD",727.833,727.833,61,23,3,0) STATUS INDICATED? field (#.525) in the PATIENT file (#2). "^DD",727.833,727.833,61,23,4,0) "^DD",727.833,727.833,61,23,5,0) The status indicator is returned by SVC^VADPT. "^DD",727.833,727.833,61,"DT") 3120612 "^DD",727.833,727.833,62,0) POW LOCATION^P22'^DIC(22,^2;26^Q "^DD",727.833,727.833,62,3) Select the POW location/period. "^DD",727.833,727.833,62,21,0) ^^1^1^3120427^ "^DD",727.833,727.833,62,21,1,0) This is the location/period where the patient was a POW. "^DD",727.833,727.833,62,23,0) ^^3^3^3120427^ "^DD",727.833,727.833,62,23,1,0) This field is a pointer derived by reading the POW CONFINEMENT LOCATION "^DD",727.833,727.833,62,23,2,0) (#.526) field from the PATIENT (#2) file. The location is retrieved by "^DD",727.833,727.833,62,23,3,0) calling SVC^VADPT. "^DD",727.833,727.833,62,"DT") 3120427 "^DD",727.833,727.833,63,0) RADIATION STATUS^S^Y:YES;N:NO;U:UNKNOWN;^2;27^Q "^DD",727.833,727.833,63,3) Enter the Radiation Status for the patient. "^DD",727.833,727.833,63,21,0) ^.001^1^1^3120612^^^ "^DD",727.833,727.833,63,21,1,0) Indicates if patient claims exposure to ionizing radiation. "^DD",727.833,727.833,63,23,0) ^^6^6^3120612^ "^DD",727.833,727.833,63,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.833,727.833,63,23,2,0) in the BCMA EXTRACT file (#727.833), RADIATION data is derived from "^DD",727.833,727.833,63,23,3,0) the RADIATION EXPOSURE INDICATED? field (#.32103) in the PATIENT file "^DD",727.833,727.833,63,23,4,0) (#2). "^DD",727.833,727.833,63,23,5,0) "^DD",727.833,727.833,63,23,6,0) The status indicator is returned by SVC^VADPT. "^DD",727.833,727.833,63,"DT") 3120612 "^DD",727.833,727.833,64,0) AGENT ORANGE STATUS^S^Y:YES;N:NO;U:UNKNOWN;^2;28^Q "^DD",727.833,727.833,64,3) Enter the Agent Orange Status for the patient. "^DD",727.833,727.833,64,21,0) ^.001^1^1^3120614^^^^ "^DD",727.833,727.833,64,21,1,0) Indicates whether patient was exposed to Agent Orange. "^DD",727.833,727.833,64,23,0) ^.001^6^6^3120614^^ "^DD",727.833,727.833,64,23,1,0) Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) "^DD",727.833,727.833,64,23,2,0) in the BCMA EXTRACT file (#727.833), AGENT ORANGE data is derived "^DD",727.833,727.833,64,23,3,0) from the AGENT ORANGE EXPOS. INDICATED? field (.#32102) in the PATIENT "^DD",727.833,727.833,64,23,4,0) file (#2). "^DD",727.833,727.833,64,23,5,0) "^DD",727.833,727.833,64,23,6,0) The status indicator is returned by SVC^VADPT. "^DD",727.833,727.833,64,"DT") 3120427 "^DD",727.833,727.833,65,0) AGENT ORANGE LOCATION^S^K:KOREAN DMZ;V:VIETNAM;O:OTHER;^2;29^Q "^DD",727.833,727.833,65,3) Where was patient exposed to Agent Orange? "^DD",727.833,727.833,65,21,0) ^.001^1^1^3120612^^^ "^DD",727.833,727.833,65,21,1,0) Indicates the location where the patient was exposed to Agent Orange. "^DD",727.833,727.833,65,23,0) ^^3^3^3120612^ "^DD",727.833,727.833,65,23,1,0) The location is returned by a call to SVC^VADPT which gets its data from "^DD",727.833,727.833,65,23,2,0) the AGENT ORANGE EXPOSURE LOCATION field (#.3213) of the PATIENT file "^DD",727.833,727.833,65,23,3,0) (#2). "^DD",727.833,727.833,65,"DT") 3120427 "^DD",727.833,727.833,66,0) PURPLE HEART INDICATOR^S^Y:YES;N:NO;^2;30^Q "^DD",727.833,727.833,66,3) Is patient a purple heart recipient and a veteran? "^DD",727.833,727.833,66,21,0) ^^1^1^3120427^ "^DD",727.833,727.833,66,21,1,0) This field Indicates whether or not a patient is a Purple Heart recipient. "^DD",727.833,727.833,66,23,0) ^^2^2^3120427^ "^DD",727.833,727.833,66,23,1,0) The Purple Heart Indicator is derived by calling SVC^VADPT which returns "^DD",727.833,727.833,66,23,2,0) the CURRENT PH INDICATOR (#.531) field from the PATIENT (#2) file. "^DD",727.833,727.833,66,"DT") 3120427 "^DD",727.833,727.833,67,0) MST STATUS^S^Y:Yes, Screened reports MST;N:No, Screened does not report MST;U:Unknown, not screened;D:Screened Declines to answer;^2;31^Q "^DD",727.833,727.833,67,3) Enter the patient's MST Status. "^DD",727.833,727.833,67,21,0) ^.001^2^2^3120612^^ "^DD",727.833,727.833,67,21,1,0) Indicates the Military Sexual Trauma (MST) status of a patient on the "^DD",727.833,727.833,67,21,2,0) date of the encounter. "^DD",727.833,727.833,67,23,0) ^^5^5^3120612^ "^DD",727.833,727.833,67,23,1,0) The MST HISTORY file (#29.11) holds data regarding military sexual "^DD",727.833,727.833,67,23,2,0) trauma claims and effective dates. The patient's MST status is stored "^DD",727.833,727.833,67,23,3,0) in the MST STATUS field (#3). A call will be made to "^DD",727.833,727.833,67,23,4,0) $$GETSTAT^DGMSTAPI(DFN,DGDATE) using the DFN in the PATIENT NO. DFN (#4) "^DD",727.833,727.833,67,23,5,0) field and the date in the DAY (#8) field. "^DD",727.833,727.833,67,"DT") 3120427 "^DD",727.833,727.833,68,0) CNH/SH STATUS^S^Y:YES;N:NO;^2;32^Q "^DD",727.833,727.833,68,3) Is patient currently in a Contract Nursing Home? "^DD",727.833,727.833,68,21,0) ^^2^2^3120427^ "^DD",727.833,727.833,68,21,1,0) This field indicates if the Patient is in a Contract Nursing Home "^DD",727.833,727.833,68,21,2,0) (CNH). "^DD",727.833,727.833,68,23,0) ^^2^2^3120427^ "^DD",727.833,727.833,68,23,1,0) This field is determined by pulling the CNH CURRENT (#148) field from the "^DD",727.833,727.833,68,23,2,0) PATIENT (#2) file. "^DD",727.833,727.833,68,"DT") 3120427 "^DD",727.833,727.833,69,0) HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^2;33^Q "^DD",727.833,727.833,69,3) Has patient been diagnosed with cancer of the head and/or neck? "^DD",727.833,727.833,69,21,0) ^^1^1^3120427^ "^DD",727.833,727.833,69,21,1,0) Identifies whether patient's diagnosis was for Head and/or Neck Cancer. "^DD",727.833,727.833,69,23,0) ^.001^3^3^3120427^^ "^DD",727.833,727.833,69,23,1,0) This indicator is derived by passing the patient pointer (DFN) "^DD",727.833,727.833,69,23,2,0) to the API $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "^DD",727.833,727.833,69,23,3,0) CA DX (#2.01) field of the NOSE AND THROAT RADIUM HISTORY (#28.11) file. "^DD",727.833,727.833,69,"DT") 3120427 "^DD",727.833,727.833,70,0) SHAD STATUS^S^Y:YES;N:NO;^2;34^Q "^DD",727.833,727.833,70,3) Does patient meet requirements for SHAD? "^DD",727.833,727.833,70,21,0) ^^2^2^3120427^ "^DD",727.833,727.833,70,21,1,0) Indicates whether patient meets requirements for Shipboard Hazard And "^DD",727.833,727.833,70,21,2,0) Defense (SHAD). "^DD",727.833,727.833,70,23,0) ^^3^3^3120427^ "^DD",727.833,727.833,70,23,1,0) This field is the Shipboard Hazard and Defense which is "^DD",727.833,727.833,70,23,2,0) derived by using DBIA #4462 GETSHAD^DGUTL3(DFN). Which returns the PROJ "^DD",727.833,727.833,70,23,3,0) 112/SHAD (#.32115) field from the Patient (#2) file. "^DD",727.833,727.833,70,"DT") 3120427 "^DD",727.833,727.833,71,0) PATIENT TYPE^F^^3;1^K:$L(X)>2!($L(X)<2) X "^DD",727.833,727.833,71,3) Answer must be 2 characters in length. "^DD",727.833,727.833,71,21,0) ^^2^2^3120427^ "^DD",727.833,727.833,71,21,1,0) PATIENT TYPE refers to the various types of patient which might be seen "^DD",727.833,727.833,71,21,2,0) at a VA facility. "^DD",727.833,727.833,71,23,0) ^^16^16^3120427^ "^DD",727.833,727.833,71,23,1,0) Patient type is determined by the TYPE (#391) field of the PATIENT "^DD",727.833,727.833,71,23,2,0) (#2) file which points to the TYPE OF PATIENT (#391) file entries . Every "^DD",727.833,727.833,71,23,3,0) patient added to the system must have a TYPE specified. It best "^DD",727.833,727.833,71,23,4,0) classifies a patient as one of the following values listed below. "^DD",727.833,727.833,71,23,5,0) PATIENT TYPE field value shall contain only the first two characters: "^DD",727.833,727.833,71,23,6,0) "^DD",727.833,727.833,71,23,7,0) AC= ACTIVE DUTY "^DD",727.833,727.833,71,23,8,0) AL= ALLIED VETERAN "^DD",727.833,727.833,71,23,9,0) CO= COLLATERAL "^DD",727.833,727.833,71,23,10,0) EM= EMPLOYEE "^DD",727.833,727.833,71,23,11,0) IN= INELIGIBLE "^DD",727.833,727.833,71,23,12,0) MI= MILITARY RETIREE "^DD",727.833,727.833,71,23,13,0) NO= NON-VETERAN (OTHER) "^DD",727.833,727.833,71,23,14,0) NS= NSC VETERAN "^DD",727.833,727.833,71,23,15,0) SC= SC VETERAN "^DD",727.833,727.833,71,23,16,0) TR= TRICARE "^DD",727.833,727.833,71,"DT") 3120427 "^DD",727.833,727.833,72,0) CV STATUS ELIGIBILITY^S^Y:YES;E:ELIGIBILITY EXPIRED;^3;2^Q "^DD",727.833,727.833,72,3) Is patient a Combat Veteran? "^DD",727.833,727.833,72,21,0) ^^2^2^3120427^ "^DD",727.833,727.833,72,21,1,0) This field indicates whether or not a patient can be considered a Combat "^DD",727.833,727.833,72,21,2,0) Veteran (CV) at the time of treatment. "^DD",727.833,727.833,72,23,0) ^^13^13^3120427^ "^DD",727.833,727.833,72,23,1,0) The CV STATUS ELIGIBILITY is determined by the use of API $$CVEDT^DGCV "^DD",727.833,727.833,72,23,2,0) (DFN, DAY (#8) field in FM format) that checks the Combat Vet End Date "^DD",727.833,727.833,72,23,3,0) (#.5295) field from the Patient (#2) file to determine CV Status. API "^DD",727.833,727.833,72,23,4,0) returns three pieces i.e. 1^3010106^0, the first piece is resolved as "^DD",727.833,727.833,72,23,5,0) follows. "^DD",727.833,727.833,72,23,6,0) "^DD",727.833,727.833,72,23,7,0) 1 - qualifies as a CV "^DD",727.833,727.833,72,23,8,0) 0 - does not qualify as a CV "^DD",727.833,727.833,72,23,9,0) -1 - bad DFN or date "^DD",727.833,727.833,72,23,10,0) "^DD",727.833,727.833,72,23,11,0) Based on these returns, the value for this field shall be 'Y' for 'YES' "^DD",727.833,727.833,72,23,12,0) or 'E' for 'ELIGIBILITY EXPIRED". If this field is null it indicates "^DD",727.833,727.833,72,23,13,0) that the patient is not eligible. "^DD",727.833,727.833,72,"DT") 3120427 "^DD",727.833,727.833,73,0) CV ELIGIBILITY END DATE^F^^3;3^K:$L(X)>8!($L(X)<8) X "^DD",727.833,727.833,73,3) Answer must be 8 characters in length. "^DD",727.833,727.833,73,21,0) ^^1^1^3120427^ "^DD",727.833,727.833,73,21,1,0) This field is the patient's Combat Veteran (CV) eligibility end date. "^DD",727.833,727.833,73,23,0) ^^5^5^3120427^ "^DD",727.833,727.833,73,23,1,0) The CV ELIGIBILITY END DATE is determined by the use of API $$CVEDT^DGCV "^DD",727.833,727.833,73,23,2,0) (DFN, DAY (#8) in FM format) that checks the Combat Vet End Date (#.5295) "^DD",727.833,727.833,73,23,3,0) field from the Patient (#2) file to determine CV Status. The API returns "^DD",727.833,727.833,73,23,4,0) three pieces (i.e. 1^3010106^0) the 2nd piece is the Combat Vet End Date "^DD",727.833,727.833,73,23,5,0) which is stored in YYYYMMDD format. "^DD",727.833,727.833,73,"DT") 3120427 "^DD",727.833,727.833,74,0) ENCOUNTER CV^S^Y:YES;^3;4^Q "^DD",727.833,727.833,74,3) Was the patient CV eligible on the treatment date? "^DD",727.833,727.833,74,21,0) ^^2^2^3120427^ "^DD",727.833,727.833,74,21,1,0) This Field indicates if the patient is a Combat Veteran (CV) based on the "^DD",727.833,727.833,74,21,2,0) treatment date and the end date of combat service. "^DD",727.833,727.833,74,23,0) ^^12^12^3120427^ "^DD",727.833,727.833,74,23,1,0) ENCOUNTER CV is determined by the use of API $$CVEDT^DGCV (DFN, "^DD",727.833,727.833,74,23,2,0) DAY #(8) in FM format) that checks the Combat Vet End Date (#.5295) field, "^DD",727.833,727.833,74,23,3,0) from the Patient (#2) file to determine CV Status using the DAY (#8) "^DD",727.833,727.833,74,23,4,0) field. The API returns three pieces (i.e. 1^3010106^0). "^DD",727.833,727.833,74,23,5,0) "^DD",727.833,727.833,74,23,6,0) The third piece returns: "^DD",727.833,727.833,74,23,7,0) "^DD",727.833,727.833,74,23,8,0) 1 - vet was eligible on date specified "^DD",727.833,727.833,74,23,9,0) 0 - vet was not eligible on date specified "^DD",727.833,727.833,74,23,10,0) "^DD",727.833,727.833,74,23,11,0) Based on these returns, the value for this field shall be Y =Yes, or "^DD",727.833,727.833,74,23,12,0) null. "^DD",727.833,727.833,74,"DT") 3120427 "^DD",727.833,727.833,75,0) NATIONAL PATIENT RECORD FLAG^S^Y:YES;^3;5^Q "^DD",727.833,727.833,75,3) Does patient have any active record flags? "^DD",727.833,727.833,75,21,0) ^^2^2^3120427^ "^DD",727.833,727.833,75,21,1,0) This field will indicate if the Patient has any type of a National Flag "^DD",727.833,727.833,75,21,2,0) indicator. "^DD",727.833,727.833,75,23,0) ^^7^7^3120427^ "^DD",727.833,727.833,75,23,1,0) NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "^DD",727.833,727.833,75,23,2,0) 26.15. This file contains a list of the Category 1 (National) Patient "^DD",727.833,727.833,75,23,3,0) Record Flags that can be assigned to a patient. Category I flags are "^DD",727.833,727.833,75,23,4,0) established at a National level. NATIONAL PATIENT RECORD FLAG is "^DD",727.833,727.833,75,23,5,0) retrieved via an API $$GETACT^DGPFAPI(DFN, TARGET_ROOT. Field value is "^DD",727.833,727.833,75,23,6,0) "Y" if a Category I flag is present and active, otherwise it is "^DD",727.833,727.833,75,23,7,0) NULL. "^DD",727.833,727.833,75,"DT") 3120427 "^DD",727.833,727.833,76,0) ERI^S^K:HURRICANE KATRINA;^3;6^Q "^DD",727.833,727.833,76,3) Was the patient in a FEMA-designated impacted zip code area? "^DD",727.833,727.833,76,21,0) ^^2^2^3120427^ "^DD",727.833,727.833,76,21,1,0) Identifies patients from impacted zip code areas designated by the "^DD",727.833,727.833,76,21,2,0) Federal Emergency Management Agency (FEMA). "^DD",727.833,727.833,76,23,0) ^^2^2^3120427^ "^DD",727.833,727.833,76,23,1,0) This field is extracted from the EMERGENCY RESPONSE INDICATOR field "^DD",727.833,727.833,76,23,2,0) (#.181) located in the PATIENT file (#2). "^DD",727.833,727.833,76,"DT") 3120427 "^DD",727.833,727.833,77,0) SW ASIA CONDITIONS^S^Y:YES;N:NO;U:UNKNOWN;^3;7^Q "^DD",727.833,727.833,77,3) Does patient claim exposure to SWA conditions? "^DD",727.833,727.833,77,21,0) ^^9^9^3120427^ "^DD",727.833,727.833,77,21,1,0) This field is used to indicate if this visit represents treatment of a VA "^DD",727.833,727.833,77,21,2,0) patient claiming exposure to Southwest Asia Conditions. "^DD",727.833,727.833,77,21,3,0) "^DD",727.833,727.833,77,21,4,0) The South West Asia Theater of operations is defined as: "^DD",727.833,727.833,77,21,5,0) "^DD",727.833,727.833,77,21,6,0) Iraq, Kuwait, Saudi Arabia, the neutral zone between Iraq and "^DD",727.833,727.833,77,21,7,0) Saudi Arabia, Bahrain, Qatar, the United Arab Emirates, Oman, the Gulf "^DD",727.833,727.833,77,21,8,0) of Aden, the Gulf of Oman, the Persian Gulf, the Arabian Sea, the "^DD",727.833,727.833,77,21,9,0) Red Sea and the airspace above these locations. "^DD",727.833,727.833,77,23,0) ^^3^3^3120427^ "^DD",727.833,727.833,77,23,1,0) This field is derived from the SOUTHWEST ASIA CONDITIONS? field "^DD",727.833,727.833,77,23,2,0) (#.322013) in the Patient File (#2) using the patient's DFN. The status "^DD",727.833,727.833,77,23,3,0) indicator is returned by SVC^VADPT. "^DD",727.833,727.833,77,"DT") 3120427 "^DD",727.833,727.833,78,0) OEF/OIF^F^^3;8^K:$L(X)>9!($L(X)<9) X "^DD",727.833,727.833,78,3) Answer must be 9 characters in length. "^DD",727.833,727.833,78,21,0) ^^3^3^3120427^ "^DD",727.833,727.833,78,21,1,0) The Military Operation(s) in which the patient was in combat. This field "^DD",727.833,727.833,78,21,2,0) is a length of nine characters and reflects the OEF or OIF where this "^DD",727.833,727.833,78,21,3,0) patient was in combat. "^DD",727.833,727.833,78,23,0) ^^9^9^3120427^ "^DD",727.833,727.833,78,23,1,0) The value of this field is derived from the LOCATION OF SERVICE field "^DD",727.833,727.833,78,23,2,0) (#.01) of the SERVICE [OEF OR OIF] (#2.3215) sub-file located in the "^DD",727.833,727.833,78,23,3,0) PATIENT (#2) file. DSS will capture once, each location where the veteran "^DD",727.833,727.833,78,23,4,0) served. In order to accommodate multiple locations, the values for this "^DD",727.833,727.833,78,23,5,0) field are concatenated into this 9-character field. Possible field values "^DD",727.833,727.833,78,23,6,0) are one or more combinations of the following: "^DD",727.833,727.833,78,23,7,0) OEF = Operation Enduring Freedom "^DD",727.833,727.833,78,23,8,0) OIF = Operation Iraqi Freedom "^DD",727.833,727.833,78,23,9,0) UNK = Unknown OEF/OIF "^DD",727.833,727.833,78,"DT") 3120427 "^DD",727.833,727.833,79,0) OEF/OIF RETURN DATE^F^^3;9^K:$L(X)>8!($L(X)<8) X "^DD",727.833,727.833,79,3) Answer must be 8 characters in length. "^DD",727.833,727.833,79,21,0) ^^4^4^3120427^ "^DD",727.833,727.833,79,21,1,0) The date the patient left the OEF/OIF area, if known. Otherwise, it is the "^DD",727.833,727.833,79,21,2,0) end date of military pay for this OEF/OIF deployment. This date field has "^DD",727.833,727.833,79,21,3,0) a format equal to YYYYMMDD. In cases of multiple OEF/OIF tours, this field "^DD",727.833,727.833,79,21,4,0) contains only most recent return date. "^DD",727.833,727.833,79,23,0) ^^3^3^3120427^ "^DD",727.833,727.833,79,23,1,0) The value of this field is derived of the OEF/OIF TO DATE field (#.03) of "^DD",727.833,727.833,79,23,2,0) the SERVICE [OEF OR OIF] (#.3215) subfile located in the PATIENT file "^DD",727.833,727.833,79,23,3,0) (#2). "^DD",727.833,727.833,79,"DT") 3120427 "^DD",727.833,727.833,80,0) PATCAT^S^AD:Active Duty;ADD:Active Duty Dependent;FNRS:Former Non-Remarried Spouse;RET:Retired;RETD:Retiree Dependent;RES:Reservist;REC:Recruit;TDRL:Temporary Disability;TFL:TRICARE for Life;^3;10^Q "^DD",727.833,727.833,80,3) Select the Patient's Category for the FHCC Reconciliation process. "^DD",727.833,727.833,80,21,0) ^^6^6^3120427^ "^DD",727.833,727.833,80,21,1,0) This is the Patient's category which will be used for FHCC (Federal Health "^DD",727.833,727.833,80,21,2,0) Care Center) Reconciliation. "^DD",727.833,727.833,80,21,3,0) DSS must capture and report DoD patients so that the FHCC reconciliation "^DD",727.833,727.833,80,21,4,0) process can function as designed. "Reconciliation" is the process used "^DD",727.833,727.833,80,21,5,0) within the new FHCC to determine which patients DoD pays for and which VA "^DD",727.833,727.833,80,21,6,0) pays for. "^DD",727.833,727.833,80,23,0) ^^11^11^3120427^ "^DD",727.833,727.833,80,23,1,0) If the VistA Patient Type Code (TYPE (#391) field of the Patient (#2) "^DD",727.833,727.833,80,23,2,0) file) = Active Duty, Military Retiree, or TRICARE, then the value(s) in "^DD",727.833,727.833,80,23,3,0) the VistA Other Eligibility multiple (PATIENT ELIGIBILITIES (#361) field "^DD",727.833,727.833,80,23,4,0) of the PATIENT (#2) file), which points to locally modifiable ELIGIBILITY "^DD",727.833,727.833,80,23,5,0) CODE (#8) file should be evaluated. If the value in the "^DD",727.833,727.833,80,23,6,0) ELIGIBILITY CODE is equal to any entry in the set of codes in this field, "^DD",727.833,727.833,80,23,7,0) the value should be placed in this field. "^DD",727.833,727.833,80,23,8,0) "^DD",727.833,727.833,80,23,9,0) FHCC hospitals have special codes that are added to the ELIGIBILITY CODE "^DD",727.833,727.833,80,23,10,0) (#8) file that are used to identify the PATCAT status and may be unique "^DD",727.833,727.833,80,23,11,0) to their facility. "^DD",727.833,727.833,80,"DT") 3120427 "^DD",728.44,728.44,5,0) ACTION TO SEND^RS^1:SEND STOP CODE;4:SEND BOTH AS ONE RECORD WITH NATIONAL CODE;5:SEND BOTH AS ONE RECORD WITHOUT NATIONAL CODE;6:DO NOT SEND;^0;6^Q "^DD",728.44,728.44,5,3) Select the appropriate stop code action. "^DD",728.44,728.44,5,21,0) ^.001^2^2^3120815^^^^ "^DD",728.44,728.44,5,21,1,0) This determines how alternate stop code and alternate credit stop "^DD",728.44,728.44,5,21,2,0) codes are combined to form a feeder key for this clinic. "^DD",728.44,728.44,5,23,0) ^.001^2^2^3120815^^^^ "^DD",728.44,728.44,5,23,1,0) This field is used in routine ECXSCX to create the feeder key for "^DD",728.44,728.44,5,23,2,0) this clinic. "^DD",728.44,728.44,5,"DT") 3120801 "^DD",728.904,728.904,2.5,0) ORDER NUMBER^NJ10,0^^0;10^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X "^DD",728.904,728.904,2.5,1,0) ^.1^^0 "^DD",728.904,728.904,2.5,3) Type a Number between 1 and 9999999999, 0 Decimal Digits. "^DD",728.904,728.904,2.5,21,0) ^.001^1^1^3120521^^ "^DD",728.904,728.904,2.5,21,1,0) Unit Dose Order number associated with patient record. "^DD",728.904,728.904,2.5,"DT") 3120521 "^DIC",727.833,727.833,0) BCMA EXTRACT^727.833 "^DIC",727.833,727.833,0,"GL") ^ECX(727.833, "^DIC",727.833,727.833,"%",0) ^1.005^^0 "^DIC",727.833,727.833,"%D",0) ^1.001^19^19^3101119^^ "^DIC",727.833,727.833,"%D",1,0) This file contains data elements as specified by the Decision Support "^DIC",727.833,727.833,"%D",2,0) System (DSS) Program Office for the BCMA (Bar Code Medication "^DIC",727.833,727.833,"%D",3,0) Administration) extract from existing DHCP files. Entries into this file "^DIC",727.833,727.833,"%D",4,0) are made by extracting data from several files. The BCM MEDICATION "^DIC",727.833,727.833,"%D",5,0) LOG (#53.79) file is a major source of fields within this file. Once "^DIC",727.833,727.833,"%D",6,0) approved by the DSS site manager, entries in this file are loaded into an "^DIC",727.833,727.833,"%D",7,0) electronic mail message and sent to the commercial vendor. This file is "^DIC",727.833,727.833,"%D",8,0) intended to be used for validation purposes only. Entries should be made "^DIC",727.833,727.833,"%D",9,0) only by the extract load routine. "^DIC",727.833,727.833,"%D",10,0) "^DIC",727.833,727.833,"%D",11,0) Since validation techniques will be determined by the local site, it is "^DIC",727.833,727.833,"%D",12,0) intended that the site add whatever cross references deemed necessary. "^DIC",727.833,727.833,"%D",13,0) However, this file contains one nationally determined cross reference, the "^DIC",727.833,727.833,"%D",14,0) "AC" cross reference on the EXTRACT NUMBER (#2) field. This cross "^DIC",727.833,727.833,"%D",15,0) reference is used by the DSS Extracts software package as an essential "^DIC",727.833,727.833,"%D",16,0) feature for managing and purging data in this file and should not be "^DIC",727.833,727.833,"%D",17,0) modified. "^DIC",727.833,727.833,"%D",18,0) "^DIC",727.833,727.833,"%D",19,0) This file should NOT be modified directly using VA FileMan. "^DIC",727.833,"B","BCMA EXTRACT",727.833) "BLD",8254,6) ^126 **END** **END**