View source for 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.

<pre>

ASTRON>D ^XQ1

Select OPTION NAME: XPAR EDIT
     1   XPAR EDIT BY TEMPLATE       Edit Parameter Values with Template
     2   XPAR EDIT KEYWORD       Edit Parameter Definition Keyword
     3   XPAR EDIT PARAMETER       Edit Parameter Values
CHOOSE 1-3: 3  XPAR EDIT PARAMETER     Edit Parameter Values
Edit Parameter Values
                         --- Edit Parameter Values ---

Select PARAMETER DEFINITION NAME: ORW
     1   ORW ADDORD INPT     Write Orders (Inpatient)
     2   ORWCH BOUNDS     Form or Control Boundaries
     3   ORWCH COLUMNS     Column Widths
     4   ORWCH COLUMNS REPORTS     Report Column Widths
     5   ORWCH FONT SIZE     Font Size for Chart
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-5:
     6   ORWCH WIDTH     Control Width
     7   ORWCOM ORDER ACCEPTED     COM Object on Order Acceptance
     8   ORWCOM PATIENT SELECTED     COM Object on Patient Selection
     9   ORWCV1 COVERSHEET LIST     List of coversheet reports
     10  ORWD ACTIVITY INPT     Activity List - Inpatient
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-10:
     11  ORWD COMMON CLINIC     Common Clinics
     12  ORWD COMMON LAB INPT     Common Labs - Inpatient
     13  ORWD COMMON MED INPT     Common Meds - Inpatient
     14  ORWD COMMON MED OUTPT     Common Meds - Outpatient
     15  ORWD CONSULT SERVICES     Consult Services
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-15:
     16  ORWD NONVA REASON     Non-VA Meds Statement/Reason
     17  ORWD PTCARE GENERAL INPT     Patient Care General - Inpatient
     18  ORWD PTCARE HEMODYNAMICS INPT     Patient Care Hemodynamics - Inpatient
     19  ORWD PTCARE NURSING INPT     Patient Care Nursing - Inpatient
     20  ORWD PTCARE OXYGEN INPT     Patient Care Oxygen - Inpatient
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-20:
     21  ORWD PTCARE RESP INPT     Patient Care Respiratory - Inpatient
     22  ORWD PTCARE SKIN INPT     Patient Care Skin and Wound - Inpatient
     23  ORWD PTCARE TUBES INPT     Patient Care Drains/Tubes - Inpatient
     24  ORWDP DEFAULT PRINTER     Default printer for CPRS GUI
     25  ORWDP WINPRINT DEFAULT     Use Windows printer as default?
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-25:
     26  ORWDPS ROUTING DEFAULT     Medication Routing Default (GUI)
     27  ORWDPS SUPPRESS DISPENSE MSG     Suppress Dispense Drug Message
     28  ORWDQ ANI     Common Angio/Neuro Orders
     29  ORWDQ CARD     Common Cardiology (Nuc Med) Orders
     30  ORWDQ CSLT     Common Consult Orders
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-30:
     31  ORWDQ CT     Common CT Scan Orders
     32  ORWDQ DISPLAY NAME     Quick Order Display Name
     33  ORWDQ DO     Common Diet Orders
     34  ORWDQ IV RX     Common IV Fluid Orders
     35  ORWDQ LAB     Common Lab Orders
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-35:
     36  ORWDQ MAM     Common Mammography Orders
     37  ORWDQ MRI     Common MRI Orders
     38  ORWDQ NM     Common Nuclear Med Orders
     39  ORWDQ O RX     Common Med Orders (Outpatient)
     40  ORWDQ PROC     Common Procedure Orders
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-40:
     41  ORWDQ QUICK VIEW     Personal Quick Order List
     42  ORWDQ RAD     Common Radiology Orders
     43  ORWDQ TF     Common Tubefeeding Orders
     44  ORWDQ UD RX     Common Med Orders (Inpatient)
     45  ORWDQ UNIT DOSE MEDICATIONS     Common Med Orders (Inpatient)
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-45:
     46  ORWDQ US     Common Ultrasound Orders
     47  ORWDQ VAS     Common Vascular Lab Orders
     48  ORWDQ XRAY     Common Imaging Orders
     49  ORWDX NEW CONSULT     New consult dialog default
     50  ORWDX NEW MED     New Med Dialog
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-50:
     51  ORWDX NEW PROCEDURE     New procedure dialog default
     52  ORWDX WRITE ORDERS EVENT LIST     Menu for Write Orders List by Event
     53  ORWDX WRITE ORDERS LIST     Menu for Write Orders List
     54  ORWDXM ORDER MENU STYLE     Order Menu Style
     55  ORWDXVB VBECS TNS CHECK     Days to check for Type & Screen
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-55:
     56  ORWG GRAPH EXCLUDE DATA TYPE     CPRS Graph Exclude Data Types
     57  ORWG GRAPH PUBLIC EDITOR CLASS     CPRS Graph Public Editor Classes
     58  ORWG GRAPH SETTING     CPRS Graph Settings
     59  ORWG GRAPH SIZING     CPRS Graph Position and Sizes
     60  ORWG GRAPH VIEW     CPRS Graph Views
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-60:
     61  ORWIM NSS MESSAGE     MESSAGE FOR NON-STANDARD SCHEDULE
     62  ORWLR LC CHANGED TO WC     MESSAGE FOR LC CHANGED TO WC
     63  ORWOR AUTO CLOSE PT MSG     Auto-Close Patient Messages
     64  ORWOR AUTOSAVE NOTE     Interval for Autosave of Notes
     65  ORWOR BROADCAST MESSAGES     Broadcast Window Messages to Other Apps
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-65:
     66  ORWOR CATEGORY SEQUENCE     Orders Category Sequence
     67  ORWOR COVER RETRIEVAL     Cover Sheet Retrieval Mode
     68  ORWOR COVER RETRIEVAL NEW     Cover Sheet Retrieval Mode
     69  ORWOR DISABLE HOLD ORDERS     Disable Hold/Unhold Actions in GUI
     70  ORWOR DISABLE ORDERING     Disable Ordering in GUI
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-70:
     71  ORWOR DISABLE WEB ACCESS     Disable web links in GUI
     72  ORWOR ENABLE VERIFY     Enable/Disable Order Verify Actions
     73  ORWOR EXPIRED ORDERS     Hours to find recently expired orders
     74  ORWOR PKI SITE     PKI Functionality Site Enabled
     75  ORWOR PKI USE     Allow PKI Functionality
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-75:
     76  ORWOR REQUIRE CURRENT CLIENT     Require Client/Server Version Match
     77  ORWOR SHOW CONSULTS     Show unresolved consults
     78  ORWOR SHOW SURGERY TAB     Show Surgery Tab in GUI
     79  ORWOR SPELL CHECK ENABLED?     Enable spelling/grammar checking in GUI.
     80  ORWOR TIMEOUT CHART     Timeout for GUI chart
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-80:
     81  ORWOR TIMEOUT COUNTDOWN     Countdown Seconds upon Timeout
     82  ORWOR VERIFY NOTE TITLE     Verify Note Title
     83  ORWOR WRITE ORDERS LIST     Write Orders (Inpatient)
     84  ORWPCE ANYTIME ENCOUNTERS     Anytime Encounters
     85  ORWPCE ASK ENCOUNTER UPDATE     Ask Encounter Update
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-85:
     86  ORWPCE DISABLE AUTO CHECKOUT     Disable Automatic Checkout
     87  ORWPCE DISABLE AUTO VISIT TYPE     Disable Auto Visit Type
     88  ORWPCE EXCLUDE EXAMS     Excluded Exams
     89  ORWPCE EXCLUDE HEALTH FACTORS     Excluded Health Factors
     90  ORWPCE EXCLUDE IMMUNIZATIONS     Excluded Immunizations
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-90:
     91  ORWPCE EXCLUDE PATIENT ED     Excluded Patient Education Topics
     92  ORWPCE EXCLUDE SKIN TESTS     Excluded Skin Tests
     93  ORWPCE FORCE PCE ENTRY     Force PCE Entry
     94  ORWPFSS ACTIVE     Activate CPRS PFSS Switch
     95  ORWRP ADHOC LOOKUP     Adhoc Health Summary Lookup
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-95:
     96  ORWRP CIRN AUTOMATIC     Auto query all sites
     97  ORWRP CIRN REMOTE DATA ALLOW     Allow remote data access
     98  ORWRP CIRN SITES     Remote Access Allowed
     99  ORWRP CIRN SITES ALL     Allow remote data access to all sites.
     100 ORWRP HDR ON     Turn Remote Queries to HDR on
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-100:
     101 ORWRP HEALTH SUMMARY LIST ALL     List All Health Summary Types
     102 ORWRP HEALTH SUMMARY TYPE LIST     Allowable Health Summary Types
     103 ORWRP REPORT LAB LIST     List of lab reports
     104 ORWRP REPORT LIST     List of reports
     105 ORWRP TIME/OCC LIMITS ALL     Default time/occ for all reports
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 21-105: 104  ORWRP REPORT LIST   List of reports

ORWRP REPORT LIST may be set for the following:

     2   User          USR    [choose from NEW PERSON]
     3   Division      DIV    [choose from INSTITUTION]
     4   System        SYS    [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET]
     6   Package       PKG    [ORDER ENTRY/RESULTS REPORTING]

Enter selection: 6  Package   ORDER ENTRY/RESULTS REPORTING

Parameters set for 'Package' may be replaced if ORDER ENTRY/RESULTS REPORTING
is installed in this account.

--- Setting ORWRP REPORT LIST  for Package: ORDER ENTRY/RESULTS REPORTING ---
Select Sequence: ?


Sequence  Value
--------  -----
1         TMG GROWTH CHARTS
1.1       TMG WHO GROWTH CHARTS
2         ORRPW REPORT CATEGORIES
3         TMG GROWTH CHARTS
3.1       TMG WHO GROWTH CHARTS
4         TMG GROWTH CHARTS
4.1       TMG WHO GROWTH CHARTS
5         ORRP HEALTH SUMMARY
6         ORRPW HDR
8         ORRPW DOD
10        ORRP IMAGING
12        ORWG GRAPHING
15        ORRP LAB STATUS
20        ORRP BLOOD BANK
25        ORRP AP ALL
30        ORRP DIETETICS PROFILE
35        ORRP NUTRITIONAL ASSESS
40        ORRP VITALS CUM
45        ORRP PROCEDURES
50        ORRP DAILY ORDER SUMMARY

Type <Enter> to continue or '^' to exit:
55        ORRP ORDER SUM FOR A DATE RNG
60        ORRP CHART COPY SUMMARY
65        ORRP OUTPATIENT RX PROFILE
70        ORRP BCMA MED LOG
75        ORRP BCMA MAH
80        ORRP SURGERIES
85        ORRP ECS


Select Sequence:

ORWRP REPORT LIST may be set for the following:

     2   User          USR    [choose from NEW PERSON]
     3   Division      DIV    [choose from INSTITUTION]
     4   System        SYS    [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET]
     6   Package       PKG    [ORDER ENTRY/RESULTS REPORTING]

Enter selection: S  System   WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET

 Setting ORWRP REPORT LIST  for System: WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET
Select Sequence: ?


There are currently no entries for Sequence.


Select Sequence:

ORWRP REPORT LIST may be set for the following:

     2   User          USR    [choose from NEW PERSON]
     3   Division      DIV    [choose from INSTITUTION]
     4   System        SYS    [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET]
     6   Package       PKG    [ORDER ENTRY/RESULTS REPORTING]

Enter selection: 3  Division   INSTITUTION
Select INSTITUTION NAME: ?
 Answer with INSTITUTION NAME, or STATUS, or STATION NUMBER, or
     OFFICIAL VA NAME, or CURRENT LOCATION, or CODING SYSTEM/ID PAIR, or
     NPI, or STATUS, or NAME (CHANGED FROM), or CODING SYSTEM
 Do you want the entire INSTITUTION List? N  (No)
Select INSTITUTION NAME:
-------------------------------------------------------------------------------

Select PARAMETER DEFINITION NAME:    ORWRP REPORT LIST   List of reports

ORWRP REPORT LIST may be set for the following:

     2   User          USR    [choose from NEW PERSON]
     3   Division      DIV    [choose from INSTITUTION]
     4   System        SYS    [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET]
     6   Package       PKG    [ORDER ENTRY/RESULTS REPORTING]

Enter selection: 2  User   NEW PERSON
Select NEW PERSON NAME: ?
 Answer with NEW PERSON NAME, or INITIAL, or SSN, or VERIFY CODE, or
     NICK NAME, or SERVICE/SECTION, or NPI, or DEA#, or VA#, or ALIAS, or
     NPI, or C0P SUBSCRIPTION TYPE
 Do you want the entire NEW PERSON List? N  (No)
Select NEW PERSON NAME: ZZ PAT ??

Select NEW PERSON NAME: ZZ PATIENT,TEST FOUR ??

Select NEW PERSON NAME: ?
 Answer with NEW PERSON NAME, or INITIAL, or SSN, or VERIFY CODE, or
     NICK NAME, or SERVICE/SECTION, or NPI, or DEA#, or VA#, or ALIAS, or
     NPI, or C0P SUBSCRIPTION TYPE
 Do you want the entire NEW PERSON List? Y  (Yes)
   Choose from:
   ABASS,SIORJINI        SA
   ADEDIRAN,JUBRIL        JA
   ADMINISTRATOR,SYSTEM        SA
   AGEE,DORCAS        DA
   AGUILAR,AUTUMN        AA
   AMBUSH,BRITTANY        BA
   ANALYST,FOUR        AF     IRM     ANALYST
   ANALYST,GEORGE        GOW     IRM     ANALYST
   ANALYST,ONE        OA     IRM     ANALYST
   ANALYST,THREE        TA     IRM     ANALYST
   ANALYST,TWO        TA     IRM     ANALYST
   AUTHORIZER,IB MRA        MRA
   AUTOFINISH,RX
   AYODELE,SHOLA        SA
   BARRERA,CRYSTAL        CB
   BATCH,ERX
   BENAVIDES,LETICIA        LB     Biller
   BRYANT,MAETRICE        MB
   CANTU,DIANA        DC
   CASARES,GEORGE        GC     Psychiatry
                                   to exit: ^

Select NEW PERSON NAME: ANALYST,GEORGE       GOW     IRM     ANALYST

------------ Setting ORWRP REPORT LIST  for User: ANALYST,GEORGE ------------
Select Sequence: ?


There are currently no entries for Sequence.


Select Sequence: 1
Are you adding 1 as a new Sequence? Yes//   YES

Sequence: 1//    1
Report: DISC ??
Report: OR
     1   ORAM ANTICOAG REPORT       Anticoagulation Flowsheet     Anticoagulatio
n Flowsheet
     2   ORRP ADHOC HEALTH SUMMARY       Adhoc Health Summary     Adhoc Health S
ummary
     3   ORRP ALL TESTS BY DATE       ALL TESTS BY DATE
     4   ORRP ANATOMIC PATHOLOGY       Anatomic Pathology - All Reports     Anat
omic Pathology - All Reports
     5   ORRP AP ALL       Anatomic Pathology     Anatomic Pathology
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-5:
     6   ORRP AP CY       Cytopathology     Cytopathology
     7   ORRP AP EM       Electron Microscopy     Electron Microscopy
     8   ORRP AP SP       Surgical Pathology     Surgical Pathology
     9   ORRP BCMA MAH       Med Admin History (BCMA)     Med Admin History (BCM
A)
     10  ORRP BCMA MED LOG       Med Admin Log (BCMA)     Med Admin Log (BCMA)
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-10:
     11  ORRP BLOOD BANK       Blood Bank Report     Blood Bank Report
     12  ORRP CHART COPY SUMMARY       Chart Copy Summary     Chart Copy Summary
     13  ORRP CUSTOM ORDER SUMMARY       Custom Order Summary     Custom Order S
ummary
     14  ORRP DAILY ORDER SUMMARY       Daily Order Summary     Daily Order Summ
ary
     15  ORRP DIETETICS PROFILE       Dietetics Profile     Dietetics Profile
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-15:
     16  ORRP ECS       Event Capture     Event Capture Report
     17  ORRP ECS PCE SUMMARY       Patient PCE Summary     Report from Event Ca
pture
     18  ORRP ECS PT SUMMARY       Patient Data Summary     Report from Event Ca
pture
     19  ORRP HEALTH SUMMARY       Health Summary     Health Summary
     20  ORRP IMAGING       Imaging (local only)     Imaging (local only)
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-20:
     21  ORRP LAB GRAPH       LAB GRAPH
     22  ORRP LAB STATUS       Lab Status     Lab Status
     23  ORRP NUTRITIONAL ASSESS       Nutritional Assessment     Nutritional As
sessment
     24  ORRP ORDER SUM FOR A DATE RNG       Order Summary for a Date Range
Order Summary for a Date Range
     25  ORRP OUTPATIENT RX PROFILE       Outpatient RX Profile     Outpatient R
X Profile
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-25:
     26  ORRP PROBLEM LIST       Problem List     Problem List
     27  ORRP PROCEDURES       Procedures (local only)     Procedures (local onl
y)
     28  ORRP SELECTED TESTS BY DATE       SELECTED TESTS BY DATE
     29  ORRP SURGERIES       Surgery (local only)     Surgery (local only)
     30  ORRP VITALS CUM       Vitals Cumulative     Vitals Cumulative
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-30:
     31  ORRPW ADT ADM DC       Adm./Discharge     Adm./Discharge
     32  ORRPW ADT DC DIAG       Discharge Diagnosis     Discharge Diagnosis
     33  ORRPW ADT DEMO       Patient Information     Patient Information
     34  ORRPW ADT DEMOG       Demographics     Demographics
     35  ORRPW ADT DISAB       Disabilities     Disabilities
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-35:
     36  ORRPW ADT DISC       Discharges     Discharges
     37  ORRPW ADT EXP       Expanded ADT     Expanded ADT
     38  ORRPW ADT FUTURE CLINIC       Future Clinic Visits     Future Clinic Vi
