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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ECXSETUP

Package: DSS Extracts

Routine: ECXSETUP


Information

ECXSETUP ;ALB/JAP,BIR/DMA,CML,PTD-Generate Patient Population for a Given Day ;3/17/17 13:12

Source Information

Source file <ECXSETUP.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 4 FIELD^DID  IX^DIK  EN^DIQ1  ^DIR  
DSS Extracts 3 ^ECXSETU1  ($$ECXDATE,$$ECXDOB,$$ECXTIME,$$ECXYM)^ECXUTL  $$PRIMARY^ECXUTL2  
Kernel 2 (,$$S)^%ZTLOAD  ($$FMTE,$$HTFM)^XLFDT  
Integrated Billing 1 $$INSURED^IBCNS1  

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

Package Total Caller Graph
DSS Extracts 1 ECXSETUP  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from option
DATE
START ;queued entry point
END
GET ;
FILE ;file record
GET1 ;look again for admission if the one we found was ASIH (ECAS=1)
PTF ; get admitting DRG and diagnosis from PTF

External References

Name Field # of Occurrence
^%ZTLOAD DATE+2
$$S^%ZTLOAD FILE+5
FIELD^DID START+3
IX^DIK FILE+4
EN^DIQ1 START+6
^DIR DATE
^ECXSETU1 START+14
$$ECXDATE^ECXUTL GET+7
$$ECXDOB^ECXUTL GET+8
$$ECXTIME^ECXUTL GET+5
$$ECXYM^ECXUTL GET+5
$$PRIMARY^ECXUTL2 GET+6
$$INSURED^IBCNS1 GET+8
$$FMTE^XLFDT EN+12, DATE+1
$$HTFM^XLFDT EN+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The setup extract is already running.",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"The setup extract has already been run.",!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"This option will extract the admission data and data for the last",!,"transfer and treating specialty change for all patients who",!,"were in the hospital on the day you select.",!!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"NOTE - This will generate a snapshot of your inpatient population on the",!,"BEGINNING of the day you select, not the end of the day as MAS/HAS reports do.",!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: "For example, for the inpatient setup extract if you choose October 1, 1994,",!,"the report will start at midnight at the beginning of the day."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: " For the MAS/HAS",!,"report, you would choose September 30, 1994. The MAS/HAS report begins at",!,"midnight at the end of the day.",!!!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"Date must be in the past",!
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !,"Request queued as Task #",ZTSK,".",!
  • Line Location: DATE+3
Routine Call
  • DIR
  • Line Location:
    • DATE

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
^DGPM - [#405] FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(408.32 - [#408.32] GET+12
^DGPM - [#405] START+10, START+11, GET+15, GET1+1, GET1+2
^DGPM("ATID1" START+10, GET1+1
^DGPT - [#45] GET+18, PTF+2, PTF+3
^DIC(10 - [#10] GET+19
^DIC(21 - [#21] GET+13
^DIC(42 - [#42] GET+14
^DIC(45.7 - [#45.7] GET+17
^DIC(5 - [#5] GET+9, GET+10
^DIC(8 - [#8] GET+11
^DPT - [#2] GET+1, GET+2, GET+8, GET+9, GET+11, GET+13
^ECX( START+13, FILE+1, FILE+2*, FILE+3*
^ECX(728 - [#728] EN+6, EN+7, START+1, START+2*, START+5
^ICD9 - [#80] PTF+4
^TMP($J START+9!, GET+4*

Label References

Name Line Occurrences
DATE DATE
END DATE, DATE+4, START+12
GET START+11, GET1+2
GET1 START+11
PTF GET+18

Naked Globals

Name Field # of Occurrence
^( START+10, GET1+1
^("S" START+1
^(0 START+11, START+13*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> COUNTY GET+10*, GET+11
>> D0 GET+2*, GET+3, GET+7, GET+8, GET+12, GET+13, GET+19
>> D1 GET+9*, GET+10, GET+11*, GET+13
DA START+5*, START+6!, END!, FILE+4*!
DFN START+10*, END!, GET+1, GET+2, GET+4, GET+6, GET+7, GET+8, GET+9, GET+11
, GET+13, GET1+1
DIC START+5*, START+6!
DIK FILE+4*!
DIQ START+5*, START+6!
DIQ(0 START+5*
DIR DATE!, END!
DIR("A" DATE*
DIR("B" DATE*
DIR(0 DATE*
>> DIRUT DATE
DR START+5*, START+6!
DT EN+5*, EN+12, DATE
>> EC START+11*, GET+4, GET+14, GET+18, GET1+1*, PTF+2*, PTF+3
EC0 END!
>> EC1 START+10*, GET1+1*, GET1+2
>> EC2 PTF+3*, PTF+4
>> EC7 FILE+1*, FILE+2, FILE+3, FILE+4
>> ECAD GET+4*, GET+5, GET+7
>> ECAS START+11*
>> ECCTY GET+10*
ECD START+4*, START+8, START+11, END!, GET+6, GET+8, GET1+2
ECD0 START+8*, START+10, END!
>> ECDA START+10*, GET+4, GET+15, GET+17, GET1+1*, GET1+2
ECDEX EN+12*, DATE, DATE+1*, DATE+2, END!
>> ECDIA GET+18*, PTF+4*
>> ECDRG GET+18*, PTF+3*
>> ECED DATE*, START+4, GET+5
>> ECFILE START+4*, START+13, FILE+1, FILE+2, FILE+3, FILE+4
>> ECGRP START+4*
>> ECHEAD START+4*
>> ECINST START+5*, START+6*
ECLAST START+13*!
>> ECM GET+12*, GET+13
>> ECODE GET+7*, GET+8*, GET+11*, GET+13*, GET+17*, GET+18*, GET+19*, FILE+2
>> ECPACK START+4*
>> ECPIECE START+4*
>> ECPRO START+3*, GET+17
>> ECPTF GET+18*, PTF+2, PTF+3
>> ECPTPR GET+6*, GET+19
>> ECPTTM GET+6*, GET+7
>> ECRN START+7*, START+13, FILE+2*, FILE+5
>> ECRTN START+4*
>> ECSD START+4*
>> ECSTA GET+9*, GET+10
>> ECT1 GET+15*
>> ECTM GET+5*, GET+19
ECTOTAL START+13*!
>> ECTS GET+15*, GET+17
>> ECVER START+4*
>> ECX START+11*, GET1+1*, GET1+2
ECXDD START+3!
ECXDD("SPECIFIER" START+3
ECXDIC START+5!, START+6!
ECXDIC(4 START+6
>> ECXYM GET+5*, GET+7, FILE+2
>> FAC GET+14*, GET+17
>> J GET+15*
>> QFLG START+7*, START+10, START+12, FILE+5*
>> STATE GET+9*, GET+11
U EN+6, EN+7, START+2, START+5, START+11, START+13, GET+3, GET+4, GET+6, GET+7
, GET+8, GET+9, GET+10, GET+11, GET+12, GET+13, GET+14, GET+15, GET+17, GET+18
, GET+19, FILE+2, FILE+3, GET1+1, PTF+3, PTF+4
>> W GET+14*, GET+17
X END!, GET+6*
Y EN+12*, DATE, DATE+1, END!
>> ZTDESC DATE+2*
>> ZTIO DATE+2*
>> ZTQUEUED FILE+5
>> ZTRTN DATE+2*
>> ZTSAVE("ECED" DATE+2*
>> ZTSK DATE+3
>> ZTSTOP START+12*
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 |  Naked Globals |  Local Variables  | All