Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ECXOBSUR

Package: DSS Extracts

Routine: ECXOBSUR


Information

ECXOBSUR ;ALB/CMD - Surgery Pre-Extract Observation Report ;4/28/20 13:18

Source Information

Source file <ECXOBSUR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point
SELECT ;Start Date and End Date of the Report
PROCESS ;Queue report for the date range
GETDATA ;Get data from surgery file
FILE ; Set data in temp file to print later
BEGIN ; display report description
HEADER ;Header of the report
WRTLN ;Write report line
HDRLN ;Line Header
WRTLGLN ;Write legend line
PRINT ;Print report from temp file
CLOSE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report requires 132-column format."
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !!,"No device selected...exiting.",!
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"This report prints a listing of patients who had surgery while in observation "
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !,"status. As a pre-extract report, it should be run prior to the generation of"
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !,"the surgery extract to identify and fix as necessary any record determined to be"
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: !,"erroneous. This report has no effect on the actual extracts and can be run as"
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: !,"needed."
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: !!,"The report is sorted by Observation Admission Date. "
  • Line Location: BEGIN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"Surgery Pre-Extract Observation Report",?124,"Page: "_PG
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"Start Date: ",ECSTART,?91,"Report Run Date/Time: "_ECRUN
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"End Date: ",ECEND
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!,"Name: ",$P(REC,U),?44,"Principal Procedure: ",$P(REC,U,8)
  • Line Location: WRTLN+1
Function Call: WRITE
  • Prompt: !,$P(REC,U,2),?14,$P(REC,U,3),?37,$P(REC,U,4),?44,$P(REC,U,5),?67,$P(REC,U,6),?88,$P(REC,U,7),?110,$P(REC,U,9)
  • Line Location: WRTLN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WRTLN+4
Function Call: WRITE
  • Prompt: !!,?17,"OBSERVATION",?35,"OBS TS",?48,"OBSERVATION",?67,"DATE/TIME PATIENT",?88,"DATE/TIME PATIENT",?110,"SURGICAL"
  • Line Location: HDRLN+2
Function Call: WRITE
  • Prompt: !,?4,"SSN",?18,"ADMISSION",?36,"CODE",?46,"ADMIT ENTERED BY",?68,"IN HOLDING AREA",?93,"IN OR",?110,"CASE No."
  • Line Location: HDRLN+3
Function Call: WRITE
  • Prompt: !,$E(LN,1,11),?14,$E(LN,1,18),?35,$E(LN,1,6),?44,$E(LN,1,20),?67,$E(LN,1,18),?88,$E(LN,1,18),?110,$E(LN,1,9)
  • Line Location: HDRLN+4
Function Call: WRITE
  • Prompt: !!,"Observation",?26,"18 Neurology Observation",?60,"24 Medical Observation",?96,"41 Rehab Medicine Observation"
  • Line Location: WRTLGLN+1
Function Call: WRITE
  • Prompt: !,"Treating Specialties",?26,"65 Surgical Observation",?60,"94 Psychiatric Observation",?96,"1J ED Observation"
  • Line Location: WRTLGLN+2
Function Call: WRITE
  • Prompt: !!,?26,"* * * No Observation Surgeries to report for the selected date range * * *"
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !
  • Line Location: CLOSE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CLOSE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^DIC(42.4 - [#42.4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call