sits
     39  ORRPW ADT HISTORY       ADT History     ADT History
     40  ORRPW ADT ICD PROC       ICD Procedures     ICD Procedures
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-40: 31  ORRPW ADT ADM DC     Adm./Discharge     Adm./Discharge
Select Sequence:

ORWRP REPORT LIST may be set for the following:

     2   User          USR    [choose from NEW PERSON]
     3   Division      DIV    [choose from INSTITUTION]
     4   System        SYS    [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET]
     6   Package       PKG    [ORDER ENTRY/RESULTS REPORTING]

Enter selection:
-------------------------------------------------------------------------------

Select PARAMETER DEFINITION NAME:    ORWRP REPORT LIST   List of reports

ORWRP REPORT LIST may be set for the following:

     2   User          USR    [choose from NEW PERSON]
     3   Division      DIV    [choose from INSTITUTION]
     4   System        SYS    [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET]
     6   Package       PKG    [ORDER ENTRY/RESULTS REPORTING]

Enter selection: 6  Package   ORDER ENTRY/RESULTS REPORTING

Parameters set for 'Package' may be replaced if ORDER ENTRY/RESULTS REPORTING
is installed in this account.

--- Setting ORWRP REPORT LIST  for Package: ORDER ENTRY/RESULTS REPORTING ---
Select Sequence: ?


Sequence  Value
--------  -----
1         TMG GROWTH CHARTS
1.1       TMG WHO GROWTH CHARTS
2         ORRPW REPORT CATEGORIES
3         TMG GROWTH CHARTS
3.1       TMG WHO GROWTH CHARTS
4         TMG GROWTH CHARTS
4.1       TMG WHO GROWTH CHARTS
5         ORRP HEALTH SUMMARY
6         ORRPW HDR
8         ORRPW DOD
10        ORRP IMAGING
12        ORWG GRAPHING
15        ORRP LAB STATUS
20        ORRP BLOOD BANK
25        ORRP AP ALL
30        ORRP DIETETICS PROFILE
35        ORRP NUTRITIONAL ASSESS
40        ORRP VITALS CUM
45        ORRP PROCEDURES
50        ORRP DAILY ORDER SUMMARY

Type <Enter> to continue or '^' to exit: ^


Select Sequence: ?


Sequence  Value
--------  -----
1         TMG GROWTH CHARTS
1.1       TMG WHO GROWTH CHARTS
2         ORRPW REPORT CATEGORIES
3         TMG GROWTH CHARTS
3.1       TMG WHO GROWTH CHARTS
4         TMG GROWTH CHARTS
4.1       TMG WHO GROWTH CHARTS
5         ORRP HEALTH SUMMARY
6         ORRPW HDR
8         ORRPW DOD
10        ORRP IMAGING
12        ORWG GRAPHING
15        ORRP LAB STATUS
20        ORRP BLOOD BANK
25        ORRP AP ALL
30        ORRP DIETETICS PROFILE
35        ORRP NUTRITIONAL ASSESS
40        ORRP VITALS CUM
45        ORRP PROCEDURES
50        ORRP DAILY ORDER SUMMARY

Type <Enter> to continue or '^' to exit:
55        ORRP ORDER SUM FOR A DATE RNG
60        ORRP CHART COPY SUMMARY
65        ORRP OUTPATIENT RX PROFILE
70        ORRP BCMA MED LOG
75        ORRP BCMA MAH
80        ORRP SURGERIES
85        ORRP ECS


Select Sequence: 2

Sequence: 2//    2
Report: ORRPW REPORT CATEGORIES//   ORRPW REPORT CATEGORIES     Clinical Reports
     Clinical Reports
Select Sequence:

ORWRP REPORT LIST may be set for the following:

     2   User          USR    [choose from NEW PERSON]
     3   Division      DIV    [choose from INSTITUTION]
     4   System        SYS    [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET]
     6   Package       PKG    [ORDER ENTRY/RESULTS REPORTING]

Enter selection:    Package   ORDER ENTRY/RESULTS REPORTING

Parameters set for 'Package' may be replaced if ORDER ENTRY/RESULTS REPORTING
is installed in this account.

--- Setting ORWRP REPORT LIST  for Package: ORDER ENTRY/RESULTS REPORTING ---
Select Sequence:

ORWRP REPORT LIST may be set for the following:

     2   User          USR    [choose from NEW PERSON]
     3   Division      DIV    [choose from INSTITUTION]
     4   System        SYS    [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET]
     6   Package       PKG    [ORDER ENTRY/RESULTS REPORTING]

Enter selection: 2  User   NEW PERSON
Select NEW PERSON NAME: ANALYS
     1   ANALYST,FOUR       AF     IRM     ANALYST
     2   ANALYST,GEORGE       GOW     IRM     ANALYST
     3   ANALYST,ONE       OA     IRM     ANALYST
     4   ANALYST,THREE       TA     IRM     ANALYST
     5   ANALYST,TWO       TA     IRM     ANALYST
CHOOSE 1-5: 2  ANALYST,GEORGE     GOW     IRM     ANALYST

------------ Setting ORWRP REPORT LIST  for User: ANALYST,GEORGE ------------
Select Sequence: ?


Sequence  Value
--------  -----
1         ORRPW ADT ADM DC


Select Sequence: 1

Sequence: 1// @  ...deleted

ORWRP REPORT LIST may be set for the following:

     2   User          USR    [choose from NEW PERSON]
     3   Division      DIV    [choose from INSTITUTION]
     4   System        SYS    [WVEHR309.OPENFORUM.OPENSOURCEVISTA.NET]
     6   Package       PKG    [ORDER ENTRY/RESULTS REPORTING]

Enter selection: ^
-------------------------------------------------------------------------------

Select PARAMETER DEFINITION NAME:
%GTM-I-CTRLC, CTRL_C encountered

ASTRON>D P^DI


VA FILEMAN 22.2V2


Select OPTION: INQUIRE TO FILE ENTRIES



Output from what File: NEW PERSON// OR
     1   OR CPRS TABS                     (2 entries)
     2   ORAM FLOWSHEET                   (0 entries)
     3   ORDER                            (848 entries)
     4   ORDER ACKNOWLEDGEMENT            (0 entries)
     5   ORDER CHECK COMPILER FUNCTIONS    (56 entries)
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-5:
     6   ORDER CHECK DATA CONTEXT         (7 entries)
     7   ORDER CHECK DATA FIELD           (159 entries)
     8   ORDER CHECK DATA SOURCE          (15 entries)
     9   ORDER CHECK ELEMENT              (140 entries)
     10  ORDER CHECK NATIONAL TERM        (15 entries)
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-10:
     11  ORDER CHECK PATIENT ACTIVE DATA    (0 entries)
     12  ORDER CHECK PATIENT RULE EVENT    (1 entry)
     13  ORDER CHECK RAW DATA LOG         (1 entry)
     14  ORDER CHECK RULE                 (71 entries)
     15  ORDER CHECKS                     (27 entries)
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-15:
     16  ORDER DELAY REASONS              (9 entries)
     17  ORDER DIALOG                     (332 entries)
     18  ORDER EXECUTE CODES              (20 entries)
     19  ORDER PARAMETERS                 (1 entry)
     20  ORDER QUICK VIEW                 (6 entries)
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-20:
     21  ORDER REASON                     (20 entries)
     22  ORDER STATISTICS                 (0 entries)
     23  ORDER STATUS                     (16 entries)
     24  ORDER STATUS                     (18 entries)
     25  ORDER TYPE                       (25 entries)
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-25:
     26  ORDER UNIT                       (33 entries)
     27  ORDER URGENCY                    (15 entries)
     28  ORDERABLE ITEMS                  (3624 entries)
CHOOSE 1-28:

Output from what File: NEW PERSON// OE
     1   OE/RR AUTO-DC RULES              (10 entries)
     2   OE/RR COM OBJECTS                (1 entry)
     3   OE/RR ERRORS                     (10000 entries)
     4   OE/RR LIST                       (1 entry)
     5   OE/RR NOTIFICATIONS              (57 entries)
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-5: 4  OE/RR LIST                 (1 entry)
Select OE/RR LIST NAME: ?
    Answer with OE/RR LIST NAME, or UPPER CASE, or USER:
   DR KING

Select OE/RR LIST NAME: ^




Select OPTION: INQUIRE TO FILE ENTRIES



Output from what File: OE/RR LIST// OE
     1   OE/RR AUTO-DC RULES              (10 entries)
     2   OE/RR COM OBJECTS                (1 entry)
     3   OE/RR ERRORS                     (10000 entries)
     4   OE/RR LIST                       (1 entry)
     5   OE/RR NOTIFICATIONS              (57 entries)
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-5:
     6   OE/RR PATIENT EVENT              (2 entries)
     7   OE/RR PRINT FIELDS               (78 entries)
     8   OE/RR PRINT FORMATS              (36 entries)
     9   OE/RR PT SEL COMBO               (0 entries)
     10  OE/RR RELEASE EVENTS             (2 entries)
Press <Enter> to see more, '^' to exit this list,  OR
CHOOSE 1-10:
     11  OE/RR REPORT                     (195 entries)
CHOOSE 1-11: 11  OE/RR REPORT             (195 entries)
Select OE/RR REPORT NAME: AD ??

Select OE/RR REPORT NAME: ?
 Answer with OE/RR REPORT NUMBER, or NAME
 Do you want the entire 195-Entry OE/RR REPORT List? Y  (Yes)
   Choose from:
   1            ORRP HEALTH SUMMARY     Health Summary     Health Summary
   2            ORRP BLOOD BANK     Blood Bank Report     Blood Bank Report
   3            ORRP AP ALL     Anatomic Pathology     Anatomic Pathology
   4            ORRP DIETETICS PROFILE     Dietetics Profile     Dietetics Profi
le
   5            ORRP VITALS CUM     Vitals Cumulative     Vitals Cumulative
   6            ORRP IMAGING     Imaging (local only)     Imaging (local only)
   7            ORRP LAB STATUS     Lab Status     Lab Status
   8            ORRP NUTRITIONAL ASSESS     Nutritional Assessment     Nutrition
al Assessment
   9            ORRP PROCEDURES     Procedures (local only)     Procedures (loca
l only)
   10           ORRP DAILY ORDER SUMMARY     Daily Order Summary     Daily Order
 Summary
   11           ORRP ORDER SUM FOR A DATE RNG     Order Summary for a Date Range
     Order Summary for a Date Range
   12           ORRP CHART COPY SUMMARY     Chart Copy Summary     Chart Copy Su
mmary
   13           ORRP OUTPATIENT RX PROFILE     Outpatient RX Profile     Outpati
ent RX Profile
                                   to exit:
   14           ORRP ALL TESTS BY DATE     ALL TESTS BY DATE
   15           ORRP SELECTED TESTS BY DATE     SELECTED TESTS BY DATE
   16           ORRP LAB GRAPH     LAB GRAPH
   17           ORRP CUSTOM ORDER SUMMARY     Custom Order Summary     Custom Or
der Summary
   18           ORL MOST RECENT     Most Recent     Most Recent
   19           ORL CUMULATIVE     Cumulative     Cumulative
   20           ORL ALL TESTS BY DATE     All Tests by Date     All Tests by Dat
e
   21           ORL WORKSHEET     Worksheet     Worksheet
   22           ORL GRAPH     Graph     Graph
   23           ORL MICROBIOLOGY     Microbiology     Microbiology
   24           ORL ANATOMIC PATHOLOGY     Anatomic Pathology - All Reports
Anatomic Pathology - All Reports
   25           ORL BLOOD BANK     Blood Bank     Blood Bank
   26           ORL LAB STATUS     Lab Status     Lab Status
   27           ORL SELECTED TESTS BY DATE     Selected Tests by Date     Select
ed Tests by Date
   28           ORCV ACTIVE PROBLEMS     Active Problems
   29           ORCV ALLERGIES     Allergies / Adverse Reactions
   30           ORCV POSTINGS     Postings
   31           ORCV ACTIVE MEDICATIONS     Active Medications
                                   to exit:
   32           ORCV CLINICAL REMINDERS     Clinical Reminders
                      Due Date
   33           ORCV RECENT LAB RESULTS     Recent Lab Results
   34           ORCV VITALS     Vitals
   35           ORCV APPOINTMENTS     Appointments/Visits/Admissions
   36           ORCV ACTIVE PROBLEM DETAILS     Active Problem Details
   37           ORCV ALLERGIES DETAILS     Allergies Details
   38           ORCV POSTINGS DETAILS     Postings Details
   39           ORCV ACTIVE MED DETAILS     Active Med Details
   40           ORCV RECENT LAB DETAILS     Recent Lab Details
   41           ORCV VISIT DETAILS     Visit Details
   42           ORRP ADHOC HEALTH SUMMARY     Adhoc Health Summary     Adhoc Hea
lth Summary
   43           ORRP BCMA MED LOG     Med Admin Log (BCMA)     Med Admin Log (BC
MA)
   44           ORRP BCMA MAH     Med Admin History (BCMA)     Med Admin History
 (BCMA)
   48           ORRP SURGERIES     Surgery (local only)     Surgery (local only)
   49           TMG GRAPH     TMG GRAPH     TMG GRAPH
   50           TMG CHILD - HEIGHT CHART     CHILD - HEIGHT CHART     TMG GROWTH
 CHART HEIGHT (CHILD)
   51           TMG INFANT - HEAD CIRC CHART     INFANT - HEAD CIRC CHART     TM
G GROWTH CHART FOR HEAD CIRCUMFERENCE
                                   to exit:
   52           TMG CHILD - WEIGHT CHART     CHILD - WEIGHT CHART     TMG GROWTH
 CHART WEIGHT (CHILD)
   53           TMG CHILD - BMI CHART     CHILD - BMI CHART     TMG GROWTH CHART
 BMI (CHILD)
   54           TMG INFANT - WT FOR LEN CHART     INFANT -- WEIGHT FOR LENGTH CH
ART     INFANT WEIGHT FOR LENGTH CHART
   55           TMG INFANT - BMI CHART     INFANT - BMI CHART     TMG GROWTH CHA
RT BMI (INFANT)
   56           TMG INFANT - WEIGHT CHART     INFANT - WEIGHT CHART     TMG GROW
TH CHART WEIGHT (INFANT)
   57           TMG INFANT - LENGTH CHART     INFANT - LENGTH CHART     TMG GROW
TH CHART LENGTH (INFANT)
   58           TMG GROWTH CHARTS     TMG GROWTH CHARTS     TMG GROWTH CHART MEN
U
   59           TMG WHO BA CHART     WHO BMI CHART     WHO BMI CHART
   60           TMG WHO GROWTH CHARTS     TMG WHO GROWTH CHARTS     TMG WHO GROW
TH CHART MENU
   61           TMG WHO BMI B2     BMI - Birth to 2 Years     WHO - BMI  Birth t
o 2 Years
   62           TMG WHO BMI B5     BMI - Birth to 5 Years     WHO - BMI Birth to
 5 Years
   63           TMG WHO BMI 25     BMI - 2 Years to 5 Years     WHO - BMI  2 Yea
rs TO 5 Years
                                   to exit:
   64           TMG WHO LENGTH B6     Length - Birth to 6 Months     WHO - Lengt
h-for-age Birth to 6 Months
   65           TMG WHO LENGTH B2     Length - Birth to 2 Years     WHO - Length
-for-age Birth to 2 Years
   66           TMG WHO LENGTH 62     Length - 6 Months to 2 Years     WHO - Len
gth-for-age 6 Months to 2 Years
   67           TMG WHO LENGTH 25     Height - 2 Years to 5 Years     WHO - Heig
ht-for-age 2 Years to 5 Years
   68           TMG WHO LENGTH B5     Height - Birth to 5 Years      WHO - Heigh
t-for-age Birth to 5 Years
   69           TMG WHO WEIGHT B6     Weight - Birth to 6 Months     WHO - Weigh
t-for-age Birth to 6 Months
   70           TMG WHO WEIGHT B2     Weight - Birth to 2 Years     WHO - Weight
-for-age Birth to 2 Years
   71           TMG WHO WEIGHT 62     Weight - 6 Months to 2 Years     WHO - Len
gth-for-age 6 Months to 2 Years
   72           TMG WHO WEIGHT B5     Weight - Birth to 5 Years     WHO - Weight
-for-age Birth to 5 Years
   73           TMG WHO WEIGHT 25     Weight - 2 Years to 5 Years     WHO - Weig
ht-for-age 2 Years to 5 Years
   74           TMG WHO HC BT     Head Circumference - Birth to 13 Weeks     WHO
 - Head Circumference Birth to 13 Weeks
                                   to exit:
   75           TMG WHO HC B2     Head Circumference - Birth to 2 Years     WHO
- Head Circumference Birth to 2 Years
   76           TMG WHO HC B5     Head Circumference - Birth to 5 Years     WHO
- Head Circumference Birth to 5 Years
   77           TMG WHO WT4HT     Weight for Height - 2 Years to 5 Years     WHO
 - Weight-for-Height 2 Years to 5 Years
   1004         ORRPW DISCHARGE SUMMARY     Discharge Summary     Discharge Summ
