Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 6 HOME^%ZIS  ^%ZISC  $$S^%ZTLOAD  ($$FMDIFF,$$FMTE)^XLFDT  $$RJ^XLFSTR  EN^XUTMDEVQ  
VA FileMan 4 (,DD)^%DT  NOW^%DTC  $$GET1^DIQ  ^DIR  
DSS Extracts 3 AUDIT^ECXKILL  ($$EXPORT,EXPDISP)^ECXUTL1  $$PATDEM^ECXUTL2  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
DSS Extracts 1 ECX SUR OBS  
Event Capture 1 ECX SUR OBS  

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 ;

External References

Name Field # of Occurrence
^%DT SELECT+4, SELECT+8
DD^%DT EN+6, SELECT+7, SELECT+17
NOW^%DTC EN+6
HOME^%ZIS EN+20
^%ZISC EN+19
$$S^%ZTLOAD PRINT+4, FILE+9
$$GET1^DIQ GETDATA+17, GETDATA+26, GETDATA+28, GETDATA+31
^DIR BEGIN+8, HEADER+4, CLOSE+4
AUDIT^ECXKILL EN+13, EN+21
$$EXPORT^ECXUTL1 EN+9
EXPDISP^ECXUTL1 EN+12
$$PATDEM^ECXUTL2 GETDATA+10
$$FMDIFF^XLFDT GETDATA+21
$$FMTE^XLFDT FILE+2, FILE+3, FILE+4
$$RJ^XLFSTR GETDATA+16
EN^XUTMDEVQ EN+17

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
Routine Call
  • DIR
  • Line Location:
    • BEGIN+8
    • HEADER+4
    • CLOSE+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+20

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] GETDATA+30
^DGPM("ATID6" GETDATA+23, GETDATA+25
^DIC(42.4 - [#42.4] GETDATA+16, FILE+5
^SRF - [#130] PROCESS+10, GETDATA+6, GETDATA+7, GETDATA+11, GETDATA+12, GETDATA+13
^SRF("AC" PROCESS+7, PROCESS+9
^TMP($J EN+3!, EN+10*, PROCESS+4!, FILE+7*, PRINT+7, PRINT+9, PRINT+10, PRINT+13*, PRINT+16

Label References

Name Line Occurrences
BEGIN EN+7
FILE GETDATA+33
GETDATA PROCESS+10
HDRLN WRTLN+2
HEADER HDRLN+1, PRINT+6, PRINT+16
PRINT PROCESS+11
PROCESS EN+11
SELECT EN+8
WRTLGLN HDRLN+1, PRINT+16, CLOSE+3
WRTLN PRINT+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+6
%DT EN+6!, SELECT+4!*, SELECT+8!*
%DT("A" SELECT+4*, SELECT+8*
%DT(0 SELECT+4*, SELECT+8*
CASENO PRINT+1~, PRINT+8*, PRINT+9*, PRINT+10, PRINT+13
CNT EN+1~, PRINT+1~, PRINT+2*, PRINT+12*, PRINT+13
COUNT PROCESS+5*, FILE+8*, FILE+9, PRINT+1~, PRINT+2*, PRINT+14*, PRINT+18, CLOSE+2, CLOSE+3
DATA2 GETDATA+1~, GETDATA+11*, GETDATA+20, FILE+4
DATAOBS GETDATA+1~, GETDATA+12*, GETDATA+14, GETDATA+15, GETDATA+19
DATAOP GETDATA+1~, GETDATA+13*, FILE+6
DATE EN+1~, EN+6*, SELECT+4, SELECT+8
DIR BEGIN+8!, HEADER+4!, CLOSE+4!
DIR(0 BEGIN+8*, HEADER+4*, CLOSE+4*
DONE SELECT+1~, SELECT+2*, SELECT+3, SELECT+18*
EC0 GETDATA+1~, GETDATA+6*
ECCAN GETDATA+1~, GETDATA+7*
ECD PROCESS+1~, PROCESS+6*, PROCESS+7*, PROCESS+9, GETDATA+4
>> ECD0 PROCESS+8*, PROCESS+9*, PROCESS+10, GETDATA+6, GETDATA+7, GETDATA+11, GETDATA+12, GETDATA+13, FILE+7
ECED EN+2~, SELECT+3*, SELECT+16*, PROCESS+7
ECEND EN+2~, SELECT+17*, HEADER+9
ECRUN EN+1~, EN+6*, HEADER+8
ECSD EN+2~, SELECT+3*, SELECT+6*, SELECT+10, SELECT+13
ECSD1 EN+2~, SELECT+6*, PROCESS+6
ECSTART EN+2~, SELECT+7*, HEADER+8
ECTSDT GETDATA+3~
ECXDATE GETDATA+1~, GETDATA+4*, GETDATA+10
ECXDESC EN+1~, EN+14*, EN+17
ECXDFN GETDATA+1~, GETDATA+6*, GETDATA+10, GETDATA+23, GETDATA+25, GETDATA+26, GETDATA+28
ECXERR EN+2~, PROCESS+3*, PROCESS+7, GETDATA+4*, FILE+9*
ECXPORT EN+1~, EN+9*, PROCESS+4, FILE+5, FILE+6, PRINT+6, PRINT+11, PRINT+17
ECXPROC FILE+1~, FILE+6*, FILE+7
ECXSAVE EN+1~, EN+17
ECXSAVE("EC*" EN+15*
I HEADER+1~
IO EN+19, PRINT+3
>> IO(0 EN+19
IOF BEGIN+1, BEGIN+9, HEADER+6
IOSL HDRLN+1, PRINT+16
IOST BEGIN+9, HEADER+2, HEADER+6, CLOSE+1
JJ HEADER+1~, HEADER+3*, PRINT+1~, CLOSE+2*
LGDONE HEADER+10*, WRTLGLN+3*, PRINT+1~, CLOSE+3
LN HDRLN+4, PRINT+1~, PRINT+5*
NAME GETDATA+3~, GETDATA+26*, GETDATA+27, FILE+7
OBS GETDATA+3~
OBSDT PRINT+1~, PRINT+2*, PRINT+7*, PRINT+9, PRINT+10, PRINT+16
PATINHLD GETDATA+2~, FILE+1~, FILE+4*, FILE+7
PATINOR GETDATA+2~, FILE+3*, FILE+7
PATMBY GETDATA+2~, GETDATA+31*, GETDATA+32*, FILE+7
>> PATMENT GETDATA+30*, GETDATA+31
PATMN GETDATA+2~
PG HEADER+4, HEADER+6*, HEADER+7, PRINT+1~, PRINT+2*, PRINT+5*
>> POP EN+18
PTINOR GETDATA+2~, GETDATA+20*, GETDATA+21, FILE+3
PTMVDT GETDATA+3~, GETDATA+23*, GETDATA+25
PTMVIDT GETDATA+3~, GETDATA+22*, GETDATA+23
PTMVIEN GETDATA+3~, GETDATA+24*, GETDATA+25*, GETDATA+30
QFLG EN+2~, EN+4*, EN+7, EN+8, SELECT+3, SELECT+5*, SELECT+9*, BEGIN+8*, HEADER+4*, HEADER+5
HDRLN+1, PRINT+1~, PRINT+2*, PRINT+5*, PRINT+6, PRINT+7, PRINT+9, PRINT+16, PRINT+17, CLOSE+1
REC WRTLN+1, WRTLN+3, PRINT+1~, PRINT+10*, PRINT+13
SS HEADER+1~, HEADER+3*, PRINT+1~, CLOSE+2*
SSN GETDATA+3~, GETDATA+28*, GETDATA+29
SSNO GETDATA+3~, GETDATA+29*, FILE+7
SUOBSDT GETDATA+2~, GETDATA+19*, GETDATA+21, GETDATA+22, FILE+2, FILE+7
>> SUOBSDTO FILE+2*, FILE+7
SUOBSTS GETDATA+2~, GETDATA+15*, GETDATA+16, GETDATA+17, FILE+5
>> SUOBSTSO GETDATA+16*
TSCDSTR GETDATA+3~, GETDATA+5*, GETDATA+18
TSCODE GETDATA+3~, GETDATA+17*, GETDATA+18, FILE+5*, FILE+7
U GETDATA+6, GETDATA+7, GETDATA+15, GETDATA+16, GETDATA+19, GETDATA+20, GETDATA+30, FILE+4, FILE+6, FILE+7
WRTLN+1, WRTLN+3, PRINT+13
X EN+1~, EN+6
Y EN+1~, EN+6*, SELECT+5, SELECT+6, SELECT+7, SELECT+9, SELECT+10, SELECT+13, SELECT+16, SELECT+17
BEGIN+8, HEADER+4
>> ZTQUEUED PRINT+4
ZTREQ PROCESS+2*, PRINT+4!
>> ZTSTOP FILE+9*, PRINT+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All