Episode 79 Report Creation for the CPRS Reports Tab

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  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  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  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  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  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  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  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  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  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  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  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  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  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  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  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  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: :

List ^

ASTRON>D ^%G

Output device: :

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: :

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