ary
   1006         ORRPW RADIOLOGY IMAGING     Imaging     Imaging
   1007         ORRPW PROCEDURES     Procedures     Procedures
   1018         ORRPW ADT DEMO     Patient Information     Patient Information
   1020         ORRPW DIET     Dietetics     Dietetics
   1021         ORRPW LAB     Laboratory     Laboratory
   1022         ORRPW MEDICINE/CP     Medicine/CP     Medicine/CP
   1023         ORRPW ORDERS MENU     Orders     Orders
   1024         ORRPW PCE     Outpatient Encounters / GAF Scores      Outpatient
 Encounters / GAF Scores
   1025         ORRPW PHARMACY     Pharmacy     Pharmacy
   1026         ORRPW PROBLEM LIST     Problem List     Problem List
   1027         ORRPW RADIOLOGY     Radiology     Radiology
   1028         ORRPW SURGERY     Surgery Reports     Surgery Reports
   1029         ORRPW VITALS     Vital Signs     Vital Signs
                                   to exit:
   1030         ORRPW PN     Progress Notes     Progress Notes
   1031         ORRPW REPORT CATEGORIES     Clinical Reports     Clinical Report
s
   1032         ORRPW ALLERGIES ADV     Allergies     Allergies
   1033         ORRPW ADT DEMOG     Demographics     Demographics
   1034         ORRPW ADT INS     Insurance     Insurance
   1035         ORRPW ADT DISAB     Disabilities     Disabilities
   1036         ORRPW ADT ADM DC     Adm./Discharge     Adm./Discharge
   1037         ORRPW ADT EXP     Expanded ADT     Expanded ADT
   1038         ORRPW ADT DC DIAG     Discharge Diagnosis     Discharge Diagnosi
s
   1039         ORRPW ADT DISC     Discharges     Discharges
   1040         ORRPW ADT FUTURE CLINIC     Future Clinic Visits     Future Clin
ic Visits
   1041         ORRPW ADT ICD PROC     ICD Procedures     ICD Procedures
   1042         ORRPW ADT ICD SURG     ICD Surgeries     ICD Surgeries
   1043         ORRPW ADT TRANSFERS     Transfers     Transfers
   1044         ORRPW ADT TREATING SPEC     Treating Specialty     Treating Spec
ialty
   1045         ORRPW COMP     Comp & Pen Exams     Comp & Pen Exams
   1046         ORRPW DIET GEN     Generic     Diet Generic
   1047         ORRPW DIET DIET     Diet     Diet
                                   to exit: ^

Select OE/RR REPORT NAME: 1036  ORRPW ADT ADM DC     Adm./Discharge     Adm./Dis
charge
Another one:
Standard Captioned Output? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO//  - No record number (IEN), no Computed
 Fields

NUMBER: 1036                            NAME: ORRPW ADT ADM DC
  ID: OR_ADC                            REMOTE: YES
  QUALIFIER: HSComponent                ROUTINE: ORDV01
  ENTRY POINT: HSQUERY                  CATEGORY: LISTVIEW
  TAB: REPORTS TAB                      TYPE: LISTVIEW
  RPC: ORWRP REPORT TEXT
  REPORT COMPONENT: MAS ADMISSIONS/DISCHARGES
  HEADING: Adm./Discharge               DESCRIPTIVE TEXT: Adm./Discharge
  PRINT TAG: HSTYPEB                    PRINT ROUTINE: ORWRPP1



Select OE/RR REPORT NAME:


NOW HEALTH SUMMARY TYPE AND COMPONENTS FOR OE/RR REPORTS 1036


Output from what File: HEALTH SUMMARY COMPONENT// HEALTH SUMMARY TYPE
                                          (12 entries)
Select HEALTH SUMMARY TYPE NAME:    ADM DX
Another one:
Standard Captioned Output? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO//  - No record number (IEN), no Computed
 Fields

NAME: ADM DX                            OWNER: DOCTOR,THIRTEEN
  SUPPRESS COMP WITHOUT DATA: yes
SUMMARY ORDER: 5
  COMPONENT NAME: MAS ADMISSIONS/DISCHARGES
  OCCURRENCE LIMIT: 1                   TIME LIMIT: 1Y
  HEADER NAME: Admission/Discharge
SUMMARY ORDER: 10                       COMPONENT NAME: MAS ADT HISTORY EXPANDED
  TIME LIMIT: 1Y                        HEADER NAME: ADT History Expanded
  TIMESTAMP: 62260,33494

Another one:
Standard Captioned Output? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO//  - No record number (IEN), no Computed
 Fields

NUMBER: 10                              NAME: MAS ADMISSIONS/DISCHARGES
  PRINT ROUTINE: ENAD;GMTSDGA           TIME LIMITS APPLICABLE: yes
  ABBREVIATION: ADC                     MAXIMUM OCCURRENCES APPLICABLE: yes
  DEFAULT HEADER NAME: Admission/Discharge
 DESCRIPTION:   This component contains information from the MAS package.  Time
 and occurrence limits apply to this component.  Data presented include: date
 range of admission, ward, length of stay (LOS), last treating specialty, last
 provider, admitting diagnosis text, bedsection, principal diagnosis, diagnosis
 for longest length of stay (DXLS), and secondary ICD diagnoses.



Select HEALTH SUMMARY COMPONENT NAME: MAS ADT HISTORY EXPANDED
Another one:
Standard Captioned Output? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO//  - No record number (IEN), no Computed
 Fields

NUMBER: 64                              NAME: MAS ADT HISTORY EXPANDED
  PRINT ROUTINE: MAIN;GMTSDGCH          TIME LIMITS APPLICABLE: yes
  ABBREVIATION: EADT                    MAXIMUM OCCURRENCES APPLICABLE: yes
  DEFAULT HEADER NAME: ADT History Expanded
 DESCRIPTION:   This component contains information extracted from the MAS
 package. It is a consolidated view of all the MAS components. It can only be
 used with MAS Version 5 and up.

 Time and maximum occurrence limits apply. Data presented include patient
 eligibility and rated disabilities. Movement data then follows with movement
 date, movement type (ADM=Admission, TR=Transfer, TS= Treating Specialty,
 DC=Discharge), movement description, specialty, and provider.  Admissions
 include the admission diagnosis if the patient hasn't been discharged.
 Transfers included ward location and transfer facility.  Treating specialties
 includes Specialty Tranfers Diagnosis. Dicharges include the data in the
 Discharge Diagnosis and Discharges components.  Following the data for each
 admission ICD Procedures, and ICD Surgeries will be include if present.



Select HEALTH SUMMARY COMPONENT NAME:


ALSO HEALTH SUMMARY TYPE

FOR 1004 REPORT



Select OE/RR REPORT NAME: 1004  ORRPW DISCHARGE SUMMARY     Discharge Summary
  Discharge Summary
Another one:
Standard Captioned Output? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO//  - No record number (IEN), no Computed
 Fields

NUMBER: 1004                            NAME: ORRPW DISCHARGE SUMMARY
  ID: OR_DS                             REMOTE: YES
  QUALIFIER: HSWPComponent              ROUTINE: ORDV01
  ENTRY POINT: HSQUERY                  CATEGORY: LISTVIEW
  TAB: REPORTS TAB                      TYPE: LISTVIEW
  RPC: ORWRP REPORT TEXT                REPORT TAG: TIUDCS
  REPORT ROUTINE: ORDV04                REPORT COMPONENT: DISCHARGE SUMMARY
  HEADING: Discharge Summary            DESCRIPTIVE TEXT: Discharge Summary
  PRINT TAG: HSTYPEB                    PRINT ROUTINE: ORWRPP1
  EXTRACT TAG: TDCS                     EXTRACT ROUTINE: ORDV04
COLUMN HEADERS: Facility                SEQUENCE: 1
  PRINT LENGTH: 10                      INCLUDE ON PRINT: YES
COLUMN HEADERS: Admitted Date/Time      SEQUENCE: 3
  PRINT LENGTH: 18                      INCLUDE ON PRINT: YES
  PRINT TITLE: Admitted                 DATA TYPE: DATE/TIME
COLUMN HEADERS: Discharged Date/Time    SEQUENCE: 4
  PRINT LENGTH: 18                      INCLUDE ON PRINT: YES
  PRINT TITLE: Discharged               DATA TYPE: DATE/TIME
COLUMN HEADERS: Author / Dictated By    SEQUENCE: 5
  PRINT LENGTH: 10                      INCLUDE ON PRINT: YES
COLUMN HEADERS: Approved By             SEQUENCE: 6

Type <Enter> to continue or '^' to exit:
  PRINT LENGTH: 12                      INCLUDE ON PRINT: YES
  PRINT TITLE: Approved By
COLUMN HEADERS: Current Status          SEQUENCE: 7
  PRINT LENGTH: 10                      INCLUDE ON PRINT: YES
  PRINT TITLE: Status
COLUMN HEADERS: ID                      VISIBLE: NO
  SEQUENCE: 2
COLUMN HEADERS: Summary                 VISIBLE: NO
  SEQUENCE: 8                           TYPE: WORD PROCESSING
  INCLUDE ON DETAIL: YES                INCLUDE ON PRINT: YES
COLUMN HEADERS: [+]                     VISIBLE: YES
  SEQUENCE: 9
  SORT ORDER: 3:5                       FHIE DATA: YES

HEALTH SUMMARY TYPE

Output from what File: OE/RR REPORT// HEALTH SUMMARY TYPE
                                          (12 entries)
Select HEALTH SUMMARY TYPE NAME: DISCHARGE
     1   DISCHARGE DX
     2   DISCHARGE SUMMARY
CHOOSE 1-2: 2  DISCHARGE SUMMARY
Another one:
Standard Captioned Output? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO//  - No record number (IEN), no Computed
 Fields

NAME: DISCHARGE SUMMARY                 OWNER: DOCTOR,THIRTEEN
SUMMARY ORDER: 5                        COMPONENT NAME: DISCHARGE SUMMARY BRIEF
  OCCURRENCE LIMIT: 1                   TIME LIMIT: 1Y
  HEADER NAME: Brief Disch Summary
  TIMESTAMP: 62260,33050



Select HEALTH SUMMARY TYPE NAME:


utput from what File: OE/RR REPORT// HEALTH SUMMARY COMPONENT
                                          (108 entries)
Select HEALTH SUMMARY COMPONENT NAME: DISCHARGE SUMM
     1   DISCHARGE SUMMARY
     2   DISCHARGE SUMMARY BRIEF
CHOOSE 1-2: 1  DISCHARGE SUMMARY
Another one:
Standard Captioned Output? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO//  - No record number (IEN), no Computed
 Fields

NUMBER: 57                              NAME: DISCHARGE SUMMARY
  PRINT ROUTINE: MAIN;GMTSDS            TIME LIMITS APPLICABLE: yes
  ABBREVIATION: DCS                     MAXIMUM OCCURRENCES APPLICABLE: yes
  OUT OF ORDER MESSAGE: Discharge Summary Package not yet installed or available
  DEFAULT HEADER NAME: Discharge Summary
 DESCRIPTION:   This component prints all discharge summaries (including report
 text) for user-specified time and occurrence limits.



Select HEALTH SUMMARY COMPONENT NAME: ^


ASTRON>D ^%G

Output device: <terminal>:

List ^

ASTRON>D ^%G

Output device: <terminal>:

List ^DGPM("ATID1",622,*)
^DGPM("ATID1",622,6858797.9159669,241)=""

List ^

ASTRON>D P^DI


VA FILEMAN 22.2V2


Select OPTION:
ASTRON>D P^DI


VA FILEMAN 22.2V2


Select OPTION: INQUIRE TO FILE ENTRIES



Output from what File: PATIENT//          (2393 entries)
Select PATIENT NAME: `622
  ZZ PATIENT,TEST FOUR               <A>    M 01-01-2001 729010101P
                                                                      729010101P
Another one:
%GTM-I-CTRLC, CTRL_C encountered

ASTRON>D P^DI


VA FILEMAN 22.2V2


Select OPTION: INQUIRE TO FILE ENTRIES



Output from what File: PATIENT// PATIENT MOVEMENT    (236 entries)
Select PATIENT MOVEMENT DATE/TIME: `241  DEC 2,2014@08:40:33  ZZ PATIENT,TEST FO
UR (729010101P)
               ADMISSION:  DIRECT
Another one:
Standard Captioned Output? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO//  - No record number (IEN), no Computed
 Fields
Display Audit Trail? No//   NO

DATE/TIME: DEC 2,2014@08:40:33          TRANSACTION: ADMISSION
  PATIENT: ZZ PATIENT,TEST FOUR         TYPE OF MOVEMENT: DIRECT
  WARD LOCATION: CH 3 EAST              ROOM-BED: 300-A
  PRIMARY PHYSICIAN: VALDES,IGNACIO     DIAGNOSIS [SHORT]: Psychosis
  ADMITTING REGULATION: ACTIVE PSYCHOSIS
  ADMISSION/CHECK-IN MOVEMENT: DEC 2,2014@08:40:33
  PTF ENTRY: 80                         MAS MOVEMENT TYPE: DIRECT
  ASIH SEQUENCE: 0                      SCHEDULED ADMISSION?: NO
  FACILITY DIRECTORY EXCLUSION: NO
  FACILITY DIRECTORY TIME STAMP: DEC 2,2014@08:40:43
  FACILITY DIRECTORY USER: ADMINISTRATOR,SYSTEM
  ADMITTING CATEGORY: 0                 ENTERED BY: ADMINISTRATOR,SYSTEM
  ENTERED ON: DEC 2,2014@08:40:35       LAST EDITED BY: ADMINISTRATOR,SYSTEM
  LAST EDITED ON: DEC 2,2014@08:41:38



Select PATIENT MOVEMENT DATE/TIME: ^




Select OPTION: ENTER OR EDIT FILE ENTRIES



Input to what File: PATIENT MOVEMENT//    (236 entries)
EDIT WHICH FIELD: ALL// ADMITT
     1   ADMITTED FOR SC CONDITION?
     2   ADMITTING CATEGORY
     3   ADMITTING ELIGIBILITY
     4   ADMITTING REGULATION
CHOOSE 1-4: 2  ADMITTING CATEGORY
THEN EDIT FIELD:


Select PATIENT MOVEMENT DATE/TIME:




Select OPTION: ENTER OR EDIT FILE ENTRIES



Input to what File: PATIENT MOVEMENT//    (236 entries)
EDIT WHICH FIELD: ALL// ADMITTING
     1   ADMITTING CATEGORY
     2   ADMITTING ELIGIBILITY
     3   ADMITTING REGULATION
CHOOSE 1-3: 1  ADMITTING CATEGORY
THEN EDIT FIELD:


Select PATIENT MOVEMENT DATE/TIME:    DEC 2,2014@08:40:33  ZZ PATIENT,TEST FOUR
(729010101P)
               ADMISSION:  DIRECT
ADMITTING CATEGORY: 0// ?
     Please enter the Sharing Agreement Category.
