Episode 79 Report Creation for the CPRS Reports Tab
From VistApedia
There seems to be very little documentation on how to make a new report in a patients CPRS report tab. This is more or less how to create a census report in patients report tab. Note that this breaks the paradigm of no aggregate patient data in the report tab. There should only be that patients information in the report tab. However, for expediency of delivery of that report we have broken that paradigm for facility census purposes.
ASTRON>D ^XQ1 Select OPTION NAME: XPAR EDIT 1 XPAR EDIT BY TEMPLATE Edit Parameter Values with Template 2 XPAR EDIT KEYWORD Edit Parameter Definition Keyword 3 XPAR EDIT PARAMETER Edit Parameter Values CHOOSE 1-3: 3 XPAR EDIT PARAMETER Edit Parameter Values Edit Parameter Values --- Edit Parameter Values --- Select PARAMETER DEFINITION NAME: ORW 1 ORW ADDORD INPT Write Orders (Inpatient) 2 ORWCH BOUNDS Form or Control Boundaries 3 ORWCH COLUMNS Column Widths 4 ORWCH COLUMNS REPORTS Report Column Widths 5 ORWCH FONT SIZE Font Size for Chart Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-5: 6 ORWCH WIDTH Control Width 7 ORWCOM ORDER ACCEPTED COM Object on Order Acceptance 8 ORWCOM PATIENT SELECTED COM Object on Patient Selection 9 ORWCV1 COVERSHEET LIST List of coversheet reports 10 ORWD ACTIVITY INPT Activity List - Inpatient Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-10: 11 ORWD COMMON CLINIC Common Clinics 12 ORWD COMMON LAB INPT Common Labs - Inpatient 13 ORWD COMMON MED INPT Common Meds - Inpatient 14 ORWD COMMON MED OUTPT Common Meds - Outpatient 15 ORWD CONSULT SERVICES Consult Services Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-15: 16 ORWD NONVA REASON Non-VA Meds Statement/Reason 17 ORWD PTCARE GENERAL INPT Patient Care General - Inpatient 18 ORWD PTCARE HEMODYNAMICS INPT Patient Care Hemodynamics - Inpatient 19 ORWD PTCARE NURSING INPT Patient Care Nursing - Inpatient 20 ORWD PTCARE OXYGEN INPT Patient Care Oxygen - Inpatient Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-20: 21 ORWD PTCARE RESP INPT Patient Care Respiratory - Inpatient 22 ORWD PTCARE SKIN INPT Patient Care Skin and Wound - Inpatient 23 ORWD PTCARE TUBES INPT Patient Care Drains/Tubes - Inpatient 24 ORWDP DEFAULT PRINTER Default printer for CPRS GUI 25 ORWDP WINPRINT DEFAULT Use Windows printer as default? Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-25: 26 ORWDPS ROUTING DEFAULT Medication Routing Default (GUI) 27 ORWDPS SUPPRESS DISPENSE MSG Suppress Dispense Drug Message 28 ORWDQ ANI Common Angio/Neuro Orders 29 ORWDQ CARD Common Cardiology (Nuc Med) Orders 30 ORWDQ CSLT Common Consult Orders Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-30: 31 ORWDQ CT Common CT Scan Orders 32 ORWDQ DISPLAY NAME Quick Order Display Name 33 ORWDQ DO Common Diet Orders 34 ORWDQ IV RX Common IV Fluid Orders 35 ORWDQ LAB Common Lab Orders Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-35: 36 ORWDQ MAM Common Mammography Orders 37 ORWDQ MRI Common MRI Orders 38 ORWDQ NM Common Nuclear Med Orders 39 ORWDQ O RX Common Med Orders (Outpatient) 40 ORWDQ PROC Common Procedure Orders Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-40: 41 ORWDQ QUICK VIEW Personal Quick Order List 42 ORWDQ RAD Common Radiology Orders 43 ORWDQ TF Common Tubefeeding Orders 44 ORWDQ UD RX Common Med Orders (Inpatient) 45 ORWDQ UNIT DOSE MEDICATIONS Common Med Orders (Inpatient) Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-45: 46 ORWDQ US Common Ultrasound Orders 47 ORWDQ VAS Common Vascular Lab Orders 48 ORWDQ XRAY Common Imaging Orders 49 ORWDX NEW CONSULT New consult dialog default 50 ORWDX NEW MED New Med Dialog Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-50: 51 ORWDX NEW PROCEDURE New procedure dialog default 52 ORWDX WRITE ORDERS EVENT LIST Menu for Write Orders List by Event 53 ORWDX WRITE ORDERS LIST Menu for Write Orders List 54 ORWDXM ORDER MENU STYLE Order Menu Style 55 ORWDXVB VBECS TNS CHECK Days to check for Type & Screen Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-55: 56 ORWG GRAPH EXCLUDE DATA TYPE CPRS Graph Exclude Data Types 57 ORWG GRAPH PUBLIC EDITOR CLASS CPRS Graph Public Editor Classes 58 ORWG GRAPH SETTING CPRS Graph Settings 59 ORWG GRAPH SIZING CPRS Graph Position and Sizes 60 ORWG GRAPH VIEW CPRS Graph Views Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-60: 61 ORWIM NSS MESSAGE MESSAGE FOR NON-STANDARD SCHEDULE 62 ORWLR LC CHANGED TO WC MESSAGE FOR LC CHANGED TO WC 63 ORWOR AUTO CLOSE PT MSG Auto-Close Patient Messages 64 ORWOR AUTOSAVE NOTE Interval for Autosave of Notes 65 ORWOR BROADCAST MESSAGES Broadcast Window Messages to Other Apps Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-65: 66 ORWOR CATEGORY SEQUENCE Orders Category Sequence 67 ORWOR COVER RETRIEVAL Cover Sheet Retrieval Mode 68 ORWOR COVER RETRIEVAL NEW Cover Sheet Retrieval Mode 69 ORWOR DISABLE HOLD ORDERS Disable Hold/Unhold Actions in GUI 70 ORWOR DISABLE ORDERING Disable Ordering in GUI Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-70: 71 ORWOR DISABLE WEB ACCESS Disable web links in GUI 72 ORWOR ENABLE VERIFY Enable/Disable Order Verify Actions 73 ORWOR EXPIRED ORDERS Hours to find recently expired orders 74 ORWOR PKI SITE PKI Functionality Site Enabled 75 ORWOR PKI USE Allow PKI Functionality Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-75: 76 ORWOR REQUIRE CURRENT CLIENT Require Client/Server Version Match 77 ORWOR SHOW CONSULTS Show unresolved consults 78 ORWOR SHOW SURGERY TAB Show Surgery Tab in GUI 79 ORWOR SPELL CHECK ENABLED? Enable spelling/grammar checking in GUI. 80 ORWOR TIMEOUT CHART Timeout for GUI chart Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-80: 81 ORWOR TIMEOUT COUNTDOWN Countdown Seconds upon Timeout 82 ORWOR VERIFY NOTE TITLE Verify Note Title 83 ORWOR WRITE ORDERS LIST Write Orders (Inpatient) 84 ORWPCE ANYTIME ENCOUNTERS Anytime Encounters 85 ORWPCE ASK ENCOUNTER UPDATE Ask Encounter Update Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-85: 86 ORWPCE DISABLE AUTO CHECKOUT Disable Automatic Checkout 87 ORWPCE DISABLE AUTO VISIT TYPE Disable Auto Visit Type 88 ORWPCE EXCLUDE EXAMS Excluded Exams 89 ORWPCE EXCLUDE HEALTH FACTORS Excluded Health Factors 90 ORWPCE EXCLUDE IMMUNIZATIONS Excluded Immunizations Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-90: 91 ORWPCE EXCLUDE PATIENT ED Excluded Patient Education Topics 92 ORWPCE EXCLUDE SKIN TESTS Excluded Skin Tests 93 ORWPCE FORCE PCE ENTRY Force PCE Entry 94 ORWPFSS ACTIVE Activate CPRS PFSS Switch 95 ORWRP ADHOC LOOKUP Adhoc Health Summary Lookup Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-95: 96 ORWRP CIRN AUTOMATIC Auto query all sites 97 ORWRP CIRN REMOTE DATA ALLOW Allow remote data access 98 ORWRP CIRN SITES Remote Access Allowed 99 ORWRP CIRN SITES ALL Allow remote data access to all sites. 100 ORWRP HDR ON Turn Remote Queries to HDR on Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-100: 101 ORWRP HEALTH SUMMARY LIST ALL List All Health Summary Types 102 ORWRP HEALTH SUMMARY TYPE LIST Allowable Health Summary Types 103 ORWRP REPORT LAB LIST List of lab reports 104 ORWRP REPORT LIST List of reports 105 ORWRP TIME/OCC LIMITS ALL Default time/occ for all reports Press <Enter> to see more, '^' to exit this list, OR CHOOSE 21-105: 104 ORWRP REPORT LIST List of reports ORWRP REPORT LIST may be set for the following: 2 User USR [choose from NEW PERSON] 3 Division DIV [choose from INSTITUTION] 4 System SYS [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET] 6 Package PKG [ORDER ENTRY/RESULTS REPORTING] Enter selection: 6 Package ORDER ENTRY/RESULTS REPORTING Parameters set for 'Package' may be replaced if ORDER ENTRY/RESULTS REPORTING is installed in this account. --- Setting ORWRP REPORT LIST for Package: ORDER ENTRY/RESULTS REPORTING --- Select Sequence: ? Sequence Value -------- ----- 1 TMG GROWTH CHARTS 1.1 TMG WHO GROWTH CHARTS 2 ORRPW REPORT CATEGORIES 3 TMG GROWTH CHARTS 3.1 TMG WHO GROWTH CHARTS 4 TMG GROWTH CHARTS 4.1 TMG WHO GROWTH CHARTS 5 ORRP HEALTH SUMMARY 6 ORRPW HDR 8 ORRPW DOD 10 ORRP IMAGING 12 ORWG GRAPHING 15 ORRP LAB STATUS 20 ORRP BLOOD BANK 25 ORRP AP ALL 30 ORRP DIETETICS PROFILE 35 ORRP NUTRITIONAL ASSESS 40 ORRP VITALS CUM 45 ORRP PROCEDURES 50 ORRP DAILY ORDER SUMMARY Type <Enter> to continue or '^' to exit: 55 ORRP ORDER SUM FOR A DATE RNG 60 ORRP CHART COPY SUMMARY 65 ORRP OUTPATIENT RX PROFILE 70 ORRP BCMA MED LOG 75 ORRP BCMA MAH 80 ORRP SURGERIES 85 ORRP ECS Select Sequence: ORWRP REPORT LIST may be set for the following: 2 User USR [choose from NEW PERSON] 3 Division DIV [choose from INSTITUTION] 4 System SYS [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET] 6 Package PKG [ORDER ENTRY/RESULTS REPORTING] Enter selection: S System WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET Setting ORWRP REPORT LIST for System: WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET Select Sequence: ? There are currently no entries for Sequence. Select Sequence: ORWRP REPORT LIST may be set for the following: 2 User USR [choose from NEW PERSON] 3 Division DIV [choose from INSTITUTION] 4 System SYS [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET] 6 Package PKG [ORDER ENTRY/RESULTS REPORTING] Enter selection: 3 Division INSTITUTION Select INSTITUTION NAME: ? Answer with INSTITUTION NAME, or STATUS, or STATION NUMBER, or OFFICIAL VA NAME, or CURRENT LOCATION, or CODING SYSTEM/ID PAIR, or NPI, or STATUS, or NAME (CHANGED FROM), or CODING SYSTEM Do you want the entire INSTITUTION List? N (No) Select INSTITUTION NAME: ------------------------------------------------------------------------------- Select PARAMETER DEFINITION NAME: ORWRP REPORT LIST List of reports ORWRP REPORT LIST may be set for the following: 2 User USR [choose from NEW PERSON] 3 Division DIV [choose from INSTITUTION] 4 System SYS [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET] 6 Package PKG [ORDER ENTRY/RESULTS REPORTING] Enter selection: 2 User NEW PERSON Select NEW PERSON NAME: ? Answer with NEW PERSON NAME, or INITIAL, or SSN, or VERIFY CODE, or NICK NAME, or SERVICE/SECTION, or NPI, or DEA#, or VA#, or ALIAS, or NPI, or C0P SUBSCRIPTION TYPE Do you want the entire NEW PERSON List? N (No) Select NEW PERSON NAME: ZZ PAT ?? Select NEW PERSON NAME: ZZ PATIENT,TEST FOUR ?? Select NEW PERSON NAME: ? Answer with NEW PERSON NAME, or INITIAL, or SSN, or VERIFY CODE, or NICK NAME, or SERVICE/SECTION, or NPI, or DEA#, or VA#, or ALIAS, or NPI, or C0P SUBSCRIPTION TYPE Do you want the entire NEW PERSON List? Y (Yes) Choose from: ABASS,SIORJINI SA ADEDIRAN,JUBRIL JA ADMINISTRATOR,SYSTEM SA AGEE,DORCAS DA AGUILAR,AUTUMN AA AMBUSH,BRITTANY BA ANALYST,FOUR AF IRM ANALYST ANALYST,GEORGE GOW IRM ANALYST ANALYST,ONE OA IRM ANALYST ANALYST,THREE TA IRM ANALYST ANALYST,TWO TA IRM ANALYST AUTHORIZER,IB MRA MRA AUTOFINISH,RX AYODELE,SHOLA SA BARRERA,CRYSTAL CB BATCH,ERX BENAVIDES,LETICIA LB Biller BRYANT,MAETRICE MB CANTU,DIANA DC CASARES,GEORGE GC Psychiatry to exit: ^ Select NEW PERSON NAME: ANALYST,GEORGE GOW IRM ANALYST ------------ Setting ORWRP REPORT LIST for User: ANALYST,GEORGE ------------ Select Sequence: ? There are currently no entries for Sequence. Select Sequence: 1 Are you adding 1 as a new Sequence? Yes// YES Sequence: 1// 1 Report: DISC ?? Report: OR 1 ORAM ANTICOAG REPORT Anticoagulation Flowsheet Anticoagulatio n Flowsheet 2 ORRP ADHOC HEALTH SUMMARY Adhoc Health Summary Adhoc Health S ummary 3 ORRP ALL TESTS BY DATE ALL TESTS BY DATE 4 ORRP ANATOMIC PATHOLOGY Anatomic Pathology - All Reports Anat omic Pathology - All Reports 5 ORRP AP ALL Anatomic Pathology Anatomic Pathology Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-5: 6 ORRP AP CY Cytopathology Cytopathology 7 ORRP AP EM Electron Microscopy Electron Microscopy 8 ORRP AP SP Surgical Pathology Surgical Pathology 9 ORRP BCMA MAH Med Admin History (BCMA) Med Admin History (BCM A) 10 ORRP BCMA MED LOG Med Admin Log (BCMA) Med Admin Log (BCMA) Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-10: 11 ORRP BLOOD BANK Blood Bank Report Blood Bank Report 12 ORRP CHART COPY SUMMARY Chart Copy Summary Chart Copy Summary 13 ORRP CUSTOM ORDER SUMMARY Custom Order Summary Custom Order S ummary 14 ORRP DAILY ORDER SUMMARY Daily Order Summary Daily Order Summ ary 15 ORRP DIETETICS PROFILE Dietetics Profile Dietetics Profile Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-15: 16 ORRP ECS Event Capture Event Capture Report 17 ORRP ECS PCE SUMMARY Patient PCE Summary Report from Event Ca pture 18 ORRP ECS PT SUMMARY Patient Data Summary Report from Event Ca pture 19 ORRP HEALTH SUMMARY Health Summary Health Summary 20 ORRP IMAGING Imaging (local only) Imaging (local only) Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-20: 21 ORRP LAB GRAPH LAB GRAPH 22 ORRP LAB STATUS Lab Status Lab Status 23 ORRP NUTRITIONAL ASSESS Nutritional Assessment Nutritional As sessment 24 ORRP ORDER SUM FOR A DATE RNG Order Summary for a Date Range Order Summary for a Date Range 25 ORRP OUTPATIENT RX PROFILE Outpatient RX Profile Outpatient R X Profile Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-25: 26 ORRP PROBLEM LIST Problem List Problem List 27 ORRP PROCEDURES Procedures (local only) Procedures (local onl y) 28 ORRP SELECTED TESTS BY DATE SELECTED TESTS BY DATE 29 ORRP SURGERIES Surgery (local only) Surgery (local only) 30 ORRP VITALS CUM Vitals Cumulative Vitals Cumulative Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-30: 31 ORRPW ADT ADM DC Adm./Discharge Adm./Discharge 32 ORRPW ADT DC DIAG Discharge Diagnosis Discharge Diagnosis 33 ORRPW ADT DEMO Patient Information Patient Information 34 ORRPW ADT DEMOG Demographics Demographics 35 ORRPW ADT DISAB Disabilities Disabilities Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-35: 36 ORRPW ADT DISC Discharges Discharges 37 ORRPW ADT EXP Expanded ADT Expanded ADT 38 ORRPW ADT FUTURE CLINIC Future Clinic Visits Future Clinic Vi sits 39 ORRPW ADT HISTORY ADT History ADT History 40 ORRPW ADT ICD PROC ICD Procedures ICD Procedures Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-40: 31 ORRPW ADT ADM DC Adm./Discharge Adm./Discharge Select Sequence: ORWRP REPORT LIST may be set for the following: 2 User USR [choose from NEW PERSON] 3 Division DIV [choose from INSTITUTION] 4 System SYS [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET] 6 Package PKG [ORDER ENTRY/RESULTS REPORTING] Enter selection: ------------------------------------------------------------------------------- Select PARAMETER DEFINITION NAME: ORWRP REPORT LIST List of reports ORWRP REPORT LIST may be set for the following: 2 User USR [choose from NEW PERSON] 3 Division DIV [choose from INSTITUTION] 4 System SYS [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET] 6 Package PKG [ORDER ENTRY/RESULTS REPORTING] Enter selection: 6 Package ORDER ENTRY/RESULTS REPORTING Parameters set for 'Package' may be replaced if ORDER ENTRY/RESULTS REPORTING is installed in this account. --- Setting ORWRP REPORT LIST for Package: ORDER ENTRY/RESULTS REPORTING --- Select Sequence: ? Sequence Value -------- ----- 1 TMG GROWTH CHARTS 1.1 TMG WHO GROWTH CHARTS 2 ORRPW REPORT CATEGORIES 3 TMG GROWTH CHARTS 3.1 TMG WHO GROWTH CHARTS 4 TMG GROWTH CHARTS 4.1 TMG WHO GROWTH CHARTS 5 ORRP HEALTH SUMMARY 6 ORRPW HDR 8 ORRPW DOD 10 ORRP IMAGING 12 ORWG GRAPHING 15 ORRP LAB STATUS 20 ORRP BLOOD BANK 25 ORRP AP ALL 30 ORRP DIETETICS PROFILE 35 ORRP NUTRITIONAL ASSESS 40 ORRP VITALS CUM 45 ORRP PROCEDURES 50 ORRP DAILY ORDER SUMMARY Type <Enter> to continue or '^' to exit: ^ Select Sequence: ? Sequence Value -------- ----- 1 TMG GROWTH CHARTS 1.1 TMG WHO GROWTH CHARTS 2 ORRPW REPORT CATEGORIES 3 TMG GROWTH CHARTS 3.1 TMG WHO GROWTH CHARTS 4 TMG GROWTH CHARTS 4.1 TMG WHO GROWTH CHARTS 5 ORRP HEALTH SUMMARY 6 ORRPW HDR 8 ORRPW DOD 10 ORRP IMAGING 12 ORWG GRAPHING 15 ORRP LAB STATUS 20 ORRP BLOOD BANK 25 ORRP AP ALL 30 ORRP DIETETICS PROFILE 35 ORRP NUTRITIONAL ASSESS 40 ORRP VITALS CUM 45 ORRP PROCEDURES 50 ORRP DAILY ORDER SUMMARY Type <Enter> to continue or '^' to exit: 55 ORRP ORDER SUM FOR A DATE RNG 60 ORRP CHART COPY SUMMARY 65 ORRP OUTPATIENT RX PROFILE 70 ORRP BCMA MED LOG 75 ORRP BCMA MAH 80 ORRP SURGERIES 85 ORRP ECS Select Sequence: 2 Sequence: 2// 2 Report: ORRPW REPORT CATEGORIES// ORRPW REPORT CATEGORIES Clinical Reports Clinical Reports Select Sequence: ORWRP REPORT LIST may be set for the following: 2 User USR [choose from NEW PERSON] 3 Division DIV [choose from INSTITUTION] 4 System SYS [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET] 6 Package PKG [ORDER ENTRY/RESULTS REPORTING] Enter selection: Package ORDER ENTRY/RESULTS REPORTING Parameters set for 'Package' may be replaced if ORDER ENTRY/RESULTS REPORTING is installed in this account. --- Setting ORWRP REPORT LIST for Package: ORDER ENTRY/RESULTS REPORTING --- Select Sequence: ORWRP REPORT LIST may be set for the following: 2 User USR [choose from NEW PERSON] 3 Division DIV [choose from INSTITUTION] 4 System SYS [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET] 6 Package PKG [ORDER ENTRY/RESULTS REPORTING] Enter selection: 2 User NEW PERSON Select NEW PERSON NAME: ANALYS 1 ANALYST,FOUR AF IRM ANALYST 2 ANALYST,GEORGE GOW IRM ANALYST 3 ANALYST,ONE OA IRM ANALYST 4 ANALYST,THREE TA IRM ANALYST 5 ANALYST,TWO TA IRM ANALYST CHOOSE 1-5: 2 ANALYST,GEORGE GOW IRM ANALYST ------------ Setting ORWRP REPORT LIST for User: ANALYST,GEORGE ------------ Select Sequence: ? Sequence Value -------- ----- 1 ORRPW ADT ADM DC Select Sequence: 1 Sequence: 1// @ ...deleted ORWRP REPORT LIST may be set for the following: 2 User USR [choose from NEW PERSON] 3 Division DIV [choose from INSTITUTION] 4 System SYS [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET] 6 Package PKG [ORDER ENTRY/RESULTS REPORTING] Enter selection: ^ ------------------------------------------------------------------------------- Select PARAMETER DEFINITION NAME: %GTM-I-CTRLC, CTRL_C encountered ASTRON>D P^DI VA FILEMAN 22.2V2 Select OPTION: INQUIRE TO FILE ENTRIES Output from what File: NEW PERSON// OR 1 OR CPRS TABS (2 entries) 2 ORAM FLOWSHEET (0 entries) 3 ORDER (848 entries) 4 ORDER ACKNOWLEDGEMENT (0 entries) 5 ORDER CHECK COMPILER FUNCTIONS (56 entries) Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-5: 6 ORDER CHECK DATA CONTEXT (7 entries) 7 ORDER CHECK DATA FIELD (159 entries) 8 ORDER CHECK DATA SOURCE (15 entries) 9 ORDER CHECK ELEMENT (140 entries) 10 ORDER CHECK NATIONAL TERM (15 entries) Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-10: 11 ORDER CHECK PATIENT ACTIVE DATA (0 entries) 12 ORDER CHECK PATIENT RULE EVENT (1 entry) 13 ORDER CHECK RAW DATA LOG (1 entry) 14 ORDER CHECK RULE (71 entries) 15 ORDER CHECKS (27 entries) Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-15: 16 ORDER DELAY REASONS (9 entries) 17 ORDER DIALOG (332 entries) 18 ORDER EXECUTE CODES (20 entries) 19 ORDER PARAMETERS (1 entry) 20 ORDER QUICK VIEW (6 entries) Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-20: 21 ORDER REASON (20 entries) 22 ORDER STATISTICS (0 entries) 23 ORDER STATUS (16 entries) 24 ORDER STATUS (18 entries) 25 ORDER TYPE (25 entries) Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-25: 26 ORDER UNIT (33 entries) 27 ORDER URGENCY (15 entries) 28 ORDERABLE ITEMS (3624 entries) CHOOSE 1-28: Output from what File: NEW PERSON// OE 1 OE/RR AUTO-DC RULES (10 entries) 2 OE/RR COM OBJECTS (1 entry) 3 OE/RR ERRORS (10000 entries) 4 OE/RR LIST (1 entry) 5 OE/RR NOTIFICATIONS (57 entries) Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-5: 4 OE/RR LIST (1 entry) Select OE/RR LIST NAME: ? Answer with OE/RR LIST NAME, or UPPER CASE, or USER: DR KING Select OE/RR LIST NAME: ^ Select OPTION: INQUIRE TO FILE ENTRIES Output from what File: OE/RR LIST// OE 1 OE/RR AUTO-DC RULES (10 entries) 2 OE/RR COM OBJECTS (1 entry) 3 OE/RR ERRORS (10000 entries) 4 OE/RR LIST (1 entry) 5 OE/RR NOTIFICATIONS (57 entries) Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-5: 6 OE/RR PATIENT EVENT (2 entries) 7 OE/RR PRINT FIELDS (78 entries) 8 OE/RR PRINT FORMATS (36 entries) 9 OE/RR PT SEL COMBO (0 entries) 10 OE/RR RELEASE EVENTS (2 entries) Press <Enter> to see more, '^' to exit this list, OR CHOOSE 1-10: 11 OE/RR REPORT (195 entries) CHOOSE 1-11: 11 OE/RR REPORT (195 entries) Select OE/RR REPORT NAME: AD ?? Select OE/RR REPORT NAME: ? Answer with OE/RR REPORT NUMBER, or NAME Do you want the entire 195-Entry OE/RR REPORT List? Y (Yes) Choose from: 1 ORRP HEALTH SUMMARY Health Summary Health Summary 2 ORRP BLOOD BANK Blood Bank Report Blood Bank Report 3 ORRP AP ALL Anatomic Pathology Anatomic Pathology 4 ORRP DIETETICS PROFILE Dietetics Profile Dietetics Profi le 5 ORRP VITALS CUM Vitals Cumulative Vitals Cumulative 6 ORRP IMAGING Imaging (local only) Imaging (local only) 7 ORRP LAB STATUS Lab Status Lab Status 8 ORRP NUTRITIONAL ASSESS Nutritional Assessment Nutrition al Assessment 9 ORRP PROCEDURES Procedures (local only) Procedures (loca l only) 10 ORRP DAILY ORDER SUMMARY Daily Order Summary Daily Order Summary 11 ORRP ORDER SUM FOR A DATE RNG Order Summary for a Date Range Order Summary for a Date Range 12 ORRP CHART COPY SUMMARY Chart Copy Summary Chart Copy Su mmary 13 ORRP OUTPATIENT RX PROFILE Outpatient RX Profile Outpati ent RX Profile to exit: 14 ORRP ALL TESTS BY DATE ALL TESTS BY DATE 15 ORRP SELECTED TESTS BY DATE SELECTED TESTS BY DATE 16 ORRP LAB GRAPH LAB GRAPH 17 ORRP CUSTOM ORDER SUMMARY Custom Order Summary Custom Or der Summary 18 ORL MOST RECENT Most Recent Most Recent 19 ORL CUMULATIVE Cumulative Cumulative 20 ORL ALL TESTS BY DATE All Tests by Date All Tests by Dat e 21 ORL WORKSHEET Worksheet Worksheet 22 ORL GRAPH Graph Graph 23 ORL MICROBIOLOGY Microbiology Microbiology 24 ORL ANATOMIC PATHOLOGY Anatomic Pathology - All Reports Anatomic Pathology - All Reports 25 ORL BLOOD BANK Blood Bank Blood Bank 26 ORL LAB STATUS Lab Status Lab Status 27 ORL SELECTED TESTS BY DATE Selected Tests by Date Select ed Tests by Date 28 ORCV ACTIVE PROBLEMS Active Problems 29 ORCV ALLERGIES Allergies / Adverse Reactions 30 ORCV POSTINGS Postings 31 ORCV ACTIVE MEDICATIONS Active Medications to exit: 32 ORCV CLINICAL REMINDERS Clinical Reminders Due Date 33 ORCV RECENT LAB RESULTS Recent Lab Results 34 ORCV VITALS Vitals 35 ORCV APPOINTMENTS Appointments/Visits/Admissions 36 ORCV ACTIVE PROBLEM DETAILS Active Problem Details 37 ORCV ALLERGIES DETAILS Allergies Details 38 ORCV POSTINGS DETAILS Postings Details 39 ORCV ACTIVE MED DETAILS Active Med Details 40 ORCV RECENT LAB DETAILS Recent Lab Details 41 ORCV VISIT DETAILS Visit Details 42 ORRP ADHOC HEALTH SUMMARY Adhoc Health Summary Adhoc Hea lth Summary 43 ORRP BCMA MED LOG Med Admin Log (BCMA) Med Admin Log (BC MA) 44 ORRP BCMA MAH Med Admin History (BCMA) Med Admin History (BCMA) 48 ORRP SURGERIES Surgery (local only) Surgery (local only) 49 TMG GRAPH TMG GRAPH TMG GRAPH 50 TMG CHILD - HEIGHT CHART CHILD - HEIGHT CHART TMG GROWTH CHART HEIGHT (CHILD) 51 TMG INFANT - HEAD CIRC CHART INFANT - HEAD CIRC CHART TM G GROWTH CHART FOR HEAD CIRCUMFERENCE to exit: 52 TMG CHILD - WEIGHT CHART CHILD - WEIGHT CHART TMG GROWTH CHART WEIGHT (CHILD) 53 TMG CHILD - BMI CHART CHILD - BMI CHART TMG GROWTH CHART BMI (CHILD) 54 TMG INFANT - WT FOR LEN CHART INFANT -- WEIGHT FOR LENGTH CH ART INFANT WEIGHT FOR LENGTH CHART 55 TMG INFANT - BMI CHART INFANT - BMI CHART TMG GROWTH CHA RT BMI (INFANT) 56 TMG INFANT - WEIGHT CHART INFANT - WEIGHT CHART TMG GROW TH CHART WEIGHT (INFANT) 57 TMG INFANT - LENGTH CHART INFANT - LENGTH CHART TMG GROW TH CHART LENGTH (INFANT) 58 TMG GROWTH CHARTS TMG GROWTH CHARTS TMG GROWTH CHART MEN U 59 TMG WHO BA CHART WHO BMI CHART WHO BMI CHART 60 TMG WHO GROWTH CHARTS TMG WHO GROWTH CHARTS TMG WHO GROW TH CHART MENU 61 TMG WHO BMI B2 BMI - Birth to 2 Years WHO - BMI Birth t o 2 Years 62 TMG WHO BMI B5 BMI - Birth to 5 Years WHO - BMI Birth to 5 Years 63 TMG WHO BMI 25 BMI - 2 Years to 5 Years WHO - BMI 2 Yea rs TO 5 Years to exit: 64 TMG WHO LENGTH B6 Length - Birth to 6 Months WHO - Lengt h-for-age Birth to 6 Months 65 TMG WHO LENGTH B2 Length - Birth to 2 Years WHO - Length -for-age Birth to 2 Years 66 TMG WHO LENGTH 62 Length - 6 Months to 2 Years WHO - Len gth-for-age 6 Months to 2 Years 67 TMG WHO LENGTH 25 Height - 2 Years to 5 Years WHO - Heig ht-for-age 2 Years to 5 Years 68 TMG WHO LENGTH B5 Height - Birth to 5 Years WHO - Heigh t-for-age Birth to 5 Years 69 TMG WHO WEIGHT B6 Weight - Birth to 6 Months WHO - Weigh t-for-age Birth to 6 Months 70 TMG WHO WEIGHT B2 Weight - Birth to 2 Years WHO - Weight -for-age Birth to 2 Years 71 TMG WHO WEIGHT 62 Weight - 6 Months to 2 Years WHO - Len gth-for-age 6 Months to 2 Years 72 TMG WHO WEIGHT B5 Weight - Birth to 5 Years WHO - Weight -for-age Birth to 5 Years 73 TMG WHO WEIGHT 25 Weight - 2 Years to 5 Years WHO - Weig ht-for-age 2 Years to 5 Years 74 TMG WHO HC BT Head Circumference - Birth to 13 Weeks WHO - Head Circumference Birth to 13 Weeks to exit: 75 TMG WHO HC B2 Head Circumference - Birth to 2 Years WHO - Head Circumference Birth to 2 Years 76 TMG WHO HC B5 Head Circumference - Birth to 5 Years WHO - Head Circumference Birth to 5 Years 77 TMG WHO WT4HT Weight for Height - 2 Years to 5 Years WHO - Weight-for-Height 2 Years to 5 Years 1004 ORRPW DISCHARGE SUMMARY Discharge Summary Discharge Summ ary 1006 ORRPW RADIOLOGY IMAGING Imaging Imaging 1007 ORRPW PROCEDURES Procedures Procedures 1018 ORRPW ADT DEMO Patient Information Patient Information 1020 ORRPW DIET Dietetics Dietetics 1021 ORRPW LAB Laboratory Laboratory 1022 ORRPW MEDICINE/CP Medicine/CP Medicine/CP 1023 ORRPW ORDERS MENU Orders Orders 1024 ORRPW PCE Outpatient Encounters / GAF Scores Outpatient Encounters / GAF Scores 1025 ORRPW PHARMACY Pharmacy Pharmacy 1026 ORRPW PROBLEM LIST Problem List Problem List 1027 ORRPW RADIOLOGY Radiology Radiology 1028 ORRPW SURGERY Surgery Reports Surgery Reports 1029 ORRPW VITALS Vital Signs Vital Signs to exit: 1030 ORRPW PN Progress Notes Progress Notes 1031 ORRPW REPORT CATEGORIES Clinical Reports Clinical Report s 1032 ORRPW ALLERGIES ADV Allergies Allergies 1033 ORRPW ADT DEMOG Demographics Demographics 1034 ORRPW ADT INS Insurance Insurance 1035 ORRPW ADT DISAB Disabilities Disabilities 1036 ORRPW ADT ADM DC Adm./Discharge Adm./Discharge 1037 ORRPW ADT EXP Expanded ADT Expanded ADT 1038 ORRPW ADT DC DIAG Discharge Diagnosis Discharge Diagnosi s 1039 ORRPW ADT DISC Discharges Discharges 1040 ORRPW ADT FUTURE CLINIC Future Clinic Visits Future Clin ic Visits 1041 ORRPW ADT ICD PROC ICD Procedures ICD Procedures 1042 ORRPW ADT ICD SURG ICD Surgeries ICD Surgeries 1043 ORRPW ADT TRANSFERS Transfers Transfers 1044 ORRPW ADT TREATING SPEC Treating Specialty Treating Spec ialty 1045 ORRPW COMP Comp & Pen Exams Comp & Pen Exams 1046 ORRPW DIET GEN Generic Diet Generic 1047 ORRPW DIET DIET Diet Diet to exit: ^ Select OE/RR REPORT NAME: 1036 ORRPW ADT ADM DC Adm./Discharge Adm./Dis charge Another one: Standard Captioned Output? Yes// (Yes) Include COMPUTED fields: (N/Y/R/B): NO// - No record number (IEN), no Computed Fields NUMBER: 1036 NAME: ORRPW ADT ADM DC ID: OR_ADC REMOTE: YES QUALIFIER: HSComponent ROUTINE: ORDV01 ENTRY POINT: HSQUERY CATEGORY: LISTVIEW TAB: REPORTS TAB TYPE: LISTVIEW RPC: ORWRP REPORT TEXT REPORT COMPONENT: MAS ADMISSIONS/DISCHARGES HEADING: Adm./Discharge DESCRIPTIVE TEXT: Adm./Discharge PRINT TAG: HSTYPEB PRINT ROUTINE: ORWRPP1 Select OE/RR REPORT NAME: NOW HEALTH SUMMARY TYPE AND COMPONENTS FOR OE/RR REPORTS 1036 Output from what File: HEALTH SUMMARY COMPONENT// HEALTH SUMMARY TYPE (12 entries) Select HEALTH SUMMARY TYPE NAME: ADM DX Another one: Standard Captioned Output? Yes// (Yes) Include COMPUTED fields: (N/Y/R/B): NO// - No record number (IEN), no Computed Fields NAME: ADM DX OWNER: DOCTOR,THIRTEEN SUPPRESS COMP WITHOUT DATA: yes SUMMARY ORDER: 5 COMPONENT NAME: MAS ADMISSIONS/DISCHARGES OCCURRENCE LIMIT: 1 TIME LIMIT: 1Y HEADER NAME: Admission/Discharge SUMMARY ORDER: 10 COMPONENT NAME: MAS ADT HISTORY EXPANDED TIME LIMIT: 1Y HEADER NAME: ADT History Expanded TIMESTAMP: 62260,33494 Another one: Standard Captioned Output? Yes// (Yes) Include COMPUTED fields: (N/Y/R/B): NO// - No record number (IEN), no Computed Fields NUMBER: 10 NAME: MAS ADMISSIONS/DISCHARGES PRINT ROUTINE: ENAD;GMTSDGA TIME LIMITS APPLICABLE: yes ABBREVIATION: ADC MAXIMUM OCCURRENCES APPLICABLE: yes DEFAULT HEADER NAME: Admission/Discharge DESCRIPTION: This component contains information from the MAS package. Time and occurrence limits apply to this component. Data presented include: date range of admission, ward, length of stay (LOS), last treating specialty, last provider, admitting diagnosis text, bedsection, principal diagnosis, diagnosis for longest length of stay (DXLS), and secondary ICD diagnoses. Select HEALTH SUMMARY COMPONENT NAME: MAS ADT HISTORY EXPANDED Another one: Standard Captioned Output? Yes// (Yes) Include COMPUTED fields: (N/Y/R/B): NO// - No record number (IEN), no Computed Fields NUMBER: 64 NAME: MAS ADT HISTORY EXPANDED PRINT ROUTINE: MAIN;GMTSDGCH TIME LIMITS APPLICABLE: yes ABBREVIATION: EADT MAXIMUM OCCURRENCES APPLICABLE: yes DEFAULT HEADER NAME: ADT History Expanded DESCRIPTION: This component contains information extracted from the MAS package. It is a consolidated view of all the MAS components. It can only be used with MAS Version 5 and up. Time and maximum occurrence limits apply. Data presented include patient eligibility and rated disabilities. Movement data then follows with movement date, movement type (ADM=Admission, TR=Transfer, TS= Treating Specialty, DC=Discharge), movement description, specialty, and provider. Admissions include the admission diagnosis if the patient hasn't been discharged. Transfers included ward location and transfer facility. Treating specialties includes Specialty Tranfers Diagnosis. Dicharges include the data in the Discharge Diagnosis and Discharges components. Following the data for each admission ICD Procedures, and ICD Surgeries will be include if present. Select HEALTH SUMMARY COMPONENT NAME: ALSO HEALTH SUMMARY TYPE FOR 1004 REPORT Select OE/RR REPORT NAME: 1004 ORRPW DISCHARGE SUMMARY Discharge Summary Discharge Summary Another one: Standard Captioned Output? Yes// (Yes) Include COMPUTED fields: (N/Y/R/B): NO// - No record number (IEN), no Computed Fields NUMBER: 1004 NAME: ORRPW DISCHARGE SUMMARY ID: OR_DS REMOTE: YES QUALIFIER: HSWPComponent ROUTINE: ORDV01 ENTRY POINT: HSQUERY CATEGORY: LISTVIEW TAB: REPORTS TAB TYPE: LISTVIEW RPC: ORWRP REPORT TEXT REPORT TAG: TIUDCS REPORT ROUTINE: ORDV04 REPORT COMPONENT: DISCHARGE SUMMARY HEADING: Discharge Summary DESCRIPTIVE TEXT: Discharge Summary PRINT TAG: HSTYPEB PRINT ROUTINE: ORWRPP1 EXTRACT TAG: TDCS EXTRACT ROUTINE: ORDV04 COLUMN HEADERS: Facility SEQUENCE: 1 PRINT LENGTH: 10 INCLUDE ON PRINT: YES COLUMN HEADERS: Admitted Date/Time SEQUENCE: 3 PRINT LENGTH: 18 INCLUDE ON PRINT: YES PRINT TITLE: Admitted DATA TYPE: DATE/TIME COLUMN HEADERS: Discharged Date/Time SEQUENCE: 4 PRINT LENGTH: 18 INCLUDE ON PRINT: YES PRINT TITLE: Discharged DATA TYPE: DATE/TIME COLUMN HEADERS: Author / Dictated By SEQUENCE: 5 PRINT LENGTH: 10 INCLUDE ON PRINT: YES COLUMN HEADERS: Approved By SEQUENCE: 6 Type <Enter> to continue or '^' to exit: PRINT LENGTH: 12 INCLUDE ON PRINT: YES PRINT TITLE: Approved By COLUMN HEADERS: Current Status SEQUENCE: 7 PRINT LENGTH: 10 INCLUDE ON PRINT: YES PRINT TITLE: Status COLUMN HEADERS: ID VISIBLE: NO SEQUENCE: 2 COLUMN HEADERS: Summary VISIBLE: NO SEQUENCE: 8 TYPE: WORD PROCESSING INCLUDE ON DETAIL: YES INCLUDE ON PRINT: YES COLUMN HEADERS: [+] VISIBLE: YES SEQUENCE: 9 SORT ORDER: 3:5 FHIE DATA: YES HEALTH SUMMARY TYPE Output from what File: OE/RR REPORT// HEALTH SUMMARY TYPE (12 entries) Select HEALTH SUMMARY TYPE NAME: DISCHARGE 1 DISCHARGE DX 2 DISCHARGE SUMMARY CHOOSE 1-2: 2 DISCHARGE SUMMARY Another one: Standard Captioned Output? Yes// (Yes) Include COMPUTED fields: (N/Y/R/B): NO// - No record number (IEN), no Computed Fields NAME: DISCHARGE SUMMARY OWNER: DOCTOR,THIRTEEN SUMMARY ORDER: 5 COMPONENT NAME: DISCHARGE SUMMARY BRIEF OCCURRENCE LIMIT: 1 TIME LIMIT: 1Y HEADER NAME: Brief Disch Summary TIMESTAMP: 62260,33050 Select HEALTH SUMMARY TYPE NAME: utput from what File: OE/RR REPORT// HEALTH SUMMARY COMPONENT (108 entries) Select HEALTH SUMMARY COMPONENT NAME: DISCHARGE SUMM 1 DISCHARGE SUMMARY 2 DISCHARGE SUMMARY BRIEF CHOOSE 1-2: 1 DISCHARGE SUMMARY Another one: Standard Captioned Output? Yes// (Yes) Include COMPUTED fields: (N/Y/R/B): NO// - No record number (IEN), no Computed Fields NUMBER: 57 NAME: DISCHARGE SUMMARY PRINT ROUTINE: MAIN;GMTSDS TIME LIMITS APPLICABLE: yes ABBREVIATION: DCS MAXIMUM OCCURRENCES APPLICABLE: yes OUT OF ORDER MESSAGE: Discharge Summary Package not yet installed or available DEFAULT HEADER NAME: Discharge Summary DESCRIPTION: This component prints all discharge summaries (including report text) for user-specified time and occurrence limits. Select HEALTH SUMMARY COMPONENT NAME: ^ ASTRON>D ^%G Output device: <terminal>: List ^ ASTRON>D ^%G Output device: <terminal>: List ^DGPM("ATID1",622,*) ^DGPM("ATID1",622,6858797.9159669,241)="" List ^ ASTRON>D P^DI VA FILEMAN 22.2V2 Select OPTION: ASTRON>D P^DI VA FILEMAN 22.2V2 Select OPTION: INQUIRE TO FILE ENTRIES Output from what File: PATIENT// (2393 entries) Select PATIENT NAME: `622 ZZ PATIENT,TEST FOUR <A> M 01-01-2001 729010101P 729010101P Another one: %GTM-I-CTRLC, CTRL_C encountered ASTRON>D P^DI VA FILEMAN 22.2V2 Select OPTION: INQUIRE TO FILE ENTRIES Output from what File: PATIENT// PATIENT MOVEMENT (236 entries) Select PATIENT MOVEMENT DATE/TIME: `241 DEC 2,2014@08:40:33 ZZ PATIENT,TEST FO UR (729010101P) ADMISSION: DIRECT Another one: Standard Captioned Output? Yes// (Yes) Include COMPUTED fields: (N/Y/R/B): NO// - No record number (IEN), no Computed Fields Display Audit Trail? No// NO DATE/TIME: DEC 2,2014@08:40:33 TRANSACTION: ADMISSION PATIENT: ZZ PATIENT,TEST FOUR TYPE OF MOVEMENT: DIRECT WARD LOCATION: CH 3 EAST ROOM-BED: 300-A PRIMARY PHYSICIAN: VALDES,IGNACIO DIAGNOSIS [SHORT]: Psychosis ADMITTING REGULATION: ACTIVE PSYCHOSIS ADMISSION/CHECK-IN MOVEMENT: DEC 2,2014@08:40:33 PTF ENTRY: 80 MAS MOVEMENT TYPE: DIRECT ASIH SEQUENCE: 0 SCHEDULED ADMISSION?: NO FACILITY DIRECTORY EXCLUSION: NO FACILITY DIRECTORY TIME STAMP: DEC 2,2014@08:40:43 FACILITY DIRECTORY USER: ADMINISTRATOR,SYSTEM ADMITTING CATEGORY: 0 ENTERED BY: ADMINISTRATOR,SYSTEM ENTERED ON: DEC 2,2014@08:40:35 LAST EDITED BY: ADMINISTRATOR,SYSTEM LAST EDITED ON: DEC 2,2014@08:41:38 Select PATIENT MOVEMENT DATE/TIME: ^ Select OPTION: ENTER OR EDIT FILE ENTRIES Input to what File: PATIENT MOVEMENT// (236 entries) EDIT WHICH FIELD: ALL// ADMITT 1 ADMITTED FOR SC CONDITION? 2 ADMITTING CATEGORY 3 ADMITTING ELIGIBILITY 4 ADMITTING REGULATION CHOOSE 1-4: 2 ADMITTING CATEGORY THEN EDIT FIELD: Select PATIENT MOVEMENT DATE/TIME: Select OPTION: ENTER OR EDIT FILE ENTRIES Input to what File: PATIENT MOVEMENT// (236 entries) EDIT WHICH FIELD: ALL// ADMITTING 1 ADMITTING CATEGORY 2 ADMITTING ELIGIBILITY 3 ADMITTING REGULATION CHOOSE 1-3: 1 ADMITTING CATEGORY THEN EDIT FIELD: Select PATIENT MOVEMENT DATE/TIME: DEC 2,2014@08:40:33 ZZ PATIENT,TEST FOUR (729010101P) ADMISSION: DIRECT ADMITTING CATEGORY: 0// ? Please enter the Sharing Agreement Category. ADMITTING CATEGORY: 0// ?? If and entry for the Admitting Regulation exist in the Sharing Agreement Category file (#35.1) then the user will be prompted for the category associated with the Admitting Regulation. ADMITTING CATEGORY: 0// ^ Select PATIENT MOVEMENT DATE/TIME: ^ Select OPTION: INQUIRE TO FILE ENTRIES Output from what File: PATIENT MOVEMENT// 35.1 SHARING AGREEMENT CATEGORY (0 entries) Select SHARING AGREEMENT CATEGORY A/P: ? Select SHARING AGREEMENT CATEGORY A/P: PUT IN VOL OR INVOL IN THIS ABOVE FIELD( SHARING AGREEMENT). Select OPTION: DATA DICTIONARY UTILITIES Select DATA DICTIONARY UTILITY OPTION: LIST FILE ATTRIBUTES START WITH What File: SHARING AGREEMENT CATEGORY// PATIENT MOVEMENT (236 entries) GO TO What File: PATIENT MOVEMENT// (236 entries) Select SUB-FILE: Select LISTING FORMAT: STANDARD// Start with field: FIRST// DEVICE: TELNET STANDARD DATA DICTIONARY #405 -- PATIENT MOVEMENT FILE 12/28/14 PAGE 1 STORED IN ^DGPM( (236 ENTRIES) SITE: Vista-Office EHR UCI: EHR,EHR (VERSION 5.3) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ------------------------------------------------------------------------------- This file holds the data for all admissions, transfers, discharges, treating specialty changes, and lodger movements. These entries must not be edited through fileman. Instead, the appropriate bed control options should be executed to insure data consistency. The following cross-references exist on this file: ^DGPM("ATID"_TT,DFN,Inverse date_AS,DA)="" ^DGPM("ATT"_TT,Date_AS,DA)="" ^DGPM("APID",DFN,Inverse Date_AS,DA)="" ^DGPM("APTT"_TT,DFN,Date_AS,DA)="" ^DGPM("APCA",DFN,Corresponding Admission,Date_AS,DA)="" ^DGPM("APMV",DFN,Corresponding Admission,Inverse Date_AS,DA)="" ^DGPM("APRD",DFN,Date_AS,DA)="" ^DGPM("AMV"_TT,Date_AS,DFN,DA)="" ^DGPM("ATS",DFN,Corresponding Admission,Inverse Date_AS,Treating STANDARD DATA DICTIONARY #405 -- PATIENT MOVEMENT FILE 12/28/14 PAGE 2 STORED IN ^DGPM( (236 ENTRIES) SITE: Vista-Office EHR UCI: EHR,EHR (VERSION 5.3) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ------------------------------------------------------------------------------- Specialty,DA)="" ^DGPM("CN",External Format of Ward,DA)="" **inpatients only** ^DGPM("LD",External Format of Ward,DA)="" **lodgers only** ^DGPM("ARM",IFN of Room-bed,DA)=1 or 0 [1 indicates lodger, 0 indicates non-lodger] ^DGPM("B",Date,DA)="" ^DGPM("C",DFN,DA)="" ^DGPM("CA",Corresponding Admission,DA)="" where: TT=Transaction type where choices are as follows: 1=admission 4=check-in lodger 2=transfer 5=check-out lodger 3=discharge 6=specialty change AS=ASIH Sequencewhere choices are as follows: STANDARD DATA DICTIONARY #405 -- PATIENT MOVEMENT FILE 12/28/14 PAGE 3 STORED IN ^DGPM( (236 ENTRIES) SITE: Vista-Office EHR UCI: EHR,EHR (VERSION 5.3) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ------------------------------------------------------------------------------- 1=transfer to hospital ASIH 2=Admission to hospital (automatically generated by module) or 1=discharge from hospitalwithin 30 days of ASIH stay 2=transfer to or discharge from NHCU/DOM (automatically generated by module) [NOTE: This value is 0 for non-ASIH movements or ASIH movements where there are not 2 movements at the same date/time] COMPILED CROSS-REFERENCE ROUTINE: DGPMXX DD ACCESS: @ RD ACCESS: d WR ACCESS: @ DEL ACCESS: @ LAYGO ACCESS: @ IDENTIFIED BY: TRANSACTION (#.02)[R], PATIENT (#.03)[R], TYPE OF MOVEMENT (#.04)[R], ADMISSION/CHECK-IN MOVEMENT (#.14)[R] %GTM-I-CTRLC, CTRL_C encountered LOOK FOR ADMISSION LIST IN THIS CROSS REFERENCE BACK TO A CERTAIN DATE AS EARLIEST DATE OF ADMISSION. ASTRON>D ^%G Output device: <terminal>: List ^^DGPM("AMV1",*) ^DGPM("AMV1",3100101.09,1,40)="" ^DGPM("AMV1",3100101.09,2,46)="" ^DGPM("AMV1",3100110.09,1,43)="" ^DGPM("AMV1",3100110.09,66,49)="" ^DGPM("AMV1",3100115.09,1,51)="" ^DGPM("AMV1",3100120.09,94,59)="" ^DGPM("AMV1",3100201.09,41,33)="" ^DGPM("AMV1",3100220.13,124,117)="" ^DGPM("AMV1",3100301.09,96,62)="" ^DGPM("AMV1",3100401.09,1,87)="" ^DGPM("AMV1",3100405.1,97,66)="" ^DGPM("AMV1",3100501.09,76,90)="" ^DGPM("AMV1",3100501.09,100,84)="" ^DGPM("AMV1",3100601.11,95,72)="" ^DGPM("AMV1",3100901.09,98,75)="" ^DGPM("AMV1",3110502.09,125,193)="" ^DGPM("AMV1",3110506.09,85,37)="" ^DGPM("AMV1",3110506.09,145,188)="" ^DGPM("AMV1",3110511.17,90,29)="" ^DGPM("AMV1",3110512.09,3,13)="" ^DGPM("AMV1",3110512.09,20,9)="" ^DGPM("AMV1",3110512.09,123,195)="" ^DGPM("AMV1",3110512.163504,91,1)="" ^DGPM("AMV1",3110512.2,83,23)="" ^DGPM("AMV1",3110515.09,91,27)="" ^DGPM("AMV1",3110515.124215,5,15)="" ^DGPM("AMV1",3110515.141627,7,17)="" ^DGPM("AMV1",3110515.143849,8,21)="" ^DGPM("AMV1",3110515.14435,92,25)="" ^DGPM("AMV1",3110517.09,150,120)="" ^DGPM("AMV1",3110519.09,107,155)="" ^DGPM("AMV1",3110519.1,97,69)="" ^DGPM("AMV1",3110519.205017,73,31)="" ^DGPM("AMV1",3110521.09,103,186)="" ^DGPM("AMV1",3110525.11,147,197)="" ^DGPM("AMV1",3110527.09,146,202)="" ^DGPM("AMV1",3110527.190952,73,57)="" ^DGPM("AMV1",3110529.182459,52,78)="" ^DGPM("AMV1",3110529.222257,68,80)="" ^DGPM("AMV1",3110530.185041,25,82)="" ^DGPM("AMV1",3110531.08,144,184)="" ^DGPM("AMV1",3110531.08,149,164)="" ^DGPM("AMV1",3110531.1,129,160)="" ^DGPM("AMV1",3110531.200054,15,93)="" ^DGPM("AMV1",3110531.20043,19,95)="" ^DGPM("AMV1",3110531.20054,22,97)="" ^DGPM("AMV1",3110531.200629,24,99)="" ^DGPM("AMV1",3110531.200747,34,101)="" ^DGPM("AMV1",3110531.20084,36,103)="" ^DGPM("AMV1",3110531.201117,39,105)="" ^DGPM("AMV1",3110531.201226,41,107)="" ^DGPM("AMV1",3110531.201316,53,109)="" ^DGPM("AMV1",3110531.201544,67,111)="" ^DGPM("AMV1",3110531.201634,70,113)="" ^DGPM("AMV1",3110531.20182,54,115)="" ^DGPM("AMV1",3110601.09,120,126)="" ^DGPM("AMV1",3110604.1,111,146)="" ^DGPM("AMV1",3110605.11,130,166)="" ^DGPM("AMV1",3110606.08,141,140)="" ^DGPM("AMV1",3110607.09,127,129)="" ^DGPM("AMV1",3110608.093,134,152)="" ^DGPM("AMV1",3110608.1,135,122)="" ^DGPM("AMV1",3110608.11,128,143)="" ^DGPM("AMV1",3110610.09,106,134)="" ^DGPM("AMV1",3110610.09,110,158)="" ^DGPM("AMV1",3110610.14,131,168)="" ^DGPM("AMV1",3110611.1,88,138)="" ^DGPM("AMV1",3110611.11,133,149)="" ^DGPM("AMV1",3110613.124423,5,132)="" ^DGPM("AMV1",3110618.16,109,177)="" ^DGPM("AMV1",3110619.11,113,175)="" ^DGPM("AMV1",3110620.03,138,179)="" ^DGPM("AMV1",3110620.062907,1,173)="" ^DGPM("AMV1",3110621.05,122,205)="" ^DGPM("AMV1",3131123.234136,181,209)="" ^DGPM("AMV1",3141130.235035,1838,235)="" ^DGPM("AMV1",3141201.11061,1734,238)="" ^DGPM("AMV1",3141202.084033,622,241)="" List ^ USE FOR AWARE FOR FILTERING BELOE EXAMPLE AND MAYBE FOR ADMISSIONS BELOW WITH EXTERNAL/EXTRACTION ROUTINE Output from what File: HEALTH SUMMARY COMPONENT// (109 entries) Sort by: NAME// Start with NAME: FIRST// A Go to NAME: LAST// Z Within NAME, Sort by: First Print FIELD: NAME Then Print FIELD: EXTRACT?? Then Print FIELD: EXTERNAL/EXTRACT ROUTINE (multiple) Then Print EXTERNAL/EXTRACT ROUTINE SUB-FIELD: ? Answer with EXTERNAL/EXTRACT ROUTINE SUB-FIELD NUMBER, or LABEL: .01 EXTERNAL/EXTRACT ROUTINE Type '&' in front of field name to get TOTAL for that field. '!' to get COUNT. '+' to get TOTAL & COUNT. '#' to get MAX & MIN. ']' to force SAVING PRINT TEMPLATE You can follow field name with ';' and FORMAT SPECIFICATION. Then Print EXTERNAL/EXTRACT ROUTINE SUB-FIELD: .01 EXTERNAL/EXTRACT ROUTINE Then Print EXTERNAL/EXTRACT ROUTINE SUB-FIELD: Then Print FIELD: Heading (S/C): HEALTH SUMMARY COMPONENT List Replace START at PAGE: 1// DEVICE: TELNET HEALTH SUMMARY COMPONENT List DEC 28,2014@14:43 PAGE 1 NAME EXTERNAL/EXTRACT ROUTINE -------------------------------------------------------------------------------- ADVANCE DIRECTIVE ADVER/ALLERG/ACTIVE DET ADVERSE REACTIONS/ALLERG BRIEF EN1;C0QGMRAD ADVERSE REACTIONS/ALLERGIES EN1;C0QGMRAD ADVERSE RXN/ALLERGY ACTIVE ALLRGP;C0QGMTSG Active/Pending/Expired Meds CLINICAL REMINDERS BRIEF MAIN;PXRM(DFN,SEG,FLG) CLINICAL REMINDERS DUE CLINICAL REMINDERS FINDINGS MAIN;PXRM(DFN,SEG,FLG) CLINICAL REMINDERS LAST DONE MAIN;PXRM(DFN,SEG,FLG) CLINICAL REMINDERS MAINTENANCE CLINICAL REMINDERS SUMMARY CLINICAL WARNINGS COMPENSATION AND PENSION EXAMS CONSULTS BRIEF MAIN;GMTSCNB CRISIS NOTES HEALTH SUMMARY COMPONENT List DEC 28,2014@14:43 PAGE 2 NAME EXTERNAL/EXTRACT ROUTINE -------------------------------------------------------------------------------- DIETETICS DISCHARGE SUMMARY DISCHARGE SUMMARY BRIEF GEC Completed Referral Count GEC Health Factor Category HF;PXRHS07(DFN,END,BEG,NUM,.GMTSARY) GLOBAL ASSESSMENT FUNCTIONING GAFHX;YSGAFAPI IMAGING IMPRESSION IMAGING IMPRESSION SELECTED IMAGING PROFILE IMAGING STATUS LAB BLOOD AVAILABILITY LAB BLOOD TRANSFUSIONS LAB CHEMISTRY & HEMATOLOGY LAB CUMULATIVE SELECTED LAB CUMULATIVE SELECTED 1 LAB CUMULATIVE SELECTED 2 HEALTH SUMMARY COMPONENT List DEC 28,2014@14:43 PAGE 3 NAME EXTERNAL/EXTRACT ROUTINE -------------------------------------------------------------------------------- LAB CUMULATIVE SELECTED 3 LAB CUMULATIVE SELECTED 4 LAB CYTOPATHOLOGY LAB ELECTRON MICROSCOPY LAB MICROBIOLOGY LAB MICROBIOLOGY BRIEF LAB ORDERS LAB ORDERS BRIEF LAB SURGICAL PATHOLOGY LAB TESTS SELECTED MAG IMAGING MAS ADMISSIONS/DISCHARGES MAS ADT HISTORY MAS ADT HISTORY EXPANDED MAS CLINIC VISITS FUTURE MAS CLINIC VISITS PAST HEALTH SUMMARY COMPONENT List DEC 28,2014@14:43 PAGE 4 NAME EXTERNAL/EXTRACT ROUTINE -------------------------------------------------------------------------------- MAS DEMOGRAPHICS MAS DEMOGRAPHICS BRIEF MAS DISABILITIES MAS DISCHARGE DIAGNOSIS MAS DISCHARGES MAS PROCEDURES ICD CODES MAS SURGERIES ICD CODES MAS TRANSFERS MAS TREATING SPECIALTY MEDICINE ABNORMAL BRIEF MEDICINE BRIEF REPORT MEDICINE FULL CAPTIONED MEDICINE FULL REPORT MEDICINE SUMMARY MENTAL HEALTH PHYSICAL EXAM MHA Administration List HEALTH SUMMARY COMPONENT List DEC 28,2014@14:43 PAGE 5 NAME EXTERNAL/EXTRACT ROUTINE -------------------------------------------------------------------------------- MHA Score MHV REMINDERS DETAIL DISPLAY MHV REMINDERS SUMMARY DISPLAY Medication Reconciliation Medication Worksheet NEXT OF KIN NOKC;GMTSDEM2 NON VA MEDICATIONS PSOHCSUM ONCOLOGY ORDERS CURRENT PCE EDUCATION PCE EDUCATION LATEST PCE EXAMS LATEST PCE HEALTH FACTORS ALL PCE HEALTH FACTORS SELECTED PCE IMMUNIZATIONS PCE LOCATION OF HOME HEALTH SUMMARY COMPONENT List DEC 28,2014@14:43 PAGE 6 NAME EXTERNAL/EXTRACT ROUTINE -------------------------------------------------------------------------------- PCE OUTPATIENT DIAGNOSIS PCE OUTPATIENT ENCOUNTERS PCE SKIN TESTS PCE TREATMENTS PROVIDED PHARMACY INTRAVENOUS PHARMACY OUTPATIENT PHARMACY UNIT DOSE PROBLEM LIST ACTIVE PROBLEM LIST ALL PROBLEM LIST INACTIVE PROGRESS NOTES PROGRESS NOTES BRIEF PROGRESS NOTES SELECTED Remote Active Medications Remote Allergy/ADR Data SOCIAL WORK HEALTH SUMMARY COMPONENT List DEC 28,2014@14:43 PAGE 7 NAME EXTERNAL/EXTRACT ROUTINE -------------------------------------------------------------------------------- SPINAL CORD DYSFUNCTION SURGERY NON OR PROCEDURES SURGERY ONLY REPORTS SURGERY REPORTS SURGERY REPORTS BRIEF SURGERY SEL NON OR PROCEDURES VEFA HOSPITAL ALL PAT CENSUS VITAL SIGNS EN1;GMVHS VITAL SIGNS DETAILED DISPLAY EN1;GMVHS VITAL SIGNS OUTPATIENT EN1;GMVHS VITAL SIGNS SELECTED EN1;GMVHS VITAL SIGNS SELECTED OUTPAT. Press RETURN to continue... Enter or Edit File Entries Print File Entries Search File Entries Modify File Attributes Inquire to File Entries Utility Functions ... Data Dictionary Utilities ... Transfer Entries Other Options ... Select VA FileMan Option: GMTSUP CONTAINS COMPONENT HEADER AND HS HEADER GMTSUP ; SLC/KER - Utilities for Paging HS ; 01/06/2003 ;;2.7;Health Summary;**2,7,21,27,28,30,35,47,56,58,85**;Oct 20, 1995;Build 24 ; ; External References ; DBIA 10026 ^DIR ; DBIA 82 EN^XQORM ; CKP ; Check page position, pause and prompt Q:$D(GMTSQIT) S GMTSNPG=0 K:$L($G(GMTSOBJ("LABEL"))) GMTSOBJ("REPORT HEADER") I $G(GMTSWRIT)=1 D BREAK S GMTSWRIT=0 I +($$HF^GMTSU) D BREAK:(GMTSEGN'=$G(GMTSLCMP)) Q Q:+$G(GMTSLPG)'>0&($Y'>(IOSL-GMTSLO)) I $E(IOST,1)="C" S:'$D(GMTSTOF) GMTSTOF=1 D CKP1 I '$D(GMTSQIT) W @IOF D HEADER,BREAK S GMTSNPG=1,GMTSTOF=GMTSEGN I $D(GMTSQIT),(GMTSQIT]""),($D(GMTSTYP)) W @IOF D HEADER S GMTSTOF=GMTSEGN Q CKP1 ; Help Display of Optional Components for Navigation N DA,I,J,K,L,X,XQORM,Y,GMTSY,TYP,DIC I $S('$D(GMTSTYP):1,$D(GMTOPT):1,1:0) N DIR S DIR(0)="E" D ^DIR K DIR S:$D(DUOUT)!(GMTSLPG) GMTSQIT="" Q S TYP=GMTSTYP S DIC=142,DIC(0)="MZF",X="GMTS HS ADHOC OPTION" S Y=$$TYPE^GMTSULT S GMTSTYP=+Y K DIC,X,Y S XQORM=GMTSTYP_";GMT(142,",XQORM(0)="1AF\+",XQORM("A")="Press <RET> to continue, ^ to exit, or select component: " S XQORM("??")="D HELP^GMTSUP1" I GMTSLPG,'$D(GMTSOBJ) W:'$D(GMTSOBJE) "* END * " S XQORM("S")="I $D(^GMT(142,DA(1),1,DA,0)),($P(^GMT(142.1,$P(^GMT(142,DA(1),1,DA,0),U,2),0),U,6)'=""T"")" D EN^XQORM W ! D @$S(Y=1:"BRNCH",1:"EVAL") I $D(GMTSY),(GMTSY=0) K GMTSY G CKP1 S GMTSTYP=TYP Q BREAK ; Writes the Component Header ; ; If the variable GMTSOBJ exist, then the ; Component Headers are suppressed with the ; following exceptions: ; ; If GMTSOBJ("COMPONENT HEADER") exist, ; then the Component Header will NOT be ; suppressed ; ; If GMTSOBJ("BLANK LINE") exist, a blank ; line will be written after the Component ; Header ; N GMTSM,GMTSF S GMTSM=$$MUL,GMTSF=$$FST I +GMTSM=0,$D(GMTSOBJ),'$D(GMTSOBJ("COMPONENT HEADER")),'$D(GMTSOBJ("BLANK LINE")) Q N GMTS,GMTSUL,GMTSL S:'$D(GMTSLCMP) GMTSLCMP=0 S GMTSUL="",GMTSNPG=1,GMTS=$$CHDR,GMTSL=+($L($G(GMTS))),$P(GMTSUL,"-",+GMTSL)="-" I $Y'>(IOSL-GMTSLO)!(+($$HF^GMTSU)) D . I $D(GMTSOBJ) D Q . . S GMTSLCMP=GMTSEGN . . I +($G(GMTSM))>0!($D(GMTSOBJ("COMPONENT HEADER"))) D . . . W:+GMTSF=0 ! W !,GMTS W:$D(GMTSOBJ("UNDERLINE")) !,GMTSUL . . . W ! W:$D(GMTSOBJ("BLANK LINE")) ! . W !,GMTS,! . W:$Y'>(IOSL-GMTSLO) ?34,$S(GMTSEGN=GMTSLCMP:"(continued)",1:""),! . S GMTSLCMP=GMTSEGN Q OLDB ; S:'$D(GMTSLCMP) GMTSLCMP=0 S GMTS="",GMTSNPG=1 S $P(GMTS,"-",79-$L(GMTSEGH_GMTSEGL)/2)="" S GMTS=GMTS_" "_GMTSEGH_GMTSEGL_" "_GMTS I $Y'>(IOSL-GMTSLO)!(+($$HF^GMTSU)) D . W !,GMTS,! . W:$Y'>(IOSL-GMTSLO) ?34,$S(GMTSEGN=GMTSLCMP:"(continued)",1:""),! . S GMTSLCMP=GMTSEGN Q HEADER ; Print Running Header ; ; If the variable GMTSOBJ exist, then the ; Report Headers are suppressed with the ; following exceptions: ; ; If GMTSOBJ("DATE LINE") exist, then the ; Location/Report Date line will NOT be ; suppressed. ; ; If GMTSOBJ("CONFIDENTIAL") exist, then ; the Confidential Header Name line will ; NOT be suppressed. ; ; If GMTSOBJ("REPORT HEADER") exist, then ; the Report Header containing the patient's ; name, SSAN, ward and DOB will NOT be ; suppressed. ; ; If the variable GMTSOBJ("LABEL") contains ; text, and the variable GMTSOBJ("USE LABEL") ; exist, then this text will be printed before ; the object text. ; ; If GMTSOBJ("REPORT DECEASED") exist, then ; the optional line that displays for Deceased ; patients will NOT be suppressed. ; ; Header Lines: N GMTSVDT,DATA S DATA="" I +$G(GMTSPXD1)&+$G(GMTSPXD2) D . Q:$G(GMTSOBJ) S:'$D(GMTSOBJE) DATA="Printed for data " S:$D(GMTSOBJE) DATA="Include data " . I GMTSPXD1=GMTSPXD2 S DATA=DATA_"on "_GMTSPXD1 Q . S DATA=DATA_"from "_GMTSPXD2_" to "_GMTSPXD1 I $D(GMTSCDT(0)),'$D(GMTSOBJ) S GMTSVDT=GMTSCDT(0) S:GMTSDTM'["Printed:" GMTSDTM="Printed: "_GMTSDTM ; Location and Date of Report I '$D(GMTSOBJ)!($D(GMTSOBJ("DATE LINE"))) D . N GMTSLOC S GMTSLOC=$S('$D(GMTSOBJ("DATE LINE")):$P($G(GMTSSC),U,2),1:"") . W !,$S($L(GMTSLOC):"Location: "_GMTSLOC_" ",1:"") . W $S($D(GMTSVDT):GMTSVDT,1:"") . W:'$D(GMTSOBJ("DATE LINE")) DATA,?(79-$L(GMTSDTM)),GMTSDTM . W:$D(GMTSOBJ("DATE LINE")) DATA,?(74-$L(GMTSDTM)),GMTSDTM ; Confidential Header Name S:'$D(GMTSPG) GMTSPG=0 S GMTSPG=GMTSPG+1,GMTSHDR=" CONFIDENTIAL "_GMTSTITL_" SUMMARY " S GMTSHDR=GMTSHDR_$S($E(IOST,1)="C":"",1:" pg. "_GMTSPG) S GMTS="" S:'$D(GMTSOBJ) $P(GMTS,"*",(77-$L(GMTSHDR))\2)="*" S:$D(GMTSOBJ) $P(GMTS,"*",(72-$L(GMTSHDR))\2)="*" S GMTSHDR=GMTS_" "_GMTSHDR_" "_GMTS I '$D(GMTSOBJ)!($D(GMTSOBJ("CONFIDENTIAL"))) W !,GMTSHDR,"*" ; Name, SSAN, Ward, DOB I '$D(GMTSLFG) D .I $G(GMTSTITL)'["AD HOC",($G(GMTSTITL)'["PDX"),($G(HSTAG)="") D EN^GMTSHCPR ;GMTS,85 restrict ssn/dob on HS Type hard copies . I $G(GMTSPHDR("TWO")) D . . I $D(GMTSOBJ),'$D(GMTSOBJ("REPORT HEADER")),$L($G(GMTSOBJ("LABEL"))) D LABEL . . I $D(GMTSOBJ),'$D(GMTSOBJ("REPORT HEADER")) Q . . W !,GMTSPHDR("NMSSN"),?GMTSPHDR("DOBS"),GMTSPHDR("DOB") . . W !,?GMTSPHDR("WARDRBS"),GMTSPHDR("WARDRB") . E D . . I $D(GMTSOBJ),'$D(GMTSOBJ("REPORT HEADER")),$L($G(GMTSOBJ("LABEL"))) D LABEL . . I $D(GMTSOBJ),'$D(GMTSOBJ("REPORT HEADER")) Q . . W !,GMTSPHDR("NMSSN"),?GMTSPHDR("WARDRBS") . . W GMTSPHDR("WARDRB"),?GMTSPHDR("DOBS"),GMTSPHDR("DOB") ; Deceased ; I '$D(GMTSOBJ)!($D(GMTSOBJ("DECEASED"))) D . W:+$G(VADM(6)) !,?26,"** DECEASED "_$P(VADM(6),U,2)_" **" W:'$D(GMTSOBJ) ! Q BRNCH ; Checks abbreviation to branch to a different component N GMTINX,LIM,CREC,SBS I Y,("+-"[X) S:X="-" GMTSEGN=GMTSTOF-1 S (GMTSY,GMTSQIT)=1,GMTSLPG=0 Q I X="^^" S DIROUT=1,GMTSQIT="" Q I Y,(X?1"^^".E) Q S GMTINX=$S($D(^GMT(142,GMTSTYP,1,+Y(1),0)):$P(^(0),U,2),1:"") I 'GMTINX S GMTSY=0 Q I '$D(GMTSEGI(GMTINX)) N GMI,GMJ,GMTSDFLT S GMI=1,GMJ=GMTSEGC,GMTSDFLT=1 D LOAD^GMTSADH S GMTSEGC=GMTSEGC+1 I '$D(GMTSEGI(GMTINX)) S GMTINX="",GMTSY=0 Q S LIM=$P(Y(1),U,4) I LIM'["=" G NOLIM S CREC=^GMT(142.1,GMTINX,0),SBS=GMTSEGI(GMTINX) D CMPLIM^GMTSADH2 I $D(DIROUT) S GMTSQIT="" Q NOLIM ; No limits S GMTSEGN=GMTSEGI(GMTINX)-1,(GMTSY,GMTSQIT)=1,GMTSLPG=0 Q ; EVAL ; Evaluate input to determine quit or continue Q:'$D(X) S:$D(GMTSEXIT) GMTSEXIT=$G(X) S:$D(DTOUT) DIROUT=1 I $S(X="^^":1,GMTSLPG:1,$D(DIROUT):1,X="^":1,1:0) S GMTSQIT="" I +$G(GMPSAP),(X="^") S GMDUOUT=1 Q MUL(X) ; Multiple Components in Type N GMTSF,GMTSL S GMTSF=$O(GMTSEG(0)),GMTSL=$O(GMTSEG(" "),-1) Q:+GMTSF=+GMTSL 0 Q 1 FST(X) ; First Component in Type N GMTSF,GMTSL S GMTSF=$O(GMTSEG(0)),GMTSL=+($G(GMTSEGN)) Q:+GMTSF=+GMTSL 1 Q 0 CHDR(X) ; Component Header N GMTSN,GMTSH,GMTSL,GMTS S GMTSN=$$CNAM,GMTSH=$G(GMTSEGH) S GMTSL=$G(GMTSEGL),GMTS="",$P(GMTS,"-",79-$L(GMTSH_GMTSL)/2)="" S X=GMTS_" "_GMTSH_GMTSL_" "_GMTS Q:'$D(GMTSOBJ) X S:$L(GMTSH)&($D(GMTSOBJ("COMPONENT HEADER"))) GMTSN=GMTSH S:$L(GMTSL)&($L(GMTSN))&($D(GMTSOBJ("LIMITS"))) GMTSN=GMTSN_" "_GMTSL S X=GMTSN Q X CNAM(X) ; Component Name N GMTSH S GMTSH=+($P($G(GMTSEG(+($G(GMTSEGN)))),"^",2)) S X=$P($G(^GMT(142.1,+GMTSH,0)),"^",1) Q X LABEL ; Label Q:'$D(GMTSOBJ("USE LABEL")) N LABEL S LABEL=$G(GMTSOBJ("LABEL")) W !,LABEL W:$L(LABEL) ! W:$D(GMTSOBJ("LABEL BLANK LINE")) ! Q LABDAT ; Label/Date Q:'$D(GMTSOBJ("USE LABEL")) N LABEL S LABEL=$G(GMTSOBJ("LABEL")) I '$D(GMTSOBJ("DATE LINE")),$D(GMTSOBJ("LABEL")),$L(LABEL),$L($G(GMTSDTM)) S LABEL=LABEL_$J("",((79-$L(GMTSDTM))-$L(LABEL)))_GMTSDTM I '$D(GMTSOBJ("DATE LINE")),$D(GMTSOBJ("LABEL")),'$L(LABEL),$L($G(GMTSDTM)) S LABEL="Information as of "_$G(GMTSDTM) W !,LABEL W:$L(LABEL) ! W:$D(GMTSOBJ("LABEL BLANK LINE")) ! Q GMTSU CONTAINS DEMOGRAPHICS GMTSU ; SLC/JER,KER/NDBI - Health Summary Utilities ; 08/27/2002 ;;2.7;Health Summary;**27,28,31,35,37,43,47,56**;Oct 20, 1995 ; ; External References ; DBIA 10096 ^%ZOSF("TEST") ; DBIA 2934 ^A7RCP (NDBI Global) ; DBIA 10103 $$FMTE^XLFDT ; DBIA 10103 $$FMTHL7^XLFDT ; DBIA 10103 $$HL7TFM^XLFDT ; DBIA 10061 OERR^VADPT ; DBIA 10104 $$UP^XLFSTR ; DBIA 10026 ^DIR ; DBIA 2052 FILE^DID ; DBIA 10022 %XY^%RCR ; DBIA 2055 $$VFIELD^DILFD ; DBIA 2052 $$GET1^DID ; PROK(X,Y) ; Routine and Patch # OK (in UCI) N GMTS,GMTSI,GMTSO S X=$G(X),Y=$G(Y) Q:'$L(X) 0 Q:Y'=""&(+Y=0) S Y=+Y,GMTS=$$ROK(X) Q:'GMTS 0 Q:+Y=0 1 S GMTSO=0,GMTS=$T(@("+2^"_X)),GMTS=$P($P(GMTS,"**",2),"**",1) F GMTSI=1:1:$L(GMTS,",") S:+($P(GMTS,",",GMTSI))=Y GMTSO=1 Q:GMTSO=1 S X=GMTSO Q X ROK(X) ; Routine OK (in UCI) (NDBI) S X=$G(X) Q:'$L(X) 0 Q:$L(X)>8 0 X ^%ZOSF("TEST") Q:$T 1 Q 0 NDBI(X) ; National Database Integration site 1 = yes 0 = no N R,G S X="A7RDUP" X ^%ZOSF("TEST") S R=$T,G=$S($D(^A7RCP):1,1:0),X=R+G,X=$S(X=2:1,1:0) Q X ; CPT(X) ; Use CPT Modifiers Needs GMTSEG Array S X=+($G(X)) N GMTSN,GMTSC,GMTSM,GMTSA,GMTSI S GMTSN=$G(GMTSEG(X)) S GMTSC=+($P(GMTSN,"^",2)) Q:'GMTSC 0 S GMTSM=$S($P(GMTSN,"^",9)="N":0,$P(GMTSN,"^",9)="":1,1:1) Q:'GMTSM 0 S GMTSA=$S(+($$CMU(+GMTSC))>0:1,1:0) Q:'GMTSA 0 Q 1 CMU(X) ; Component Uses CPT Modifiers N GMTSA,GMTSN,GMTSI S X=$G(X) Q:'$L(X) 0 S GMTSI=+X,GMTSA=$O(^GMT(142.1,"C",X,0)),GMTSN=$O(^GMT(142.1,"D",X,0)) S:GMTSI=0&(+GMTSA>0) GMTSI=GMTSA S:GMTSI=0&(+GMTSN>0) GMTSI=GMTSN Q:+GMTSI=0 0 S GMTSA=$S($P($G(^GMT(142.1,+GMTSI,0)),"^",14)="Y":1,1:0) Q:'GMTSA 0 Q 1 ; ; Dates and Time ED(X) ; Health Summary External Date S X=$G(X) Q:'$L(X) "" D REGDT4 Q X EDT(X) ; Health Summary External Date and Time S X=$G(X) Q:'$L(X) "" D REGDTM4 Q X REGDT ; Receives X FM date and returns X in MM/DD/YY format S X=$TR($$FMTE^XLFDT(X,"2DZ"),"@"," ") Q REGDT4 ; Receives X FM date and returns X in MM/DD/YYYY format S X=$TR($$FMTE^XLFDT(X,"5DZ"),"@"," ") Q REGDTM ; Receives X FM date and returns X in MM/DD/YY TT:TT S X=$TR($$FMTE^XLFDT(X,"2ZM"),"@"," ") Q REGDTM4 ; Receives X FM date and returns X in MM/DD/YYYY TT:TT S X=$TR($$FMTE^XLFDT(X,"5ZM"),"@"," ") Q SIDT ; Receives X FM date and returns X in DD MMM YY N MON,MM S X=$P(X,".") S:'X X="" Q:'$L(X) S MON="JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC" S MM=$E(X,4,5),MM=$S(MM:$P(MON,U,+MM),1:"") S X=$E(X,6,7)_" "_MM_" "_$E(X,2,3) Q MTIM ; Convert Time from X=2890313.1304 to X=13:04 S X=$P(X,".",2) Q:'$L(X) S X=$S(X:$E(X,1,2)_$E("00",0,2-$L($E(X,1,2)))_":"_$E(X,3,4)_$E("00",0,2-$L($E(X,3,4))),1:"") Q ; HF(X) ; Host File - Used to distinguish from Host Files that ; are intended for Printers and Host Files for other ; purposes (windows/files) ; ; 1 - if Device Type is HFS and not a TCP/IP Printer ; 0 - if Device Type is not HFS or device is a Printer ; ; Check Device ; Check Host File Server Q:$G(IOT)'="HFS" 0 ; Check ORWINDEV (Post OR*3.0*85) N GMTS85 S GMTS85=$$PROK("ORWRP",85) Q:+($G(GMTS85))>0&(+($G(ORWINDEV))>0) 0 ; Host File for GUI Scrollable Window Q:$E($G(ION),1,14)["OR WORKSTATION" 1 ; TCP/IP Printer Q:$G(IO)["$PRT"!($G(IO)["PRN|") 0 ; Windows Printer Q:$E($G(ION),1,14)["OR WINDOWS HFS" 0 ; Host Files (file or unspecifed printer) S X=0 S:$G(ION)["HOST FILE" X=1 S:$E($G(IOST),1,5)["P-OTH" X=1 Q X ; FMHL7DTM ; Convert X - int date/time to HL7 CCYYMMDDHHMM-HHHH S X=$$FMTHL7^XLFDT(+($G(X))) Q HL7FMDTM ; Convert X - HL7 CCYYMMDDHHMM-HHHH to int date/time local S X=$$HL7TFM^XLFDT($G(X),"L") Q ; DEM ; Gets Demographic Data from VADPT ; ; Input DFN ; ; Output GMTSPNM Patient Name ; GMTSSN Social Security Number ; GMTSDOB Date of Birth ; SEX Sex ; GMTSWARD Ward ; GMTSRB Bed ; GMTSAGE Age ; VADM() Demographic Array ; VAIN() Inpatient Array ; GMTSPHDR() Report Header Array ; K VAHOW D OERR^VADPT S GMTSPNM=VADM(1),GMTSSN=$S($D(VA("PID")):VA("PID"),1:$P(VADM(2),"^",2)) S GMTSAGE=$S(+VADM(4)>0:+VADM(4),1:99),SEX=$P(VADM(5),"^") S GMTSWARD=$P(VAIN(4),"^",2),GMTSRB=VAIN(5) S X=$P(VADM(3),"^") D REGDT4 S GMTSDOB=X K VA,GMTSPHDR N DOB,LWARDRB,NMSSN,NMSSNE,WARDRB,WARDRBE,WARDRBS S NMSSN=GMTSPNM_" "_GMTSSN,NMSSNE=$L(NMSSN)+2,WARDRB=GMTSWARD_" "_GMTSRB S LWARDRB=$L(WARDRB),WARDRBS=40-(LWARDRB/2),WARDRBE=WARDRBS+LWARDRB S DOB="DOB: "_GMTSDOB,GMTSPHDR("NMSSN")=NMSSN,GMTSPHDR("WARDRB")=WARDRB S GMTSPHDR("WARDRBS")=WARDRBS,GMTSPHDR("DOB")=DOB,GMTSPHDR("DOBS")=64 I (NMSSNE'<WARDRBS)!(WARDRBE'<64) S GMTSPHDR("TWO")=1 Q ; NAME(X,Y,L) ; Format name ; ; Input ; X Internal Entry Number of NEW PERSON file 200 ; Y Flag to specify the first name format ; 0 for First Name Initial (only) ; 1 for First Name ; L Maximum Length of Name ; ; Output Last,First (name/initial) to specified length ; N RAWNM,LAST,FIRST,ALPHA,PSN,CH,IEN,FNF,LEN S IEN=+($G(X)),FNF=+($G(Y)),LEN=+($G(L)) S RAWNM=$$UNAM^GMTSU2(+IEN) S:LEN=0 LEN=$L(RAWNM) S RAWNM=$S($L(RAWNM):RAWNM,1:"UNKNOWN") S LAST=$P(RAWNM,","),FIRST=$P(RAWNM,",",2),ALPHA=0 I $L(FIRST) D . F PSN=1:1 S CH=$E(FIRST,PSN) Q:CH="" S:CH?1A ALPHA=PSN Q:ALPHA>0 S:ALPHA>0 FIRST=$E(FIRST,ALPHA,$L(FIRST)) S:'FNF FIRST=$E(FIRST,1) S X=$S($L(FIRST):LAST_","_FIRST,1:LAST),X=$E(X,1,LEN) Q X GETRANGE(FROMDATE,TODATE) ; Select Date Range (from and to dates) N DIR,X,Y,DTOUT,DIRUT S DIR(0)="DO^:DT",DIR("A")="Enter Beginning Date (MM/DD/YY)" W ! D ^DIR I $D(DIROUT)!$D(DUOUT)!$D(DTOUT)!$D(DIRUT) W ! Q S FROMDATE=Y I +FROMDATE>0 D . W " (",$$UP^XLFSTR($$FMTE^XLFDT(+FROMDATE,1)),")" . N DIR,X,Y S DIR(0)="DO^::EX",DIR("A")="Enter Ending Date (MM/DD/YY)" S DIR("B")="TODAY" . D ^DIR I $D(DIROUT)!$D(DUOUT)!$D(DTOUT)!$D(DIRUT) K FROMDATE Q . I Y'>0 K FROMDATE Q . S TODATE=Y Q:TODATE>FROMDATE!(TODATE=FROMDATE) . N FRDT S FRDT=FROMDATE,FROMDATE=TODATE,TODATE=FRDT W ! Q ; OED() ; Other Editor - DIC("S") N COMP,OTHER,OWNER,OWNN,USER,AUSER,NAT S COMP=+($G(DA(1))) Q:'$D(^GMT(142,+COMP,0)) 0 S OWNER=$P($G(^GMT(142,+COMP,0)),"^",3),OWNN=$$UNAM^GMTSU2(OWNER),NAT=+($P($G(^GMT(142,+COMP,"VA")),"^",1)),USER=+($G(DUZ)),AUSER=$$UACT^GMTSU2(+USER),OTHER=+($G(X)) ; If National Component and Uneditable W:+NAT=2 !!," Nationally exported Health Summary Type (uneditable)",! Q:+NAT=2 0 ; If OWNER is special case (national, uneditable) W:+OWNER>0&(OWNER<1)&(NAT'=1) !!," OWNER does not allow 'OTHER EDITORS'",! Q:+OWNER>0&(OWNER<1)&(NAT'=1) 0 ; If OWNER is special case (national, editable) Q:+OWNER>0&(OWNER<1)&(OWNER=USER)&(NAT=1) 1 ; If DUZ is inactive, or not the owner, quit W:+AUSER=0!(+OWNER=0)!(+OWNER'=+USER) !!," Only the OWNER may assign 'OTHER EDITORS'",! Q:+AUSER=0!(+OWNER=0)!(+OWNER'=+USER) 0 ; If OTHER is inactive user, quit S AUSER=$$UACT^GMTSU2(OTHER) W:+AUSER=0!(+OTHER'>.999999999) !!," Selected 'OTHER EDITOR' is not an active user",! Q:+AUSER=0!(+OTHER'>.999999999) 0 ; If OTHER=OWNER, quit W:+OTHER=+OWNER !!," ",OWNN," is the OWNER",! Q:+OTHER=+OWNER 0 Q 1 ; FCLR(X) ; File Closed Root S X=$G(X) Q:+X=0 "" N GMTSL S GMTSL=$$FLOC(X),X=$S($E(GMTSL,$L(GMTSL))=",":$P(GMTSL,",")_")",1:$E(GMTSL,1,$L(GMTSL)-1)) Q:'$L(X) "" S:'$D(@X) X="" Q X FSFN(X) ; File/Sub-File Name N FI,FR,%X,%Y S FI=$G(X) Q:+X=0 "" N DIERR,GMTSN,GMTSE D FILE^DID(+FI,"N","NAME","GMTSN","GMTSE") S X="" S:'$D(DIERR) X=$$UP^XLFSTR($G(GMTSN("NAME"))) Q:$L(X) X K FR S %X="^DD("_+($G(FI))_",0,""NM"",",%Y="FR(" D %XY^%RCR S X=$$UP^XLFSTR($O(FR(""))) S:+X>0 X="" S:$L(X) X=X_" SUB-FILE" Q X FNAM(X) ; File Name S X=$G(X) Q:+X=0 "" N DIERR,GMTSN,GMTSE D FILE^DID(+X,"N","NAME","GMTSN","GMTSE") S X="" S:'$D(DIERR) X=$G(GMTSN("NAME")) Q X FLOC(X) ; File location S X=$G(X) Q:+X=0 "" N DIERR,GMTSN,GMTSE D FILE^DID(+X,"N","GLOBAL NAME","GMTSN","GMTSE") S X="" S:'$D(DIERR) X=$G(GMTSN("GLOBAL NAME")) Q X FHDD(X) ; File has a DD? S X=+($G(X)) Q:+($G(X))=0 0 S X=$$VFIELD^DILFD(X,.01),X=$S($L(X):1,1:0) Q X FLDN(X,Y) ; Field Name Q:+($G(X))=0!(+($G(Y))=0) "" S X=$$GET1^DID(+($G(X)),+($G(Y)),,"LABEL") Q X FLDS(X,Y) ; Field Set of Codes Q:+($G(X))=0!(+($G(Y))=0) "" Q:$$GET1^DID(+($G(X)),+($G(Y)),,"TYPE")'="SET" "" S X=$$GET1^DID(+($G(X)),+($G(Y)),,"POINTER") Q X FLDI(X,Y) ; Field Input Transform Q:+($G(X))=0!(+($G(Y))=0) "" S X=$$GET1^DID(+($G(X)),+($G(Y)),,"INPUT TRANSFORM") Q X Output from what File: OE/RR REPORT// health summary compoNENT (109 entries) Select HEALTH SUMMARY COMPONENT NAME: VEFA HOSPITAL ALL PAT CENSUS Another one: Standard Captioned Output? Yes// (Yes) Include COMPUTED fields: (N/Y/R/B): NO// - No record number (IEN), no Computed Fields NUMBER: 250008 NAME: VEFA HOSPITAL ALL PAT CENSUS PRINT ROUTINE: ENAD;GMTSDGA TIME LIMITS APPLICABLE: yes ABBREVIATION: ADC MAXIMUM OCCURRENCES APPLICABLE: yes DEFAULT HEADER NAME: Admission/Discharge DESCRIPTION: This component contains information from the MAS package. Time and occurrence limits apply to this component. Data presented include: date range of admission, ward, length of stay (LOS), last treating specialty, last provider, admitting diagnosis text, bedsection, principal diagnosis, diagnosis for longest length of stay (DXLS), and secondary ICD diagnoses. Select HEALTH SUMMARY COMPONENT NAME: Select HEALTH SUMMARY COMPONENT NAME: MAS ADMISSIONS/DISCHARGES Another one: Standard Captioned Output? Yes// (Yes) Include COMPUTED fields: (N/Y/R/B): NO// - No record number (IEN), no Computed Fields NUMBER: 10 NAME: MAS ADMISSIONS/DISCHARGES PRINT ROUTINE: ENAD;GMTSDGA TIME LIMITS APPLICABLE: yes ABBREVIATION: ADC MAXIMUM OCCURRENCES APPLICABLE: yes DEFAULT HEADER NAME: Admission/Discharge DESCRIPTION: This component contains information from the MAS package. Time and occurrence limits apply to this component. Data presented include: date range of admission, ward, length of stay (LOS), last treating specialty, last provider, admitting diagnosis text, bedsection, principal diagnosis, diagnosis for longest length of stay (DXLS), and secondary ICD diagnoses. Select HEALTH SUMMARY COMPONENT NAME: IN CPRS30A elect HEALTH SUMMARY COMPONENT NAME: MAS ADMISSIONS/DISCHARGES ANOTHER ONE: STANDARD CAPTIONED OUTPUT? Yes// (Yes) Include COMPUTED fields: (N/Y/R/B): NO// - No record number (IEN), no Computed Fields NUMBER: 10 NAME: MAS ADMISSIONS/DISCHARGES PRINT ROUTINE: ENAD;XXXXDGA TIME LIMITS APPLICABLE: yes ABBREVIATION: ADC MAXIMUM OCCURRENCES APPLICABLE: yes DEFAULT HEADER NAME: Admission/Discharge PREFIX: DG EXTERNAL/EXTRACT ROUTINE: FADM;GMTSDGA2 EXTERNAL/EXTRACT ROUTINE: GETFADM;GMTSDGA2 EXTERNAL/EXTRACT ROUTINE: IN5;VADPT EXTERNAL/EXTRACT ROUTINE: 6;VADPT0 EXTERNAL/EXTRACT ROUTINE: 6;VADPT3 DESCRIPTION: This component contains information from the MAS package. Time and occurrence limits apply to this component. Data presented include: date range of admission, ward, length of stay (LOS), last treating specialty, last provider, admitting diagnosis text, bedsection, principal diagnosis, diagnosis for longest length of stay (DXLS), and secondary ICD diagnoses. New Report Select OPTION: INQUIRE TO FILE ENTRIES OUTPUT FROM WHAT FILE: OE/RR REPORT// Select OE/RR REPORT NAME: ORRPW MAS ADMISSIONS Admissions Summary Adm issions Summary ANOTHER ONE: STANDARD CAPTIONED OUTPUT? Yes// (Yes) Include COMPUTED fields: (N/Y/R/B): NO// - No record number (IEN), no Computed Fields NUMBER: 1605 NAME: ORRPW MAS ADMISSIONS ID: OR_ADM QUALIFIER: HSWPComponent ROUTINE: ORDV01 ENTRY POINT: HSQUERY CATEGORY: LISTVIEW TAB: REPORTS TAB TYPE: LISTVIEW RPC: ORWRP REPORT TEXT REPORT TAG: DGMADM REPORT ROUTINE: XXX1DGA REPORT COMPONENT: MAS ADMISSIONS/DISCHARGES HEADING: Admissions Summary DESCRIPTIVE TEXT: Admissions Summary PRINT TAG: HSTYPEB PRINT ROUTINE: ORWRPP1 EXTRACT TAG: TADM EXTRACT ROUTINE: XXX1DGA COLUMN HEADERS: Patient Name SEQUENCE: 1 PRINT LENGTH: 17 INCLUDE ON PRINT: YES COLUMN HEADERS: Unit SEQUENCE: 2 PRINT LENGTH: 5 INCLUDE ON PRINT: YES PRINT TITLE: Unit COLUMN HEADERS: Ward Room/Bed SEQUENCE: 3 PRINT LENGTH: 14 INCLUDE ON PRINT: YES PRINT TITLE: Ward/Room Bed COLUMN HEADERS: Admit Date SEQUENCE: 6 PRINT LENGTH: 10 INCLUDE ON PRINT: YES PRINT TITLE: Admit Date Enter RETURN to continue or '^' to exit: COLUMN HEADERS: Physician SEQUENCE: 4 PRINT LENGTH: 10 INCLUDE ON PRINT: YES PRINT TITLE: Physician COLUMN HEADERS: Referral Source SEQUENCE: 5 PRINT LENGTH: 20 INCLUDE ON PRINT: YES PRINT TITLE: Referral Source COLUMN HEADERS: Legal SEQUENCE: 9 PRINT LENGTH: 5 INCLUDE ON PRINT: YES PRINT TITLE: Legal COLUMN HEADERS: LOS SEQUENCE: 7 PRINT LENGTH: 4 INCLUDE ON PRINT: YES PRINT TITLE: LOS COLUMN HEADERS: Type of Insurance SEQUENCE: 8 PRINT LENGTH: 19 INCLUDE ON PRINT: YES PRINT TITLE: Type of Insurance COLUMN HEADERS: Authorized Days SEQUENCE: 10 PRINT LENGTH: 16 INCLUDE ON PRINT: YES PRINT TITLE: Authorized Days SORT ORDER: 3:5 Latest: OUTPUT FROM WHAT FILE: OE/RR REPORT// Select OE/RR REPORT NAME: ORRPW MAS ADMISSIONS Admissions Summary Admi ssions Summary ANOTHER ONE: STANDARD CAPTIONED OUTPUT? Yes// (Yes) Include COMPUTED fields: (N/Y/R/B): NO// - No record number (IEN), no Computed Fields NUMBER: 1605 NAME: ORRPW MAS ADMISSIONS ID: OR_ADM QUALIFIER: HSWPComponent ROUTINE: ORDV01 ENTRY POINT: HSQUERY CATEGORY: LISTVIEW TAB: REPORTS TAB TYPE: LISTVIEW RPC: ORWRP REPORT TEXT REPORT TAG: DGMADM REPORT ROUTINE: XXX1DGA REPORT COMPONENT: MAS ADMISSIONS/DISCHARGES HEADING: Admissions Summary DESCRIPTIVE TEXT: Admissions Summary PRINT TAG: HSTYPEB PRINT ROUTINE: ORWRPP1 EXTRACT TAG: TADM EXTRACT ROUTINE: XXX1DGA COLUMN HEADERS: Patient Name SEQUENCE: 2 PRINT LENGTH: 17 INCLUDE ON PRINT: YES COLUMN HEADERS: Unit SEQUENCE: 3 PRINT LENGTH: 5 INCLUDE ON PRINT: YES PRINT TITLE: Unit COLUMN HEADERS: Ward Room/Bed SEQUENCE: 4 PRINT LENGTH: 14 INCLUDE ON PRINT: YES PRINT TITLE: Ward/Room Bed COLUMN HEADERS: Admit Date SEQUENCE: 7 PRINT LENGTH: 10 INCLUDE ON PRINT: YES PRINT TITLE: Admit Date Enter RETURN to continue or '^' to exit: COLUMN HEADERS: Physician SEQUENCE: 5 PRINT LENGTH: 10 INCLUDE ON PRINT: YES PRINT TITLE: Physician COLUMN HEADERS: Referral Source SEQUENCE: 6 PRINT LENGTH: 20 INCLUDE ON PRINT: YES PRINT TITLE: Referral Source COLUMN HEADERS: Legal SEQUENCE: 10 PRINT LENGTH: 5 INCLUDE ON PRINT: YES PRINT TITLE: Legal COLUMN HEADERS: LOS SEQUENCE: 8 PRINT LENGTH: 4 INCLUDE ON PRINT: YES PRINT TITLE: LOS COLUMN HEADERS: Type of Insurance SEQUENCE: 9 PRINT LENGTH: 19 INCLUDE ON PRINT: YES PRINT TITLE: Type of Insurance COLUMN HEADERS: Authorized Days SEQUENCE: 11 PRINT LENGTH: 16 INCLUDE ON PRINT: YES PRINT TITLE: Authorized Days COLUMN HEADERS: Facility SEQUENCE: 1 PRINT LENGTH: 20 INCLUDE ON PRINT: YES PRINT TITLE: Facility Enter RETURN to continue or '^' to exit: COLUMN HEADERS: Sequence SEQUENCE: 1.5 PRINT LENGTH: 20 INCLUDE ON PRINT: YES PRINT TITLE: Sequence # SORT ORDER: 3:5 Sequence # 1 and 1.5 take up just filling in Facility COLUMNS HEADER Logged On Value with automatic added x.xx sequence numberextra column value put into unfilled sEQUENCE # column header Select OE/RR REPORT NAME: INSTRUCTIONS: Load VEFA_ADM_1_0.KID Add ORRPW MAS ADMISSION oe/rr report by package to parameter ORWRP REPORT LIST List of reports ASTRON>D ^XQ1 Select OPTION NAME: XPAR EDIT 1 XPAR EDIT BY TEMPLATE Edit Parameter Values with Template 2 XPAR EDIT KEYWORD Edit Parameter Definition Keyword 3 XPAR EDIT PARAMETER Edit Parameter Values CHOOSE 1-3: 3 XPAR EDIT PARAMETER Edit Parameter Values Edit Parameter Values --- Edit Parameter Values --- Select PARAMETER DEFINITION NAME: ORWRP REPORT LIST Select Sequence: ? Sequence Value -------- ----- 1 TMG GROWTH CHARTS 1.1 TMG WHO GROWTH CHARTS 2 ORRPW REPORT CATEGORIES 3 TMG GROWTH CHARTS 3.1 TMG WHO GROWTH CHARTS 4 TMG GROWTH CHARTS 4.1 TMG WHO GROWTH CHARTS 5 ORRP HEALTH SUMMARY 6 ORRPW HDR 8 ORRPW DOD 10 ORRP IMAGING 12 ORWG GRAPHING 15 ORRP LAB STATUS 20 ORRP BLOOD BANK 25 ORRP AP ALL 30 ORRP DIETETICS PROFILE 35 ORRP NUTRITIONAL ASSESS 40 ORRP VITALS CUM 45 ORRP PROCEDURES 50 ORRP DAILY ORDER SUMMARY Type <Enter> to continue or '^' to exit: 55 ORRP ORDER SUM FOR A DATE RNG 60 ORRP CHART COPY SUMMARY 65 ORRP OUTPATIENT RX PROFILE 70 ORRP BCMA MED LOG 75 ORRP BCMA MAH 80 ORRP SURGERIES 85 ORRP ECS Sequence #: 1 Select Sequence: 1 Are you adding 1 as a new Sequence? Yes// YES Sequence: 1// 1 Report:ORRPW MAS ADMISSION Routines: XXXXDGA ; SLC/MKB,KER/NDBI - Admissions for HS ; 03/24/2004 ;;2.7;Health Summary;**28,49,71**;Oct 20, 1995 ; ; External Reference ; DBIA 3390 $$ICDDX^ICDCODE ; DBIA 17 ^DGPM("ATID" ; DBIA 1372 ^DGPT( ; DBIA 10082 ^ICD9( ; DBIA 2929 DSP^A7RHSM ; DBIA 2929 LST^A7RHSM ; DBIA 512 ^DGPMLOS ; DBIA 10061 IN5^VADPT ; DBIA 10061 KVAR^VADPT ; ENAD ; Gets Admission Information S TT=1,FLGDX=0,FLGDC=0 D PATINFO Q ENDC ; Discharge Information S TT=3,FLGDC=1,FLGDX=0 D PATINFO Q ENDX ; PTF Discharge Diagnosis S TT=3,FLGDX=1,FLGDC=0 D PATINFO Q ENTS ; Treating Speciality Information S TT=6,FLGDX=0,FLGDC=0 D PATINFO Q ENTR ; Transfers S TT=2,FLGDX=0,FLGDC=0 D PATINFO Q PATINFO ; Patient Information N DFN1,RGMTS1,STATION ;S ^XTMP("HE")=1 S VA200=1 K DIQ I $D(GMTSNDM),GMTSNDM>0 S CNTR=GMTSNDM E S CNTR=100 ;PUT A HEADER S STATION=$P($G(^DIC(4,DUZ(2),99)),"^",1) ;GOTO OVER W "STATION= "_STATION,?15,"INSTITUTION= "_DUZ(2)_" AS "_$P($G(^DIC(4,DUZ(2),0)),"^",1),! S GMC=-1,GMN="",ADM=9999999.99-GMTS2,FLAG=0 S RGMTS1=9999999.99-GMTS1 ;S ^XTMP("HE")=GMTS1_"^"_GMTS2 ;I TT=1 D FADM^GMTSDGA2 D:$$ROK^GMTSU("A7RHSM")&($$NDBI^GMTSU) LST^A7RHSM(DFN,.A7RHS) F S ADM=$O(^DGPM("AMV"_TT,ADM)) Q:('ADM!(ADM>RGMTS1)!($D(GMTSQIT))) D .S ^XTMP("HE")=2 .S DFN1=0 F S DFN1=$O(^DGPM("AMV"_TT,ADM,DFN1)) Q:DFN1="" D ..D:$$ROK^GMTSU("A7RHSM")&($$NDBI^GMTSU) DSP^A7RHSM(ADM) D GET Q:$D(GMTSQIT)!($G(CNTR)<0) D KILLADM K:$$NDBI^GMTSU A7RHS Q GET ; Admission Data N VAHOW I TT=1 S DFN=DFN1 D FADM^GMTSDGA2 S ORDFN=DFN D DEM^GMTSU ;D HSTYPEB^ORWRPP1 S ADA=$O(^DGPM("AMV"_TT,ADM,DFN1,0)) Q:'ADA S CNTR=CNTR-1 I CNTR<0 Q S VAIP("E")=ADA D IN5^VADPT S (X,ADATE)=+VAIP(3) D REGDT4^GMTSU S ADT=X K DGPMIFN S:TT=1 DGPMIFN=ADA S:TT'=1 DGPMIFN=VAIP(13) S GMC=2 D CONTGET S LIN=$S(TT=2:"TROUT^GMTSDGA1",FLGDX:"DXOUT^GMTSDGA1",FLGDC:"DCOUT^GMTSDGA1",TT=6:"TSOUT^GMTSDGA2",TT=1:"ADOUT") D @LIN K ICD(ADM) Q CONTGET ; ICD and LOS info only needed for certain MAS components Q:TT=2 Q:TT=6 N ICDX,ICDI I DGPMIFN D ^DGPMLOS S LOS=+X S PTF=$S($D(VAIP(12)):VAIP(12),1:"") Q:'$D(^ICD9) Q:PTF="" Q:'$D(^DGPT(PTF,70)) S ICD=^DGPT(PTF,70) S ICDI=+$P(ICD,U,11) I ICDI>0 D . S ICDX=$$ICDDX^ICDCODE(ICDI) . S ICD(ADM,1,80,ICDI,.01)=$P(ICDX,"^",2) . S ICD(ADM,1,80,ICDI,3)=$P(ICDX,"^",4) S ICDI=+$P(ICD,U,10) I ICDI>0 D . S ICDX=$$ICDDX^ICDCODE(ICDI) . S ICD(ADM,2,80,ICDI,.01)=$P(ICDX,"^",2) . S ICD(ADM,2,80,ICDI,3)=$P(ICDX,"^",4) F GMTSI=16:1:24 S ICDI=+$P(ICD,U,GMTSI) I ICDI>0 D . S ICDX=$$ICDDX^ICDCODE(ICDI) . S ICD(ADM,(GMTSI-13),80,ICDI,.01)=$P(ICDX,"^",2) . S ICD(ADM,(GMTSI-13),80,ICDI,3)=$P(ICDX,"^",4) Q KILLADM ; Kill Admission variables D KVAR^VADPT K ADA,ADATE,ADT,BD,BDSC,DA,DIC,DDT,DP,DSPL,GMJ,GMJ1,OP,OPTR,FLAG,FLGDX,FLGDC,X,DR,GMI,GMTO,GMTNO,GMTSI,GMX,ADM,CNTR,GMC,GMZ,GMN,ICD,PTF,PTF70,PTFLG,LOS,II,DGPMIFN,IN,LIN,TI,TT,TS,SPEC Q ADOUT ; Admissions Output N STATION,WARDIEN,WARDDIV,WARDSTAT,NODEDGPM,PHYSIC,PHYSICT I FLAG>1,'GMTSNPG D CKP^GMTSUP Q:$D(GMTSQIT) ;W ! D CKP^GMTSUP Q:$D(GMTSQIT) S FLAG=2 ;GOTO OVER I $G(VAIP(17,1))'="" S CNTR=CNTR+1 Q ; DISCHARGED ALREADY ;DETERMINE WARD LOCATION MEDICAL CENTER DIVISION MATCHING THE STATION NUMBER TO CORRESPINDING INSITITUTION ENTRY STATION NUMBER. ( IE. 580CAM TO 580CAM) ;DETERMINE LOGGED ON DIVISION( REALLY INSTITUTION) STATION S STATION=$P($G(^DIC(4,DUZ(2),99)),"^",1) ;GOTO OVER I STATION="" S CNTR=CNTR+1 W "STATION= "_"",?15,"INSTITUTION= "_DUZ(2)_"-"_$P($G(^DIC(4,DUZ(2),0)),"^",1),! Q ;GOTO OVER ;GET WARD LOCATION NUMBER FROM WARD NAME ;W "GMTSWARD= ",GMTSWARD,! I GMTSWARD'="" D .S WARDIEN=0 S WARDIEN=$O(^DIC(42,"B",GMTSWARD,WARDIEN)) E D .S WARDIEN="" ;GET MEDICAL CENTER DIVISION ;GOTO OVER I WARDIEN="" S CNTR=CNTR+1 W "GMTSWARD= "_GMTSWARD,?25,"WARD IEN="_"",! Q ;GOTO OVER ;GET MEDICAL CENTER DIVISION AND STATION S WARDDIV=$P($G(^DIC(42,WARDIEN,0)),"^",11) I WARDDIV="" S CNTR=CNTR+1 W "WARD: "_GMTSWARD,?25,"WARD DIVISION= "_"",! Q ;GET DIVISION STATION NUMBER (FACILITY NUMBER) S WARDSTAT=$P($G(^DG(40.8,WARDDIV,0)),"^",2) I WARDSTAT="" S CNTR=CNTR+1 W "WARD DIVISION STATION="_"",! Q I WARDSTAT'=STATION S CNTR=CNTR+1 Q ;DON'T COUNT WARDS IN ANOTHER HOSPITAL INSITUTION ( DIVISION). ONLY ONE LOGGED ONTO LIKE FOR CAMBRIDGE HOSPITAL OVER ; ;I $G(VAIP(17,1))'="" S CNTR=CNTR+1 Q ; DISCHARGED ALREADY I $G(VAIP(17,1))="" S DDT="Present" E S X=$P(VAIP(17,1),U,1) D REGDT4^GMTSU S DDT=X W ADT," - ",DDT I VAIP(17,1)="" W ?25,"Ward: "_GMTSWARD,?45,"Room/Bed= "_GMTSRB W ?66,"LOS: ",LOS,! S TS=$P($G(^DIC(45.7,+$P($G(VAIP(14,6)),U),0)),U,2) S SPEC=$P($G(^DIC(42.4,+TS,0)),U) W GMTSPNM_" "_GMTSSN,?50,"DOB: "_GMTSDOB,?67,"Age: ",GMTSAGE,?75,"Facility= "_DUZ(2),! S PHYSICT="" S NODEDGPM=$G(^DGPM(ADA+1,0)) ;TREATING SPECIALTY PREOVIDER CHANGE S PHYSIC=$P(NODEDGPM,"^",8) ;PRIMARY PHYSICIAN FIRST I PHYSIC'="" D .S PHYSICT=$P($G(^VA(200,PHYSIC,0)),"^",1) E D .S PHYSIC=$P(NODEDGPM,"^",19) ;THEN ATTENDING IF NO PRIMARY PHYSICIAN . I PHYSIC'="" S PHYSICT=$P($G(^VA(200,PHYSIC,0)),"^",1) D CKP^GMTSUP Q:$D(GMTSQIT) W " Last Tr Specialty: ",$E(SPEC,1,25),?50,"Last Prov: ",$E(PHYSICT,1,15),! I $G(VAIP(17,1))="" D CKP^GMTSUP Q:$D(GMTSQIT) W "Admitting Diagnosis: ",$G(VAIP(13,7)),! I PTF'="",$D(^DGPT(+PTF,70)) D CKP^GMTSUP Q:$D(GMTSQIT) W " Bedsection: ",$S(+($P(^DGPT(PTF,70),U,2))>0:$P($G(^DIC(42.4,+$P(^DGPT(PTF,70),U,2),0)),U),1:""),! Q:'$D(ICD) S GMI=0 F S GMI=$O(ICD(ADM,GMI)) Q:'GMI D CKP^GMTSUP Q:$D(GMTSQIT) S GMX="" F S GMX=$O(ICD(ADM,GMI,80,GMX)) Q:'GMX D NXT Q NXT ; Next Diagnosis S (GMTO,GMTNO)="" S GMTO=$G(ICD(ADM,GMI,80,GMX,3)),GMTNO=$G(ICD(ADM,GMI,80,GMX,.01)) W:GMI=1 "Principal Diagnosis: " W:GMI=2 ?15,"DXLS: " W:GMI=3 ?13,"ICD DX: " W ?21,GMTO,?62,GMTNO,! S NODIAG=0 Q XXX1DGA ; SLC/MKB,KER/NDBI - Admissions for HS Extractioon; 03/24/2004 ;;2.7;Health Summary;**28,49,71**;Oct 20, 1995 ; ; External Reference ; DBIA 3390 $$ICDDX^ICDCODE ; DBIA 17 ^DGPM("ATID" ; DBIA 1372 ^DGPT( ; DBIA 10082 ^ICD9( ; DBIA 2929 DSP^A7RHSM ; DBIA 2929 LST^A7RHSM ; DBIA 512 ^DGPMLOS ; DBIA 10061 IN5^VADPT ; DBIA 10061 KVAR^VADPT ; ENAD(TIUY,GMTS1,GMTS2,GMTSNDM) ; Gets Admission Information. Eventually Filtered out for Division ( Institution) too ; for Wards per this Division matrching the Institution (Station) of the logged on User N TIUI S TIUY=$NA(^TMP("TIUR",$J)) K @TIUY S TIUI=0 S TT=1,FLGDX=0,FLGDC=0 D PATINFO Q ENDC ; Discharge Information S TT=3,FLGDC=1,FLGDX=0 D PATINFO Q ENDX ; PTF Discharge Diagnosis S TT=3,FLGDX=1,FLGDC=0 D PATINFO Q ENTS ; Treating Speciality Information S TT=6,FLGDX=0,FLGDC=0 D PATINFO Q ENTR ; Transfers S TT=2,FLGDX=0,FLGDC=0 D PATINFO Q PATINFO ; Patient Information N DFN1,RGMTS1,STATION S ^XTMP("HDD1")=GMTS2_"^"_GMTS1 S VA200=1 K DIQ I $D(GMTSNDM),GMTSNDM>0 S CNTR=GMTSNDM E S CNTR=100 S CNTR=100 ;DEFINE HEADER DATA S STATION=$P($G(^DIC(4,DUZ(2),99)),"^",1) ;GOTO OVER ;;;;;;W "STATION= "_STATION,?15,"INSTITUTION= "_DUZ(2)_" AS "_$P($G(^DIC(4,DUZ(2),0)),"^",1),! S GMC=-1,GMN="",ADM=GMTS1,FLAG=0 S RGMTS1=GMTS2 ;S ^XTMP("HE")=GMTS1_"^"_GMTS2 ;I TT=1 D FADM^GMTSDGA2 D:$$ROK^GMTSU("A7RHSM")&($$NDBI^GMTSU) LST^A7RHSM(DFN,.A7RHS) F S ADM=$O(^DGPM("AMV"_TT,ADM)) Q:('ADM!(ADM>RGMTS1)!($D(GMTSQIT))!($G(CNTR)<0)) D .S ^XTMP("HDD1")=3 .S DFN1=0 F S DFN1=$O(^DGPM("AMV"_TT,ADM,DFN1)) Q:(DFN1="")!($G(CNTR)<0) D ..D GET(.TIUY) Q:($G(CNTR)<0) ..;D:$$ROK^GMTSU("A7RHSM")&($$NDBI^GMTSU) DSP^A7RHSM(ADM) D GET(.TIUY,TIUI) Q:$D(GMTSQIT)!($G(CNTR)<0) D KILLADM K:$$NDBI^GMTSU A7RHS K @TIUY@("INDX") Q GET(TIUY) ; Admission Data N VAHOW I TT=1 S DFN=DFN1 D FADM^GMTSDGA2 S ORDFN=DFN D DEM^GMTSU ;D HSTYPEB^ORWRPP1 S ADA=$O(^DGPM("AMV"_TT,ADM,DFN1,0)) Q:'ADA S CNTR=CNTR-1 I CNTR<0 Q S VAIP("E")=ADA D IN5^VADPT S (X,ADATE)=+VAIP(3) D REGDT4^GMTSU S ADT=X K DGPMIFN S:TT=1 DGPMIFN=ADA S:TT'=1 DGPMIFN=VAIP(13) S GMC=2 D CONTGET S ^XTMP("HDD1")=5 S LIN=$S(TT=2:"TROUT^GMTSDGA1",FLGDX:"DXOUT^GMTSDGA1",FLGDC:"DCOUT^GMTSDGA1",TT=6:"TSOUT^GMTSDGA2",TT=1:"ADOUT") D @LIN K ICD(ADM) Q CONTGET ; ICD and LOS info only needed for certain MAS components Q:TT=2 Q:TT=6 N ICDX,ICDI I DGPMIFN D ^DGPMLOS S LOS=+X S PTF=$S($D(VAIP(12)):VAIP(12),1:"") Q:'$D(^ICD9) Q:PTF="" Q:'$D(^DGPT(PTF,70)) S ICD=^DGPT(PTF,70) S ICDI=+$P(ICD,U,11) I ICDI>0 D . S ICDX=$$ICDDX^ICDCODE(ICDI) . S ICD(ADM,1,80,ICDI,.01)=$P(ICDX,"^",2) . S ICD(ADM,1,80,ICDI,3)=$P(ICDX,"^",4) S ICDI=+$P(ICD,U,10) I ICDI>0 D . S ICDX=$$ICDDX^ICDCODE(ICDI) . S ICD(ADM,2,80,ICDI,.01)=$P(ICDX,"^",2) . S ICD(ADM,2,80,ICDI,3)=$P(ICDX,"^",4) F GMTSI=16:1:24 S ICDI=+$P(ICD,U,GMTSI) I ICDI>0 D . S ICDX=$$ICDDX^ICDCODE(ICDI) . S ICD(ADM,(GMTSI-13),80,ICDI,.01)=$P(ICDX,"^",2) . S ICD(ADM,(GMTSI-13),80,ICDI,3)=$P(ICDX,"^",4) Q KILLADM ; Kill Admission variables D KVAR^VADPT K ADA,ADATE,ADT,BD,BDSC,DA,DIC,DDT,DP,DSPL,GMJ,GMJ1,OP,OPTR,FLAG,FLGDX,FLGDC,X,DR,GMI,GMTO,GMTNO,GMTSI,GMX,ADM,CNTR,GMC,GMZ,GMN,ICD,PTF,PTF70,PTFLG,LOS,II,DGPMIFN,IN,LIN,TI,TT,TS,SPEC Q ADOUT ; Admissions Output. Pass ADT (formatted ADM),TIUY,TIUI,DFN,ADA N STATION,WARDIEN,WARDDIV,WARDSTAT,UNIT,IEN,NODEP,OVER1,NODEP1,INSURNCE,INSURPTR,STATION1,NODEDGPM,PHYSIC,PHYSICT S ^XTMP("HDD1")=6 ;;;;;;I FLAG>1,'GMTSNPG D CKP^GMTSUP Q:$D(GMTSQIT) ;W ! ;;;;;;D CKP^GMTSUP Q:$D(GMTSQIT) S FLAG=2 ;GOTO OVER S ^XTMP("HDD1")=2 I $G(VAIP(17,1))'="" S CNTR=CNTR+1 Q ; DISCHARGED ALREADY ;DETERMINE WARD LOCATION MEDICAL CENTER DIVISION MATCHING THE STATION NUMBER TO CORRESPINDING INSITITUTION ENTRY STATION NUMBER. ( IE. 580CAM TO 580CAM) ;DETERMINE LOGGED ON DIVISION( REALLY INSTITUTION) STATION S STATION=$P($G(^DIC(4,DUZ(2),99)),"^",1) S STATION1=$P($G(^DIC(4,DUZ(2),0)),"^",1) ;GOTO OVER I STATION="" S CNTR=CNTR+1 Q ;W "STATION= "_"",?15,"INSTITUTION= "_DUZ(2)_"-"_$P($G(^DIC(4,DUZ(2),0)),"^",1),! Q ;GOTO OVER ;GET WARD LOCATION NUMBER FROM WARD NAME ;W "GMTSWARD= ",GMTSWARD,! I GMTSWARD'="" D .S WARDIEN=0 S WARDIEN=$O(^DIC(42,"B",GMTSWARD,WARDIEN)) E D .S WARDIEN="" ;GET MEDICAL CENTER DIVISION ;GOTO OVER I WARDIEN="" S CNTR=CNTR+1 Q ;W "GMTSWARD= "_GMTSWARD,?25,"WARD IEN="_"",! Q ;GOTO OVER ;GET MEDICAL CENTER DIVISION AND STATION S WARDDIV=$P($G(^DIC(42,WARDIEN,0)),"^",11) I WARDDIV="" S CNTR=CNTR+1 Q ;W "WARD: "_GMTSWARD,?25,"WARD DIVISION= "_"",! Q ;GET DIVISION STATION NUMBER (FACILITY NUMBER) S WARDSTAT=$P($G(^DG(40.8,WARDDIV,0)),"^",2) I WARDSTAT="" S CNTR=CNTR+1 Q ;W "WARD DIVISION STATION="_"",! Q I WARDSTAT'=STATION S CNTR=CNTR+1 Q ;DON'T COUNT WARDS IN ANOTHER HOSPITAL INSITUTION ( DIVISION). ONLY ONE LOGGED ONTO LIKE FOR CAMBRIDGE HOSPITAL OVER ; S TIUI=+$G(TIUI)+1 S ^XTMP("HDD5")=TIUI S @TIUY@(TIUI)=ADA_U_STATION1_U_GMTSPNM S @TIUY@("INDX",ADA,TIUI)="" ;NEXT AGE TO AOL OR ADULT OR CHILD S UNIT="" I GMTSAGE<12 S UNIT="Child" I (GMTSAGE>11)&(GMTSAGE<21) S UNIT="Adol" I (GMTSAGE>20) S UNIT="Adult" S @TIUY@(TIUI)=@TIUY@(TIUI)_U_UNIT ;Next Ward&Room/Bed S @TIUY@(TIUI)=@TIUY@(TIUI)_U_GMTSWARD_" "_GMTSRB ;Next Physician(Last Provider) S PHYSICT="" S NODEDGPM=$G(^DGPM(ADA+1,0)) ;TREATING SPECIALTY PREOVIDER CHANGE S PHYSIC=$P(NODEDGPM,"^",8) ;PRIMARY PHYSICIAN FIRST I PHYSIC'="" D .S PHYSICT=$P($G(^VA(200,PHYSIC,0)),"^",1) E D .S PHYSIC=$P(NODEDGPM,"^",19) ;THEN ATTENDING IF NO PRIMARY PHYSICIAN . I PHYSIC'="" S PHYSICT=$P($G(^VA(200,PHYSIC,0)),"^",1) ;S @TIUY@(TIUI)=@TIUY@(TIUI)_U_$E($P($G(VAIP(14,5)),U,2),1,15) S @TIUY@(TIUI)=@TIUY@(TIUI)_U_$E(PHYSICT,1,15) ; Next Referral Source S @TIUY@(TIUI)=@TIUY@(TIUI)_U_" " ;Next Admit Date S @TIUY@(TIUI)=@TIUY@(TIUI)_U_ADT ;Next LOS S @TIUY@(TIUI)=@TIUY@(TIUI)_U_LOS ;Next Type Of Insurance (Primary) S OVER1=0 S NODEP1=0 ; NO INSURANCE S IEN=0 F S IEN=$O(^DPT(DFN,.312,IEN)) Q:(IEN="")!(OVER1'=0) D .;CHECK COORDINATION OF BENEFITS AS PRIMARY .S NODEP=$P($G(^DPT(DFN,.312,IEN,0)),"^",20) .I NODEP="1" S OVER1=IEN .I IEN=1 S NODEP1=IEN S INSURNCE=" " I OVER1'=0 D .S INSURPTR=$P($G(^DPT(DFN,.312,OVER1,0)),"^",1) .I INSURPTR'="" S INSURNCE=$P($G(^DIC(36,INSURPTR,0)),"^",1) .S @TIUY@(TIUI)=@TIUY@(TIUI)_U_INSURNCE E D .;CHECK IF ONE (FIRST) INSURANCE ELSE PUT IN BLANKS .I NODEP1'=0 D ..S INSURPTR=$P($G(^DPT(DFN,.312,NODEP1,0)),"^",1) ..I INSURPTR'="" S INSURNCE=$P($G(^DIC(36,INSURPTR,0)),"^",1) ..S @TIUY@(TIUI)=@TIUY@(TIUI)_U_INSURNCE E D ..S @TIUY@(TIUI)=@TIUY@(TIUI)_U_INSURNCE ;Next Legal as i.e. Admission Category ptr to Sharing Agreement File with Creating a PTF record with an admission. ;for now just blank. Should be Volunary(VOL) or Involuntary(INVOL). ; S @TIUY@(TIUI)=@TIUY@(TIUI)_U_" " ;Next Authorized Days ( Later get last insurance review for primary insurance in "pending" or "complete" status. ;If complete status check Authorized days left from time of Insurance Review completion date. If admission date within this duration , put # of days ;left. If no days left , then put in put in "Pending Pre-certification" as new insurance review is needed. ;If current insurance (last) review is found, and in "pending" state and Authorized days are within date of admission, put in "Peer to Peer Review" ;else put in "Pending Pre-Certification"). For now put in blank. S @TIUY@(TIUI)=@TIUY@(TIUI)_U_" " ;I $G(VAIP(17,1))'="" S CNTR=CNTR+1 Q ; DISCHARGED ALREADY I $G(VAIP(17,1))="" S DDT="Present" E S X=$P(VAIP(17,1),U,1) D REGDT4^GMTSU S DDT=X ;W ADT," - ",DDT I VAIP(17,1)="" W ?25,"Ward: "_GMTSWARD,?45,"Room/Bed= "_GMTSRB ;W ?66,"LOS: ",LOS,! S TS=$P($G(^DIC(45.7,+$P($G(VAIP(14,6)),U),0)),U,2) S SPEC=$P($G(^DIC(42.4,+TS,0)),U) ;W GMTSPNM_" "_GMTSSN,?50,"DOB: "_GMTSDOB,?67,"Age: ",GMTSAGE,?75,"Facility= "_DUZ(2),! ;;;;;;;D CKP^GMTSUP Q:$D(GMTSQIT) ;W " Last Tr Specialty: ",$E(SPEC,1,25),?50,"Last Prov: ",$E($P($G(VAIP(14,5)),U,2),1,15),! ;;;;;;;I $G(VAIP(17,1))="" D CKP^GMTSUP Q:$D(GMTSQIT) ;W "Admitting Diagnosis: ",$G(VAIP(13,7)),! ;;;;;;;I PTF'="",$D(^DGPT(+PTF,70)) D CKP^GMTSUP Q:$D(GMTSQIT) ;W " Bedsection: ",$S(+($P(^DGPT(PTF,70),U,2))>0:$P($G(^DIC(42.4,+$P(^DGPT(PTF,70),U,2),0)),U),1:""),! ;;;;;;;Q:'$D(ICD) S GMI=0 F S GMI=$O(ICD(ADM,GMI)) Q:'GMI D CKP^GMTSUP Q:$D(GMTSQIT) S GMX="" F S GMX=$O(ICD(ADM,GMI,80,GMX)) Q:'GMX D NXT Q NXT ; Next Diagnosis S (GMTO,GMTNO)="" S GMTO=$G(ICD(ADM,GMI,80,GMX,3)),GMTNO=$G(ICD(ADM,GMI,80,GMX,.01)) ;W:GMI=1 "Principal Diagnosis: " W:GMI=2 ?15,"DXLS: " ;W:GMI=3 ?13,"ICD DX: " W ?21,GMTO,?62,GMTNO,! S NODIAG=0 Q DGMADM(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ; Admission Summaries in Spreadsheet Format ;Ext calls: VASITE, DIQ1, TIUSRVLO I $L($T(GCPR^OMGCOAS1)) D Q ; Call if FHIE station 200 . D GCPR^OMGCOAS1(DFN,"DS",ORDBEG,ORDEND,ORMAX) . S ROOT=$NA(^TMP("ORDATA",$J)) N ORGLOB,ORGLOBA,ORI,ORNODE,ORICDIEN,ORARRAY,ORTEMP,ORSITE,SITE,DIC,DR,DIQ,DA,GO Q:'$L(OREXT) S GO=$P(OREXT,";")_"^"_$P(OREXT,";",2) Q:'$L($T(@GO)) S ORSITE=$$SITE^VASITE,ORSITE=$P(ORSITE,"^",2)_";"_$P(ORSITE,"^",3) D @GO I '$D(@ORGLOB) Q K ^TMP("ORDATA",$J) S ORNODE=0,ORI=0 ;F S ORNODE=$O(@ORGLOB@(ORNODE)) Q:'ORNODE!(ORI'<ORMAX) D F S ORNODE=$O(@ORGLOB@(ORNODE)) Q:'ORNODE D . S ORTEMP=@ORGLOB@(ORNODE) . ;S SITE=$S($L($G(@ORGLOB@(ORNODE,"facility"))):^("facility"),1:ORSITE) . ;S ^TMP("ORDATA",$J,ORNODE,"WP",1)="1^"_SITE ;Station ID . S ^TMP("ORDATA",$J,ORNODE,"WP",1)="1^"_$E($P(ORTEMP,U,2),1,20) ;Facility Logged On . S ^TMP("ORDATA",$J,ORNODE,"WP",2)="2^"_$E($P(ORTEMP,U,3),1,17) ;Patient Name (Last,First] . ;;;;;K ORARRAY S DIC=8925,DA=$P(ORTEMP,U),DR=".05;.07;.08;1202;1502",DIQ="ORARRAY" . ;;;;;D EN^DIQ1 . ;;;;;;S DIQ="ORARRAY(8925,"_DA_")" . S ^TMP("ORDATA",$J,ORNODE,"WP",3)="3^"_$P(ORTEMP,U,4) ; Unit $$DATEMMM^ORDVU($G(@DIQ@(.07))) ;episode begin date/time . S ^TMP("ORDATA",$J,ORNODE,"WP",4)="4^"_$P(ORTEMP,U,5) ; Ward/Room-Bed $$DATEMMM^ORDVU($G(@DIQ@(.08))) ;episode end date/time . S ^TMP("ORDATA",$J,ORNODE,"WP",5)="5^"_$P($P(ORTEMP,U,6),",",1) ; Primary Physician (last name) $G(@DIQ@(1202)) ;author/dicator . S ^TMP("ORDATA",$J,ORNODE,"WP",6)="6^"_$P(ORTEMP,U,7) ; Referral Source $G(@DIQ@(1502)) ;signed by . S ^TMP("ORDATA",$J,ORNODE,"WP",7)="7^"_$E($P(ORTEMP,U,8),1,10) ; Admit Date $G(@DIQ@(.05)) ;status . S ^TMP("ORDATA",$J,ORNODE,"WP",8)="8^"_$P(ORTEMP,U,9) ; LOS $G(@DIQ@(.05)) ;status . S ^TMP("ORDATA",$J,ORNODE,"WP",9)="9^"_$P(ORTEMP,U,10) ; Type of Insurance $G(@DIQ@(.05)) ;status . S ^TMP("ORDATA",$J,ORNODE,"WP",10)="10^"_$P(ORTEMP,U,11) ; Legal $G(@DIQ@(.05)) ;status . S ^TMP("ORDATA",$J,ORNODE,"WP",11)="11^"_$P(ORTEMP,U,12) ; Authorized Days $G(@DIQ@(.05)) ;status . S ORI=ORI+1 . S ^XTMP("HDD2")=ORI . ;;;;D TGET^TIUSRVR1(.ORGLOBA,$P(ORTEMP,U)) ;Call to get summary text . ;;;;D SPMRG^ORDVU($NA(@ORGLOBA),$NA(^TMP("ORDATA",$J,ORNODE,"WP",7)),7) ;summary Text . ;;;;;I $O(@ORGLOBA@(0)) S ^TMP("ORDATA",$J,ORNODE,"WP",8)="8^[+]" ;detail flag . ;;;;K @ORGLOBA K @ORGLOB S ROOT=$NA(^TMP("ORDATA",$J)) Q TADM ; Admission Summary D ENAD(.ORGLOB,ORDBEG,ORDEND,ORMAX) ;S ^XTMP("HDD1")=1 Q