ADMITTING CATEGORY: 0// ??
        If and entry for the Admitting Regulation exist in the Sharing Agreement
        Category file (#35.1) then the user will be prompted for the category
        associated with the Admitting Regulation.

ADMITTING CATEGORY: 0// ^


Select PATIENT MOVEMENT DATE/TIME: ^




Select OPTION: INQUIRE TO FILE ENTRIES



Output from what File: PATIENT MOVEMENT// 35.1  SHARING AGREEMENT CATEGORY
                                          (0 entries)
Select SHARING AGREEMENT CATEGORY A/P: ?
Select SHARING AGREEMENT CATEGORY A/P:



PUT IN VOL OR INVOL IN THIS ABOVE FIELD( SHARING AGREEMENT).




Select OPTION: DATA DICTIONARY UTILITIES
Select DATA DICTIONARY UTILITY OPTION: LIST FILE ATTRIBUTES
 START WITH What File: SHARING AGREEMENT CATEGORY// PATIENT MOVEMENT
                                          (236 entries)
      GO TO What File: PATIENT MOVEMENT//   (236 entries)
      Select SUB-FILE:
Select LISTING FORMAT: STANDARD//
Start with field: FIRST//
DEVICE:   TELNET
STANDARD DATA DICTIONARY #405 -- PATIENT MOVEMENT FILE       12/28/14    PAGE 1
STORED IN ^DGPM(  (236 ENTRIES)   SITE: Vista-Office EHR   UCI: EHR,EHR (VERSION
 5.3)

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-------------------------------------------------------------------------------
This file holds the data for all admissions, transfers, discharges, treating
specialty changes, and lodger movements.  These entries must not be edited
through fileman.  Instead, the appropriate bed control options should be
executed to insure data consistency.

The following cross-references exist on this file:
           ^DGPM("ATID"_TT,DFN,Inverse date_AS,DA)=""
           ^DGPM("ATT"_TT,Date_AS,DA)=""
           ^DGPM("APID",DFN,Inverse Date_AS,DA)=""
           ^DGPM("APTT"_TT,DFN,Date_AS,DA)=""
           ^DGPM("APCA",DFN,Corresponding Admission,Date_AS,DA)=""
           ^DGPM("APMV",DFN,Corresponding Admission,Inverse Date_AS,DA)=""
           ^DGPM("APRD",DFN,Date_AS,DA)=""
           ^DGPM("AMV"_TT,Date_AS,DFN,DA)=""
           ^DGPM("ATS",DFN,Corresponding Admission,Inverse Date_AS,Treating
STANDARD DATA DICTIONARY #405 -- PATIENT MOVEMENT FILE       12/28/14    PAGE 2
STORED IN ^DGPM(  (236 ENTRIES)   SITE: Vista-Office EHR   UCI: EHR,EHR (VERSION
 5.3)

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-------------------------------------------------------------------------------
Specialty,DA)=""
           ^DGPM("CN",External Format of Ward,DA)=""       **inpatients only**
           ^DGPM("LD",External Format of Ward,DA)=""       **lodgers only**
           ^DGPM("ARM",IFN of Room-bed,DA)=1 or 0          [1 indicates lodger,
0 indicates non-lodger]
           ^DGPM("B",Date,DA)=""
           ^DGPM("C",DFN,DA)=""
           ^DGPM("CA",Corresponding Admission,DA)=""

where:     TT=Transaction type where choices are as follows:
                1=admission          4=check-in lodger
                2=transfer           5=check-out lodger
                3=discharge          6=specialty change

           AS=ASIH Sequencewhere choices are as follows:
STANDARD DATA DICTIONARY #405 -- PATIENT MOVEMENT FILE       12/28/14    PAGE 3
STORED IN ^DGPM(  (236 ENTRIES)   SITE: Vista-Office EHR   UCI: EHR,EHR (VERSION
 5.3)

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-------------------------------------------------------------------------------
                1=transfer to hospital ASIH
                2=Admission to hospital (automatically generated by module)
           or  1=discharge from hospitalwithin 30 days of ASIH stay
                2=transfer to or discharge from NHCU/DOM (automatically
generated by module)
           [NOTE:  This value is 0 for non-ASIH movements or ASIH movements
where there are not 2 movements at the same date/time]



COMPILED CROSS-REFERENCE ROUTINE: DGPMXX
              DD ACCESS: @
              RD ACCESS: d
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
IDENTIFIED BY: TRANSACTION (#.02)[R], PATIENT (#.03)[R],
               TYPE OF MOVEMENT (#.04)[R],
               ADMISSION/CHECK-IN MOVEMENT (#.14)[R]
%GTM-I-CTRLC, CTRL_C encountered

LOOK FOR ADMISSION LIST IN THIS CROSS REFERENCE BACK TO A CERTAIN DATE 
AS EARLIEST DATE OF ADMISSION.

ASTRON>D ^%G

Output device: <terminal>:

List ^^DGPM("AMV1",*)
^DGPM("AMV1",3100101.09,1,40)=""
^DGPM("AMV1",3100101.09,2,46)=""
^DGPM("AMV1",3100110.09,1,43)=""
^DGPM("AMV1",3100110.09,66,49)=""
^DGPM("AMV1",3100115.09,1,51)=""
^DGPM("AMV1",3100120.09,94,59)=""
^DGPM("AMV1",3100201.09,41,33)=""
^DGPM("AMV1",3100220.13,124,117)=""
^DGPM("AMV1",3100301.09,96,62)=""
^DGPM("AMV1",3100401.09,1,87)=""
^DGPM("AMV1",3100405.1,97,66)=""
^DGPM("AMV1",3100501.09,76,90)=""
^DGPM("AMV1",3100501.09,100,84)=""
^DGPM("AMV1",3100601.11,95,72)=""
^DGPM("AMV1",3100901.09,98,75)=""
^DGPM("AMV1",3110502.09,125,193)=""
^DGPM("AMV1",3110506.09,85,37)=""
^DGPM("AMV1",3110506.09,145,188)=""
^DGPM("AMV1",3110511.17,90,29)=""
^DGPM("AMV1",3110512.09,3,13)=""
^DGPM("AMV1",3110512.09,20,9)=""
^DGPM("AMV1",3110512.09,123,195)=""
^DGPM("AMV1",3110512.163504,91,1)=""
^DGPM("AMV1",3110512.2,83,23)=""
^DGPM("AMV1",3110515.09,91,27)=""
^DGPM("AMV1",3110515.124215,5,15)=""
^DGPM("AMV1",3110515.141627,7,17)=""
^DGPM("AMV1",3110515.143849,8,21)=""
^DGPM("AMV1",3110515.14435,92,25)=""
^DGPM("AMV1",3110517.09,150,120)=""
^DGPM("AMV1",3110519.09,107,155)=""
^DGPM("AMV1",3110519.1,97,69)=""
^DGPM("AMV1",3110519.205017,73,31)=""
^DGPM("AMV1",3110521.09,103,186)=""
^DGPM("AMV1",3110525.11,147,197)=""
^DGPM("AMV1",3110527.09,146,202)=""
^DGPM("AMV1",3110527.190952,73,57)=""
^DGPM("AMV1",3110529.182459,52,78)=""
^DGPM("AMV1",3110529.222257,68,80)=""
^DGPM("AMV1",3110530.185041,25,82)=""
^DGPM("AMV1",3110531.08,144,184)=""
^DGPM("AMV1",3110531.08,149,164)=""
^DGPM("AMV1",3110531.1,129,160)=""
^DGPM("AMV1",3110531.200054,15,93)=""
^DGPM("AMV1",3110531.20043,19,95)=""
^DGPM("AMV1",3110531.20054,22,97)=""
^DGPM("AMV1",3110531.200629,24,99)=""
^DGPM("AMV1",3110531.200747,34,101)=""
^DGPM("AMV1",3110531.20084,36,103)=""
^DGPM("AMV1",3110531.201117,39,105)=""
^DGPM("AMV1",3110531.201226,41,107)=""
^DGPM("AMV1",3110531.201316,53,109)=""
^DGPM("AMV1",3110531.201544,67,111)=""
^DGPM("AMV1",3110531.201634,70,113)=""
^DGPM("AMV1",3110531.20182,54,115)=""
^DGPM("AMV1",3110601.09,120,126)=""
^DGPM("AMV1",3110604.1,111,146)=""
^DGPM("AMV1",3110605.11,130,166)=""
^DGPM("AMV1",3110606.08,141,140)=""
^DGPM("AMV1",3110607.09,127,129)=""
^DGPM("AMV1",3110608.093,134,152)=""
^DGPM("AMV1",3110608.1,135,122)=""
^DGPM("AMV1",3110608.11,128,143)=""
^DGPM("AMV1",3110610.09,106,134)=""
^DGPM("AMV1",3110610.09,110,158)=""
^DGPM("AMV1",3110610.14,131,168)=""
^DGPM("AMV1",3110611.1,88,138)=""
^DGPM("AMV1",3110611.11,133,149)=""
^DGPM("AMV1",3110613.124423,5,132)=""
^DGPM("AMV1",3110618.16,109,177)=""
^DGPM("AMV1",3110619.11,113,175)=""
^DGPM("AMV1",3110620.03,138,179)=""
^DGPM("AMV1",3110620.062907,1,173)=""
^DGPM("AMV1",3110621.05,122,205)=""
^DGPM("AMV1",3131123.234136,181,209)=""
^DGPM("AMV1",3141130.235035,1838,235)=""
^DGPM("AMV1",3141201.11061,1734,238)=""
^DGPM("AMV1",3141202.084033,622,241)=""

List ^

USE FOR AWARE FOR FILTERING BELOE EXAMPLE AND MAYBE FOR ADMISSIONS BELOW WITH 
EXTERNAL/EXTRACTION ROUTINE


Output from what File: HEALTH SUMMARY COMPONENT//   (109 entries)
Sort by: NAME//
Start with NAME: FIRST// A
Go to NAME: LAST// Z
  Within NAME, Sort by:
First Print FIELD: NAME
Then Print FIELD: EXTRACT??
Then Print FIELD: EXTERNAL/EXTRACT ROUTINE    (multiple)
  Then Print EXTERNAL/EXTRACT ROUTINE SUB-FIELD: ?
    Answer with EXTERNAL/EXTRACT ROUTINE SUB-FIELD NUMBER, or LABEL:
   .01          EXTERNAL/EXTRACT ROUTINE

Type '&' in front of field name to get TOTAL for that field.
     '!' to get COUNT.   '+' to get TOTAL & COUNT.    '#' to get MAX & MIN.
     ']' to force SAVING PRINT TEMPLATE
You can follow field name with ';' and FORMAT SPECIFICATION.
  Then Print EXTERNAL/EXTRACT ROUTINE SUB-FIELD: .01  EXTERNAL/EXTRACT ROUTINE
  Then Print EXTERNAL/EXTRACT ROUTINE SUB-FIELD:
Then Print FIELD:
Heading (S/C): HEALTH SUMMARY COMPONENT List  Replace
START at PAGE: 1//
DEVICE:   TELNET
HEALTH SUMMARY COMPONENT List                         DEC 28,2014@14:43   PAGE 1
NAME                            EXTERNAL/EXTRACT ROUTINE
--------------------------------------------------------------------------------

ADVANCE DIRECTIVE
ADVER/ALLERG/ACTIVE DET
ADVERSE REACTIONS/ALLERG BRIEF  EN1;C0QGMRAD
ADVERSE REACTIONS/ALLERGIES     EN1;C0QGMRAD
ADVERSE RXN/ALLERGY ACTIVE      ALLRGP;C0QGMTSG
Active/Pending/Expired Meds
CLINICAL REMINDERS BRIEF        MAIN;PXRM(DFN,SEG,FLG)
CLINICAL REMINDERS DUE
CLINICAL REMINDERS FINDINGS     MAIN;PXRM(DFN,SEG,FLG)
CLINICAL REMINDERS LAST DONE    MAIN;PXRM(DFN,SEG,FLG)
CLINICAL REMINDERS MAINTENANCE
CLINICAL REMINDERS SUMMARY
CLINICAL WARNINGS
COMPENSATION AND PENSION EXAMS
CONSULTS BRIEF                  MAIN;GMTSCNB
CRISIS NOTES
HEALTH SUMMARY COMPONENT List                         DEC 28,2014@14:43   PAGE 2
NAME                            EXTERNAL/EXTRACT ROUTINE
--------------------------------------------------------------------------------

DIETETICS
DISCHARGE SUMMARY
DISCHARGE SUMMARY BRIEF
GEC Completed Referral Count
GEC Health Factor Category      HF;PXRHS07(DFN,END,BEG,NUM,.GMTSARY)
GLOBAL ASSESSMENT FUNCTIONING   GAFHX;YSGAFAPI
IMAGING IMPRESSION
IMAGING IMPRESSION SELECTED
IMAGING PROFILE
IMAGING STATUS
LAB BLOOD AVAILABILITY
LAB BLOOD TRANSFUSIONS
LAB CHEMISTRY & HEMATOLOGY
LAB CUMULATIVE SELECTED
LAB CUMULATIVE SELECTED 1
LAB CUMULATIVE SELECTED 2
HEALTH SUMMARY COMPONENT List                         DEC 28,2014@14:43   PAGE 3
NAME                            EXTERNAL/EXTRACT ROUTINE
--------------------------------------------------------------------------------

LAB CUMULATIVE SELECTED 3
LAB CUMULATIVE SELECTED 4
LAB CYTOPATHOLOGY
LAB ELECTRON MICROSCOPY
LAB MICROBIOLOGY
LAB MICROBIOLOGY BRIEF
LAB ORDERS
LAB ORDERS BRIEF
LAB SURGICAL PATHOLOGY
LAB TESTS SELECTED
MAG IMAGING
MAS ADMISSIONS/DISCHARGES
MAS ADT HISTORY
MAS ADT HISTORY EXPANDED
MAS CLINIC VISITS FUTURE
MAS CLINIC VISITS PAST
HEALTH SUMMARY COMPONENT List                         DEC 28,2014@14:43   PAGE 4
NAME                            EXTERNAL/EXTRACT ROUTINE
--------------------------------------------------------------------------------

MAS DEMOGRAPHICS
MAS DEMOGRAPHICS BRIEF
MAS DISABILITIES
MAS DISCHARGE DIAGNOSIS
MAS DISCHARGES
MAS PROCEDURES ICD CODES
MAS SURGERIES ICD CODES
MAS TRANSFERS
MAS TREATING SPECIALTY
MEDICINE ABNORMAL BRIEF
MEDICINE BRIEF REPORT
MEDICINE FULL CAPTIONED
MEDICINE FULL REPORT
MEDICINE SUMMARY
MENTAL HEALTH PHYSICAL EXAM
MHA Administration List
HEALTH SUMMARY COMPONENT List                         DEC 28,2014@14:43   PAGE 5
NAME                            EXTERNAL/EXTRACT ROUTINE
--------------------------------------------------------------------------------

MHA Score
MHV REMINDERS DETAIL DISPLAY
MHV REMINDERS SUMMARY DISPLAY
Medication Reconciliation
Medication Worksheet
NEXT OF KIN                     NOKC;GMTSDEM2
NON VA MEDICATIONS              PSOHCSUM
ONCOLOGY
ORDERS CURRENT
PCE EDUCATION
PCE EDUCATION LATEST
PCE EXAMS LATEST
PCE HEALTH FACTORS ALL
PCE HEALTH FACTORS SELECTED
PCE IMMUNIZATIONS
PCE LOCATION OF HOME
HEALTH SUMMARY COMPONENT List                         DEC 28,2014@14:43   PAGE 6
NAME                            EXTERNAL/EXTRACT ROUTINE
--------------------------------------------------------------------------------

PCE OUTPATIENT DIAGNOSIS
PCE OUTPATIENT ENCOUNTERS
PCE SKIN TESTS
PCE TREATMENTS PROVIDED
PHARMACY INTRAVENOUS
PHARMACY OUTPATIENT
PHARMACY UNIT DOSE
PROBLEM LIST ACTIVE
PROBLEM LIST ALL
PROBLEM LIST INACTIVE
PROGRESS NOTES
PROGRESS NOTES BRIEF
PROGRESS NOTES SELECTED
Remote Active Medications
Remote Allergy/ADR Data
SOCIAL WORK
HEALTH SUMMARY COMPONENT List                         DEC 28,2014@14:43   PAGE 7
NAME                            EXTERNAL/EXTRACT ROUTINE
--------------------------------------------------------------------------------

SPINAL CORD DYSFUNCTION
SURGERY NON OR PROCEDURES
SURGERY ONLY REPORTS
SURGERY REPORTS
SURGERY REPORTS BRIEF
SURGERY SEL NON OR PROCEDURES
VEFA HOSPITAL ALL PAT CENSUS
VITAL SIGNS                     EN1;GMVHS
VITAL SIGNS DETAILED DISPLAY    EN1;GMVHS
VITAL SIGNS OUTPATIENT          EN1;GMVHS
VITAL SIGNS SELECTED            EN1;GMVHS
VITAL SIGNS SELECTED OUTPAT.


Press RETURN to continue...


          Enter or Edit File Entries
          Print File Entries
          Search File Entries
          Modify File Attributes
          Inquire to File Entries
          Utility Functions ...
          Data Dictionary Utilities ...
          Transfer Entries
          Other Options ...

Select VA FileMan Option:


GMTSUP  CONTAINS COMPONENT HEADER AND HS HEADER 

GMTSUP ; SLC/KER - Utilities for Paging HS           ; 01/06/2003
 ;;2.7;Health Summary;**2,7,21,27,28,30,35,47,56,58,85**;Oct 20, 1995;Build 24
 ;
 ; External References
 ;   DBIA 10026  ^DIR
 ;   DBIA    82  EN^XQORM
 ;                       
CKP ; Check page position, pause and prompt
 Q:$D(GMTSQIT)  S GMTSNPG=0
 K:$L($G(GMTSOBJ("LABEL"))) GMTSOBJ("REPORT HEADER")
 I $G(GMTSWRIT)=1 D BREAK S GMTSWRIT=0
 I +($$HF^GMTSU) D BREAK:(GMTSEGN'=$G(GMTSLCMP)) Q
 Q:+$G(GMTSLPG)'>0&($Y'>(IOSL-GMTSLO))
 I $E(IOST,1)="C" S:'$D(GMTSTOF) GMTSTOF=1 D CKP1
 I '$D(GMTSQIT) W @IOF D HEADER,BREAK S GMTSNPG=1,GMTSTOF=GMTSEGN
 I $D(GMTSQIT),(GMTSQIT]""),($D(GMTSTYP)) W @IOF D HEADER S GMTSTOF=GMTSEGN
 Q
CKP1 ; Help Display of Optional Components for Navigation
 N DA,I,J,K,L,X,XQORM,Y,GMTSY,TYP,DIC
 I $S('$D(GMTSTYP):1,$D(GMTOPT):1,1:0) N DIR S DIR(0)="E" D ^DIR K DIR S:$D(DUOUT)!(GMTSLPG) GMTSQIT="" Q
 S TYP=GMTSTYP
 S DIC=142,DIC(0)="MZF",X="GMTS HS ADHOC OPTION" S Y=$$TYPE^GMTSULT
 S GMTSTYP=+Y K DIC,X,Y
 S XQORM=GMTSTYP_";GMT(142,",XQORM(0)="1AF\+",XQORM("A")="Press <RET> to continue, ^ to exit, or select component: "
 S XQORM("??")="D HELP^GMTSUP1" I GMTSLPG,'$D(GMTSOBJ) W:'$D(GMTSOBJE) "* END * "
 S XQORM("S")="I $D(^GMT(142,DA(1),1,DA,0)),($P(^GMT(142.1,$P(^GMT(142,DA(1),1,DA,0),U,2),0),U,6)'=""T"")"
 D EN^XQORM W ! D @$S(Y=1:"BRNCH",1:"EVAL")
 I $D(GMTSY),(GMTSY=0) K GMTSY G CKP1
 S GMTSTYP=TYP
 Q
BREAK ; Writes the Component Header
 ;           
 ;   If the variable GMTSOBJ exist, then the 
 ;   Component Headers are suppressed with the
 ;   following exceptions:
 ;           
 ;       If GMTSOBJ("COMPONENT HEADER") exist,
 ;       then the Component Header will NOT be
 ;       suppressed
 ;           
 ;       If GMTSOBJ("BLANK LINE") exist, a blank
 ;       line will be written after the Component
 ;       Header
 ;              
 N GMTSM,GMTSF S GMTSM=$$MUL,GMTSF=$$FST
 I +GMTSM=0,$D(GMTSOBJ),'$D(GMTSOBJ("COMPONENT HEADER")),'$D(GMTSOBJ("BLANK LINE")) Q
 N GMTS,GMTSUL,GMTSL S:'$D(GMTSLCMP) GMTSLCMP=0
 S GMTSUL="",GMTSNPG=1,GMTS=$$CHDR,GMTSL=+($L($G(GMTS))),$P(GMTSUL,"-",+GMTSL)="-"
 I $Y'>(IOSL-GMTSLO)!(+($$HF^GMTSU)) D
 . I $D(GMTSOBJ) D  Q
 . . S GMTSLCMP=GMTSEGN
 . . I +($G(GMTSM))>0!($D(GMTSOBJ("COMPONENT HEADER"))) D
 . . . W:+GMTSF=0 ! W !,GMTS W:$D(GMTSOBJ("UNDERLINE")) !,GMTSUL
 . . . W ! W:$D(GMTSOBJ("BLANK LINE")) !
 . W !,GMTS,!
 . W:$Y'>(IOSL-GMTSLO) ?34,$S(GMTSEGN=GMTSLCMP:"(continued)",1:""),!
 . S GMTSLCMP=GMTSEGN
 Q
OLDB ;
 S:'$D(GMTSLCMP) GMTSLCMP=0
 S GMTS="",GMTSNPG=1
 S $P(GMTS,"-",79-$L(GMTSEGH_GMTSEGL)/2)=""
 S GMTS=GMTS_" "_GMTSEGH_GMTSEGL_" "_GMTS
 I $Y'>(IOSL-GMTSLO)!(+($$HF^GMTSU)) D
 . W !,GMTS,!
 . W:$Y'>(IOSL-GMTSLO) ?34,$S(GMTSEGN=GMTSLCMP:"(continued)",1:""),!
 . S GMTSLCMP=GMTSEGN
        Q
HEADER ; Print Running Header
 ;           
 ;   If the variable GMTSOBJ exist, then the 
 ;   Report Headers are suppressed with the 
 ;   following exceptions:
 ;           
 ;       If GMTSOBJ("DATE LINE") exist, then the
 ;       Location/Report Date line will NOT be
 ;       suppressed.
 ;           
 ;       If GMTSOBJ("CONFIDENTIAL") exist, then
 ;       the Confidential Header Name line will
 ;       NOT be suppressed.
 ;           
 ;       If GMTSOBJ("REPORT HEADER") exist, then
 ;       the Report Header containing the patient's
 ;       name, SSAN, ward and DOB will NOT be
 ;       suppressed.
 ;              
 ;       If the variable GMTSOBJ("LABEL") contains
 ;       text, and the variable GMTSOBJ("USE LABEL")
 ;       exist, then this text will be printed before
 ;       the object text.
 ;                 
 ;       If GMTSOBJ("REPORT DECEASED") exist, then
 ;       the optional line that displays for Deceased
 ;       patients will NOT be suppressed.
 ;                 
 ;   Header Lines:
 N GMTSVDT,DATA S DATA="" I +$G(GMTSPXD1)&+$G(GMTSPXD2) D
 . Q:$G(GMTSOBJ)  S:'$D(GMTSOBJE) DATA="Printed for data "  S:$D(GMTSOBJE) DATA="Include data "
 . I GMTSPXD1=GMTSPXD2 S DATA=DATA_"on "_GMTSPXD1 Q
 . S DATA=DATA_"from "_GMTSPXD2_" to "_GMTSPXD1
 I $D(GMTSCDT(0)),'$D(GMTSOBJ) S GMTSVDT=GMTSCDT(0) S:GMTSDTM'["Printed:" GMTSDTM="Printed: "_GMTSDTM
 ;     Location and Date of Report
 I '$D(GMTSOBJ)!($D(GMTSOBJ("DATE LINE"))) D
 . N GMTSLOC S GMTSLOC=$S('$D(GMTSOBJ("DATE LINE")):$P($G(GMTSSC),U,2),1:"")
 . W !,$S($L(GMTSLOC):"Location: "_GMTSLOC_" ",1:"")
 . W $S($D(GMTSVDT):GMTSVDT,1:"")
 . W:'$D(GMTSOBJ("DATE LINE")) DATA,?(79-$L(GMTSDTM)),GMTSDTM
 . W:$D(GMTSOBJ("DATE LINE")) DATA,?(74-$L(GMTSDTM)),GMTSDTM
 ;     Confidential Header Name
 S:'$D(GMTSPG) GMTSPG=0
 S GMTSPG=GMTSPG+1,GMTSHDR=" CONFIDENTIAL "_GMTSTITL_" SUMMARY "
 S GMTSHDR=GMTSHDR_$S($E(IOST,1)="C":"",1:"  pg. "_GMTSPG)
 S GMTS="" S:'$D(GMTSOBJ) $P(GMTS,"*",(77-$L(GMTSHDR))\2)="*"
 S:$D(GMTSOBJ) $P(GMTS,"*",(72-$L(GMTSHDR))\2)="*"
 S GMTSHDR=GMTS_" "_GMTSHDR_" "_GMTS
 I '$D(GMTSOBJ)!($D(GMTSOBJ("CONFIDENTIAL"))) W !,GMTSHDR,"*"
 ;     Name, SSAN, Ward, DOB
 I '$D(GMTSLFG) D
 .I $G(GMTSTITL)'["AD HOC",($G(GMTSTITL)'["PDX"),($G(HSTAG)="") D EN^GMTSHCPR  ;GMTS,85 restrict ssn/dob on HS Type hard copies 
 . I $G(GMTSPHDR("TWO")) D
 . . I $D(GMTSOBJ),'$D(GMTSOBJ("REPORT HEADER")),$L($G(GMTSOBJ("LABEL"))) D LABEL
 . . I $D(GMTSOBJ),'$D(GMTSOBJ("REPORT HEADER")) Q
 . . W !,GMTSPHDR("NMSSN"),?GMTSPHDR("DOBS"),GMTSPHDR("DOB")
 . . W !,?GMTSPHDR("WARDRBS"),GMTSPHDR("WARDRB")
 . E  D
 . . I $D(GMTSOBJ),'$D(GMTSOBJ("REPORT HEADER")),$L($G(GMTSOBJ("LABEL"))) D LABEL
 . . I $D(GMTSOBJ),'$D(GMTSOBJ("REPORT HEADER")) Q
 . . W !,GMTSPHDR("NMSSN"),?GMTSPHDR("WARDRBS")
 . . W GMTSPHDR("WARDRB"),?GMTSPHDR("DOBS"),GMTSPHDR("DOB")
 ;     Deceased
 ;                    
 I '$D(GMTSOBJ)!($D(GMTSOBJ("DECEASED"))) D
 . W:+$G(VADM(6)) !,?26,"** DECEASED   "_$P(VADM(6),U,2)_" **"
 W:'$D(GMTSOBJ) !
 Q
BRNCH ; Checks abbreviation to branch to a different component
 N GMTINX,LIM,CREC,SBS
 I Y,("+-"[X) S:X="-" GMTSEGN=GMTSTOF-1 S (GMTSY,GMTSQIT)=1,GMTSLPG=0 Q
 I X="^^" S DIROUT=1,GMTSQIT="" Q
 I Y,(X?1"^^".E) Q
 S GMTINX=$S($D(^GMT(142,GMTSTYP,1,+Y(1),0)):$P(^(0),U,2),1:"")
 I 'GMTINX S GMTSY=0 Q
 I '$D(GMTSEGI(GMTINX)) N GMI,GMJ,GMTSDFLT S GMI=1,GMJ=GMTSEGC,GMTSDFLT=1 D LOAD^GMTSADH S GMTSEGC=GMTSEGC+1
 I '$D(GMTSEGI(GMTINX)) S GMTINX="",GMTSY=0 Q
 S LIM=$P(Y(1),U,4) I LIM'["=" G NOLIM
 S CREC=^GMT(142.1,GMTINX,0),SBS=GMTSEGI(GMTINX) D CMPLIM^GMTSADH2
 I $D(DIROUT) S GMTSQIT="" Q
NOLIM ; No limits
 S GMTSEGN=GMTSEGI(GMTINX)-1,(GMTSY,GMTSQIT)=1,GMTSLPG=0
 Q
 ;
EVAL ; Evaluate input to determine quit or continue
 Q:'$D(X)
 S:$D(GMTSEXIT) GMTSEXIT=$G(X)
 S:$D(DTOUT) DIROUT=1 I $S(X="^^":1,GMTSLPG:1,$D(DIROUT):1,X="^":1,1:0) S GMTSQIT=""
 I +$G(GMPSAP),(X="^") S GMDUOUT=1
 Q
MUL(X) ; Multiple Components in Type
 N GMTSF,GMTSL S GMTSF=$O(GMTSEG(0)),GMTSL=$O(GMTSEG(" "),-1)
 Q:+GMTSF=+GMTSL 0  Q 1
FST(X) ; First Component in Type
 N GMTSF,GMTSL S GMTSF=$O(GMTSEG(0)),GMTSL=+($G(GMTSEGN))
 Q:+GMTSF=+GMTSL 1  Q 0
CHDR(X) ; Component Header
 N GMTSN,GMTSH,GMTSL,GMTS S GMTSN=$$CNAM,GMTSH=$G(GMTSEGH)
 S GMTSL=$G(GMTSEGL),GMTS="",$P(GMTS,"-",79-$L(GMTSH_GMTSL)/2)=""
 S X=GMTS_" "_GMTSH_GMTSL_" "_GMTS Q:'$D(GMTSOBJ) X
 S:$L(GMTSH)&($D(GMTSOBJ("COMPONENT HEADER"))) GMTSN=GMTSH
 S:$L(GMTSL)&($L(GMTSN))&($D(GMTSOBJ("LIMITS"))) GMTSN=GMTSN_" "_GMTSL
 S X=GMTSN Q X
CNAM(X) ; Component Name
 N GMTSH S GMTSH=+($P($G(GMTSEG(+($G(GMTSEGN)))),"^",2))
 S X=$P($G(^GMT(142.1,+GMTSH,0)),"^",1) Q X
LABEL ; Label
 Q:'$D(GMTSOBJ("USE LABEL"))  N LABEL S LABEL=$G(GMTSOBJ("LABEL"))
 W !,LABEL W:$L(LABEL) ! W:$D(GMTSOBJ("LABEL BLANK LINE")) !
 Q
LABDAT ; Label/Date
 Q:'$D(GMTSOBJ("USE LABEL"))  N LABEL S LABEL=$G(GMTSOBJ("LABEL"))
 I '$D(GMTSOBJ("DATE LINE")),$D(GMTSOBJ("LABEL")),$L(LABEL),$L($G(GMTSDTM)) S LABEL=LABEL_$J("",((79-$L(GMTSDTM))-$L(LABEL)))_GMTSDTM
 I '$D(GMTSOBJ("DATE LINE")),$D(GMTSOBJ("LABEL")),'$L(LABEL),$L($G(GMTSDTM)) S LABEL="Information as of "_$G(GMTSDTM)
 W !,LABEL W:$L(LABEL) ! W:$D(GMTSOBJ("LABEL BLANK LINE")) !
 Q



GMTSU CONTAINS DEMOGRAPHICS

GMTSU ; SLC/JER,KER/NDBI - Health Summary Utilities ; 08/27/2002
 ;;2.7;Health Summary;**27,28,31,35,37,43,47,56**;Oct 20, 1995
 ;
 ; External References
 ;   DBIA 10096  ^%ZOSF("TEST")
 ;   DBIA  2934  ^A7RCP (NDBI Global)
 ;   DBIA 10103  $$FMTE^XLFDT
 ;   DBIA 10103  $$FMTHL7^XLFDT
 ;   DBIA 10103  $$HL7TFM^XLFDT
 ;   DBIA 10061  OERR^VADPT
 ;   DBIA 10104  $$UP^XLFSTR
 ;   DBIA 10026  ^DIR
 ;   DBIA  2052  FILE^DID
 ;   DBIA 10022  %XY^%RCR
 ;   DBIA  2055  $$VFIELD^DILFD
 ;   DBIA  2052  $$GET1^DID
 ;                              
PROK(X,Y) ; Routine and Patch # OK (in UCI)
 N GMTS,GMTSI,GMTSO S X=$G(X),Y=$G(Y) Q:'$L(X) 0 Q:Y'=""&(+Y=0)
 S Y=+Y,GMTS=$$ROK(X) Q:'GMTS 0 Q:+Y=0 1 S GMTSO=0,GMTS=$T(@("+2^"_X)),GMTS=$P($P(GMTS,"**",2),"**",1)
 F GMTSI=1:1:$L(GMTS,",") S:+($P(GMTS,",",GMTSI))=Y GMTSO=1 Q:GMTSO=1
 S X=GMTSO Q X
ROK(X) ; Routine OK (in UCI) (NDBI)
 S X=$G(X) Q:'$L(X) 0  Q:$L(X)>8 0  X ^%ZOSF("TEST") Q:$T 1  Q 0
NDBI(X) ; National Database Integration site 1 = yes  0 = no
 N R,G S X="A7RDUP" X ^%ZOSF("TEST") S R=$T,G=$S($D(^A7RCP):1,1:0),X=R+G,X=$S(X=2:1,1:0) Q X
 ;                
CPT(X) ; Use CPT Modifiers  Needs GMTSEG Array
 S X=+($G(X)) N GMTSN,GMTSC,GMTSM,GMTSA,GMTSI S GMTSN=$G(GMTSEG(X)) S GMTSC=+($P(GMTSN,"^",2)) Q:'GMTSC 0
 S GMTSM=$S($P(GMTSN,"^",9)="N":0,$P(GMTSN,"^",9)="":1,1:1) Q:'GMTSM 0
 S GMTSA=$S(+($$CMU(+GMTSC))>0:1,1:0) Q:'GMTSA 0
 Q 1
CMU(X) ; Component Uses CPT Modifiers
 N GMTSA,GMTSN,GMTSI S X=$G(X) Q:'$L(X) 0 S GMTSI=+X,GMTSA=$O(^GMT(142.1,"C",X,0)),GMTSN=$O(^GMT(142.1,"D",X,0)) S:GMTSI=0&(+GMTSA>0) GMTSI=GMTSA S:GMTSI=0&(+GMTSN>0) GMTSI=GMTSN
 Q:+GMTSI=0 0 S GMTSA=$S($P($G(^GMT(142.1,+GMTSI,0)),"^",14)="Y":1,1:0) Q:'GMTSA 0
 Q 1
 ;            
 ; Dates and Time
ED(X) ;   Health Summary External Date
 S X=$G(X) Q:'$L(X) ""  D REGDT4 Q X
EDT(X) ;   Health Summary External Date and Time
 S X=$G(X) Q:'$L(X) ""  D REGDTM4 Q X
REGDT ;   Receives X FM date and returns X in MM/DD/YY format
 S X=$TR($$FMTE^XLFDT(X,"2DZ"),"@"," ") Q
REGDT4 ;   Receives X FM date and returns X in MM/DD/YYYY format
 S X=$TR($$FMTE^XLFDT(X,"5DZ"),"@"," ") Q
REGDTM ;   Receives X FM date and returns X in MM/DD/YY TT:TT
 S X=$TR($$FMTE^XLFDT(X,"2ZM"),"@"," ") Q
REGDTM4 ;   Receives X FM date and returns X in MM/DD/YYYY TT:TT
 S X=$TR($$FMTE^XLFDT(X,"5ZM"),"@"," ") Q
SIDT ;   Receives X FM date and returns X in DD MMM YY
 N MON,MM S X=$P(X,".") S:'X X="" Q:'$L(X)
 S MON="JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC"
 S MM=$E(X,4,5),MM=$S(MM:$P(MON,U,+MM),1:"")
 S X=$E(X,6,7)_" "_MM_" "_$E(X,2,3) Q
MTIM ;   Convert Time from X=2890313.1304 to X=13:04
 S X=$P(X,".",2) Q:'$L(X)  S X=$S(X:$E(X,1,2)_$E("00",0,2-$L($E(X,1,2)))_":"_$E(X,3,4)_$E("00",0,2-$L($E(X,3,4))),1:"")
 Q
 ;            
HF(X) ; Host File - Used to distinguish from Host Files that
 ; are intended for Printers and Host Files for other
 ; purposes (windows/files)
 ;                
 ;   1 - if Device Type is HFS and not a TCP/IP Printer
 ;   0 - if Device Type is not HFS or device is a Printer
 ;            
 ; Check Device
 ;   Check Host File Server
 Q:$G(IOT)'="HFS" 0
 ;   Check ORWINDEV (Post OR*3.0*85)
 N GMTS85 S GMTS85=$$PROK("ORWRP",85)
 Q:+($G(GMTS85))>0&(+($G(ORWINDEV))>0) 0
 ;   Host File for GUI Scrollable Window
 Q:$E($G(ION),1,14)["OR WORKSTATION" 1
 ;   TCP/IP Printer
 Q:$G(IO)["$PRT"!($G(IO)["PRN|") 0
 ;   Windows Printer
 Q:$E($G(ION),1,14)["OR WINDOWS HFS" 0
 ;   Host Files (file or unspecifed printer)
 S X=0 S:$G(ION)["HOST FILE" X=1
 S:$E($G(IOST),1,5)["P-OTH" X=1
 Q X
 ;            
FMHL7DTM ; Convert X - int date/time to HL7 CCYYMMDDHHMM-HHHH
 S X=$$FMTHL7^XLFDT(+($G(X))) Q
HL7FMDTM ; Convert X - HL7 CCYYMMDDHHMM-HHHH to int date/time local
 S X=$$HL7TFM^XLFDT($G(X),"L") Q
 ;            
DEM ; Gets Demographic Data from VADPT
 ;            
 ;    Input    DFN
 ;            
 ;    Output   GMTSPNM     Patient Name
 ;             GMTSSN      Social Security Number
 ;             GMTSDOB     Date of Birth
 ;             SEX         Sex
 ;             GMTSWARD    Ward
 ;             GMTSRB      Bed
 ;             GMTSAGE     Age
 ;             VADM()      Demographic Array
 ;             VAIN()      Inpatient Array
 ;             GMTSPHDR()  Report Header Array
 ;            
 K VAHOW D OERR^VADPT S GMTSPNM=VADM(1),GMTSSN=$S($D(VA("PID")):VA("PID"),1:$P(VADM(2),"^",2))
 S GMTSAGE=$S(+VADM(4)>0:+VADM(4),1:99),SEX=$P(VADM(5),"^")
 S GMTSWARD=$P(VAIN(4),"^",2),GMTSRB=VAIN(5)
 S X=$P(VADM(3),"^") D REGDT4 S GMTSDOB=X K VA,GMTSPHDR N DOB,LWARDRB,NMSSN,NMSSNE,WARDRB,WARDRBE,WARDRBS
 S NMSSN=GMTSPNM_"    "_GMTSSN,NMSSNE=$L(NMSSN)+2,WARDRB=GMTSWARD_" "_GMTSRB
 S LWARDRB=$L(WARDRB),WARDRBS=40-(LWARDRB/2),WARDRBE=WARDRBS+LWARDRB
 S DOB="DOB: "_GMTSDOB,GMTSPHDR("NMSSN")=NMSSN,GMTSPHDR("WARDRB")=WARDRB
 S GMTSPHDR("WARDRBS")=WARDRBS,GMTSPHDR("DOB")=DOB,GMTSPHDR("DOBS")=64
 I (NMSSNE'<WARDRBS)!(WARDRBE'<64) S GMTSPHDR("TWO")=1
 Q
 ;                 
NAME(X,Y,L) ; Format name
 ;            
 ; Input 
 ;    X    Internal Entry Number of NEW PERSON file 200
 ;    Y    Flag to specify the first name format
 ;            0 for First Name Initial (only)
 ;            1 for First Name
 ;    L    Maximum Length of Name
 ;          
 ; Output  Last,First (name/initial) to specified length
 ;            
 N RAWNM,LAST,FIRST,ALPHA,PSN,CH,IEN,FNF,LEN
 S IEN=+($G(X)),FNF=+($G(Y)),LEN=+($G(L))
 S RAWNM=$$UNAM^GMTSU2(+IEN) S:LEN=0 LEN=$L(RAWNM)
 S RAWNM=$S($L(RAWNM):RAWNM,1:"UNKNOWN")
 S LAST=$P(RAWNM,","),FIRST=$P(RAWNM,",",2),ALPHA=0
 I $L(FIRST) D
 . F PSN=1:1 S CH=$E(FIRST,PSN) Q:CH=""  S:CH?1A ALPHA=PSN Q:ALPHA>0
 S:ALPHA>0 FIRST=$E(FIRST,ALPHA,$L(FIRST))
 S:'FNF FIRST=$E(FIRST,1)
 S X=$S($L(FIRST):LAST_","_FIRST,1:LAST),X=$E(X,1,LEN)
 Q X
GETRANGE(FROMDATE,TODATE) ; Select Date Range (from and to dates)
 N DIR,X,Y,DTOUT,DIRUT S DIR(0)="DO^:DT",DIR("A")="Enter Beginning Date (MM/DD/YY)" W !
 D ^DIR I $D(DIROUT)!$D(DUOUT)!$D(DTOUT)!$D(DIRUT) W ! Q
 S FROMDATE=Y I +FROMDATE>0 D
 . W "  (",$$UP^XLFSTR($$FMTE^XLFDT(+FROMDATE,1)),")"
 . N DIR,X,Y S DIR(0)="DO^::EX",DIR("A")="Enter Ending Date (MM/DD/YY)" S DIR("B")="TODAY"
 . D ^DIR I $D(DIROUT)!$D(DUOUT)!$D(DTOUT)!$D(DIRUT) K FROMDATE Q
 . I Y'>0 K FROMDATE Q
 . S TODATE=Y Q:TODATE>FROMDATE!(TODATE=FROMDATE) 
 . N FRDT S FRDT=FROMDATE,FROMDATE=TODATE,TODATE=FRDT
 W !
 Q
 ;                
OED() ; Other Editor - DIC("S")
 N COMP,OTHER,OWNER,OWNN,USER,AUSER,NAT S COMP=+($G(DA(1))) Q:'$D(^GMT(142,+COMP,0)) 0
 S OWNER=$P($G(^GMT(142,+COMP,0)),"^",3),OWNN=$$UNAM^GMTSU2(OWNER),NAT=+($P($G(^GMT(142,+COMP,"VA")),"^",1)),USER=+($G(DUZ)),AUSER=$$UACT^GMTSU2(+USER),OTHER=+($G(X))
 ;   If National Component and Uneditable
 W:+NAT=2 !!,"  Nationally exported Health Summary Type (uneditable)",! Q:+NAT=2 0
 ;   If OWNER is special case (national, uneditable)
 W:+OWNER>0&(OWNER<1)&(NAT'=1) !!,"  OWNER does not allow 'OTHER EDITORS'",! Q:+OWNER>0&(OWNER<1)&(NAT'=1) 0
 ;   If OWNER is special case (national, editable)
 Q:+OWNER>0&(OWNER<1)&(OWNER=USER)&(NAT=1) 1
 ;   If DUZ is inactive, or not the owner, quit
 W:+AUSER=0!(+OWNER=0)!(+OWNER'=+USER) !!,"  Only the OWNER may assign 'OTHER EDITORS'",! Q:+AUSER=0!(+OWNER=0)!(+OWNER'=+USER) 0
 ;   If OTHER is inactive user, quit
 S AUSER=$$UACT^GMTSU2(OTHER) W:+AUSER=0!(+OTHER'>.999999999) !!,"  Selected 'OTHER EDITOR' is not an active user",! Q:+AUSER=0!(+OTHER'>.999999999) 0
 ;   If OTHER=OWNER, quit
 W:+OTHER=+OWNER !!,"  ",OWNN," is the OWNER",! Q:+OTHER=+OWNER 0
 Q 1
 ;                
FCLR(X) ; File Closed Root
 S X=$G(X) Q:+X=0 "" N GMTSL S GMTSL=$$FLOC(X),X=$S($E(GMTSL,$L(GMTSL))=",":$P(GMTSL,",")_")",1:$E(GMTSL,1,$L(GMTSL)-1)) Q:'$L(X) "" S:'$D(@X) X=""
 Q X
FSFN(X) ; File/Sub-File Name
 N FI,FR,%X,%Y S FI=$G(X) Q:+X=0 "" N DIERR,GMTSN,GMTSE D FILE^DID(+FI,"N","NAME","GMTSN","GMTSE")
 S X="" S:'$D(DIERR) X=$$UP^XLFSTR($G(GMTSN("NAME"))) Q:$L(X) X
 K FR S %X="^DD("_+($G(FI))_",0,""NM"",",%Y="FR(" D %XY^%RCR S X=$$UP^XLFSTR($O(FR(""))) S:+X>0 X="" S:$L(X) X=X_" SUB-FILE" Q X
FNAM(X) ; File Name
 S X=$G(X) Q:+X=0 "" N DIERR,GMTSN,GMTSE D FILE^DID(+X,"N","NAME","GMTSN","GMTSE") S X="" S:'$D(DIERR) X=$G(GMTSN("NAME")) Q X
FLOC(X) ; File location
 S X=$G(X) Q:+X=0 "" N DIERR,GMTSN,GMTSE D FILE^DID(+X,"N","GLOBAL NAME","GMTSN","GMTSE") S X="" S:'$D(DIERR) X=$G(GMTSN("GLOBAL NAME")) Q X
FHDD(X) ; File has a DD?
 S X=+($G(X)) Q:+($G(X))=0 0 S X=$$VFIELD^DILFD(X,.01),X=$S($L(X):1,1:0) Q X
FLDN(X,Y) ; Field Name
 Q:+($G(X))=0!(+($G(Y))=0) "" S X=$$GET1^DID(+($G(X)),+($G(Y)),,"LABEL") Q X
FLDS(X,Y) ; Field Set of Codes
 Q:+($G(X))=0!(+($G(Y))=0) "" Q:$$GET1^DID(+($G(X)),+($G(Y)),,"TYPE")'="SET" "" S X=$$GET1^DID(+($G(X)),+($G(Y)),,"POINTER") Q X
FLDI(X,Y) ; Field Input Transform
 Q:+($G(X))=0!(+($G(Y))=0) "" S X=$$GET1^DID(+($G(X)),+($G(Y)),,"INPUT TRANSFORM") Q X




Output from what File: OE/RR REPORT// health summary compoNENT
                                          (109 entries)
Select HEALTH SUMMARY COMPONENT NAME:    VEFA HOSPITAL ALL PAT CENSUS
Another one:
Standard Captioned Output? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO//  - No record number (IEN), no Computed
 Fields

NUMBER: 250008                          NAME: VEFA HOSPITAL ALL PAT CENSUS
  PRINT ROUTINE: ENAD;GMTSDGA           TIME LIMITS APPLICABLE: yes
  ABBREVIATION: ADC                     MAXIMUM OCCURRENCES APPLICABLE: yes
  DEFAULT HEADER NAME: Admission/Discharge
 DESCRIPTION:   This component contains information from the MAS package.  Time
 and occurrence limits apply to this component.  Data presented include: date
 range of admission, ward, length of stay (LOS), last treating specialty, last
 provider, admitting diagnosis text, bedsection, principal diagnosis, diagnosis
 for longest length of stay (DXLS), and secondary ICD diagnoses.



Select HEALTH SUMMARY COMPONENT NAME:


Select HEALTH SUMMARY COMPONENT NAME: MAS ADMISSIONS/DISCHARGES
Another one:
Standard Captioned Output? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO//  - No record number (IEN), no Computed
 Fields

NUMBER: 10                              NAME: MAS ADMISSIONS/DISCHARGES
  PRINT ROUTINE: ENAD;GMTSDGA           TIME LIMITS APPLICABLE: yes
  ABBREVIATION: ADC                     MAXIMUM OCCURRENCES APPLICABLE: yes
  DEFAULT HEADER NAME: Admission/Discharge
 DESCRIPTION:   This component contains information from the MAS package.  Time
 and occurrence limits apply to this component.  Data presented include: date
 range of admission, ward, length of stay (LOS), last treating specialty, last
 provider, admitting diagnosis text, bedsection, principal diagnosis, diagnosis
 for longest length of stay (DXLS), and secondary ICD diagnoses.



Select HEALTH SUMMARY COMPONENT NAME:
IN CPRS30A

elect HEALTH SUMMARY COMPONENT NAME:    MAS ADMISSIONS/DISCHARGES
ANOTHER ONE:
STANDARD CAPTIONED OUTPUT? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO//  - No record number (IEN), no Computed
 Fields
 
NUMBER: 10                              NAME: MAS ADMISSIONS/DISCHARGES
  PRINT ROUTINE: ENAD;XXXXDGA           TIME LIMITS APPLICABLE: yes
  ABBREVIATION: ADC                     MAXIMUM OCCURRENCES APPLICABLE: yes
  DEFAULT HEADER NAME: Admission/Discharge
  PREFIX: DG
EXTERNAL/EXTRACT ROUTINE: FADM;GMTSDGA2
EXTERNAL/EXTRACT ROUTINE: GETFADM;GMTSDGA2
EXTERNAL/EXTRACT ROUTINE: IN5;VADPT
EXTERNAL/EXTRACT ROUTINE: 6;VADPT0
EXTERNAL/EXTRACT ROUTINE: 6;VADPT3
 DESCRIPTION:   This component contains information from the MAS package.  Time
 and occurrence limits apply to this component.  Data presented include: date
 range of admission, ward, length of stay (LOS), last treating specialty, last
 provider, admitting diagnosis text, bedsection, principal diagnosis, diagnosis
 for longest length of stay (DXLS), and secondary ICD diagnoses.
 


New Report


 
Select OPTION: INQUIRE TO FILE ENTRIES
 
 
 
OUTPUT FROM WHAT FILE: OE/RR REPORT//
Select OE/RR REPORT NAME:    ORRPW MAS ADMISSIONS     Admissions Summary     Adm
issions Summary
ANOTHER ONE:
STANDARD CAPTIONED OUTPUT? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO//  - No record number (IEN), no Computed
 Fields
 
NUMBER: 1605                            NAME: ORRPW MAS ADMISSIONS
  ID: OR_ADM                            QUALIFIER: HSWPComponent
  ROUTINE: ORDV01                       ENTRY POINT: HSQUERY
  CATEGORY: LISTVIEW                    TAB: REPORTS TAB
  TYPE: LISTVIEW                        RPC: ORWRP REPORT TEXT
  REPORT TAG: DGMADM                    REPORT ROUTINE: XXX1DGA
  REPORT COMPONENT: MAS ADMISSIONS/DISCHARGES
  HEADING: Admissions Summary           DESCRIPTIVE TEXT: Admissions Summary
  PRINT TAG: HSTYPEB                    PRINT ROUTINE: ORWRPP1
  EXTRACT TAG: TADM                     EXTRACT ROUTINE: XXX1DGA
COLUMN HEADERS: Patient Name            SEQUENCE: 1
  PRINT LENGTH: 17                      INCLUDE ON PRINT: YES
COLUMN HEADERS: Unit                    SEQUENCE: 2
  PRINT LENGTH: 5                       INCLUDE ON PRINT: YES
  PRINT TITLE: Unit
COLUMN HEADERS: Ward Room/Bed           SEQUENCE: 3
  PRINT LENGTH: 14                      INCLUDE ON PRINT: YES
  PRINT TITLE: Ward/Room Bed
COLUMN HEADERS: Admit Date              SEQUENCE: 6
  PRINT LENGTH: 10                      INCLUDE ON PRINT: YES
  PRINT TITLE: Admit Date
 
Enter RETURN to continue or '^' to exit:
COLUMN HEADERS: Physician               SEQUENCE: 4
  PRINT LENGTH: 10                      INCLUDE ON PRINT: YES
  PRINT TITLE: Physician
COLUMN HEADERS: Referral Source         SEQUENCE: 5
  PRINT LENGTH: 20                      INCLUDE ON PRINT: YES
  PRINT TITLE: Referral Source
COLUMN HEADERS: Legal                   SEQUENCE: 9
  PRINT LENGTH: 5                       INCLUDE ON PRINT: YES
  PRINT TITLE: Legal
COLUMN HEADERS: LOS                     SEQUENCE: 7
  PRINT LENGTH: 4                       INCLUDE ON PRINT: YES
  PRINT TITLE: LOS
COLUMN HEADERS: Type of Insurance       SEQUENCE: 8
  PRINT LENGTH: 19                      INCLUDE ON PRINT: YES
  PRINT TITLE: Type of Insurance
COLUMN HEADERS: Authorized Days         SEQUENCE: 10
  PRINT LENGTH: 16                      INCLUDE ON PRINT: YES
  PRINT TITLE: Authorized Days
  SORT ORDER: 3:5
 

Latest:

 
OUTPUT FROM WHAT FILE: OE/RR REPORT//
Select OE/RR REPORT NAME: ORRPW MAS ADMISSIONS       Admissions Summary     Admi
ssions Summary
ANOTHER ONE:
STANDARD CAPTIONED OUTPUT? Yes//   (Yes)
Include COMPUTED fields:  (N/Y/R/B): NO//  - No record number (IEN), no Computed
 Fields
 
NUMBER: 1605                            NAME: ORRPW MAS ADMISSIONS
  ID: OR_ADM                            QUALIFIER: HSWPComponent
  ROUTINE: ORDV01                       ENTRY POINT: HSQUERY
  CATEGORY: LISTVIEW                    TAB: REPORTS TAB
  TYPE: LISTVIEW                        RPC: ORWRP REPORT TEXT
  REPORT TAG: DGMADM                    REPORT ROUTINE: XXX1DGA
  REPORT COMPONENT: MAS ADMISSIONS/DISCHARGES
  HEADING: Admissions Summary           DESCRIPTIVE TEXT: Admissions Summary
  PRINT TAG: HSTYPEB                    PRINT ROUTINE: ORWRPP1
  EXTRACT TAG: TADM                     EXTRACT ROUTINE: XXX1DGA
COLUMN HEADERS: Patient Name            SEQUENCE: 2
  PRINT LENGTH: 17                      INCLUDE ON PRINT: YES
COLUMN HEADERS: Unit                    SEQUENCE: 3
  PRINT LENGTH: 5                       INCLUDE ON PRINT: YES
  PRINT TITLE: Unit
COLUMN HEADERS: Ward Room/Bed           SEQUENCE: 4
  PRINT LENGTH: 14                      INCLUDE ON PRINT: YES
  PRINT TITLE: Ward/Room Bed
COLUMN HEADERS: Admit Date              SEQUENCE: 7
  PRINT LENGTH: 10                      INCLUDE ON PRINT: YES
  PRINT TITLE: Admit Date
 
Enter RETURN to continue or '^' to exit:
COLUMN HEADERS: Physician               SEQUENCE: 5
  PRINT LENGTH: 10                      INCLUDE ON PRINT: YES
  PRINT TITLE: Physician
COLUMN HEADERS: Referral Source         SEQUENCE: 6
  PRINT LENGTH: 20                      INCLUDE ON PRINT: YES
  PRINT TITLE: Referral Source
COLUMN HEADERS: Legal                   SEQUENCE: 10
  PRINT LENGTH: 5                       INCLUDE ON PRINT: YES
  PRINT TITLE: Legal
COLUMN HEADERS: LOS                     SEQUENCE: 8
  PRINT LENGTH: 4                       INCLUDE ON PRINT: YES
  PRINT TITLE: LOS
COLUMN HEADERS: Type of Insurance       SEQUENCE: 9
  PRINT LENGTH: 19                      INCLUDE ON PRINT: YES
  PRINT TITLE: Type of Insurance
COLUMN HEADERS: Authorized Days         SEQUENCE: 11
  PRINT LENGTH: 16                      INCLUDE ON PRINT: YES
  PRINT TITLE: Authorized Days
COLUMN HEADERS: Facility                SEQUENCE: 1
  PRINT LENGTH: 20                      INCLUDE ON PRINT: YES
  PRINT TITLE: Facility
 
Enter RETURN to continue or '^' to exit:
COLUMN HEADERS: Sequence                SEQUENCE: 1.5
  PRINT LENGTH: 20                      INCLUDE ON PRINT: YES
  PRINT TITLE: Sequence #
  SORT ORDER: 3:5
 
 Sequence # 1 and 1.5 take up just filling in Facility COLUMNS HEADER 
 Logged On Value
  with automatic added x.xx sequence numberextra column value put into 
  unfilled sEQUENCE # column header
 
Select OE/RR REPORT NAME:

 INSTRUCTIONS:

 Load VEFA_ADM_1_0.KID

 Add ORRPW MAS ADMISSION oe/rr report by package to parameter 
 ORWRP REPORT LIST   List of reports 

 ASTRON>D ^XQ1

Select OPTION NAME: XPAR EDIT
     1   XPAR EDIT BY TEMPLATE       Edit Parameter Values with Template
     2   XPAR EDIT KEYWORD       Edit Parameter Definition Keyword
     3   XPAR EDIT PARAMETER       Edit Parameter Values
CHOOSE 1-3: 3  XPAR EDIT PARAMETER     Edit Parameter Values
Edit Parameter Values
                         --- Edit Parameter Values ---

Select PARAMETER DEFINITION NAME: ORWRP REPORT LIST

Select Sequence: ?


Sequence  Value
--------  -----
1         TMG GROWTH CHARTS
1.1       TMG WHO GROWTH CHARTS
2         ORRPW REPORT CATEGORIES
3         TMG GROWTH CHARTS
3.1       TMG WHO GROWTH CHARTS
4         TMG GROWTH CHARTS
4.1       TMG WHO GROWTH CHARTS
5         ORRP HEALTH SUMMARY
6         ORRPW HDR
8         ORRPW DOD
10        ORRP IMAGING
12        ORWG GRAPHING
15        ORRP LAB STATUS
20        ORRP BLOOD BANK
25        ORRP AP ALL
30        ORRP DIETETICS PROFILE
35        ORRP NUTRITIONAL ASSESS
40        ORRP VITALS CUM
45        ORRP PROCEDURES
50        ORRP DAILY ORDER SUMMARY

Type <Enter> to continue or '^' to exit:
55        ORRP ORDER SUM FOR A DATE RNG
60        ORRP CHART COPY SUMMARY
65        ORRP OUTPATIENT RX PROFILE
70        ORRP BCMA MED LOG
75        ORRP BCMA MAH
80        ORRP SURGERIES
85        ORRP ECS

Sequence #: 1
Select Sequence: 1
Are you adding 1 as a new Sequence? Yes//   YES

Sequence: 1//    1
Report:ORRPW MAS ADMISSION

 


Routines:

XXXXDGA ; SLC/MKB,KER/NDBI - Admissions for HS ; 03/24/2004
 ;;2.7;Health Summary;**28,49,71**;Oct 20, 1995
 ;                   
 ; External Reference
 ;   DBIA  3390  $$ICDDX^ICDCODE
 ;   DBIA    17  ^DGPM("ATID"
 ;   DBIA  1372  ^DGPT(
 ;   DBIA 10082  ^ICD9(
 ;   DBIA  2929  DSP^A7RHSM
 ;   DBIA  2929  LST^A7RHSM
 ;   DBIA   512  ^DGPMLOS
 ;   DBIA 10061  IN5^VADPT
 ;   DBIA 10061  KVAR^VADPT
 ;                    
ENAD ; Gets Admission Information 
 S TT=1,FLGDX=0,FLGDC=0
 D PATINFO Q
ENDC ; Discharge Information
 S TT=3,FLGDC=1,FLGDX=0
 D PATINFO Q
ENDX ; PTF Discharge Diagnosis
 S TT=3,FLGDX=1,FLGDC=0
 D PATINFO Q
ENTS ; Treating Speciality Information
 S TT=6,FLGDX=0,FLGDC=0
 D PATINFO Q
ENTR ; Transfers
 S TT=2,FLGDX=0,FLGDC=0
 D PATINFO Q
PATINFO ; Patient Information
 N DFN1,RGMTS1,STATION
 ;S ^XTMP("HE")=1
 S VA200=1 K DIQ
 I $D(GMTSNDM),GMTSNDM>0 S CNTR=GMTSNDM
 E  S CNTR=100
 ;PUT A HEADER
 S STATION=$P($G(^DIC(4,DUZ(2),99)),"^",1)
 ;GOTO OVER
 W "STATION= "_STATION,?15,"INSTITUTION= "_DUZ(2)_" AS "_$P($G(^DIC(4,DUZ(2),0)),"^",1),!
 S GMC=-1,GMN="",ADM=9999999.99-GMTS2,FLAG=0 S RGMTS1=9999999.99-GMTS1
 ;S ^XTMP("HE")=GMTS1_"^"_GMTS2
 ;I TT=1 D FADM^GMTSDGA2
 D:$$ROK^GMTSU("A7RHSM")&($$NDBI^GMTSU) LST^A7RHSM(DFN,.A7RHS)
 F  S ADM=$O(^DGPM("AMV"_TT,ADM)) Q:('ADM!(ADM>RGMTS1)!($D(GMTSQIT)))  D
 .S ^XTMP("HE")=2
 .S DFN1=0 F  S DFN1=$O(^DGPM("AMV"_TT,ADM,DFN1)) Q:DFN1=""  D
 ..D:$$ROK^GMTSU("A7RHSM")&($$NDBI^GMTSU) DSP^A7RHSM(ADM) D GET Q:$D(GMTSQIT)!($G(CNTR)<0)
 D KILLADM K:$$NDBI^GMTSU A7RHS
 Q
GET ; Admission Data
 N VAHOW
 I TT=1 S DFN=DFN1 D FADM^GMTSDGA2
 S ORDFN=DFN D DEM^GMTSU ;D HSTYPEB^ORWRPP1
 S ADA=$O(^DGPM("AMV"_TT,ADM,DFN1,0)) Q:'ADA
 S CNTR=CNTR-1 I CNTR<0 Q
 S VAIP("E")=ADA D IN5^VADPT
 S (X,ADATE)=+VAIP(3) D REGDT4^GMTSU S ADT=X
 K DGPMIFN S:TT=1 DGPMIFN=ADA S:TT'=1 DGPMIFN=VAIP(13)
 S GMC=2
 D CONTGET
 S LIN=$S(TT=2:"TROUT^GMTSDGA1",FLGDX:"DXOUT^GMTSDGA1",FLGDC:"DCOUT^GMTSDGA1",TT=6:"TSOUT^GMTSDGA2",TT=1:"ADOUT") D @LIN
 K ICD(ADM)
 Q
CONTGET ; ICD and LOS info only needed for certain MAS components
 Q:TT=2  Q:TT=6  N ICDX,ICDI I DGPMIFN D ^DGPMLOS S LOS=+X
 S PTF=$S($D(VAIP(12)):VAIP(12),1:"") Q:'$D(^ICD9)  Q:PTF=""  Q:'$D(^DGPT(PTF,70))
 S ICD=^DGPT(PTF,70)
 S ICDI=+$P(ICD,U,11) I ICDI>0 D
 . S ICDX=$$ICDDX^ICDCODE(ICDI)
 . S ICD(ADM,1,80,ICDI,.01)=$P(ICDX,"^",2)
 . S ICD(ADM,1,80,ICDI,3)=$P(ICDX,"^",4)
 S ICDI=+$P(ICD,U,10) I ICDI>0 D
 . S ICDX=$$ICDDX^ICDCODE(ICDI)
 . S ICD(ADM,2,80,ICDI,.01)=$P(ICDX,"^",2)
 . S ICD(ADM,2,80,ICDI,3)=$P(ICDX,"^",4)
 F GMTSI=16:1:24 S ICDI=+$P(ICD,U,GMTSI) I ICDI>0 D
 . S ICDX=$$ICDDX^ICDCODE(ICDI)
 . S ICD(ADM,(GMTSI-13),80,ICDI,.01)=$P(ICDX,"^",2)
 . S ICD(ADM,(GMTSI-13),80,ICDI,3)=$P(ICDX,"^",4)
 Q
KILLADM ; Kill Admission variables
 D KVAR^VADPT
 K ADA,ADATE,ADT,BD,BDSC,DA,DIC,DDT,DP,DSPL,GMJ,GMJ1,OP,OPTR,FLAG,FLGDX,FLGDC,X,DR,GMI,GMTO,GMTNO,GMTSI,GMX,ADM,CNTR,GMC,GMZ,GMN,ICD,PTF,PTF70,PTFLG,LOS,II,DGPMIFN,IN,LIN,TI,TT,TS,SPEC
 Q
ADOUT ; Admissions Output
 N STATION,WARDIEN,WARDDIV,WARDSTAT,NODEDGPM,PHYSIC,PHYSICT
 I FLAG>1,'GMTSNPG D CKP^GMTSUP Q:$D(GMTSQIT)  ;W !
 D CKP^GMTSUP Q:$D(GMTSQIT)
 S FLAG=2
 ;GOTO OVER
 I $G(VAIP(17,1))'="" S CNTR=CNTR+1 Q ; DISCHARGED ALREADY
 ;DETERMINE WARD LOCATION MEDICAL CENTER DIVISION MATCHING THE STATION NUMBER TO CORRESPINDING INSITITUTION ENTRY STATION NUMBER. ( IE. 580CAM TO 580CAM)
 ;DETERMINE LOGGED ON DIVISION( REALLY INSTITUTION) STATION
 S STATION=$P($G(^DIC(4,DUZ(2),99)),"^",1)
 ;GOTO OVER
 I STATION="" S CNTR=CNTR+1 W "STATION= "_"",?15,"INSTITUTION= "_DUZ(2)_"-"_$P($G(^DIC(4,DUZ(2),0)),"^",1),! Q
 ;GOTO OVER
 ;GET WARD LOCATION NUMBER FROM WARD NAME
 ;W "GMTSWARD= ",GMTSWARD,!
 I GMTSWARD'="" D
 .S WARDIEN=0 S WARDIEN=$O(^DIC(42,"B",GMTSWARD,WARDIEN))
 E  D
 .S WARDIEN=""
 ;GET MEDICAL CENTER DIVISION
 ;GOTO OVER
 I WARDIEN="" S CNTR=CNTR+1 W "GMTSWARD= "_GMTSWARD,?25,"WARD IEN="_"",! Q
 ;GOTO OVER
 ;GET MEDICAL CENTER DIVISION AND STATION
 S WARDDIV=$P($G(^DIC(42,WARDIEN,0)),"^",11)
 I WARDDIV="" S CNTR=CNTR+1 W "WARD: "_GMTSWARD,?25,"WARD DIVISION= "_"",! Q
 ;GET DIVISION STATION NUMBER (FACILITY NUMBER)
 S WARDSTAT=$P($G(^DG(40.8,WARDDIV,0)),"^",2)
 I WARDSTAT="" S CNTR=CNTR+1 W "WARD DIVISION STATION="_"",! Q
 I WARDSTAT'=STATION S CNTR=CNTR+1 Q ;DON'T COUNT WARDS IN ANOTHER HOSPITAL INSITUTION ( DIVISION). ONLY ONE LOGGED ONTO LIKE FOR CAMBRIDGE HOSPITAL
OVER	; 
 ;I $G(VAIP(17,1))'="" S CNTR=CNTR+1 Q ; DISCHARGED ALREADY
 I $G(VAIP(17,1))="" S DDT="Present"
 E  S X=$P(VAIP(17,1),U,1) D REGDT4^GMTSU S DDT=X
 W ADT," - ",DDT I VAIP(17,1)="" W ?25,"Ward: "_GMTSWARD,?45,"Room/Bed= "_GMTSRB
 W ?66,"LOS: ",LOS,!
 S TS=$P($G(^DIC(45.7,+$P($G(VAIP(14,6)),U),0)),U,2) S SPEC=$P($G(^DIC(42.4,+TS,0)),U)
 W GMTSPNM_"    "_GMTSSN,?50,"DOB: "_GMTSDOB,?67,"Age: ",GMTSAGE,?75,"Facility= "_DUZ(2),!
 S PHYSICT=""
 S NODEDGPM=$G(^DGPM(ADA+1,0)) ;TREATING SPECIALTY PREOVIDER CHANGE
 S PHYSIC=$P(NODEDGPM,"^",8) ;PRIMARY PHYSICIAN FIRST
 I PHYSIC'="" D
 .S PHYSICT=$P($G(^VA(200,PHYSIC,0)),"^",1)
 E  D
 .S PHYSIC=$P(NODEDGPM,"^",19) ;THEN ATTENDING IF NO PRIMARY PHYSICIAN
 . I PHYSIC'="" S PHYSICT=$P($G(^VA(200,PHYSIC,0)),"^",1)
 D CKP^GMTSUP Q:$D(GMTSQIT)  W "  Last Tr Specialty: ",$E(SPEC,1,25),?50,"Last Prov: ",$E(PHYSICT,1,15),!
 I $G(VAIP(17,1))="" D CKP^GMTSUP Q:$D(GMTSQIT)  W "Admitting Diagnosis: ",$G(VAIP(13,7)),!
 I PTF'="",$D(^DGPT(+PTF,70)) D CKP^GMTSUP Q:$D(GMTSQIT)  W "         Bedsection: ",$S(+($P(^DGPT(PTF,70),U,2))>0:$P($G(^DIC(42.4,+$P(^DGPT(PTF,70),U,2),0)),U),1:""),!
 Q:'$D(ICD)  S GMI=0 F  S GMI=$O(ICD(ADM,GMI)) Q:'GMI  D CKP^GMTSUP Q:$D(GMTSQIT)  S GMX="" F  S GMX=$O(ICD(ADM,GMI,80,GMX)) Q:'GMX  D NXT
 Q
NXT ; Next Diagnosis
 S (GMTO,GMTNO)="" S GMTO=$G(ICD(ADM,GMI,80,GMX,3)),GMTNO=$G(ICD(ADM,GMI,80,GMX,.01))
 W:GMI=1 "Principal Diagnosis: " W:GMI=2 ?15,"DXLS: "
 W:GMI=3 ?13,"ICD DX: " W ?21,GMTO,?62,GMTNO,!
 S NODIAG=0
 Q

XXX1DGA ; SLC/MKB,KER/NDBI - Admissions for HS Extractioon; 03/24/2004
 ;;2.7;Health Summary;**28,49,71**;Oct 20, 1995
 ;                   
 ; External Reference
 ;   DBIA  3390  $$ICDDX^ICDCODE
 ;   DBIA    17  ^DGPM("ATID"
 ;   DBIA  1372  ^DGPT(
 ;   DBIA 10082  ^ICD9(
 ;   DBIA  2929  DSP^A7RHSM
 ;   DBIA  2929  LST^A7RHSM
 ;   DBIA   512  ^DGPMLOS
 ;   DBIA 10061  IN5^VADPT
 ;   DBIA 10061  KVAR^VADPT
 ;                    
ENAD(TIUY,GMTS1,GMTS2,GMTSNDM) ; Gets Admission Information. Eventually Filtered out for Division ( Institution) too 
 ;           for Wards per this Division matrching the Institution (Station) of the logged on User 
 N TIUI
 S TIUY=$NA(^TMP("TIUR",$J))
 K @TIUY
 S TIUI=0
 S TT=1,FLGDX=0,FLGDC=0
 D PATINFO Q
ENDC ; Discharge Information
 S TT=3,FLGDC=1,FLGDX=0
 D PATINFO Q
ENDX ; PTF Discharge Diagnosis
 S TT=3,FLGDX=1,FLGDC=0
 D PATINFO Q
ENTS ; Treating Speciality Information
 S TT=6,FLGDX=0,FLGDC=0
 D PATINFO Q
ENTR ; Transfers
 S TT=2,FLGDX=0,FLGDC=0
 D PATINFO Q
PATINFO ; Patient Information
 N DFN1,RGMTS1,STATION
 S ^XTMP("HDD1")=GMTS2_"^"_GMTS1
 S VA200=1 K DIQ
 I $D(GMTSNDM),GMTSNDM>0 S CNTR=GMTSNDM
 E  S CNTR=100
 S CNTR=100
 ;DEFINE HEADER DATA
 S STATION=$P($G(^DIC(4,DUZ(2),99)),"^",1)
 ;GOTO OVER
 ;;;;;;W "STATION= "_STATION,?15,"INSTITUTION= "_DUZ(2)_" AS "_$P($G(^DIC(4,DUZ(2),0)),"^",1),!
 S GMC=-1,GMN="",ADM=GMTS1,FLAG=0 S RGMTS1=GMTS2
 ;S ^XTMP("HE")=GMTS1_"^"_GMTS2
 ;I TT=1 D FADM^GMTSDGA2
 D:$$ROK^GMTSU("A7RHSM")&($$NDBI^GMTSU) LST^A7RHSM(DFN,.A7RHS)
 F  S ADM=$O(^DGPM("AMV"_TT,ADM)) Q:('ADM!(ADM>RGMTS1)!($D(GMTSQIT))!($G(CNTR)<0))  D
 .S ^XTMP("HDD1")=3
 .S DFN1=0 F  S DFN1=$O(^DGPM("AMV"_TT,ADM,DFN1)) Q:(DFN1="")!($G(CNTR)<0)  D
 ..D GET(.TIUY) Q:($G(CNTR)<0)
 ..;D:$$ROK^GMTSU("A7RHSM")&($$NDBI^GMTSU) DSP^A7RHSM(ADM) D GET(.TIUY,TIUI) Q:$D(GMTSQIT)!($G(CNTR)<0)
 D KILLADM K:$$NDBI^GMTSU A7RHS K @TIUY@("INDX")
 Q
GET(TIUY) ; Admission Data
 N VAHOW
 I TT=1 S DFN=DFN1 D FADM^GMTSDGA2
 S ORDFN=DFN D DEM^GMTSU ;D HSTYPEB^ORWRPP1
 S ADA=$O(^DGPM("AMV"_TT,ADM,DFN1,0)) Q:'ADA
 S CNTR=CNTR-1 I CNTR<0 Q
 S VAIP("E")=ADA D IN5^VADPT
 S (X,ADATE)=+VAIP(3) D REGDT4^GMTSU S ADT=X
 K DGPMIFN S:TT=1 DGPMIFN=ADA S:TT'=1 DGPMIFN=VAIP(13)
 S GMC=2
 D CONTGET
 S ^XTMP("HDD1")=5
 S LIN=$S(TT=2:"TROUT^GMTSDGA1",FLGDX:"DXOUT^GMTSDGA1",FLGDC:"DCOUT^GMTSDGA1",TT=6:"TSOUT^GMTSDGA2",TT=1:"ADOUT") D @LIN
 K ICD(ADM)
 Q
CONTGET ; ICD and LOS info only needed for certain MAS components
 Q:TT=2  Q:TT=6  N ICDX,ICDI I DGPMIFN D ^DGPMLOS S LOS=+X
 S PTF=$S($D(VAIP(12)):VAIP(12),1:"") Q:'$D(^ICD9)  Q:PTF=""  Q:'$D(^DGPT(PTF,70))
 S ICD=^DGPT(PTF,70)
 S ICDI=+$P(ICD,U,11) I ICDI>0 D
 . S ICDX=$$ICDDX^ICDCODE(ICDI)
 . S ICD(ADM,1,80,ICDI,.01)=$P(ICDX,"^",2)
 . S ICD(ADM,1,80,ICDI,3)=$P(ICDX,"^",4)
 S ICDI=+$P(ICD,U,10) I ICDI>0 D
 . S ICDX=$$ICDDX^ICDCODE(ICDI)
 . S ICD(ADM,2,80,ICDI,.01)=$P(ICDX,"^",2)
 . S ICD(ADM,2,80,ICDI,3)=$P(ICDX,"^",4)
 F GMTSI=16:1:24 S ICDI=+$P(ICD,U,GMTSI) I ICDI>0 D
 . S ICDX=$$ICDDX^ICDCODE(ICDI)
 . S ICD(ADM,(GMTSI-13),80,ICDI,.01)=$P(ICDX,"^",2)
 . S ICD(ADM,(GMTSI-13),80,ICDI,3)=$P(ICDX,"^",4)
 Q
KILLADM ; Kill Admission variables
 D KVAR^VADPT
 K ADA,ADATE,ADT,BD,BDSC,DA,DIC,DDT,DP,DSPL,GMJ,GMJ1,OP,OPTR,FLAG,FLGDX,FLGDC,X,DR,GMI,GMTO,GMTNO,GMTSI,GMX,ADM,CNTR,GMC,GMZ,GMN,ICD,PTF,PTF70,PTFLG,LOS,II,DGPMIFN,IN,LIN,TI,TT,TS,SPEC
 Q
ADOUT ; Admissions Output. Pass ADT (formatted ADM),TIUY,TIUI,DFN,ADA
 N STATION,WARDIEN,WARDDIV,WARDSTAT,UNIT,IEN,NODEP,OVER1,NODEP1,INSURNCE,INSURPTR,STATION1,NODEDGPM,PHYSIC,PHYSICT
 S ^XTMP("HDD1")=6
 ;;;;;;I FLAG>1,'GMTSNPG D CKP^GMTSUP Q:$D(GMTSQIT)  ;W !
 ;;;;;;D CKP^GMTSUP Q:$D(GMTSQIT)
 S FLAG=2
 ;GOTO OVER
 S ^XTMP("HDD1")=2
 I $G(VAIP(17,1))'="" S CNTR=CNTR+1 Q ; DISCHARGED ALREADY
 ;DETERMINE WARD LOCATION MEDICAL CENTER DIVISION MATCHING THE STATION NUMBER TO CORRESPINDING INSITITUTION ENTRY STATION NUMBER. ( IE. 580CAM TO 580CAM)
 ;DETERMINE LOGGED ON DIVISION( REALLY INSTITUTION) STATION
 S STATION=$P($G(^DIC(4,DUZ(2),99)),"^",1)
 S STATION1=$P($G(^DIC(4,DUZ(2),0)),"^",1)
 ;GOTO OVER
 I STATION="" S CNTR=CNTR+1 Q ;W "STATION= "_"",?15,"INSTITUTION= "_DUZ(2)_"-"_$P($G(^DIC(4,DUZ(2),0)),"^",1),! Q
 ;GOTO OVER
 ;GET WARD LOCATION NUMBER FROM WARD NAME
 ;W "GMTSWARD= ",GMTSWARD,!
 I GMTSWARD'="" D
 .S WARDIEN=0 S WARDIEN=$O(^DIC(42,"B",GMTSWARD,WARDIEN))
 E  D
 .S WARDIEN=""
 ;GET MEDICAL CENTER DIVISION
 ;GOTO OVER
 I WARDIEN="" S CNTR=CNTR+1 Q ;W "GMTSWARD= "_GMTSWARD,?25,"WARD IEN="_"",! Q
 ;GOTO OVER
 ;GET MEDICAL CENTER DIVISION AND STATION
 S WARDDIV=$P($G(^DIC(42,WARDIEN,0)),"^",11)
 I WARDDIV="" S CNTR=CNTR+1 Q ;W "WARD: "_GMTSWARD,?25,"WARD DIVISION= "_"",! Q
 ;GET DIVISION STATION NUMBER (FACILITY NUMBER)
 S WARDSTAT=$P($G(^DG(40.8,WARDDIV,0)),"^",2)
 I WARDSTAT="" S CNTR=CNTR+1 Q ;W "WARD DIVISION STATION="_"",! Q
 I WARDSTAT'=STATION S CNTR=CNTR+1 Q ;DON'T COUNT WARDS IN ANOTHER HOSPITAL INSITUTION ( DIVISION). ONLY ONE LOGGED ONTO LIKE FOR CAMBRIDGE HOSPITAL
OVER	; 
 S TIUI=+$G(TIUI)+1
 S ^XTMP("HDD5")=TIUI
 S @TIUY@(TIUI)=ADA_U_STATION1_U_GMTSPNM
 S @TIUY@("INDX",ADA,TIUI)=""
 ;NEXT AGE TO AOL OR ADULT OR CHILD
 S UNIT=""
 I GMTSAGE<12 S UNIT="Child"
 I (GMTSAGE>11)&(GMTSAGE<21) S UNIT="Adol"
 I (GMTSAGE>20) S UNIT="Adult"
 S @TIUY@(TIUI)=@TIUY@(TIUI)_U_UNIT
 ;Next Ward&Room/Bed
 S @TIUY@(TIUI)=@TIUY@(TIUI)_U_GMTSWARD_" "_GMTSRB
 ;Next Physician(Last Provider)
 S PHYSICT=""
 S NODEDGPM=$G(^DGPM(ADA+1,0)) ;TREATING SPECIALTY PREOVIDER CHANGE
 S PHYSIC=$P(NODEDGPM,"^",8) ;PRIMARY PHYSICIAN FIRST
 I PHYSIC'="" D
 .S PHYSICT=$P($G(^VA(200,PHYSIC,0)),"^",1)
 E  D
 .S PHYSIC=$P(NODEDGPM,"^",19) ;THEN ATTENDING IF NO PRIMARY PHYSICIAN
 . I PHYSIC'="" S PHYSICT=$P($G(^VA(200,PHYSIC,0)),"^",1)
 ;S @TIUY@(TIUI)=@TIUY@(TIUI)_U_$E($P($G(VAIP(14,5)),U,2),1,15)
 S @TIUY@(TIUI)=@TIUY@(TIUI)_U_$E(PHYSICT,1,15)
 ; Next Referral Source
 S @TIUY@(TIUI)=@TIUY@(TIUI)_U_" "
 ;Next Admit Date
 S @TIUY@(TIUI)=@TIUY@(TIUI)_U_ADT
 ;Next LOS
 S @TIUY@(TIUI)=@TIUY@(TIUI)_U_LOS 
 ;Next Type Of Insurance (Primary)
 S OVER1=0
 S NODEP1=0 ; NO INSURANCE
 S IEN=0 F  S IEN=$O(^DPT(DFN,.312,IEN)) Q:(IEN="")!(OVER1'=0)  D
 .;CHECK COORDINATION OF BENEFITS AS PRIMARY
 .S NODEP=$P($G(^DPT(DFN,.312,IEN,0)),"^",20)
 .I NODEP="1" S OVER1=IEN
 .I IEN=1 S NODEP1=IEN
 S INSURNCE=" "
 I OVER1'=0 D
 .S INSURPTR=$P($G(^DPT(DFN,.312,OVER1,0)),"^",1)
 .I INSURPTR'="" S INSURNCE=$P($G(^DIC(36,INSURPTR,0)),"^",1)
 .S @TIUY@(TIUI)=@TIUY@(TIUI)_U_INSURNCE
 E  D
 .;CHECK IF ONE (FIRST) INSURANCE ELSE PUT IN BLANKS
 .I NODEP1'=0 D
 ..S INSURPTR=$P($G(^DPT(DFN,.312,NODEP1,0)),"^",1)
 ..I INSURPTR'="" S INSURNCE=$P($G(^DIC(36,INSURPTR,0)),"^",1)
 ..S @TIUY@(TIUI)=@TIUY@(TIUI)_U_INSURNCE
 E  D
 ..S @TIUY@(TIUI)=@TIUY@(TIUI)_U_INSURNCE
 ;Next Legal as i.e. Admission Category ptr to Sharing Agreement File with Creating a PTF record with an admission.
 ;for now just blank. Should be Volunary(VOL) or Involuntary(INVOL).
 ;
 S @TIUY@(TIUI)=@TIUY@(TIUI)_U_" "
 ;Next Authorized Days ( Later get last insurance review for primary insurance in "pending" or "complete" status.
 ;If complete status check Authorized days left from time of Insurance Review completion date. If admission date within this duration , put # of days
 ;left. If no days left , then put in put in "Pending Pre-certification" as new insurance review is needed. 
 ;If current insurance (last) review is found, and in "pending" state and Authorized days are within date of admission, put in "Peer to Peer Review"
 ;else put in "Pending Pre-Certification"). For now put in blank.
 S @TIUY@(TIUI)=@TIUY@(TIUI)_U_" "
 ;I $G(VAIP(17,1))'="" S CNTR=CNTR+1 Q ; DISCHARGED ALREADY
 I $G(VAIP(17,1))="" S DDT="Present"
 E  S X=$P(VAIP(17,1),U,1) D REGDT4^GMTSU S DDT=X
 ;W ADT," - ",DDT I VAIP(17,1)="" W ?25,"Ward: "_GMTSWARD,?45,"Room/Bed= "_GMTSRB
 ;W ?66,"LOS: ",LOS,!
 S TS=$P($G(^DIC(45.7,+$P($G(VAIP(14,6)),U),0)),U,2) S SPEC=$P($G(^DIC(42.4,+TS,0)),U)
 ;W GMTSPNM_"    "_GMTSSN,?50,"DOB: "_GMTSDOB,?67,"Age: ",GMTSAGE,?75,"Facility= "_DUZ(2),!
 ;;;;;;;D CKP^GMTSUP Q:$D(GMTSQIT)  ;W "  Last Tr Specialty: ",$E(SPEC,1,25),?50,"Last Prov: ",$E($P($G(VAIP(14,5)),U,2),1,15),!
 ;;;;;;;I $G(VAIP(17,1))="" D CKP^GMTSUP Q:$D(GMTSQIT)  ;W "Admitting Diagnosis: ",$G(VAIP(13,7)),!
 ;;;;;;;I PTF'="",$D(^DGPT(+PTF,70)) D CKP^GMTSUP Q:$D(GMTSQIT)  ;W "         Bedsection: ",$S(+($P(^DGPT(PTF,70),U,2))>0:$P($G(^DIC(42.4,+$P(^DGPT(PTF,70),U,2),0)),U),1:""),!
 ;;;;;;;Q:'$D(ICD)  S GMI=0 F  S GMI=$O(ICD(ADM,GMI)) Q:'GMI  D CKP^GMTSUP Q:$D(GMTSQIT)  S GMX="" F  S GMX=$O(ICD(ADM,GMI,80,GMX)) Q:'GMX  D NXT
 Q
NXT ; Next Diagnosis
 S (GMTO,GMTNO)="" S GMTO=$G(ICD(ADM,GMI,80,GMX,3)),GMTNO=$G(ICD(ADM,GMI,80,GMX,.01))
 ;W:GMI=1 "Principal Diagnosis: " W:GMI=2 ?15,"DXLS: "
 ;W:GMI=3 ?13,"ICD DX: " W ?21,GMTO,?62,GMTNO,!
 S NODIAG=0
 Q
DGMADM(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;  Admission Summaries in Spreadsheet Format
 ;Ext calls: VASITE, DIQ1, TIUSRVLO
 I $L($T(GCPR^OMGCOAS1)) D  Q  ; Call if FHIE station 200
 . D GCPR^OMGCOAS1(DFN,"DS",ORDBEG,ORDEND,ORMAX)
 . S ROOT=$NA(^TMP("ORDATA",$J))
 N ORGLOB,ORGLOBA,ORI,ORNODE,ORICDIEN,ORARRAY,ORTEMP,ORSITE,SITE,DIC,DR,DIQ,DA,GO
 Q:'$L(OREXT)
 S GO=$P(OREXT,";")_"^"_$P(OREXT,";",2)
 Q:'$L($T(@GO))
 S ORSITE=$$SITE^VASITE,ORSITE=$P(ORSITE,"^",2)_";"_$P(ORSITE,"^",3)
 D @GO
 I '$D(@ORGLOB) Q
 K ^TMP("ORDATA",$J)
 S ORNODE=0,ORI=0
 ;F  S ORNODE=$O(@ORGLOB@(ORNODE)) Q:'ORNODE!(ORI'<ORMAX)  D
 F  S ORNODE=$O(@ORGLOB@(ORNODE)) Q:'ORNODE  D
 . S ORTEMP=@ORGLOB@(ORNODE)
 . ;S SITE=$S($L($G(@ORGLOB@(ORNODE,"facility"))):^("facility"),1:ORSITE)
 . ;S ^TMP("ORDATA",$J,ORNODE,"WP",1)="1^"_SITE ;Station ID
 . S ^TMP("ORDATA",$J,ORNODE,"WP",1)="1^"_$E($P(ORTEMP,U,2),1,20) ;Facility Logged On
 . S ^TMP("ORDATA",$J,ORNODE,"WP",2)="2^"_$E($P(ORTEMP,U,3),1,17) ;Patient Name (Last,First]
 . ;;;;;K ORARRAY S DIC=8925,DA=$P(ORTEMP,U),DR=".05;.07;.08;1202;1502",DIQ="ORARRAY"
 . ;;;;;D EN^DIQ1
 . ;;;;;;S DIQ="ORARRAY(8925,"_DA_")"
 . S ^TMP("ORDATA",$J,ORNODE,"WP",3)="3^"_$P(ORTEMP,U,4) ; Unit      $$DATEMMM^ORDVU($G(@DIQ@(.07))) ;episode begin date/time
 . S ^TMP("ORDATA",$J,ORNODE,"WP",4)="4^"_$P(ORTEMP,U,5) ; Ward/Room-Bed      $$DATEMMM^ORDVU($G(@DIQ@(.08))) ;episode end date/time
 . S ^TMP("ORDATA",$J,ORNODE,"WP",5)="5^"_$P($P(ORTEMP,U,6),",",1) ; Primary Physician (last name)     $G(@DIQ@(1202)) ;author/dicator
 . S ^TMP("ORDATA",$J,ORNODE,"WP",6)="6^"_$P(ORTEMP,U,7) ; Referral Source      $G(@DIQ@(1502)) ;signed by
 . S ^TMP("ORDATA",$J,ORNODE,"WP",7)="7^"_$E($P(ORTEMP,U,8),1,10) ; Admit Date      $G(@DIQ@(.05)) ;status
 . S ^TMP("ORDATA",$J,ORNODE,"WP",8)="8^"_$P(ORTEMP,U,9) ; LOS     $G(@DIQ@(.05)) ;status
 . S ^TMP("ORDATA",$J,ORNODE,"WP",9)="9^"_$P(ORTEMP,U,10) ; Type of Insurance       $G(@DIQ@(.05)) ;status
 . S ^TMP("ORDATA",$J,ORNODE,"WP",10)="10^"_$P(ORTEMP,U,11) ; Legal       $G(@DIQ@(.05)) ;status
 . S ^TMP("ORDATA",$J,ORNODE,"WP",11)="11^"_$P(ORTEMP,U,12) ; Authorized Days     $G(@DIQ@(.05)) ;status
 . S ORI=ORI+1
 . S ^XTMP("HDD2")=ORI
 . ;;;;D TGET^TIUSRVR1(.ORGLOBA,$P(ORTEMP,U)) ;Call to get summary text
 . ;;;;D SPMRG^ORDVU($NA(@ORGLOBA),$NA(^TMP("ORDATA",$J,ORNODE,"WP",7)),7) ;summary Text
 . ;;;;;I $O(@ORGLOBA@(0)) S ^TMP("ORDATA",$J,ORNODE,"WP",8)="8^[+]" ;detail flag
 . ;;;;K @ORGLOBA
 K @ORGLOB
 S ROOT=$NA(^TMP("ORDATA",$J))
 Q
TADM ; Admission Summary
 D ENAD(.ORGLOB,ORDBEG,ORDEND,ORMAX)
 ;S ^XTMP("HDD1")=1
 Q
 
</pre>